Script To Farm Molar's In Ketra! How To Change Location

[iUndeadWalk]

Hello guys, i have a script that buffs and teleports to ketra , and bring the bot to a place in ketra. But this place is so shitty, lot of spoils, pks and no mobs..

 

I know some awesome spots, but i need to know, how can i found the location i want , and what should i change in the script.

 

Thanks for the help.

 

 

Here is the script. 

 

"

                  uses sysutils;

 

procedure buff;

 

var

buff1: TL2Effect;

item: TL2Item;

function CheckBuff: Boolean;

begin

    if not User.Buffs.ByID(1085, buff1) then begin

                  engine.useitem(736);

  delay(20000);

        Result:=false;

        Print('Buffs are needed. Buffing...');

  Engine.MoveTo(147725,-56170,-2807);

  Engine.MoveTo(148031,-55527,-2759);

 Engine.SetTarget('La2Dream');

Engine.DlgOpen;

Engine.DlgSel(5);

Delay(500);

 

end;

Result:=true;

end;

 

///////////////////////////////////////////////////////////

 

function deadCheck: Boolean;

begin

Result := false;

    if User.Dead then begin

        Result := true;

        Print('Dead. Pressing to village.');

        Delay(1000);

        Engine.GoHome;

        Delay(1000);

    end

    else

    begin

     Delay(1000);

    end;

    end;

///////////////////////////////////////////////////////////

 

       begin

 while true do begin

 deadcheck;

         

 

 

 

 

        

   if user.inrange(144942, -55390, -3007, 250, 150) then begin

   Engine.MoveTo(145236, -56823, -3007);

   Engine.MoveTo(145574, -56834, -3007);

   Engine.MoveTo(146285, -56405, -2807);

   Engine.MoveTo(147627, -56010, -2799);

   Engine.MoveTo(147938, -55476, -2759);

   end;

 

 

 

  //////////////////////////////

 

if user.inrange(146272, -58176, -2976, 250, 150) then begin

Engine.MoveTo(147593, -58103, -3007);

Engine.MoveTo(147727, -57141, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(145264, -57680, -2976, 250, 150) then begin

Engine.MoveTo(145588, -56926, -3007);

Engine.MoveTo(146673, -56095, -2807);

Engine.MoveTo(147543, -56054, -2807);

Engine.MoveTo(148012, -55745, -2751);  

    end;  

if user.inrange(145696, -57696, -2976, 250, 150) then begin

Engine.MoveTo(145510, -56930, -3007);

Engine.MoveTo(146499, -56202, -2807);

Engine.MoveTo(147481, -56031, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(144944, -55392, -2976, 250, 150) then begin

Engine.MoveTo(145153, -56813, -3007);

Engine.MoveTo(145569, -56855, -3007);

Engine.MoveTo(146467, -56271, -2807);

Engine.MoveTo(147566, -56034, -2807);

Engine.MoveTo(148012, -55745, -2751);   

    end;  

if user.inrange(144752, -56752, -2976, 250, 150) then begin

Engine.MoveTo(145534, -56884, -3007);

Engine.MoveTo(146265, -56418, -2807);

Engine.MoveTo(147407, -56063, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(149120, -58064, -2976, 250, 150) then begin

Engine.MoveTo(147706, -58107, -3007);

Engine.MoveTo(147751, -56737, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(150400, -56752, -2976, 250, 150) then begin

Engine.MoveTo(149935, -56870, -3007);

Engine.MoveTo(149139, -56390, -2807);

Engine.MoveTo(147929, -56063, -2807);

Engine.MoveTo(148012, -55745, -2751);   

    end;  

if user.inrange(150704, -55744, -2976, 250, 150) then begin

Engine.MoveTo(149935, -56870, -3007);

Engine.MoveTo(149139, -56390, -2807);

Engine.MoveTo(147929, -56063, -2807);

Engine.MoveTo(148012, -55745, -2751);   

    end;  

if user.inrange(147680, -58208, -2976, 250, 150) then begin

Engine.MoveTo(147727, -57141, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(148288, -58304, -2976, 250, 150) then begin

Engine.MoveTo(147738, -58050, -3007);

Engine.MoveTo(147727, -57141, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(147232, -58480, -2976, 250, 150) then begin

Engine.MoveTo(147677, -58063, -3007);

Engine.MoveTo(147727, -57141, -2807);

 Engine.MoveTo(148012, -55745, -2751);

    end;  

if user.inrange(149088, -56256, -2776, 250, 150) then begin

Engine.MoveTo(147854, -56054, -2807);

Engine.MoveTo(148012, -55745, -2751);   

    end;

if user.inrange(146832, -55904, -2776, 250, 150) then begin

Engine.MoveTo(147529, -56046, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(146368, -56256, -2776, 250, 150) then begin

Engine.MoveTo(147529, -56046, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(147664, -56464, -2776, 250, 150) then begin

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(147680, -56928, -2776, 250, 150) then begin

Engine.MoveTo(147810, -56110, -2807);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(148560, -55904, -2776, 250, 150) then begin

Engine.MoveTo(148012, -55745, -2751);

    end;

    if user.inrange(149872, -57424, -2976, 250, 150) then begin

Engine.MoveTo(149897, -56910, -2979);

Engine.MoveTo(149230, -56412, -2779);

Engine.MoveTo(147939, -55999, -2772);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(144960, -56224, -2976, 250, 150) then begin

Engine.MoveTo(145458, -56853, -2979);

Engine.MoveTo(146343, -56326, -2779);

Engine.MoveTo(147625, -55995, -2772);

Engine.MoveTo(148012, -55745, -2751);

    end;   

if user.inrange(144496, -55088, -2976, 250, 150) then begin

Engine.MoveTo(145327, -56873, -2979);

Engine.MoveTo(146337, -56445, -2779);

Engine.MoveTo(147533, -55963, -2766);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(145392, -56960, -2976, 250, 150) then begin

Engine.MoveTo(146347, -56305, -2779);

Engine.MoveTo(147514, -56003, -2772);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(150238, -57165, -3002, 250, 150) then begin

Engine.MoveTo(149051, -56361, -2782);

Engine.MoveTo(147790, -56080, -2782);

Engine.MoveTo(148012, -55745, -2751);

    end;

if user.inrange(149088, -56256, -2776, 250, 150) then begin

Engine.MoveTo(147711, -55910, -2752);

    end;  

 

///////////////////////////////////////////////////////////  

 

  if user.inrange(148019,-55501,-2759, 700) then begin

   Engine.FaceControl(0,false);

  Engine.MoveTo(148012, -55745, -2751);

  Engine.SetTarget(31360);

  Engine.DlgOpen;

  Delay(500);

  Engine.DlgSel(13);

  Delay(500);

  Engine.MoveTo(147759, -55452, -2759);

  Engine.MoveTo(147979, -55282, -2759);

  Engine.SetTarget('Tatiana');

  Engine.DlgOpen;

  delay(500);

  engine.dlgsel(2);

  delay(500);

  engine.dlgsel(10);

  Engine.CancelTarget;

  delay(500);

if user.inrange(146990, -67128, -3640, 1000)

 then begin

 print('Moveing to spawn');

  Engine.MoveTo(146126, -68893, -3756);

Engine.MoveTo(143679, -69147, -3783);

Engine.MoveTo(144446, -69598, -3904);

Engine.MoveTo(144111, -70339, -4100);

Engine.MoveTo(143831, -70929, -4108);

Engine.MoveTo(143738, -70268, -4082);

Engine.MoveTo(143844, -72500, -4265);

 

  if user.inrange(143844, -72500, -4265, 3000) then begin

Delay(500);

Engine.FaceControl(0, true);

   print('Arrived');

 

 

 

end;

end;

end;

end;

end;

begin 

Script.NewThread(@buff);

end.

 

 

"

[Reborn12]

Here is the coords after teleport

Use /loc and add yours

 print('Moveing to spawn');
  Engine.MoveTo(146126, -68893, -3756);
Engine.MoveTo(143679, -69147, -3783);
Engine.MoveTo(144446, -69598, -3904);
Engine.MoveTo(144111, -70339, -4100);
Engine.MoveTo(143831, -70929, -4108);
Engine.MoveTo(143738, -70268, -4082);
Engine.MoveTo(143844, -72500, -4265);

[adr.bot]

Here is the coords after teleport

Use /loc and add yours

 print('Moveing to spawn');
  Engine.MoveTo(146126, -68893, -3756);
Engine.MoveTo(143679, -69147, -3783);
Engine.MoveTo(144446, -69598, -3904);
Engine.MoveTo(144111, -70339, -4100);
Engine.MoveTo(143831, -70929, -4108);
Engine.MoveTo(143738, -70268, -4082);
Engine.MoveTo(143844, -72500, -4265);

alt + v in script window

[iUndeadWalk]

Very good guys! It worked perfectly , and i've set 3 differents scripts , im 3 differents spots! 

 

An other question...

 

based on that, how should i setup a script to port to Pagan's Temple? Like rune has so many respawn's... how to print every one of these?