Jump to content

L2 Adrenaline Scripts.


Recommended Posts

On 10/11/2018 at 2:14 PM, gemisiz1 said:

adrenaline have nobles quest script?

if you need for h5  destiny / liona files, then yea

 

http://www.mediafire.com/file/w9bs6pcbg1l8znn/Auto_Nobless_dragon.rar

Link to comment
Share on other sites

On 10/15/2018 at 4:26 PM, AchYlek said:

if you need for h5  destiny / liona files, then yea

 

http://www.mediafire.com/file/w9bs6pcbg1l8znn/Auto_Nobless_dragon.rar

im need other h5 server bro

Link to comment
Share on other sites

  • 3 weeks later...

hi ppl. how do I run it for the party. I can not run

 function isHaveBuff(BuffArray : array of cardinal) : boolean;
var
  i:integer;
  buff : tl2buff;
begin
  result := true;
  for i := 0 to high(BuffArray) do
  begin
    if not  party.chars.byid(BuffArray[i], buff) then
    begin
      result := false;
      exit;
    end;
  end;
end;

function getItem(id : cardinal) : tl2item;
var
  item : tl2item;
begin
  inventory.user.byid(id, item);
  result := item;
end;

var
  item : tl2item;
  ItemID_1, ItemID_2: cardinal;
begin
  ItemID_1 :=6313;
  ItemID_2 :=11101;  
    
  while delay(555) do
  begin
    if not isHaveBuff([1397]) then
    begin
      if (getItem(ItemID_1) <> nil) and (not getItem(ItemID_1).equipped) then
      begin
       engine.useItem(ItemID_1);
       
      end;
    end else
    begin
      if (getItem(ItemID_2) <> nil) and (not getItem(ItemID_2).equipped) then
      begin
        engine.useItem(ItemID_2);
        
    
      
      end;
    end;
  end;
end.

 

Link to comment
Share on other sites

LF a script to get reward from npc.  i have 100k items and 1x Need 400 items. 

 

https://l2db.info/high-five/quests/290-Threat-Removal its the quest

 

 

Pinaps  

Quest

Threat Removal (In Progress)

Take the Reward 

 

repeat

 

greets 

 

Edited by Emi
Link to comment
Share on other sites

On 11/13/2018 at 11:11 PM, Emi said:

LF a script to get reward from npc.  i have 100k items and 1x Need 400 items. 

 

https://l2db.info/high-five/quests/290-Threat-Removal its the quest

 

 

Pinaps  

Quest

Threat Removal (In Progress)

Take the Reward 

 

repeat

 

greets 

 

 

You need somthing like this:

 

begin

  while true do begin

       engine.settarget('name of npc');

       delay(200);

       engine.dlgopen;

       engine.dlgsel('Something_1');

       delay(200);

      engine.dlgsel('something_2');

      delay(1000);

  end;

end.

Edited by Software
  • Thanks 1
Link to comment
Share on other sites

i want to make script for selling some item to shop on alt+B but this not work some one can help me

------------------------------------------------------------------------------------------------------------------------------------------------- 

 var
item: TL2Item;

begin
while true do begin
delay(500);

if inventory.user.byid(1373, item) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome');   //use alt and b change for your server
delay(1000);
engine.bypasstoserver('_bbsloc_CommunitySell');
delay(1000);
Engine.DlgOpen;
Engine.Dlgsel(2);  //(which npc window option to choose)
Delay(500);
Engine.NPCExchange(1373, 2);    // Magic Gem
delay(1000);
end;
end;
end;
end.

---------------------------------------------------------------------------------------------------------------------------------------------------------

Thank you

Edited by Black9981
Link to comment
Share on other sites

i want to make script for selling some item to shop on alt+B but this not work some one can help me

------------------------------------------------------------------------------------------------------------------------------------------------- 

 var
item: TL2Item;

begin
while true do begin
delay(500);

if inventory.user.byid(1373, item) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome');   //use alt and b change for your server
delay(1000);
engine.bypasstoserver('_bbsloc_CommunitySell');
delay(1000);
Engine.DlgOpen;
Engine.Dlgsel(2);  //(which npc window option to choose)
Delay(500);
Engine.NPCExchange(1373, 2);    // Magic Gem
delay(1000);
end;
end;
end;
end.

---------------------------------------------------------------------------------------------------------------------------------------------------------

Thank you

Shot00001.gif

Edited by Black9981
Link to comment
Share on other sites

9 hours ago, Black9981 said:

i want to make script for selling some item to shop on alt+B but this not work some one can help me

------------------------------------------------------------------------------------------------------------------------------------------------- 

 var
item: TL2Item;

begin
while true do begin
delay(500);

if inventory.user.byid(1373, item) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome');   //use alt and b change for your server
delay(1000);
engine.bypasstoserver('_bbsloc_CommunitySell');
delay(1000);
Engine.DlgOpen;
Engine.Dlgsel(2);  //(which npc window option to choose)
Delay(500);
Engine.NPCExchange(1373, 2);    // Magic Gem
delay(1000);
end;
end;
end;
end.

---------------------------------------------------------------------------------------------------------------------------------------------------------

Thank you

Shot00001.gif

https://adrenalinebot.com/en/api/adrenaline/Classes/TL2Control#NpcTrade

Link to comment
Share on other sites

Hello everyone,

 

I would like to ask for a way to know when my pet/summon and pt members are attacked by mobs.

 

I have trying to figure this out for days but still not get it. I tried to use engine.findenemy() but its didnt work with my pet/summon:

 

uses SysUtils;
var npc: TL2Npc;
var pet: TL2Pet;
Begin
	while engine.status = lsOnline do
	begin
			REPEAT
				Engine.UseSkill('Servitor Recharge');
				if engine.findenemy(npc,pet,300) then Break;
			UNTIL User.MP > 95; 
	end;
end.

 

Please help me solve this, and I am looking for a way to make it work with pt members too.

Thank you so much!

Edited by zenko_218
Link to comment
Share on other sites

25 minutes ago, zenko_218 said:

Hello everyone,

 

I would like to ask for a way to know when my pet/summon and pt members are attacked by mobs.

 

I have trying to figure this out for days but still not get it. I tried to use engine.findenemy() but its didnt work with my pet/summon:

 


uses SysUtils;
var npc: TL2Npc;
var pet: TL2Pet;
Begin
	while engine.status = lsOnline do
	begin
			REPEAT
				Engine.UseSkill('Servitor Recharge');
				if engine.findenemy(npc,pet,300) then Break;
			UNTIL User.MP > 95; 
	end;
end.

 

Please help me solve this, and I am looking for a way to make it work with pt members too.

Thank you so much!

var
  i : integer;
  mob : tl2npc;
begin
  for i:= 0 to npclist.count -1 do
  begin
    mob := npclist(i);
    if (mob.atkoid = user.oid) and (not mob.dead) then
    begin
      print(mob.name);
    end;
  end;
end.

seems you can check by "atkOID"

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



×
×
  • Create New...