Jump to content

Recommended Posts

Posted

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?

Posted (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 by adr.bot
Posted (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 by vensia
Posted

 

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.
Posted
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:

Posted

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

Posted (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 by vensia
Posted (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 by adr.bot

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



  • Posts

    • Very nice attempt and good luck with your sales.   Don't let the voices in this topic discourage you. Most of those people are just flexing. So if Celestine decides to write a bootkit or hook system calls or whatever and false-feed your anti-cheat fake info just because it sits in user mode just to go play in a private server with 100 people, I'll tell you one thing:   Who the fuck cares ... 😛   The average player won't / can't make these things, the big players like adrenaline won't bother (yet) (they don't have signed drivers do they ? They also run in user mode I believe). And even if they somehow manage to do so, there's a minority of players who would trust putting this thing on their pc. I wouldn't let anyone tamper with my kernel mode even if he had a signed certificate from Microsoft.    Also, in a scene where collusion has been brought out between bot makers and cheat guards, having many options is a blessing regardless of their strength. It makes colusion, conflict of interest and cartel more difficult, it drains from cheating software creators more resources to focus on more cheat guards, and it gives server owners plurality.    This arms race is a numbers game, you stop 90% of the cheaters you add value to all of us.    A couple of senior devs flexing their powers in a forum are not a concern.   If i'd ever make a server, I would definitelly buy from you, not because you have the best anti-cheat, but because you are not well known yet to be the focus of counter measures.     
    • TILL OPENING LEFT LESS THAN - 2 DAYS ! GRAND OPENING FROM - 10/07/2026, FRIDAY, 20:00 +3 GMT !
    • Add me on discord, lets talk   Discord: splicho
    • Add more information about your project, client, rates etc, this can help you find a developer more easily on your needs!
    • Hey guys! I am working on a new l2 private server and lookin for any developers who may be interested in helping me get it up n running. It would require a ton of work at the beginning, but once I am able to handle things on my own, I can do a lot of the work too. I just need someone who is tech savy to help me get things setup, make serious edits, and help me get this project going.   So far I have the project running on Java through eclipse. I have the server up locally, and pushing to GitHub. I just need help with managing edits to quests, skills, and other random functions to get me rolling.   Please reach out if you are interested!   Some current content I am working on: - Class skill edits - NPC skills, stats, and placements - Quest icons for turn in, completion, pick up etc - Quest logic (i.e. kill x mobs, turn in y amount, trigger a mini solo or mini group boss fights) I can handle the quest texts and story - Ability to more quickly upload changes to inventory, crafting, NPC stats/drops, etc... and gear setup. I would like to quickly add new recipes to shops or mob drops so players can start crafting it themselves
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..