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.