{$I OSI\OSI.scar}

var
  K,Drop,Item,Tinder,Tinder_Used,Magic: TSCARBitmap;


  R: TSCARBitmap;
  xs,ys,XE,YE,A,B,i : Integer;
  Box1: TBox;
  Desktop: TSCARWindowClient;
    TPA:TPointArray;
    Width, Height: Integer;

begin
   K := TSCARBitmap.create('');
   K.LoadFromPng(ScriptPath + '50k.png');

   Item := TSCARBitmap.create('');
   Item.LoadFromPng(ScriptPath + 'item_casket.png');

     Tinder := TSCARBitmap.create('');
   Tinder.LoadFromPng(ScriptPath + 'tinderbox.png');

     Tinder_Used := TSCARBitmap.create('');
   Tinder_Used.LoadFromPng(ScriptPath + 'tinderbox_used.png');

   Magic := TSCARBitmap.create('');
   Magic.LoadFromPng(ScriptPath + 'magic.png');

    Drop := TSCARBitmap.create('');
   Drop.LoadFromPng(ScriptPath + 'drop.png');

  R := TSCARBitmap.create('');
  R.LoadFromPng(ScriptPath + 'rune.png');
repeat
  if FindBitmapEx(TPA, R, 516,163,797,544) then
  begin
  TypeSend('rune');
    sleep(500);
  end;


   if FindBitmapEx(TPA,Item,516,163,797,544) then
   begin
           XE := TPA[i].X + Item.width;
           YE := TPA[i].Y + Item.height;
              Mouse(XE,YE,0,0,false);
     sleep(300);

   end;
     if FindBitmapEx(TPA,Drop,516,163,797,544) then
   begin
           XE := TPA[i].X + Item.width;
           YE := TPA[i].Y + Item.height;
              Mouse(XE,YE,0,0,true);
     sleep(300);

   end;

  if FindBitmapEx(TPA, K,516,163,797,544) then
begin

  XE := (TPA[0].X + Item.width);
  YE := (TPA[0].Y + Item.height);
  Mouse(XE, YE, 0, 0, False);
  Sleep(500);
end;

    if FindBitmapEx(TPA,Magic,516,163,797,544) then
  if not FindBitmapEx(TPA,Tinder_Used,516,163,797,544) then
      if FindBitmapEx(TPA,Tinder,516,163,797,544) then
   begin
           XE := TPA[i].X + Item.width;
           YE := TPA[i].Y + Item.height;
              Mouse(XE,YE,0,0,true);
     sleep(300);

   end;


              if FindBitmapEx(TPA,Tinder_Used,516,163,797,544) then
      if FindBitmapEx(TPA,Magic,516,163,797,544) then
   begin
           XE := TPA[i].X + Item.width;
           YE := TPA[i].Y + Item.height;
              Mouse(XE,YE,0,0,true);
     sleep(300);

   end;



     if not findcolor(A,B,7114400,516,163,797,544) then
     if not findcolor(A,B,4881029,516,163,797,544) then
     if findcolor(A,B,4155249,4,6,518,352) then
     begin
       Mouse(A,B,0,0,true);
       sleep(500);
     end;


until(false);
end.