Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

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

тут можно задать вопрос по скриптингу
Post Reply
Horny
Posts: 5
Joined: 21.11.2016 11:49

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

Post 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;
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

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

Post by Vizit0r »

procedure GetMenuItems(Caption : String; var TL : TStringList);
procedure GetLastMenuItems(var TL : TStringList);
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply