SHARE
TWEET

Untitled

a guest Feb 21st, 2020 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. function buffCheck: Boolean;  // TA FUNKCJA SPRAWDZA CZY MASZ BUFF
  2. var buff: TL2Buff;
  3. begin
  4. Result:=false;
  5.     if not User.Buffs.ByID(4355, buff) then begin
  6.         Result:=true;
  7.         Print('Potrzebne buffy...');
  8.         if Engine.SetTarget(35704) then begin //NPC ID
  9.            Engine.DlgOpen;
  10.            Engine.DlgSel(9);
  11.            Print('Zbuffowany.');
  12.         end;
  13.     end;
  14. end;
  15.  
  16. function deadCheck: Boolean;  // TA FUNKCJA SPRAWDZA CZY JESTES MARTWY
  17. begin
  18. Result := false;
  19.     if User.Dead then begin
  20.         Result := true;
  21.         Print('Martwy. Ide do miasta.');
  22.         Engine.FaceControl(0, false);
  23.         Delay(1000);
  24.         Engine.GoHome;
  25.         Delay(10000);
  26.     end;
  27. end;
  28.  
  29. begin  // TA FUNKCJA DOBIEGA DO GK W GIRAN PO SMIERCI
  30. while delay(500) do begin
  31.     if User.InRange(81376,148095,-3464, 250, 150) then begin
  32.       Engine.MoveTo(81376,148095,-3464);
  33.       Engine.MoveTo(81881,148025,-3467);
  34.       Engine.MoveTo(83027,148020,-3467);
  35.       Engine.MoveTo(83402,147946,-3403);
  36.     end;
  37.     if User.InRange(82292,149450,-3464, 250, 150) then begin
  38.       Engine.MoveTo(82292,149450,-3464);
  39.       Engine.MoveTo(82865,148876,-3467);
  40.       Engine.MoveTo(83054,148281,-3467);
  41.       Engine.MoveTo(83402,147946,-3403);
  42.     end;
  43.     if User.InRange(81562,147782,-3464, 250, 150) then begin
  44.       Engine.MoveTo(81562,147782,-3464);
  45.       Engine.MoveTo(82284,148077,-3467);
  46.       Engine.MoveTo(83077,148159,-3467);
  47.       Engine.MoveTo(83402,147946,-3403);
  48.     end;
  49.     if User.InRange(83409,148578,-3400, 250, 150) then begin
  50.       Engine.MoveTo(83409,148578,-3400);
  51.       Engine.MoveTo(83427,148206,-3403);
  52.       Engine.MoveTo(83402,147946,-3403);
  53.     end;
  54.     if User.InRange(81440,149119,-3464, 250, 150) then begin
  55.       Engine.MoveTo(81440,149119,-3464);
  56.       Engine.MoveTo(82200,149222,-3467);
  57.       Engine.MoveTo(82722,148485,-3467);
  58.       Engine.MoveTo(83087,148101,-3467);
  59.       Engine.MoveTo(83402,147946,-3403);
  60.     end;
  61.     if User.InRange(82496,148095,-3464, 250, 150) then begin
  62.       Engine.MoveTo(82496,148095,-3464);
  63.       Engine.MoveTo(83092,148094,-3467);
  64.       Engine.MoveTo(83402,147946,-3403);
  65.     end;
  66.     if User.InRange(83473,149223,-3400, 250, 150) then begin
  67.       Engine.MoveTo(83473,149223,-3400);
  68.       Engine.MoveTo(83355,148728,-3403);
  69.       Engine.MoveTo(83358,148292,-3403);
  70.       Engine.MoveTo(83402,147946,-3403);
  71.     end;
  72.     if User.InRange(82272,147801,-3464, 250, 150) then begin
  73.       Engine.MoveTo(82272,147801,-3464);
  74.       Engine.MoveTo(82565,148080,-3467);
  75.       Engine.MoveTo(83101,148099,-3467);
  76.       Engine.MoveTo(83402,147946,-3403);
  77.     end;
  78.     if User.InRange(82480,149087,-3464, 250, 150) then begin
  79.       Engine.MoveTo(82480,149087,-3464);
  80.       Engine.MoveTo(82623,148694,-3467);
  81.       Engine.MoveTo(83087,148157,-3467);
  82.       Engine.MoveTo(83402,147946,-3403);
  83.     end;
  84.     if User.InRange(81637,149427,-3464, 250, 150) then begin
  85.       Engine.MoveTo(81637,149427,-3464);
  86.       Engine.MoveTo(82229,149197,-3467);
  87.       Engine.MoveTo(82610,148669,-3467);
  88.       Engine.MoveTo(83088,148170,-3467);
  89.       Engine.MoveTo(83402,147946,-3403);
  90.     end;
  91.     if User.InRange(81062,148144,-3464, 250, 150) then begin
  92.       Engine.MoveTo(81062,148144,-3464);
  93.       Engine.MoveTo(81574,147997,-3467);
  94.       Engine.MoveTo(82302,147975,-3467);
  95.       Engine.MoveTo(83070,148109,-3467);
  96.       Engine.MoveTo(83402,147946,-3403);
  97.     end;
  98.     if User.InRange(83426,148835,-3400, 250, 150) then begin
  99.       Engine.MoveTo(83426,148835,-3400);
  100.       Engine.MoveTo(83422,148276,-3403);
  101.       Engine.MoveTo(83402,147946,-3403);
  102.     end;
  103.     if User.InRange(81033,148883,-3464, 250, 150) then begin
  104.       Engine.MoveTo(81033,148883,-3464);
  105.       Engine.MoveTo(81769,149191,-3467);
  106.       Engine.MoveTo(82322,149192,-3467);
  107.       Engine.MoveTo(82622,148656,-3467);
  108.       Engine.MoveTo(83079,148163,-3467);
  109.       Engine.MoveTo(83402,147946,-3403);
  110.     end;
  111.     if User.InRange(83415,148235,-3400, 250, 150) then begin
  112.       Engine.MoveTo(83415,148235,-3400);
  113.       Engine.MoveTo(83402,147946,-3403);
  114.     end;
  115.     if User.InRange(83402,147946,-3403,250,150) then Moved := true;
  116.   end;
  117.  
  118.  
  119. buffCheck;  // SPRAWDZANIE BUFFA
  120.  
  121.  
  122.     Engine.SetTarget(31275);  // TARGET NA GK I TELEPORT - TRZEBA USTAWIC
  123.     Engine.DlgOpen;
  124.     Engine.DlgSel(1);
  125.     Engine.DlgSel(9);
  126.     Engine.DlgSel(1);
  127.     Print('Teleportuje na spota.');
  128.  
  129.  
  130. Engine.MoveTo(125717, -40772, -3779); // TO SCIEZKA NA SPOTA JUZ PO TELEPORCIE, W TYM WYPADKU MOST PRZED VARKA, USTAW SWOJA
  131. Engine.MoveTo(125069, -40216, -3731);
  132. Engine.MoveTo(124235, -40232, -3499);
  133. Engine.MoveTo(123527, -40303, -3408);
  134. Engine.MoveTo(123103, -40587, -3191);
  135. Engine.MoveTo(122924, -40729, -3096);
  136. Engine.MoveTo(122275, -40847, -3048);
  137. Engine.MoveTo(121493, -40924, -3116);
  138. Engine.MoveTo(121097, -40966, -3145);
  139. Engine.MoveTo(120245, -41116, -3144);
  140. Engine.MoveTo(119916, -41180, -3163);
  141. Engine.MoveTo(119268, -41407, -3183);
  142. Engine.MoveTo(118944, -41528, -3210);
  143. Engine.MoveTo(118857, -41672, -3205);
  144. Engine.MoveTo(118392, -41853, -3184);
  145. Engine.MoveTo(118255, -41898, -3172);
  146. Engine.MoveTo(117730, -42262, -3087);
  147. Engine.MoveTo(117344, -42776, -3076);
  148. Engine.MoveTo(117264, -42898, -3099);
  149. Engine.MoveTo(117258, -43407, -3208);
  150. Engine.MoveTo(117491, -43744, -3050);
  151. Engine.MoveTo(117996, -44155, -2923);
  152. Engine.MoveTo(118399, -44468, -2854);
  153. Engine.MoveTo(118632, -44650, -2834);
  154. Engine.MoveTo(118733, -44729, -2826);
  155. Engine.MoveTo(118949, -45241, -2774);
  156. Engine.MoveTo(119192, -45719, -2797);
  157.        
  158.    
  159.         //do Gk -> teleport -> do spota
  160.  
  161.         Print('Exp mode: ON'); //URUCHAMIA BOTA
  162.         Engine.FaceControl(0, true);
  163.         while not (deadCheck or buffCheck) do delay(2000);
  164.         if not user.dead then begin
  165.            Engine.FaceControl(0, false);
  166.            engine.useitem(736);
  167.            delay(20000);
  168.         end;
  169. end;
  170. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top