adr.bot Posted November 2, 2015 Posted November 2, 2015 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 Quote
Axshizzle Posted November 7, 2015 Posted November 7, 2015 any captcha script for l2stars? or any hint to create my own captcha? http://prntscr.com/8zwo6t Quote
adr.bot Posted November 7, 2015 Posted November 7, 2015 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 Quote
Axshizzle Posted November 7, 2015 Posted November 7, 2015 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? Quote
adr.bot Posted November 7, 2015 Posted November 7, 2015 (edited) :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, 2015 by adr.bot Quote
Axshizzle Posted November 7, 2015 Posted November 7, 2015 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? Quote
adr.bot Posted November 7, 2015 Posted November 7, 2015 fair enough :P on topic: wut's tesseract? https://code.google.com/p/tesseract-ocr/ Quote
AlmostGood Posted November 9, 2015 Posted November 9, 2015 you can increase succes rate by pre-procesing of image using other libs Quote
kijosis Posted November 15, 2015 Posted November 15, 2015 hello guys, maybe one of you can share item enchanting script for interlude? :) Quote
joekarras Posted November 19, 2015 Posted November 19, 2015 (edited) 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, 2015 by joekarras Quote
adr.bot Posted November 19, 2015 Posted November 19, 2015 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 Quote
joekarras Posted November 19, 2015 Posted November 19, 2015 (edited) then use bypasstoserver Engine.ByPassToServer('Recipe and ingredients of Icarus Spitter'); nothing Edited November 19, 2015 by joekarras Quote
adr.bot Posted November 19, 2015 Posted November 19, 2015 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. Quote
joekarras Posted November 19, 2015 Posted November 19, 2015 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??? Quote
Anitah Posted November 20, 2015 Posted November 20, 2015 (edited) 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, 2015 by Anitah 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.