program EvasivFungiR;

{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.simba}


 var
  reflectPlayer: TReflectLocalPlayer;
  weaponSlot : TBox;
  ringSlot: TBox;
  count,ringCount:integer;

procedure login();
begin
  reflectPlayer.Username := '';
  reflectPlayer.Password := '';
  reflectPlayer.Active := True;
  Me.Member := True;
  reflectPlayer.Create;
  reflectPlayer.Login;
end;

procedure HandleLogin;
begin
  if (not isLoggedIn()) then
    login();
  if (isLoggedIn()) then
  begin
    setAngle(0);
    exit;
  end;
end;

function getState(): Integer;
var
  target,gate:TTile;
  isit:boolean;

begin
  if (Interfaces[PINSCREEN].isVisible()) then
    inPin('');
  if (not isLoggedIn()) then
    exit(0);
  if(TReflectionInventory.IsFull() and isLoggedIn()) then
    exit(1);
    target:=Point(3421,3439);
  if (Reflect.Tiles.DistanceFromTile(target)<4 and isLoggedIn()) then
    exit(2);
     gate:=Point(3443,3458);
     isit:=Reflect.Tiles.NearTile(gate,20);
  if (isit) then
    exit(4);
end;

procedure executeState(State: Integer);
begin
  case (State) of
    0: HandleLogin();
    1: goBank();
    2: startPicking();
    4: backtoGate();
  end;
  sleep(Random(100, 200));
end;

begin

  initAL;
  Reflect.Setup;
  reflectPlayer.create;
  setAngle(0);

  repeat
    dismissAllRandoms;
    WriteLn('Ring Count',ringCount);
    WriteLn('Fungi Picked : ', count);
    WriteLn('Fungi per hour: ', round(count * 3600 / (getTimeRunning / 1000)));
    WriteLn('Money per Hour: ', (round(count * 3600 / (getTimeRunning / 1000))*1013));
    executeState(getState());
  until(false);

end.