Code: Select all
скрипт драбадана
procedure GumpWorkOut;
var
gi :TGumpInfo;
code1 : Cardinal;
code2 : Cardinal;
i : Integer;
//released_id : Cardinal;
begin
//UOSay('tyt');
GetGumpInfo(GetGumpsCount-1, gi);
code1 := gi.GumpButtons[0].released_id; // код картинки первой кнопки
code2 := gi.GumpButtons[1].released_id; // код картинки второй кнопки
// цикл по оставшимся кнопкам
for i := 2 to GetArrayLength(gi.GumpButtons)-1 do
begin
if gi.GumpButtons[i].released_id = code1 then // если код картинки совпадает, то...
begin
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[i].return_value); // нажимаем эту кнопку
break; // и заканчиваем цикл
end;
end;
Wait(1000);
GetGumpInfo(GetGumpsCount-1, gi);
for i := 2 to GetArrayLength(gi.GumpButtons)-1 do
begin
if gi.GumpButtons[i].released_id = code2 then
begin
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[i].return_value);
break;
end;
end;
end;