Welcome to MaxCheaters.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads

Recommended Posts

var
Item: TL2Item;
SetCursorPos: TPoint;

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';
 
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( MOUSEEVENTF_LEFTDOWN, 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;


begin

while true do begin
delay(500);
 
if inventory.user.byid(15593, item) and not (Item.EnchantLevel > 21 ) then begin
Delay(500);
Engine.UseItem (960);//'scroll: enchant armor s grade'
Delay(100);
mouseDown (1104, 294, 1000);
delay (300);      
mouseUp (707, 426, 1000); 
delay (300);      
mouseClick (628, 541, 500);
Delay(3000);
end;
end;
end.

 in my opinion i got the same just in 3 steps, but it's dont drag item, when i manualy press left mouse button it's work correcly. Any ideas? :)

 

i use this for augment script, and works fine

Share this post


Link to post
Share on other sites
  • Replies 783
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

The above script works for tutorial windows. For trade chats you would only need to change the packet ID, so search for that. You don't need to ask for a whole other script when you already have one that you just need to modify for it to work.

pto, plase share l2 adrenaline scripts or send to pm :)

Hi if you mean save npc dialog in to txt file so this help for you uses classes; begin with Tstringlist.create do try Text := Engine.DlgText; SaveToFile('C:\dlg.txt'); finally Free; end; end.

Posted Images

any captcha script for l2stars? or any hint to create my own captcha?  http://prntscr.com/8zwo6t

 

this captcha come in toturial window i guess, bigest problem that dont detect with "engine.dlgtext", i already solved tales captcha, its same but that come in dialog window, sure not 100% but when i tested it works pretty good

Share this post


Link to post
Share on other sites

this captcha come in toturial window i guess, bigest problem that dont detect with "engine.dlgtext", i already solved tales captcha, its same but that come in dialog window, sure not 100% but when i tested it works pretty good

:O link for tales captcha?

Share this post


Link to post
Share on other sites

hi; i need help.

 

 

begin
if user.inrange(86724, 85922, -3144, 500)  then begin
        Engine.SetTarget(32742);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(1000);
        Engine.DlgSel('Recipe and ingredients of Icarus Spitter.');
    end;    
end.
 
29x910k.jpg
 
 
dont work in the second dialoge    Engine.DlgSel('Recipe and ingredients of Icarus Spitter.');
 
i try Engine.DlgSel(1); but dont work
Edited by joekarras

Share this post


Link to post
Share on other sites

 

hi; i need help.

 

 

begin
if user.inrange(86724, 85922, -3144, 500)  then begin
        Engine.SetTarget(32742);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(1000);
        Engine.DlgSel('Recipe and ingredients of Icarus Spitter.');
    end;    
end.
 
29x910k.jpg
 
 
dont work in the second dialoge    Engine.DlgSel('Recipe and ingredients of Icarus Spitter.');
 
i try Engine.DlgSel(1); but dont work

 

then use bypasstoserver

Share this post


Link to post
Share on other sites

 Engine.ByPassToServer('Recipe and ingredients of Icarus Spitter');

nothing

you need get that string bypass with this script, its save txt file with your dialog 

uses classes;
begin
with Tstringlist.create do
try
  Text := Engine.DlgText;
  SaveToFile(exepath+'show dlg'+'.txt');
finally
  Free;
 end;
end.

Share this post


Link to post
Share on other sites

hey malaka ;) you have script for rebuf in l2stars???

 

L2stars dont have alt+b, so just need target npc and buff.

Just use

        Engine.SetTarget(NPChere);
        Engine.DlgOpen;

For target/open buffer dialog, and this for take buffs:

 Engine.BypassToServer('bypasshere'); 

You can see this string bypass in the post above

Edited by Anitah

Share this post


Link to post
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.

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.