Request L2 Adrenaline Scripts.

[Anitah]

 

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)

[temple13]

change to engine.delay(555)

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

 

[adr.bot]

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

 

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.

[thalestvn]

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!!

[temple13]

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!

[Nemes1s]

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?

[adr.bot]

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

[darknesscrysis]

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.

[darknesscrysis]

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 June 15, 2017 by darknesscrysis

[felipeandree]

Hi, everyone i need help to create a code to use any token (star - moon) (GOD version) when i target a mob. 
thanks

[darknesscrysis]

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.

[Anitah]

try change engine.dlgsel to engine.bypasstoserver

[thalestvn]

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.

[darknesscrysis]

Here are the movements for all the cities from respawn to gatekeeper.

[powercheats]

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 July 6, 2017 by powercheats