Page 1 of 1

Передача процедуре списка waitmenu, возможно?

Posted: 01.04.2017 23:05
by Horny
Здравствуйте, переношу скрипт для крафта сетов в автоматическом режиме из инжекта в стелс и столкнулся с проблемой.
Существует ли возможность передать процедуре список для выбора меню? Или как это лучше сделать иначе?
Привожу пример из инжекта:

Code: Select all

Procedure make_plate;
   For a = 1 to 6 do
    Begin
   menu[1] := 'waitmenu 'What' 'Armors' 'What' 'Platemail' 'What' 'Breastplate'';
   menu[2] := 'waitmenu 'What' 'Armors' 'What' 'Platemail' 'What' 'Platemail Legs'';
   menu[3] := 'waitmenu 'What' 'Armors' 'What' 'Platemail' 'What' 'Platemail Arms'';
   menu[4] := 'waitmenu 'What' 'Armors' 'What' 'Helmets' 'What' 'Plate Helm'';
   menu[5] := 'waitmenu 'What' 'Armors' 'What' 'Platemail' 'What' 'Platemail Gloves'';
   menu[6] := 'waitmenu 'What' 'Shields' 'What' 'Heater'';
   
   item[1] := $1415;
   item[2] := $1411;
   item[3] := $1410;
   item[4] := $1412;
   item[5] := $1414;
   item[6] := $1B76;
     BS(menu[a],item[a]);
    End;

Re: Передача процедуре списка waitmenu, возможно?

Posted: 08.04.2017 3:16
by Vizit0r
procedure GetMenuItems(Caption : String; var TL : TStringList);
procedure GetLastMenuItems(var TL : TStringList);