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

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

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

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?

:o link for tales captcha?

no link its only for me xd

 

edit: but idea, wait captcha, capture scree, remove colors, send to tesseract

Edited November 7, 201511 yr by adr.bot

no link its only for me xd

 

edit: but idea, wait captcha, capture scree, remove colors, send to tesseract

fair enough :P

on topic: wut's tesseract?

fair enough :P

on topic: wut's tesseract?

https://code.google.com/p/tesseract-ocr/

you can increase succes rate by pre-procesing of image using other libs

hello guys, maybe one of you can share item enchanting script for interlude? :)

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.

 

 

 

dont work in the second dialoge    Engine.DlgSel('Recipe and ingredients of Icarus Spitter.');

 

i try Engine.DlgSel(1); but dont work

Edited November 19, 201510 yr by joekarras

 

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.

 

 

 

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

then use bypasstoserver

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

nothing

Edited November 19, 201510 yr by joekarras

 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.

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

 

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

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 November 20, 201510 yr by Anitah