Показать сообщение отдельно
Старый 20.03.2015, 06:55   #2
Местный
 
Регистрация: 08.11.2012
Сообщений: 104
Сказал Спасибо: 12
Имеет 3 спасибок в 3 сообщенях
bot140140 пока неопределено
По умолчанию

попробуй так
delphi Код:
Label a; procedure MoveTo;  //Ьежим к баферу  begin if user.inrange(117304,76318,-2670,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(118229,74677,-2450,250,150) then     begin     Engine.MoveTo(118069,75907,-2680);     Engine.MoveTo(117104,76838,-2688);     end;  if user.inrange(115683,77610,-2650,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(115685,75072,-2550,250,150) then Engine.MoveTo(116949,76808,-2712);  if user.inrange(115861,75200,-2550,250,150) then Engine.MoveTo(116949,76808,-2712);  if user.inrange(117671,78998,-2210,250,150) then     begin     Engine.MoveTo(117031,78908,-2256);     Engine.MoveTo(116718,78406,-2560);     Engine.MoveTo(116232,77389,-2704);     Engine.MoveTo(117104,76838,-2688);     end;  if user.inrange(116158,77443,-2660,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(116127,76015,-2729,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(115193,77594,-2670,250,150) then     begin     Engine.MoveTo(115193,77594,-2704);     Engine.MoveTo(117053,76874,-2712);     end;  if user.inrange(119862,76603,-2272,250,150) then     begin     Engine.MoveTo(119711,76592,-2272);     Engine.MoveTo(118444,76180,-2664);     Engine.MoveTo(117674,76110,-2712);     Engine.MoveTo(117056,76868,-2712);     Engine.MoveTo(117056,76868,-2712);     end;  if user.inrange(116920,77240,-2672,250,150) then begin     Engine.MoveTo(117029,78912,-2264);     Engine.MoveTo(116221,77560,-2712);     Engine.MoveTo(117056,76868,-2712);     Engine.MoveTo(117056,76868,-2712);     end;  end; Procedure Buff;   //Бафаемся и тп на спот  begin   Engine.MoveTo(148101,-55570,-2734); // buffer   Engine.SetTarget(32327); // buffer id   Engine.DlgOpen;   delay(1000);   Engine.DlgSel(1);   delay(1000);   Engine.DlgSel(1);   delay(1000);   Engine.SetTarget(141); //id teleporta   delay(1000);   Engine.DlgOpen; //otkrivaem dialog s teleportom   delay(1000);   Engine.DlgSel(1);   Engine.DlgSel(2); // nr tp spota   delay(3000);   Engine.MoveTo(130424,114312,-3744);   Engine.MoveTo(129480,114072,-3736);   Engine.MoveTo(127432,113896,-3512);  end; Procedure GoHome;  begin   begin   delay(3000);   Engine.GoHome;   delay(3000);   goto a;   end;  end; begin If Engine.Status = lsOnline Then  begin   while true do     begin     a: Engine.FaceControl(0, False);     MoveTo;     Buff;     Engine.FaceControl(0, True);     While Not User.Dead Do Delay (1000);     if User.Dead then  GoHome;     end;  end; end.

Последний раз редактировалось bot140140, 20.03.2015 в 09:34.
bot140140 вне форума   Ответить с цитированием