program Banker;

{$i RSCS/RSCS.simba}

function SearchForNPC2(var p: TPoint; j: integer): Boolean;
var
  TPA: TPointArray;
begin
  Result := FindColorsSpiralTolerance(256, 171, TPA, j, 0, 0, 511, 343, 0);
  if not Result then
    Exit;
  p := TPA[Random(Length(TPA))];
  SetLength(TPA, 0);
end;

function TalkToBanker: Boolean;
var
  tm: Integer;
  banker_p: TPoint;
begin
  tm := GetSystemTime;
  repeat
    if SearchForNPC2(banker_p, Banker) then
    begin
      MoveMouse(banker_p.X, banker_p.Y);
      Wait(10 + Random(20));
      if (Pos('banker', Lowercase(RSCE_UpText)) <= 0) then
        Exit;
      ClickMouse(banker_p.X, banker_p.Y, Mouse_right);
      Wait(100 + Random(20));
      if (Pos('banker', Lowercase(RSCE_RightClickText)) > 0) then
      begin
        Wait(1000);
        MoveMouse(banker_p.X, (banker_p.Y + 15));
        ClickMouse(banker_p.X, banker_p.Y, Mouse_left);
        Wait(3000 + Random(20));
      end;
    end;
    if ((GetSystemTime - tm) >= 30000) then
      Exit;
    Wait(10);
    Result := ChoiceIsOpen;
    if Result then
      ChooseChoice(1);
  until Result;
end;

begin
  ActivateClient;
  Wait(1500);
  if TalkToBanker then
    WriteLn('WOOHOO')
  else
    WriteLn('We failed. :(');
end.