Thebattle помощь со скриптом

[IntelTwix]

Нашел исходники готового скрипта на возврат на спот. Но чар не как не хочет делать тп через alt+b.
В чем причина не пойму.

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);
Delay (500);
  // Engine.BypassToServer(15);
Delay (500);
  // Engine.BypassToServer(11);
Delay (15000);
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.

 

[qseven228]

убери // перед engine.sendtoserver

 

[IntelTwix]

@qseven228, Я даун и сделал его коментарием . . .

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); Delay (500); // Engine.BypassToServer(15); Delay (500); // Engine.BypassToServer(11); Delay (15000); 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.

Ему что то не нравится

 

[fAkeN]

регексп еще никто не отменял ^_^

http://rawr.su/topic/3461-rabota-s-dinamicheskimi-bypassami-regulyarnye-vyrazh/

 

[IntelTwix]

@fAkeN, Я же чайник, адреналин приобрел только 2 дня назад. Сижу разбираюсь, спасибо. Сейчас будем читать)

 

[IntelTwix]

@fAkeN, Сделал все по инструкции, все равно ничего не работает(

 

[qseven228]

@IntelTwix,

engine.bypasstoserver('15');

 

[fAkeN]

@IntelTwix,

Engine.DlgText

измени на

Engine.CbText

 

[fAkeN]

Выглядит примерно так:

 

[IntelTwix]

@fAkeN, Извини, ты не мог бы дать исходники? Те что у тебя на гифке? Потому что переписал все что ты сказал. При запуске он просто стоит как столб.

 

[IntelTwix]

Вроде разобрался, но есть новая проблема. Не могу заставить бота принимать тп.

Спойлер

Пробовал и через рекордер, он просто не видет этого диалога.

 

[fAkeN]

http://asiwin.com/api/adrenalin/Classes/TL2Control#_Dialogs

 

[IntelTwix]

@fAkeN, Да уже нашел решение, теперь не могу заставить чара идти к точке . . .Что за бред.
Вот скрипт сделал.

// Летим куда-то
begin
Engine.BypassToServer('_bbshome');
Delay (500);
Engine.BypassToServer('15');
Delay (500);
Engine.BypassToServer('15');
Delay (500);
Engine.BypassToServer('11');
Delay (1000);
begin
while 1<>2 do begin
Engine.ConfirmDialog(true); // отказ true согласие
//Также именно ЭТА команда отвечает за принятие\отказ (респа,трейда и т.д. не только ивенты)
delay(5000);
end;
delay(5000);
end;

begin
Engine.MoveTo(4706, 243939, -1920);
Engine.MoveTo(4072, 243464, -1920);
Engine.MoveTo(2632, 241896, -2400);
Engine.MoveTo(2648, 240184, -2896);
end;

После тп он стоит, что я сделал не так?

 

[qseven228]

@IntelTwix,

// Летим куда-то
begin
   Engine.BypassToServer('_bbshome');
Delay (500);
   Engine.BypassToServer('15');
Delay (500);
   Engine.BypassToServer('15');
Delay (500);
   Engine.BypassToServer('11');
Delay (1000);
   begin  
while 1<>2 do begin
  Engine.ConfirmDialog(true);  // отказ  true согласие
//Также именно ЭТА команда отвечает за принятие\отказ (респа,трейда и т.д. не только ивенты)  
  delay(5000);
end; 
delay(5000);


begin
  Engine.MoveTo(4706, 243939, -1920);
  Engine.MoveTo(4072, 243464, -1920);
  Engine.MoveTo(2632, 241896, -2400);
  Engine.MoveTo(2648, 240184, -2896);
end;
end;