var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while true do begin
// Если перс умер
if User.Dead then
begin
// Вырубаем бота, встаем
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);
// Летим куда-то
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsbuffer', True);
Delay (15000);
Engine.BypassToServer('_bbsbufferbypass_cast 3063 x x', True);
Delay (10000);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsgatekeeper', True);
Delay (2000);
Engine.BypassToServer('_bbsgatekeeper_main-35.htm', True);
Delay (2000);
Engine.BypassToServer('15', True);
delay (1000)
end;
delay (500);
if user.InRange(110, 235082, -3248,777) then begin
Engine.MoveTo(648, 235752, -3248);
Engine.MoveTo(232, 237656, -3048);
Engine.MoveTo(1640, 239112, -3080);
Engine.MoveTo(2600, 240440, -2832);
Engine.MoveTo(2744, 242120, -2344);
Engine.MoveTo(4504, 243608, -1920);
Engine.MoveTo(5720, 242424, -1896);
Engine.MoveTo(6040, 241432, -1952);
Engine.MoveTo(7320, 240680, -2032);
Engine.MoveTo(8088, 239896, -2064);
end;
// Когда прибежали на спот, включаем бота
Engine.FaceControl(0,true);
end;
end.
var Captcha:string;
begin
while true do
begin
delay(500) ;
end;
if Captcha <> Engine.DlgText then
begin
Captcha := Engine.DlgText;
if (Pos('снятия', Captcha) <> 0) then
PlaySound('Sounds/hp.wav',false);
Delay(1800);
end;
end.
Только вот капча вроде не правильно настроена (
разбираюсь дальше.
Если есть у кого свои варианты ,буду рад помощи )
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while true do begin
// Если перс умер
if User.Dead then
begin
// Вырубаем бота, встаем
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);
// Летим куда-то
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsbuffer', True);
Delay (15000);
Engine.BypassToServer('_bbsbufferbypass_cast 3063 x x', True);
Delay (10000);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsgatekeeper', True);
Delay (2000);
Engine.BypassToServer('_bbsgatekeeper_main-35.htm', True);
Delay (2000);
Engine.BypassToServer('15', True);
delay (1000)
end;
delay (500);
if user.InRange(110, 235082, -3248,777) then begin
Engine.MoveTo(648, 235752, -3248);
Engine.MoveTo(232, 237656, -3048);
Engine.MoveTo(1640, 239112, -3080);
Engine.MoveTo(2600, 240440, -2832);
Engine.MoveTo(2744, 242120, -2344);
Engine.MoveTo(4504, 243608, -1920);
Engine.MoveTo(5720, 242424, -1896);
Engine.MoveTo(6040, 241432, -1952);
Engine.MoveTo(7320, 240680, -2032);
Engine.MoveTo(8088, 239896, -2064);
end;
// Когда прибежали на спот, включаем бота
Engine.FaceControl(0,true);
end;
end.
var Captcha:string;
begin
while true do
begin
delay(500) ;
end;
if Captcha <> Engine.DlgText then
begin
Captcha := Engine.DlgText;
if (Pos('снятия', Captcha) <> 0) then
PlaySound('Sounds/hp.wav',false);
Delay(1800);
end;
end.
Только вот капча вроде не правильно настроена (
разбираюсь дальше.
Если есть у кого свои варианты ,буду рад помощи )