Emerland.su farm IoP, HB

[Ononeemas]

Делал для себя скрипты на возвращение на споты при смерти и продолжение фарма, мб кому пригодится. Тестировалось на x500. Альт+Б бафф в скрипт не записывал, добавляйте в интерфейсе адрика.

Спойлер: HB

Begin
while 1<>2 do begin

if User.Dead then
begin
Engine.FaceControl(0,false);
delay(2000);
Engine.gohome;

delay(20000);
Engine.BypassToServer('_bbshome');
delay(300);
Engine.BypassToServer('12');
delay(300);
Engine.BypassToServer('14');
delay(300);
Engine.BypassToServer('19');
delay(10000);


if User.inrange(4296, 243832, -1920, 50, 50) then begin
Engine.MoveTo(5832, 242472, -1896);
Engine.MoveTo(5992, 241560, -1968);
Engine.MoveTo(6680, 241208, -2000);
end;

if User.inrange(6680, 241208, -2000, 500, 150) then begin
Engine.FaceControl(0,true);
end;

end;
end;
end.

Спойлер: IoP

Begin
while 1<>2 do begin

if User.Dead then
begin
Engine.FaceControl(0,false);
delay(2000);
Engine.gohome;

delay(20000);
Engine.BypassToServer('_bbshome');
delay(300);
Engine.BypassToServer('12');
delay(300);
Engine.BypassToServer('1a');
delay(300);
Engine.BypassToServer('10');
delay(10000);

Engine.MoveTo(111384, 219320, -3528);
delay(300);
Engine.SetTarget(30899);
delay(300);
Engine.DlgOpen;
delay(300);
Engine.DlgSel(1);
delay(300);
Engine.BypassToServer('0d');
delay(10000);


if User.inrange(149544, 195352, -3712, 500, 150) then begin
Engine.FaceControl(0,true);
end;

delay(15000);

end;
end;
end.