Threaded Mode | Linear Mode

Berserker · 06.02.2024 17:16

Era_Map_Editor\Patch\Unit1.pas

Здесь объявлён класс TEra с функциями
FileIsInLod
FindFileLod
GetFileLod

Последняя нужна как раз для получения объекта RSLod.TRSLod, содержающего конкретный файл, например def.

Ты можешь поиском по GetFileLod найти места, где я пропатчил оригинальный код:

Code:

function TForm1.SaveProps:boolean;

var

  s:string; i:int; MskBuf: TRSByteArray;

begin

  result:= false;

  WasChanged:= false;

  with Props do

  begin

    s:=ComboBox1.Text;

    if not MyVal(s, SubTyp) then

    begin

      ErrorHint(ComboBox1, Format(SInvalidNumber, [s]));

      exit;

    end;

    MskBuf:= nil;

    s:=ChangeFileExt(Edit2.Text, '.msk');

    Self.Lod :=  Era.GetFileLod(s);

    if Self.Lod = nil then begin

      Self.Lod  :=  H3Sprite;

    end; // .IF

Code:

Self.Lod :=  Era.GetFileLod(s);

if Self.Lod = nil then begin

   Self.Lod  :=  H3Sprite;

end; // .IF

То есть ищем файл во всех lod-архивах. Находим — запоминаем архив для диалога. Не находим — используем стандартный H3Sprite.

Threaded Mode \| Linear Mode Ice Caves (Ледяные пещеры и снежные дороги) » Мод для Эры
Author	Message