cuppacoffee Posted August 30, 2015 Posted August 30, 2015 Delay(30000); Thats the solution to your problem. Quote
adr.bot Posted September 3, 2015 Posted September 3, 2015 http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/ Quote
vensia Posted September 3, 2015 Posted September 3, 2015 http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/ can u make with video sir?,im already try it,i dont know why still not work Quote
cuppacoffee Posted September 3, 2015 Posted September 3, 2015 If you can't copy/paste some text and change two numbers then I am afraid you are beyond redemption. Quote
vensia Posted September 3, 2015 Posted September 3, 2015 If you can't copy/paste some text and change two numbers then I am afraid you are beyond redemption. i dont know for change number :D ,can u give me example? Quote
adr.bot Posted September 3, 2015 Posted September 3, 2015 (edited) 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 September 3, 2015 by adr.bot Quote
vensia Posted September 3, 2015 Posted September 3, 2015 (edited) 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 September 3, 2015 by vensia Quote
adr.bot Posted September 3, 2015 Posted September 3, 2015 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. Quote
vensia Posted September 3, 2015 Posted September 3, 2015 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: Quote
vensia Posted September 6, 2015 Posted September 6, 2015 can someone share script auto rush-impact kamael,if u have it :D Quote
Stone85 Posted September 6, 2015 Posted September 6, 2015 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. Quote
adr.bot Posted September 6, 2015 Posted September 6, 2015 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 Quote
vensia Posted September 6, 2015 Posted September 6, 2015 (edited) 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 September 6, 2015 by vensia Quote
adr.bot Posted September 6, 2015 Posted September 6, 2015 (edited) 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 September 6, 2015 by adr.bot Quote
Recommended Posts
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.