Out Of Range in line 46 in script is the error i get
that line is
Players[1].Name :='';
but i have it set for only one player so that would be player[0]
i think i have everything correct...
any1 see a prob? P.S. i took out my name and pass, and i only want to use player [0]
SCAR Code:
const
SRLStatsID = '4100'; // SRL Stats ID Number
SRLStatsPW = ; // SRL Stats Password
GasTol = 15; // Change if find you broken pickaxes!
MinGasChange = 200; // 100+ About 200-300 and more. Basically tolerance.
UseResponder = True; // Use autoresponder?
RunDir = 'S'; // direction to run if in fight
// N for north, S for south, etc.
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 1;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='pic'; //3-4 letters from name
Players[0].Active:= True;
Players[0].Booleans[1]:= True; // True if new rocks. False if old.
Players[0].Booleans[2]:= True; // Pick equipped?
Players[0].Strings[1]:= 'Coal'; // type of ore
Players[0].Integers[1]:= 200; // # of loads
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :=''; //3-4 letters from name
Players[1].Active:= True;
Players[1].Booleans[1]:= True; // True if new rocks. False if old.
Players[1].Booleans[2]:= False; // Pick equipped?
Players[1].Strings[1]:= 'Tin'; // type of ore
Players[1].Integers[1]:= 5; // # of loads