hlp

Members
  • Content count

    111
  • Joined

  • Last visited

About hlp

  • Rank
    Brother

Recent Profile Visitors

185 profile views
  1. @Hlp

    Help! You have Delphi, no?

    Got this "Pascal Script" thingy for Inno Setup which doesn't compile properly.

    The return value of msgbox checks out, but the case condition is broken.

    Search for this

    Quote

    //************
    //PROBLEM Here
    //************
    //retVal value okay
    //IDNO value ok
    //but IDNO condition never reached!
    //************
     

    If you have a chance, care to have a look?

    Appreciate,

    Laurie

    InnoSetupDel.txt

    1. Show previous comments  6 more
    2. lmstearn

      lmstearn

      Oh, so do not define the return value?

      Like

      Quote

      var
      Result: Boolean;

      That will barf the return on it? Oh dear. Thanks. well the same goes with the other functions then.

    3. lmstearn

      lmstearn

      Gotcha, thanks. :)

       

    4. hlp

      hlp

      Result is implicitly defined in functions, the old Pascal syntax was to use the function name as the pseudo variable but it did not work well with copy/paste :)

       

  2. God! Any excuse to bitch at Bethesda!
  3. You can only have one Steam game folder per drive. So if you want to change it you have to change all games. At least with what the steam UI will let you do.
  4. Believe me it is that simple. All the reference to steam are in the stub code that decrypt the exe and then pass control to the program original entry point. Though I never bothered to check how the steam achievement where handled.
  5. Fallout3 never had the steam hooks (it was not encrypted). FalloutNV and Oblivion are just the steam binaries decrypted without the added steam segment(s). So the game binary code is the same.
  6. Let's be clear the part of the runtime binaries that "play" the games are STRICTLY identical to the last version available on steam except for the LAA flag. So no they did not optimize or corrected them in any way. Also, I tested the gog version on an up to date Windows 10 insider version and did not have this message.
  7. Do not steal our F4SE ! Expired has enough work to do there. He is probably concentrating on the game he is currently moding and do not have time to do both.
  8. F4SE 0.3.1 is published. No need to wait
  9. It definitively is doable by script Launch a script at the root the worldspaces in your mod (I assume you don't have interior map marker); in Process, test for reference to MapMarker, then modify the radius by 0.8. try: function Process(e: IInterface): integer; var b: IInterface; r: IInterface; begin Result := 0; if (Signature(e) = 'REFR') then begin b := RecordBySignature(e, 'NAME'); if Assigned(b) and (FormID(b) = $10) then begin r := RecordBySignature(e, 'XRDS'); if Assigned(r) then SetNativeValue(e, 0.8 * GetNativeValue(e)); end; end; end; It is untested and I did not check that the function names have the correct names.
  10. xDump is not the same binary
  11. Yes. Change the beginning from @echo off if not "%Debug%"=="" @echo on setLocal set SourceFolder= set DestFolder= set DestDir= set DestFile= if "%1"=="" goto ErrorNoSourceFolder if "%2"=="" goto ErrorNoDestFolder Rem parameters. Double quote if name contains blank for %%g in (%1) do set SourceFolder=%%~g for %%g in (%SourceFolder%) do set SourceFolder=%%~fg for %%g in (%2) do set DestFolder=%%~g for %%g in (%DestFolder%) do set DestFolder=%%~fg to @echo off if not "%Debug%"=="" @echo on setLocal set SF=Your source folder set DF=Your Dest Folder set DestDir= set DestFile= Rem parameters. Double quote if name contains blank for %%g in (%SF%) do set SourceFolder=%%~g for %%g in (%SourceFolder%) do set SourceFolder=%%~fg for %%g in (%DF%) do set DestFolder=%%~g for %%g in (%DestFolder%) do set DestFolder=%%~fg EDIT: Sorry but the second block refuses to stay in the code box
  12. Try this one, it's working for me (at least for creating the proper directories and file names). I don't have xtexconv here to run that last part. @echo off if not "%Debug%"=="" @echo on setLocal set SourceFolder= set DestFolder= set DestDir= set DestFile= if "%1"=="" goto ErrorNoSourceFolder if "%2"=="" goto ErrorNoDestFolder Rem parameters. Double quote if name contains blank for %%g in (%1) do set SourceFolder=%%~g for %%g in (%SourceFolder%) do set SourceFolder=%%~fg for %%g in (%2) do set DestFolder=%%~g for %%g in (%DestFolder%) do set DestFolder=%%~fg if not exist "%SourceFolder%" goto ErrorBadSourceFolder if not exist "%DestFolder%" md "%DestFolder%" if not exist "%DestFolder%" call :ErrorBadDestFolder "%DestFolder%" if not exist "%DestFolder%" goto :OUT pushd %SourceFolder% for /D %%d in (*.*) do call :DoOneDir "%%d" for %%f in (*.dds) do call :DoOneFile . %%f popd goto :OUT :DoOneDir for %%g in (%1) do set SubDir=%%~g for %%g in ("%DestFolder%") do set DestDir=%%~g if not exist "%DestDir%\%SubDir%" md "%DestDir%\%SubDir%" if not exist "%DestDir%\%SubDir%" call :ErrorBadDestFolder "%DestDir%\%SubDir%" if not exist "%DestDir%\%SubDir%" goto :OUT for %%f in ( "%SubDir%\*.dds" ) do call :DoOneFile %1 "%%f" for /D %%d in ( "%SubDir%\*.*" ) do call :DoOneDir "%%d" goto :EOF :DoOneFile for %%g in ("%DestFolder%") do set DestDir=%%~g if not '%1'=='.' set DestDir=%DestFolder%\%~1 for %%g in ( "%DestDir%" ) do set DestDir=%%~fg set DestFile=%~2 for %%g in ( "%DestFile%" ) do set DestFile=%%~fg "C:\Steam\steamapps\common\Skyrim Special Edition\Tools\Elric\xtexconv.exe" -nologo -xbox -o "%DestDir%" "%DestFile%" REM (test only) copy "%DestFile%" "%DestDir%" goto :EOF :ErrorNoSourceFolder @echo. Missing source folder. goto :OUT :ErrorNoDestFolder @echo. Missing dest folder. goto :OUT :ErrorBadSourceFolder @echo. Source folder does not exist. goto :EOF :ErrorBadDestFolder @echo. Cannot create dest folder (%1). goto :OUT :OUT endLocal goto :EOF
  13. Obviously I have a duplication somewhere. I don't suppose you really have a "clutter clutter" or a "effects effects" subdirectory...
  14. Apparently so. That's what been reported anyway.