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

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.

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

    • First, don't really follow the "main voice", moreover if you consider it an hobby. Simply do what you want, you got only one life so use it as you want. If you make it an hobby, it's exactly like piano, or velo - only practice makes you better.   Secondly, how do you learn things ? It's actually a really important question, since some can simply be scholar, read books (theory) then practice ; and some simply can't read books. I'm the second type, I hated school, I find it boring - my knowledge in Java comes from try-and-fail. You improve your coding style every year or so, I can myself rewrite my own code (which I already considered top-notched) after a while. You always learn something new - even if Java barely evolves. L2J is a fun way to learn programming, it's a giant sandbox where you can edit anything, and I believe it should be taken as it.   My own way of learning was as follow : Add existing customs, no matter what they are : the point is to know main classes used by L2J / customs. L2J is barely Java knowledge ; the true knowledge is to know WHAT to search in WHICH location (what I call, organization). You have to understand than EVERYTHING you think already exists, in a form on another, in the source code. A custom is only the association of the different mechanisms you found "here and there", glued together in a proper goal. Once you know main classes to edit, and the customs you added are compiling fine, the main point is to know WHAT exactly you DID. Try to understand WHY and WHERE you actually copied the code. Third point would be to MANIPULATE the customs you added in order to fit your wish. First edit little values, then logic conditions ; eventually add a new Config, or a new functionality to the custom. Fourth point would be to begin to craft your own ideas. Once again, EVERYTHING already exists, in a form or another. You want a cycled event ? You got Seven Signs main task as exemple. Npc ? Search any type of Npc and figure out what it does. Fifth point would be to understand Java - mostly containers (WHAT and WHERE to use them), variables types and main Java mechanisms (inheritance, static modifier, etc). You should also begin to cut your code into maintainable classes or methods. Java can actually run without optimization, but bigger your ideas, more optimized and well-thought it should be. It's direct saved time in the future, and you would thank yourself doing so. Main tips : ALWAYS use any type of versioning system - GIT or SVN. It allows to save your work, step by step and eventually revert back anytime you want if you terribly messed up. L2J is 80% organization knowledge, and 20% Java knowledge. Basically, if you know WHAT and WHERE to search, if you aren't dumb, it's easy to replicate and re-use things. Cherry on top is to use a already good coded pack to avoid copy-paste crap and get bad habits. Avoid any type of russian or brazilian packs, for exemple - their best ability is to leak someone's else code. Obviously you need some default sense of logic, but Java and programming in general help you to improve it.   Finally, most of your questions could be solved joining related Discord (at least for aCis, I can't speak for others) - from the moment your question was correctly asked (and you seemed to search for the answer). My community (and myself) welcomes newbies, but got some issues with noobies.   The simpliest is to try, fail and repeat until you succeed - it sounds stupid, but that's basically how life works.   PS : about Java ressources, before ChatGPT, it was mostly about stackoverflow website, and site like Baeldung's one. With ChatGPT and alike, you generally double-cross AI output to avoid fucked up answers. Also, care about AI, they are often hallucinating really hard, even today. They can give you complete wrong answer, you tell them they are wrong, and they say "indeed, I suck, sorry - here's a new fucked up answer". You shouldn't 100% rely over AI answer, even if that can give sometimes legit answers, full code or just skeletons of ideas.   PPS : I don't think there are reliable ressources regarding L2J itself, also most of the proposed code decays pretty fast if the source code is actually maintained (at least for aCis). Still, old coded customs for old aCis sources are actually a good beginner challenge to apply on latest source.
    • WTS: - AQ - Baium - Zaken  - Frintezza - Vesper Fighter Focus Fire Element   pm for detalis
    • We have the best price! L2Reborn.org Signature x1 Franz NEW!! 1KK = $20 HURRY TO BUY AT THE TOP PRICE discord - adver745645
  • Topics

×
×
  • 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