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.