TomTuff
2010-10-20 19:40:22
So I have an idea for SIMBA… idk how to say it in words, so i'll just make a quick 'example'
{$DEFINE SMART}
{$i SRL\SRL.scar}
var
a, b, c: integer;
String1, String2: string;
fvar
fName, fPass, fNick, fPin: string;
fActive: boolean;
fBoxRewards: TStringArray;
fInt: integer;
procedure DeclarePlayers;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := fName;
Pass := fPass;
Nick := fNick;
Pin := fPin;
Active := fActive;
BoxRewards := fBoxRewards;
Integers[0] := fInt;
end;
end;
begin
SetupSRL;
DeclarePlayers;
LaunchSimbaForm; //Executes the form, which is custom made via the variables above^^
LoginPlayer;
end.