Wait, if im using a certain number of players, i need to remove the rest of the player code?
I just tried it with three players and got an error. Ill post the entire thing. This is the SRL powerminer 2.5b
Code:
Procedure DeclarePlayers;
Begin
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='F ******';
Players[0].Pass :='PWHERE';
Players[0].Nick :='smi';
Players[0].Active:=True;
Players[0].String1 := 'Tin'; // Primairy Ore Color
Players[0].String2 := 'Copper'; // Secondairy Ore Color wont be mined as much as 1.
Players[0].String3 := 'Tin'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[1].Name :='F ******';
Players[1].Pass :='PWHERE';
Players[1].Nick :='min';
Players[1].Active:=True;
Players[1].String1 := 'Tin'; // Primairy Ore Color
Players[1].String2 := 'Copper'; // Secondairy Ore Color wont be mined as much as 1.
Players[1].String3 := 'Tin'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[1].Boolean1 := True; // Is The Pick Equipped?
Players[2].Name :='1337*****';
Players[2].Pass :='PWHERE'
Players[2].Nick :='1337';
Players[2].Active:=True;
Players[2].String1 := 'Tin'; // Primairy Ore Color
Players[2].String2 := 'Copper'; // Secondairy Ore Color wont be mined as much as 1.
Players[2].String3 := 'Tin'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[2].Boolean1 := True; // Is The Pick Equipped?
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=False;
Players[3].String1 := 'Iron'; // Primairy Ore Color
Players[3].String2 := 'Iron'; // Secondairy Ore Color wont be mined as much as 1.
Players[3].String3 := 'Iron'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[3].Boolean1 := True; // Is The Pick Equipped?
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=False;
Players[4].String1 := 'Iron'; // Primairy Ore Color
Players[4].String2 := 'Iron'; // Secondairy Ore Color wont be mined as much as 1.
Players[4].String3 := 'Iron'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[4].Boolean1 := True; // Is The Pick Equipped?
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=False;
Players[5].String1 := 'Iron'; // Primairy Ore Color
Players[5].String2 := 'Iron'; // Secondairy Ore Color wont be mined as much as 1.
Players[5].String3 := 'Iron'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[5].Boolean1 := True; // Is The Pick Equipped?
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;
Sorry for the stars in the name, just incase anyone sees this and attempts to report my chars without actually seeing them or something. I got an error... im gonna download the no form version now and try that. Any ideas on why its erroring, however?
-Edit-
I got the formless version and ran it. It logged me in, looked at my stats, my inventory, set me to run and... moved the mouse around. It refused to do anything else. Dunno why... :-/. HELP? lol.
-/Edit-