procedure PickBanana;
          Var
          x, y : Integer;
          TPA : TPointArray;
          MyPoint : TPoint;
          I : Integer;

          begin
            if FindColorsSpiralTolerance(MSCX,MSCY,TPA, 6336583, MSX1, MSY1, MSX2, MSY2, 17) then
              begin
                for i:=0 to high(TPA) do
                  MyPoint :=TPA[i];
		  x := MyPoint.x + random(2);
		  y := MyPoint.y + random(2);
                  MMouse(x,y,0,0);
                   if WaitUpTextMulti(['ick','nanas'],2500) then
                    begin
                      wait(700+Random(100,250));
                      Mouse(x,y,0,0,true);
                      wait(900+Random(100,255));
                    end;
               end;
          end;











procedure MainLoop;
begin
WalkToPort;
TalkWithNPC;
GoToBananas;
repeat
if(not(loggedin)) then
   Exit;
PickBanana;
until(InvFull);
end;








begin
//{$IFDEF SMART}
   // Smart_Server := 0;
   // Smart_Members := True;
   // Smart_Signed := True;
   // Smart_SuperDetail := False;
  //{$ENDIF}
  SetUpSRL();
  ActivateClient();
  DeclarePlayers();
  LoginPlayer();
  repeat
  Wait(1000)
  until(RsReady());
  MainLoop;

end.