program CocoBuyerByHy71194;
{.include SRL/SRL.scar}

const
Username = '';
Password = '';
Nick = '';

var totfail,tries,phail,nox, noy:integer;

procedure bankstuff;
begin
writeln(' ');
end;

procedure findseller;
var cx,cy:integer;
begin
  while not FindObjTPA(cx, cy, 5856670, 20, 2, 15, 15, 5, ['okuh']) and not (getcolor(376,190)=2070783) and (tries < 5) do
  begin
    inc(tries);
    GetMousePos(cx,cy);
    Mouse(cx,cy,0,0,false);
    wait(100+random(300));
    chooseoption('rade ');
    wait(10);
    findnormalrandoms;
    while not (getcolor(208,41)=2070783) do
    begin
      findnormalrandoms;
      wait(200+random(300));
      inc(phail);
      if phail > 70 then
      begin
        Writeln('Took too long to get to trade screen with guy.');
        phail := 0;
        bankstuff;
        exit;
      end;
    end;
    tries:=0;
    phail := 0;
    wait(random(300));
    mousebox(109,103,124,119,2);
    wait(random(40));
    chooseoption('y X');
    while not (getcolor(216,400) = 0) do
    begin
      wait(200+random(300));
      inc(phail);
      if phail > 70 then
      begin
        Writeln('Took too long to get to get to enter ammount screen');
        phail := 0;
        bankstuff;
        exit;
      end;
    end;
    wait(random(200));
    typesend(inttostr(27 + random(972)));
    wait(200+random(1500));
    closewindow;
    bankstuff;
    exit;
  end;
  writeln('phailed to find the guy!..');
  inc(totfail);
  if totfail > 3 then begin
    writeln('failed finding guy too much; terminating the script to keep ur user safe.');
    terminatescript;
  end;
  bankstuff;
end;

begin
  SetupSRL;
  NumberOfPlayers(1);
  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nick;
  Players[0].Active := True;
  WriteLn('Hy71194 chocolate buyer.');
  wait(2000);
  activateclient;
  wait(3000);
  repeat
    SymbolAccuracy := 0.5;
    if not loggedin then loginplayer;
    if not invfull and findsymbol(nox,noy,'water') then
    begin
      findseller;
    end;
    if (invcount = 0) and (loggedin) then
    begin
      writeln('u has no cash or items in ur inv; something is wrong, terminating script;');
      terminatescript;
    end;
    if (invcount <> 0) and (invcount < 29) and (findsymbol(nox,noy,'bank')) then
    begin
      wait(10);
    end;
  until false;
end.