cabby
06-10-2007, 02:25 PM
Ok I'm working on a Willow Cutter/Banker.. And I am making it so you can have up to 6 accounts..
I wasn't going to do that until my friend suggested I do..
Now I'm stuck on the Procedure..
Well not really that part.. I have
procedure DeclarePlayers;
begin
HowManyPlayers :=6;
CurrentPlayer :=0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='Username'; //Username
Players[0].Pass :='Password'; //Password
Players[0].Nick :='nick'; //3 - 4 letters
Players[0].Active:= True;
Players[0].String1 :='0000'; //Bank Pin
Players[1].Name :='Username'; //Username
Players[1].Pass :='Password'; //Password
Players[1].Nick :='nick'; //3 - 4 letters
Players[1].Active:= True;
Players[1].String1 :='0000'; //Bank Pin
Players[2].Name :='Username'; //Username
Players[2].Pass :='Password'; //Password
Players[2].Nick :='nick'; //3 - 4 letters
Players[2].Active:= True;
Players[2].String1 :='0000'; //Bank Pin
Players[3].Name :='Username'; //Username
Players[3].Pass :='Password'; //Password
Players[3].Nick :='nick'; //3 - 4 letters
Players[3].Active:= True;
Players[3].String1 :='0000'; //Bank Pin
Players[4].Name :='Username'; //Username
Players[4].Pass :='Password'; //Password
Players[4].Nick :='nick'; //3 - 4 letters
Players[4].Active:= True;
Players[4].String1 :='0000'; //Bank Pin
Players[5].Name :='Username'; //Username
Players[5].Pass :='Password'; //Password
Players[5].Nick :='nick'; //3 - 4 letters
Players[5].Active:= True;
Players[5].String1 :='0000'; //Bank Pin
end;
But now thats all I know how to do.
I wasn't going to do that until my friend suggested I do..
Now I'm stuck on the Procedure..
Well not really that part.. I have
procedure DeclarePlayers;
begin
HowManyPlayers :=6;
CurrentPlayer :=0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='Username'; //Username
Players[0].Pass :='Password'; //Password
Players[0].Nick :='nick'; //3 - 4 letters
Players[0].Active:= True;
Players[0].String1 :='0000'; //Bank Pin
Players[1].Name :='Username'; //Username
Players[1].Pass :='Password'; //Password
Players[1].Nick :='nick'; //3 - 4 letters
Players[1].Active:= True;
Players[1].String1 :='0000'; //Bank Pin
Players[2].Name :='Username'; //Username
Players[2].Pass :='Password'; //Password
Players[2].Nick :='nick'; //3 - 4 letters
Players[2].Active:= True;
Players[2].String1 :='0000'; //Bank Pin
Players[3].Name :='Username'; //Username
Players[3].Pass :='Password'; //Password
Players[3].Nick :='nick'; //3 - 4 letters
Players[3].Active:= True;
Players[3].String1 :='0000'; //Bank Pin
Players[4].Name :='Username'; //Username
Players[4].Pass :='Password'; //Password
Players[4].Nick :='nick'; //3 - 4 letters
Players[4].Active:= True;
Players[4].String1 :='0000'; //Bank Pin
Players[5].Name :='Username'; //Username
Players[5].Pass :='Password'; //Password
Players[5].Nick :='nick'; //3 - 4 letters
Players[5].Active:= True;
Players[5].String1 :='0000'; //Bank Pin
end;
But now thats all I know how to do.