SHARE
TWEET

Untitled

a guest Jan 19th, 2020 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure Tournament();
  2. var
  3.   i: integer;
  4.   npc: TL2Live;  
  5. begin
  6.   while true do
  7.   begin
  8.     NpcList.ByID(27250, npc);
  9.     if (Assigned(npc)) then
  10.     begin
  11.       Engine.SetTarget(npc);
  12.       Engine.MoveTo(npc);
  13.       Engine.DlgOpen;
  14.       Engine.DlgSel(3);
  15.       //Engine.DlgSel(1);
  16.       delay(5000);
  17.     end;
  18.   end;
  19. end;
  20.  
  21. procedure getTarget();
  22. var
  23.   i: integer;
  24.   i2: integer;
  25. begin
  26.   while true do
  27.   begin
  28.     //delay(5000);
  29.     print(CharList.Count);
  30.     if CharList.Count<10 then
  31.     begin
  32.     for i:= 0 to CharList.Count-1 do
  33.     begin
  34.       //if (CharList(i).InZone) or (User.DistTo(CharList(i)) < 2000) then
  35.       if (User.DistTo(CharList(i)) < 2000) then
  36.       begin
  37.         //engine.settarget(CharList(i));      
  38.       delay(100);
  39.       engine.settarget(CharList(i));
  40.       //delay(100);
  41.       //engine.useskill(1339);
  42.       delay(100);
  43.       engine.useskill(1083);
  44.       for i2:=0 to 10 do
  45.       begin
  46.         engine.useskill(1230);
  47.       end;
  48.       end;
  49.     end;
  50.     end;
  51.   end;
  52. end;
  53.  
  54. begin
  55.   Script.NewThread(@Tournament);
  56.   Script.NewThread(@getTarget);
  57. 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