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, tm2: 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
      begin
        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);
          tm2 := GetSystemTime;
          repeat
            Result := ChoiceIsOpen;
            if Result then
              ChooseChoice(1);
            Wait(10);
          until (Result or ((GetSystemTime - tm2) >= 3100));
        end;
      end;
    end;
    Wait(10);
  until (Result or ((GetSystemTime - tm) >= 30000));
end;

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