Jump to content

Recommended Posts

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.
 
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');

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);

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Posts

    • NEW SEASON START 23.01.2026 Get ready for the ultimate High Five adventure on L2Exoplanet.net!   • The last two previous Seasons are now merged into the Core Server. • The Core Server remains our main long-term world. • All future Seasonal Servers will be merged into Core after they end. • No characters or items will be lost – everything stays safe!     GRAND OPENING:  23.01.2026 at 20:00 GMT+1 BETA TEST:    16.01.2026    Client: High Five Rates: x10   Website: https://l2exoplanet.net Facebook: https://www.facebook.com/L2-Exoplanet-106811564103836 Discord: https://discord.gg/4fzhW7ZSPc         Game Rates    Experience: x10  Skill Points: x10  Adena: x5  Drop: x8  Spoil: x8  Quest: x5  Raid Boss Drop: x5  Fame: x2  Epaulette: x8  Manor: x8      Safe Enchant: +3  Maximum Enchant: +16  Normal Scroll Chance: 60%  Blessed Scroll Chance: 63%  Attribute Stone Chance: 50%  Attribute Crystal Chance: 30%      Game Settings    Multibox - 3 game clients per HWID  Autoloot  Autolearn Skills Auto Farm  NPC Buffer   Buff Slots (24+4/12)  Buff Duration (2h)  Olympiad Period 7days (new heroes appear every monday)  Seven Signs Period  Class Transfer for Adena  Max Sub-Class 3  Sub-Class Max Level 85  Essence Interface  Champions System  Vote Reward System  Dayli Reward System  PC Points Reward (500PC = 1 Donate Coin)      Epic Bosses Respawn Times     Queen Ant:  24 Hours +/- 4 Hours   Beleth: 3 Days +/- 8 Hours   Baium: 3 Days +/- 8 Hours   Antharas: 4 Days +/- 8 Hours   Valakas:  5 Days +/- 8 Hours     Instance Info     Normal Freya = 6 Players   Hard Freya = 12 Players   Frintezza = 6 Players   Zaken 83 Day = 6 Players   Zaken 60 Day = 6 Players   Zaken Nightly = 9 Players   Tiat = 6 Players   Beleth = 12 Players
    • when did i say something about mobius files besides what i've said on this post? or you're "calling me out" for saying this when someone says mobius is a better interlude alternative than acis? lol  
    • Spreading FUD disguised as "experience," mocking the project publicly, then acting shocked when called out. That's the conduct.
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock