program DeclarePlayers;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/SRL/skill/mining.simba}


            {=================================}
            {           Gold Miner            }
            {           Version 0.1           }
            {           Created by Sahib      }
            {=================================}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //Enter your username in between the '''s
  Players[0].Pass := ''; //Enter your password in between the '''s
  Players[0].Nick := ''; //Enter a nickname
  Players[0].Active := True; // Don't touch.
  Players[0].Pin := ''; //Whats your bank PIN?
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  // In case of a random event, which one of these rewards would you like? Put the most preferable one first.
end;

const
  SRLStats_Username = ''; //SRL Stats username
  SRLStats_Password = ''; //SRL Stats password
  Sever = 69; //Which world would you like to log into?
  EXP =65; //Don't touch
  ORES_TO_MINE =500; //How many ores do you want it to mine?
  ORE_TYPE ='gold'; //Don't touch
  ORE_PRICE = 69; //How much are the ores worth?
  LampXpIn = 'Summoning'; //What skill do you want to use your lamp on?

var
  TotalLogs: Integer;
  TotalXP: Extended;



begin

  Smart_Server := server;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end.

// Credits: