Welcome to MaxCheaters.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads

Recommended Posts

 

Hi, I need something like this:

 

 

procedure toVillage;

begin

Print('To Village');

Delay(100);

if (User.HP=0) then

begin

Delay(100);

Engine.GoHome;

Engine.Facecontrol(0,False);

Buff;

end;

end;

 

But to go to the clan hall, how?

 

Thank you in advance ...

I think for ch is engine.gohome(rtclanhall)

Share this post


Link to post
Share on other sites
  • Replies 783
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

The above script works for tutorial windows. For trade chats you would only need to change the packet ID, so search for that. You don't need to ask for a whole other script when you already have one that you just need to modify for it to work.

pto, plase share l2 adrenaline scripts or send to pm :)

Hi if you mean save npc dialog in to txt file so this help for you uses classes; begin with Tstringlist.create do try Text := Engine.DlgText; SaveToFile('C:\dlg.txt'); finally Free; end; end.

Posted Images

Another error, I tried with "engine.delay(555)" only also and I still get an error. I'm playing Interlude

 

errre22.png

var
  adena:tl2item;
begin
  while engine.delay(555) do begin
  inventory.user.byid(57, adena);
    if assigned(adena) and (adena.count > 5 * 1000000) then begin // more than 5kk
      while not user.target.dead do delay(11);
      engine.facecontrol(0,false); delay(555);
      engine.entertext('.deposit'); delay(555);
      engine.facecontrol(0,true);
    end;
  end;
end.

Share this post


Link to post
Share on other sites

I think for ch is engine.gohome(rtclanhall)

I need change engine.gohome in script for this? Only this?

 

Do u have script for Forbbidden? To farm aa? Mine is not working very well, I put it in the 4 or 5 room, but the char sometimes does not give to village, sometimes it keeps walking without stopping, it comes close to the farm place and is killing mob and going back the way ... Half crazy hahahah, I have 10 days just using adrenaline, and I learned to edit some things about script, but I'm totally noob in that: /

 

Thanks for the support again, you're amazing!!

Share this post


Link to post
Share on other sites
var
  adena:tl2item;
begin
  while engine.delay(555) do begin
  inventory.user.byid(57, adena);
    if assigned(adena) and (adena.count > 5 * 1000000) then begin // more than 5kk
      while not user.target.dead do delay(11);
      engine.facecontrol(0,false); delay(555);
      engine.entertext('.deposit'); delay(555);
      engine.facecontrol(0,true);
    end;
  end;
end.

Thanks a lot, working perfect now.

 

Best regards!

Share this post


Link to post
Share on other sites

hi im trying to write a train script for warlord. i use moveto and useskill to provoke the mobs and get the train going then facecontrol to enable bot but i cant find a way to stop bot from fighting after all the train is dead. any ideas?

Share this post


Link to post
Share on other sites

hi im trying to write a train script for warlord. i use moveto and useskill to provoke the mobs and get the train going then facecontrol to enable bot but i cant find a way to stop bot from fighting after all the train is dead. any ideas?

function checkAgro: boolean;
var npc: TL2Npc; 
begin
   result := Engine.FindEnemy(npc, user, 1100));
end;

begin
engine.moveto(123,123,123);
engine.useskill(123);
engine.facecontrol(0,true);
while checkAgro do delay(1111);
engine.facecontrol(0,false);
end.

like this should work

Share this post


Link to post
Share on other sites
  • 2 weeks later...

I'm trying to save all items (that are not equipped) in the warehouse.

//auto store items in warehouse
var
items: TL2List;
i: integer

procedure save (itemId: integer)
    if not inventory.user.byid(728, item) or (item.count<1) then begin
        Engine.SetTarget(31268); // NPC's id
        Engine.DlgOpen;
        Engine.DlgSel(1); // NPC window option
        Engine.DlgSel(1);
        Engine.NPCExchange(itemId, 1); // (iditem, quantity)
        Print('OK');
        delay(1000);
    end;
end;

begin
    while Length(items) > 0 do begin
        for i:0 to Length(Inventory.User.Items) do begin
            save(Inventory.User.Items[i].);  //get Item id??
        end;
    end;
end.

Share this post


Link to post
Share on other sites

I've seen that it can't be done like that in interlude. So I've done it with mouse events but it isn't dragging the object. What's wrong?

// Exchanges itemCount number of items from the inventory
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

var
i : integer;
const
itemCount = 3; // for testing purposes make this number small
perActionDelay = 200;

procedure mouseClick(x, y : integer);     
begin
  SetCursorPos(x, y);
  mouse_event($2, 0, 0, 0, 0);
  delay(perActionDelay);
  mouse_event($4, 0, 0, 0, 0);
end;

begin
i := 1;
  while i < itemCount do begin
    delay(perActionDelay);
    SetCursorPos(30, 310);
    delay(perActionDelay);
    mouse_event($2, 0, 0, 0, 0);
    delay(perActionDelay);
    SetCursorPos(30,480);
    delay(perActionDelay);
    mouse_event($4, 0, 0, 0, 0);
    delay(perActionDelay);
    mouseClick(900,480);
    delay(perActionDelay);
    mouseClick(690,480);
    delay(perActionDelay);
    i := i + 1;
    end;
end.
Edited by darknesscrysis

Share this post


Link to post
Share on other sites

I was doing the A-Grade weapons quest script and I don't know why I can't select the next option.


// A-Grade weapon quest
uses Classes;

begin
  if User.Level > 61 then begin
    Engine.SetTarget(32105);
    Engine.DlgOpen;
    Delay(500);
    Engine.DlgSel('Quest');
    Delay(500);
    Engine.DlgSel('A Powerful Primeval creature');
    Delay(500);
    Engine.DlgSel('What rumors are you talking about?');
    Delay(500);
  end;
end.

Share this post


Link to post
Share on other sites
  • 3 weeks later...

Hi, someone can help me with a script to go for gk in dwarven village? I need this because NPC buffer is next to gk.

 

My script is:

 

var Figth_Flag:boolean;
     Item: TL2Item;
     Npc: TL2Npc;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;
 
 
procedure toVillage;
begin
Print('To Village');
  Delay(1000);
    if (User.HP=0) then
      begin
       Delay(2000);
       engine.gohome;
       Engine.Facecontrol(0,False);
       Buff;
      end;
end;
 
 
procedure buff;
begin
       Print('Go Buffer');
     Engine.Settarget(35458); //target npc buff
     Delay(15000);
     Engine.DlgOpen;       //abre chat npc
     Delay(1500);
     Engine.Settarget(35458); //target npc buff
     Delay(5000);
     Engine.DlgOpen;       //abre chat npc
     Delay(1500);
     Engine.DlgSel(34);
     Delay(800);
     Engine.DlgSel(4);
     Delay(800);
     Engine.DlgSel(21);
     Delay(800);
   RunTo;
end;
 
 
procedure RunTo;
begin
     Print('Go Teleporte');
     Engine.SetTarget(31114);  //Target do NCP GK
     Delay(1500);
     Engine.DlgOpen; // abre chat combat npc
     Delay(1500);
     Engine.DlgSel(2);
     Delay(1500);
     Engine.DlgSel(2);
     Delay(1500);
     Fight;
end;
 
 
procedure toBuff;
  begin
  IdBuff:=1204 ;  //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Check Buff');
        engine.facecontrol(0,false);
        Engine.UseItem(736);  //Scroll Escape
        Delay(30000);
        buff;
   end;
end;
 
 
procedure Fight;
   begin
   Print('Fight zone');
    Engine.MoveTo(144792, -174168, -1525);
    Delay(500);
    Engine.MoveTo(145480, -174792, -1525);
    Delay(500);
    Engine.MoveTo(146008, -175528, -1525);
    Delay(500);
    Engine.LoadConfig('1');    //Íàçâàíèå Âàøåãî êîíôèãà
    Engine.LoadZone('coalb.zmap');   //zona de combat
    Print('Ôàðì');
    toVillage;
    Engine.Facecontrol(0,True);
end;
 
 
//-----------------------------------------------------------------------------
begin    //repete novamente o script
Print('repete novamente');
  repeat
   toBuff;
   toVillage;
  until Engine.Status = lsOffline;
  Delay(15000);
end.

Share this post


Link to post
Share on other sites

Anyone have a script for autojoin tvt? When appears in the chat chat system, TVT event open, how can i do a script like this,

 

I don't know the command for read chat system and then

Engine.EnterText('.jointvt');

Edited by powercheats

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.