Code: Select all
Program kill_golem;
const
//Body of Golem
trypgolem=$2006;// труп голема
golem=$000E;// тип голема
var
label povtor, jdem, jdemtryp; // ТУТ ОШИБКА ! !!!!! ! ! !
begin
FindDistance := 15;
if FindType(golem,ground) > 0 then
begin
UseType($0f0e, $0631);
povtor:
ctime := now;
cast('Energy Vortex');
WaitForTarget(5000);
if targetpresent then
begin
TargetToObject(golem);
If InJournalBetweenTimes('spell fizzles', ctime, Now) > 0 Then goto povtor;
end;
jdem:
ctime := now;
wait(5000)
If InJournalBetweenTimes('Energy Vortex', ctime, Now) < 0 Then goto jdem;
begin
uosay('All Kill')
WaitForTarget(5000);
if targetpresent then
begin
TargetToObject(golem);
end;
end;
jdemtryp:
ctime := now;
wait(5000)
If InJournalBetweenTimes('Body of Golem', ctime, Now) < 0 Then goto jdemtryp;
begin
FindType(trypgolem,ground);
if FindCount > 0 Then
begin
if GetDistance(finditem) > 3 Then MoveXY(GetX(finditem), GetY(finditem), false, 0, false);
MoveItem(FindItem,-1,backpack,0,0,0);
wait(1000);
end;
FindType(trypgolem,ground);
if FindCount > 0 Then
begin
MoveItem(FindItem,-1,backpack,0,0,0);
wait(1000);
end;
end.
чтоб если физланула то повторно пустил
