Code: Select all
{10}
{20}
{30}
Code: Select all
{10}
{20}
{30}
Code: Select all
else AddToSystemJournal('Цель не определенна. Поиск ...'); wait(500); exit;
Code: Select all
else
begin
AddToSystemJournal('Цель не определенна. Поиск ...');
wait(500);
exit;
end
Code: Select all
procedure WaitGump(Value: String);
Code: Select all
WaitGump('1');
Code: Select all
WaitGump('X');
Code: Select all
WaitGump(X);
Code: Select all
MoveItem(Findtype($1111,$401EEEC5),2,backpack,0,0,0);
Code: Select all
MoveItem(Findtype($1111,$401EEEC5),X,backpack,0,0,0);
Code: Select all
MoveItem(Findtype($1111,$401EEEC5),'X',backpack,0,0,0);