kose

I'm having a hard time dropping the Sage's Stone that can help me. thank you so much 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; var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; Obj: TL2Buff; IdBuff: integer; Buffs:TL2Buff; var L2Skill: TL2Skill; var QuestItem: TL2Item; begin Delay(1000); Engine.UseItem(7130); Delay(30000); Engine.SetTarget('Karin'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(4); Delay(3000); Engine.SetTarget('Ladd'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(4); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(3000); Engine.SetTarget('Merian'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(3000); Engine.MoveTo(84972,16390,-4296); Delay(500); Engine.MoveTo(85622,16722,-4296); Delay(500); Engine.SetTarget('Wesley'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(5); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.MoveTo(85541,16213,-4280); Delay(500); Engine.SetTarget('Alchemist''s Mixing Urn'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(2); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(14); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(3); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.MoveTo(85475,15797,-4272); Delay(500); Engine.MoveTo(84856,15882,-4296); Delay(500); Engine.SetTarget('Karin'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(4); Delay(3000); Engine.SetTarget('Ladd'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(4); Delay(1500); Engine.DlgSel(1); Delay(3000); Engine.SetTarget('Merian'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(4); Delay(3000); Engine.SetTarget('Joan'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(5); Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(1); Delay(3000); Engine.SetTarget('Mariell'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(2); Delay(3000); Engine.SetTarget('Verona'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(3); Delay(4); Engine.SetTarget('Elisa'); Delay(1500); Engine.DlgOpen; Delay(1500); Engine.DlgSel(1); Delay(1500); Engine.DlgSel(17); Delay(3000); Engine.MoveTo(171939,56504,-5280); Delay(500); Engine.MoveTo(173247,56470,-5840); Delay(500); Engine.CancelTarget; if not (Inventory.Quest.ByID(6322, QuestItem) = true) then begin Engine.FaceControl(0,true); end; Engine.FaceControl(0,false); end. end.