Simba Code:
program New;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i Reflection\Reflection.Simba}
const
S_Mems = True; //Members?
S_World = 38; //Smart world
S_Signed = True; //Signed client?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //username
Pass := ''; //password
Nick := '';
Pin := '';
Active := True;
end;
end;
procedure MainLoop;
begin
Smart_Members := S_Mems;
Smart_Server := S_World;
Smart_Signed := S_Signed;
Smart_SuperDetail := False;
SetupSRL;
SetupReflectionEx(True);
DeclarePlayers;
LoginPlayer;
repeat
repeat
until(not(LoggedIn));
until(AllPlayersInactive);
end;
begin
MainLoop;
end.