Advertisement
Guest User

Untitled

a guest
Oct 15th, 2018
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.46 KB | None | 0 0
  1. var
  2. item: TL2Item;
  3. buff: TL2Buff;
  4.  
  5.  
  6.  
  7.  
  8. begin
  9. while true do begin
  10.  
  11. if user.inrange (10633, 17042, -4584, 10000) then begin
  12.  if user.incombat then delay(100) else begin
  13.  if user.pvp then delay(100) else begin
  14.  
  15.  
  16. Engine.MoveTo(10633, 17042, -4584);
  17. Engine.MoveTo(9834, 17197, -4584);
  18. Engine.MoveTo(7651, 17666, -4376);
  19.  Engine.MoveTo(6226, 17888, -4256);
  20.  Engine.MoveTo(6021, 18399, -4152);
  21.  Engine.MoveTo(6588, 18698, -3984);
  22. Engine.MoveTo(6955, 19440, -3736);
  23. Engine.MoveTo(5464, 20043, -3720);
  24.   Engine.MoveTo(3372, 20505, -3704);
  25.   Engine.MoveTo(1791, 20808, -3512);
  26.   Engine.MoveTo(84, 20245, -3344);
  27.  Engine.MoveTo(-1652, 20432, -3376);
  28.  Engine.MoveTo(-3457, 21651, -3456);
  29. Engine.MoveTo(-4746, 21974, -3480);
  30.    Engine.MoveTo(-6590, 22016, -3632);
  31. Engine.MoveTo(-8417, 22006, -3712);
  32. Engine.MoveTo(-8837, 21347, -3568);
  33. Engine.MoveTo(-8675, 19699, -3464);
  34.  Engine.MoveTo(-8205, 18205, -3240);
  35. Engine.MoveTo(-9322, 16665, -3616);
  36.   Engine.MoveTo(-9855, 15504, -3168);
  37.  Engine.MoveTo(-8747, 14065, -3208);
  38. Engine.MoveTo(-8120, 13066, -2968);
  39. Engine.MoveTo(-7484, 12758, -2752);
  40. Engine.MoveTo(-7484, 12758, -2752);
  41.  
  42.     Engine.LoadConfig('Setup2');    //BotSetupFile
  43.     Engine.LoadZone('setup2.zmap');   //Saved ZoneFile
  44.                    
  45. Engine.FaceControl(0,true);
  46. end;
  47. end;
  48. end;
  49.  
  50. if User.Dead then begin
  51. delay(1500);
  52. Engine.GoHome();
  53. Delay(1000);
  54. Engine.FaceControl(0,false);
  55. Delay(10000);
  56. end;
  57.  
  58.  
  59. Delay(10000);
  60. end;
  61. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement