Jump to content
MaxCheaters Official Group at Discord
--> Place your ad text here <--

Help With Script To Use Teleport Nobles

iUndeadWalk
 Share

Recommended Posts

iUndeadWalk Newbie

iUndeadWalk

Posted
Posted

Hello guys i have a script for Ketra to farm some molars.. im trying to create a new script for FoG lower lvl teleport, but it uses a nobles teleport.

 

I made this setup for the script:

 

 

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);
  delay(500);
  Engine.SetTarget('Tatiana');
  Engine.DlgOpen;
  delay(500);
  engine.dlgsel(4);
  delay(500);
  engine.dlgsel(2);
  delay(500);
  engine.dlgsel(12);
  delay(500);
  engine.dlgsel(1);
  Engine.CancelTarget;
  delay(500);
 
After the yellow line, he doesn't follow the script, he doesn't click the line: "Do not use nobless gate pass". He just backs to npc buff.
 
Heres the whole script i made:
 
                  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(30000);
        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;Engine.MoveTo(43892, -48345, -792);
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(5000);
    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);
  delay(500);
  Engine.SetTarget('Tatiana');
  Engine.DlgOpen;
  delay(500);
  engine.dlgsel(4);
  delay(500);
  engine.dlgsel(2);
  delay(500);
  engine.dlgsel(12);
  delay(500);
  engine.dlgsel(1);
  Engine.CancelTarget;
  delay(500);
if user.inrange(179886, -111224, -5819, 1000)
 then begin
 print('Moveing to spawn');
    Engine.MoveTo(179731, -112055, -5832);
    Engine.MoveTo(177781, -112378, -5832);
    Engine.MoveTo(177146, -112445, -5709);
    Engine.MoveTo(176555, -112202, -5533);
    Engine.MoveTo(174712, -112184, -5472);
    Engine.MoveTo(174712, -112168, -5472);
    Engine.MoveTo(174696, -112152, -5472);
    Engine.MoveTo(174088, -112152, -5240);
    Engine.MoveTo(174022, -112187, -5224);
    Engine.MoveTo(173349, -112366, -5174);
    Engine.MoveTo(173702, -113012, -4996);
    Engine.MoveTo(173263, -113337, -4768);
    Engine.MoveTo(172286, -113572, -4327);
    Engine.MoveTo(171765, -112941, -3960);
    Engine.MoveTo(171586, -112207, -3632);
    Engine.MoveTo(171568, -111702, -3579);
    Engine.MoveTo(171162, -111714, -3577);
    Engine.MoveTo(171194, -112249, -3488);
    Engine.MoveTo(171496, -113263, -3484);
    Engine.MoveTo(172005, -113733, -3539);
    Engine.MoveTo(173179, -113664, -3558);
    Engine.MoveTo(173639, -113208, -3629);
    Engine.MoveTo(173830, -112590, -3709);
    Engine.MoveTo(174329, -112983, -3593);
    Engine.MoveTo(175204, -113096, -3485);
    Engine.MoveTo(177476, -113069, -3485);
    Engine.MoveTo(177603, -112664, -3485);
    Engine.MoveTo(177943, -110995, -3665);
    Engine.MoveTo(178982, -110847, -3665);
    Engine.MoveTo(178457, -109280, -3665);
    Engine.MoveTo(178734, -108998, -3648);
    
 
 
 
 
 
  if user.inrange(178734, -108998, -3648, 100) then begin
Delay(500);
Engine.FaceControl(0, true);
   print('Arrived');
 
 
 
end;
end;
end;
end;
end;
begin 
Script.NewThread(@buff);
end.
 
Link to comment
Share on other sites
adr.bot Rookie

adr.bot

Posted
Posted

So i should change to engine.dlgsel(2) to engine.bypasstoserver(2) ?

 

If so, i have a error: 

 

Incompatible types

you need use bypass string of button with engine.bypasstoserver('string');

Link to comment
Share on other sites
iUndeadWalk Newbie

iUndeadWalk

Posted
  • Author
Posted

Still cant do it. 

 

He just doesn't decide beetwen:

 

18951230_1488883421163899_31399594408410

 

 

The script its like that right now:

 

Engine.SetTarget('Tatiana');
  Engine.DlgOpen;
  delay(500);
  engine.dlgsel(4);
  delay(500);
    engine.dlgsel(2);
  delay(500);
  engine.bypasstoserver('Forge of the Gods, lower level - 1000 adena');
  delay(500);
  Engine.CancelTarget;
  delay(500);
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
 Share
Go to topic listing


  • Posts

    • utchiha-market
      FULL ACCESS 2016 DISCORD ACCOUNT FOR ONLY 12$ DON'T MISS OUT

      By utchiha-market · Posted

      https://t.me/utchiha_market
    • L2Insignia50x
      [L2J] L2 Insignia 20x

      By L2Insignia50x · Posted

      L2 Insignia High Five 20x MID SERVER FOCUSED ON OLYMPIAD | PVP | AUTOFARM       OPEN BETA TEST SERVER 3 MAY 2024   GRAND OPENING 10 MAY 2024    Rates: 📜 XP/SP 20x | Spoil 15x | Drop 10x | Adena 10x 📜     Server Features: 🔥 No Olf-T Shirt, No big over-enchant, No over-power Donate 🔥 🔥 VIP Gold Color Chat, Unique Olympiad Extra Points Engine, GvG Event 🔥 🔥 Auto-Farm, LoA and DV scheduled PvP Zone, Calendar Daily Reward 🔥 🔥 Castle Instance, Solo Instance, PvP Solo Rift, Dress me system, Adena Boxes 🔥        Website: https://www.l2insignia.com  Discord: https://discord.com/invite/yEgsrHn2hQ      
    • alibabank
      Essence project 388-439 & (447 like pride)

      By alibabank · Posted

      I am selling the essence project which includes versions 388 and 439 that have been running for over 2 years or (447 as custom PVP like Pride). I have a test server for you to test them out. If you are really interested in it then contact my seller at discord: kiwi7106. Price: 4000 Euro P/s: This is a project that I have spent a lot of money and time developing, so if you are not interested in it, please get out of this topic, thank you. P/s 2: If you find the price too expensive, it's best to skip this article and find another project and don't comment negatively on my topic, thank you.
    • ckbc1404
      Interface texture name?

      By ckbc1404 · Posted

      MonIca_FrameWnd  
    • WilliamFS
      Classic style Kamael Wing (Jin Kamael)

      By WilliamFS · Posted

      Someone ask me for this, it should work on any client that has Kamael race, preview:     Installation - there are two ways to install depending on how you want to use it:   Method 1: If you want to completely replace the original, do:   Copy all lines from your armorgrp to Notepad++, press Ctrl+H, check the "match whole word" option and replace:   kamael.Mkamael_m000_w_ad00   by:   AvengersKamaelWings.Avengers_MKamael_m001_w_ad00   Then replace:   MKamael.Mkamael_m000_t00_w   by:   AvengersKamaelWings.MKamael_m001_t00_w   Now repeat the same process with the female, replace:   kamael.Fkamael_m000_w_ad00   by:   AvengersKamaelWings.Avengers_FKamael_m001_w_ad00   Then replace:   FKamael.Fkamael_m000_t00_w   by:   AvengersKamaelWings.FKamael_m001_t00_w   You're done, paste everything back into File Edit and save!   Method 2: If you only want to replace in specific sets, execute the above process only on the armorgrp of those sets.   Repack by: AvengersTeamBr Password: LadrãoDeFrango      

  • Topics

×
×
  • Create New...