program new;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.Simba}

var
MyPlayer: TReflectLocalPlayer;

procedure take_fish;
  var
  x,y,y2 : integer;

  begin
    if FindColorSpiralTolerance(x,y,859169,6, 7,511, 336,1) then
      begin
        MoveMouse(x,y);
        wait(1000);
        ClickMouse(x,y,1);
        wait(1000);
        y2:=y+30;
        MoveMouse(x,y2);
        ClickMouse(x,y+2,0);
      end;

  end;

procedure Open_bank;
var
banker : TReflectNPC;
location : TPoint;
x,y : integer;
begin
  repeat
  if banker.Find('Banker') then writeln('atradu bankieri');
  location := banker.GetMSPoint;
  reflect.Mouse.Move(location,8,8);
  wait(300);
  reflect.Mouse.Click(MOUSE_RIGHT);
  GetMousePos(x,y);
  MoveMouse(x,y+40);
  wait(500);
  location := reflect.Mouse.Getpoint;
  writeln(location);
  reflect.Mouse.Click(MOUSE_LEFT);
  wait(3000);
  if not Reflect.Bank.IsOpen then Reflect.Interfaces.CloseAll;
  until Reflect.Bank.IsOpen;
end;

Procedure Take_items;
var
  bankas_itemi : TReflectBankItemArray;
  wood : TReflectBankItem;
  fish : TReflectBankItem;
begin
  wood.Find('Oak logs');
  wood.Withdraw(1);

  fish.Find('Raw trout');
  fish.Withdraw(20);
  wait(1000);

end;

Procedure Close_bank;
begin
  Reflect.Bank.Close;
  wait(500);
end;

Procedure Fire;
var
wood : TReflectInvItem;
tinderbox : TReflectInvItem;
begin
  wood.Find('Oak logs');
  tinderbox.Find('Tinderbox');

  MoveMouse(210+random(50)-random(50),229+random(50)-random(25));
  wait(50);
  reflect.Mouse.Click(MOUSE_LEFT);
  wait(3000);

  reflect.Mouse.Move(wood.GetMSPoint,2,2);
  wait(50);
  reflect.Mouse.Click(MOUSE_LEFT);
  wait(50);
  reflect.Mouse.Move(tinderbox.GetMSPoint,2,2);
  wait(50);
  reflect.Mouse.Click(MOUSE_LEFT);
  wait(7000);

end;

procedure Cook_fish;
var
fish : TReflectInvItem;
x,y :integer;
fire : TReflectObject;
point1 : TPoint;
begin
  repeat
    writeln('sakums');
    fire.Find(objGame, 'Fire', 7);
    fish.Find('Raw trout');
    reflect.Mouse.Move(fish.GetMSPoint,2,2);
    wait(100);
    reflect.Mouse.Click(MOUSE_LEFT); //uzpsiez uz zivs
    writeln('debug1');
    wait(200);
    humanMMouse(fire.GetMSPoint,2,2);
    wait(300);
    reflect.Mouse.Click(MOUSE_RIGHT);  //uz uguni  ar labo
    wait(500);
    if fire.Find(objGame, 'Fire', 7) = false then
      exit;
    if FindColorSpiralTolerance(x,y,16776960,MSX1,MSY1,MSX2,MSY2,5) = false then
      exit;

    point1.Y := y;
    point1.X := x;
    humanMMouse(point1,2,2);
    wait(1000);
    reflect.Mouse.Click(MOUSE_LEFT);   // iet uz uguni
    wait(5000);

    point1.Y := 413;
    point1.X := 256;

    humanMMouse(point1,2,2);

    // MoveMouse(256, 413);
    wait(500);
    reflect.Mouse.Click(MOUSE_RIGHT);
    wait(500);

    point1.Y := 480;
    point1.X := 256;
    humanMMouse(point1,2,2);

    //MoveMouse(256, 480);
    wait(500);
    reflect.Mouse.Click(MOUSE_LEFT);
    wait(50000+random(3000)-random(3000));

    writeln('beigas');
  until fish.Find('Raw trout') = false;
end;

procedure Deposit_fish;
var
x,y :integer;
fish : TReflectInvItem;
burnt_fish : TReflectInvItem;
wood : TReflectInvItem;
begin
  fish.Find('Trout');
  burnt_fish.Find('Burnt fish');
  wood.Find('Oak logs');
  repeat
    humanMMouse(fish.GetMSPoint,2,2);
    reflect.Mouse.Click(MOUSE_RIGHT);
    wait(300);
    GetMousePos(x,y);
    MoveMouse(x,y+100);
    wait(300);
    fastClick(MOUSE_LEFT);
    wait(500);
  until fish.Find('Trout') = false;

  wait(1000);

  repeat
    humanMMouse(burnt_fish.GetMSPoint,2,2);
    fastClick(MOUSE_RIGHT);
    wait(300);
    GetMousePos(x,y);
    MoveMouse(x,y+100);
    wait(200);
    fastClick(MOUSE_LEFT);
    wait(500);
  until fish.Find('Burnt fish') = false;
  wait(1000);

  repeat
    humanMMouse(wood.GetMSPoint,2,2);
    fastClick(MOUSE_RIGHT);
    wait(200);
    GetMousePos(x,y);
    MoveMouse(x,y+100);
    wait(200);
    fastClick(MOUSE_LEFT);
    wait(500);
  until wood.Find('Oak logs') = false;
  wait(1000);


end;

begin
InitAL;
Reflect.Setup;
Myplayer.Create;
LoginPlayer(false);
MyPlayer.Username := '';
MyPlayer.Password := '';
MyPlayer.Pin := '';
MyPlayer.Active := true;
MyPlayer.ChangeWorld(382);
MyPlayer.Login;

Reflect.Compass.MakePitch(4);

Open_bank;
Take_items;
Close_bank;
Fire;
Cook_fish;


repeat
Open_bank;
Deposit_fish;
Take_items;
Close_bank;
Fire;
Cook_fish;
until false;



end.