Jump to content

L2 Adrenaline Scripts.


Recommended Posts

If you can't copy/paste some text and change two numbers then I am afraid you are beyond redemption.

im sure for him change numbers its hard when dont know what that commands means xd

 

 

can u make with video sir?,im already try it,i dont know why still not work

if rly i dont know what in video i need to show xd anyway 

mouseDown (1156 897 1000); //1156 desktop X, 897 desktop Y, 1000 delay 1second

like example this command press and hold on weapon

mouseUp (446, 390, 1000);

this release to add weapon in augment window

var 
L2Skill: TL2Skill; 
skill1: TL2Skill; 
skill2: TL2Skill; 
skill3: TL2Skill; 
skill4: TL2Skill; 
NovObj: TL2Skill; 
NovEngine: TL2Control; 
buff: TL2Buff; 
function keybd_event (bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer ; stdcall; external
 'user32.dll'; 
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'; 
function GetSkill (const Control: String; const ID: Cardinal): TL2Skill; 

begin 
NovEngine:= GetControl (control); 
if Assigned (NovEngine) and NovEngine.GetSkillList.ByID (ID, NovObj) then 
Result := NovObj; 
delay (10000) 
end; 

procedure pressKey (hexCode: BYTE); 
begin   
keybd_event (hexCode, 45, 1, 0);   
delay (200); 
end; 

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

procedure mouseDown (x, y, _delay: integer ); 
begin   
SetCursorPos (x, y);   
mouse_event ($2, 0, 0, 0, 0);   
// delay (_delay);   
// mouse_event ($ 4, 0, 0, 0, 0); 
end; 

procedure mouseUp ( x, y, _delay: integer); 
begin   
SetCursorPos (x, y);   
// mouse_event ($ 2, 0, 0, 0, 0);   
// delay (_delay);   
mouse_event ($4, 0, 0, 0, 0 ); 
end; 
// coordinate of the higher edge of the box augmentation \\ \\ 486 144 
// coordinate of the higher edge of the box cancel \\ \\ 485 413 
// coordinate of the higher edge of the box inventory \\ 203 \\ 1072 
// active REFRESH 3199 // Reflect active 3204 // virgin 3158 
// active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 
// weight limit 3251 // Passive pvp Mait 3243 
begin 
delay (10000); 
while 1 <> 2 do begin 
if (not SkillList.ByID (3243, skill1)) then begin // remove augment      
mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (486, 700, 1000); // Fluff drag the window aukmenta cancellation and release      
delay (300);      
mouseClick (445, 829, 200); // Confirm cancellation augment (augment cancel confirmation button)      
delay (3000); // Waiting for the augmentation      
mouseClick (445, 829, 200); // Push for the next augmentation (after HP pulled out)      
delay (300); // insert the new augment      
mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (446, 390, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1156, 897, 1000); // click on the LAN      
delay (300);      
mouseUp (526, 392, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1197, 897, 1000); // click on gemston      
delay (300);      
mouseUp (485, 432, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseClick (440, 562, 200); // Confirm augment      
delay (4300); // Waiting for the augmentation      
mouseClick (440, 562, 200); // Push for the next augmentation      
delay (100);      
end; 
if (SkillList.ByID (3243, skill2)) then begin 
PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); delay ( 5000); 
end; 
end; 
end. 

here i litle bit corected that script becouse after copy all script become in 1line, i guess now other better can understand where what is xd 

 

PS. not i translated descriptions from russ to eng

Edited by adr.bot
Link to comment
Share on other sites

im sure for him change numbers its hard when dont know what that commands means xd

 

 

if rly i dont know what in video i need to show xd anyway 

mouseDown (1156 897 1000); //1156 desktop X, 897 desktop Y, 1000 delay 1second

like example this command press and hold on weapon

mouseUp (446, 390, 1000);

this release to add weapon in augment window

var 
L2Skill: TL2Skill; 
skill1: TL2Skill; 
skill2: TL2Skill; 
skill3: TL2Skill; 
skill4: TL2Skill; 
NovObj: TL2Skill; 
NovEngine: TL2Control; 
buff: TL2Buff; 
function keybd_event (bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer ; stdcall; external
 'user32.dll'; 
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'; 
function GetSkill (const Control: String; const ID: Cardinal): TL2Skill; 

begin 
NovEngine: = GetControl (control); 
if Assigned (NovEngine) and NovEngine.GetSkillList.ByID (ID, NovObj) then 
Result : = NovObj; 
delay (10000) 
end; 

procedure pressKey (hexCode: BYTE); 
begin   
keybd_event (hexCode, 45, 1, 0);   
delay (200); 
end; 

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

procedure mouseDown (x, y, _delay: integer ); 
begin   
SetCursorPos (x, y);   
mouse_event ($ 2, 0, 0, 0, 0);   
// delay (_delay);   
// mouse_event ($ 4, 0, 0, 0, 0); 
end; 

procedure mouseUp ( x, y, _delay: integer); 
begin   
SetCursorPos (x, y);   
// mouse_event ($ 2, 0, 0, 0, 0);   
// delay (_delay);   
mouse_event ($ 4, 0, 0, 0, 0 ); 
end; 
// coordinate of the higher edge of the box augmentation \\ \\ 486 144 
// coordinate of the higher edge of the box cancel \\ \\ 485 413 
// coordinate of the higher edge of the box inventory \\ 203 \\ 1072 
// active REFRESH 3199 // Reflect active 3204 // virgin 3158 
// active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 
// weight limit 3251 // Passive pvp Mait 3243 
begin 
delay (10,000); 
while 1 <> 2 do begin 
if (not SkillList.ByID (3243, skill1)) then begin // remove augment      
mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (486, 700, 1000); // Fluff drag the window aukmenta cancellation and release      
delay (300);      
mouseClick (445, 829, 200); // Confirm cancellation augment (augment cancel confirmation button)      
delay (3000); // Waiting for the augmentation      
mouseClick (445, 829, 200); // Push for the next augmentation (after HP pulled out)      
delay (300); // insert the new augment      
mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (446, 390, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1156 897 1000); // click on the LAN      
delay (300);      
mouseUp (526, 392, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1197, 897, 1000); // click on gemston      
delay (300);      
mouseUp (485, 432, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseClick (440, 562, 200); // Confirm augment      
delay (4300); // Waiting for the augmentation      
mouseClick (440, 562, 200); // Push for the next augmentation      
delay (100);      
end; 
if (SkillList.ByID (3243, skill2)) then begin 
PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); delay ( 5000); 
end; 
end; 
end.

here i litle bit corected that script becouse after copy all script become in 1line, i guess now other better can understand where what is xd 

 

PS. not i translated descriptions from russ to eng

im try to change number and still not work,plis correct my script,what wrong? :(

var

item: TL2Item;
 
begin
while true do begin
delay(500);
 
if inventory.user.byid(15866, item) and not (Item.Equipped) then begin
Delay(500);
Engine.UseItem(15866);'Finale Blade'
Delay(800);
end;
Edited by vensia
Link to comment
Share on other sites

 

im try to change number and still not work,plis correct my script,what wrong? :(

var

item: TL2Item;
 
begin
while true do begin
delay(500);
 
if inventory.user.byid(15866, item) and not (Item.Equipped) then begin
Delay(500);
Engine.UseItem(15866);'Finale Blade'
Delay(800);
end;

 

var
item: TL2Item;
 
begin
while true do begin
delay(500);
 
if inventory.user.byid(15866, item) and not (Item.Equipped) then begin
Delay(500);
Engine.UseItem(15866);//'Finale Blade'
Delay(800);
end;
end;
end.
Link to comment
Share on other sites

var
item: TL2Item;
 
begin
while true do begin
delay(500);
 
if inventory.user.byid(15866, item) and not (Item.Equipped) then begin
Delay(500);
Engine.UseItem(15866);//'Finale Blade'
Delay(800);
end;
end;
end.

omg work ,tq so much sir :lol:

Link to comment
Share on other sites

can someone share script auto rush-impact kamael,if u have it  :D

tell more

 

 

Hallo

 

 

Can sameone write a script to farm ( buff + anty bot system) on server l2 toxic ? In a free time afc.

 

Or maby samone alredy have one and can share.

captcha i guess you dont get for free, becouse who know how make that only sell it

Link to comment
Share on other sites

tell more

 

 

captcha i guess you dont get for free, becouse who know how make that only sell it

 

tell more

 

 

captcha i guess you dont get for free, becouse who know how make that only sell it

im read in forum someone sell script like this

maybe always change target when have target in radius 200-600,just like using next-target

http://forum.lineage2bot.com/viewtopic.php?f=11&t=119&p=453&hilit=anti+disarm#p453

Edited by vensia
Link to comment
Share on other sites

hmm i dont know xd, maybe this 

procedure RushTarget(MinR, MaxR:Cardinal);
var
i:integer;
begin
for i:=0 to CharList.Count-1 do begin
if (User.DistTo(CharList.Items(i))>MinR) and
(User.DistTo(CharList.Items(i))<MaxR)then
begin
Engine.SetTarget(CharList.Items(i));
Break;
end;
end;

end;

begin
while true do begin
delay(50);
SetPVPTarget(200,600); //200min range, 600max range
end;
end.

it will target closer player

Edited by adr.bot
Link to comment
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.
Note: Your post will require moderator approval before it will be visible.

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.




×
×
  • Create New...

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