program RootPicker;

//{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}

Const
 SERVER  = 0;     // Enter "0" to pick a random server.
 MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
 SRLStats_Username = ''; // Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 NumbOfPlayers= 1;     //How many players are you using
 StartPlayer=   0;     //Player to start auoting with! (0 means first char)
 SleepyWeepie=  0;     //Minutes to wait before logging in again.0 = Disabled.
 YDebug=        True;  //Shows whats happening on the runescape screen in a
                       //debug window, so you dont have to open/close SMART.
 Version=       '1.0';


 procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := '10-11 Shimmo';     //Player username.
    Pass        := '51kentzl217qj';     //Player password.
    Nick        := '10-1'; //Player nickname - 3-4 letters of Player username.
    Active      := True;
  end;

end;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Function CheckAndClick(UpText:String; X,Y:Integer; Stronger:Boolean):Boolean;
Begin
  MMouse(x, y, 5, 5);
  If WaitUptext(UpText, 5000) Then
  Begin
    GetMousePos(x, y);
    If Stronger Then
    Begin
      Mouse(X, Y, 0, 0, False);
      Result:=WaitOption('tta', 3000)
    End Else
    Begin
      Mouse(x, y, 0, 0,True);
      Wait(100+Random(50));
      FFlag(0);
    End;
  End;
End;

Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Magic', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  End;
End;

Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  //ProgressReport;
  TerminateScript;
End;


Function PickUp:Boolean;
Var
   X, Y: Integer;
begin
  If FindObjCustom(x, y, ['Take'], [941926, 942440, 1008748], 30) Then
  WriteLn('RootTaken');


begin

   SetupSRL;
   DeclarePlayers;
   //Repeat
     PickUp;
//   Until(false);
End;