Есть скрипт, ниже, когда его использую в разное время может выкинуть клиент - завершается его работа, типа непредвиденной ошибки. Пробовал на двух разных ПК.
скрипт:
Code: Select all
Program loot;
const
forCut = $1400; // крис
var
n,t:integer;
rsnd:integer;
i:array[0..16] of Word;
Bnkont,st:Cardinal;
{$Include 'all.inc'}
procedure InitMulki;
begin
i[0]:=$0F0B; // refresh
i[1]:=$0F0C; // heal potion
i[2]:=$0F3F; // arrows
i[3]:=$0EED; // gold
i[4]:=$0E21; // binty
i[5]:=$1838; // essence of firewproof
i[6] := $0F84; // Garlic
i[7] := $0F85; // Ginseng
i[8] := $0F88; // Nightshade
i[9] := $0F86; // Mandrake Roots
i[10] := $0F8C; // SA
i[11] := $0F7A; // BP
i[12] := $0F7B; // BM
i[13] := $0F8D; // SS
i[14] := $1067; // koja
i[15] := $0F21; // star sapfir
i[16] := $1078;
end;
procedure rezka;
begin
WaitTargetObject(st);
UseObject(FindType(forCut,backpack));
wait (3100);
end;
Procedure sbor_luta;
begin
UseObject(st);
wait (200);
AddTosystemJournal('откріли труп');
for n:=0 to Length(i)-1 do
begin
t:=0;
If Findtype(i[n],st) <> 0 then
while (Findtype(i[n],st) <> 0) or (t <= 3) do
begin
If GetDistance(st) > 1 then exit;
AddTosystemJournal('что-то нашли забираем');
Grab(FindItem,999)
Wait(170);
t := t+1;
end;
end;
end;
Procedure sbor_s_zemli;
begin
for n:=0 to Length(i)-1 do
begin
If Findtype(i[n],ground) > 0 then
begin
If GetDistance(FindItem) > 2 then exit;
AddTosystemJournal('что-то нашли поднимаем');
Grab(FindItem,911);
wait (150);
end;
end;
end;
Begin
InitMulki;
while not Dead do
begin
finddistance := 1;
findvertical := 20;
wait (300);
sbor_s_zemli;
If HP <=111 then
begin
If FindType(i[1],backpack) <> 0 then
begin
wait(1000);
UOSay(chr(39) + 'pc quaf heal');
wait(5500);
end
else
begin
wait(1000);
UOSay(chr(39) + 'pc heal self');
wait(5500);
end
end;
If HP <=55 then
begin
If FindType(i[1],backpack) <> 0 then
begin
wait(1000);
UOSay(chr(39) + 'pc heal self');
wait(5500);
end
else
begin
wait(1000);
UOSay(chr(39) + 'pc quaf heal');
wait(5500);
end
end;
If FindType($2006,ground) <> st then
begin
st := FindType($2006,ground);
wait(200);
rezka;
sbor_luta;
end;
end;
End.