
Originally Posted by
nazgul123
Begin
SetupSRL
Declareplayers
//lastprojectrs
LoginPlayertoLob();
SelectWorld(2);//
//lastprojectrs
LoginPlayer;
Activateclient
end.
//lastprojectrs
//lastprojectrs
//lastprojectrs
begin
keyDown(VK_1);
//lastprojectrs
end
Simba Code:
program new;
{$Define SMART8}
{$I SRL/SRL.Simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure Setup;
var loggedingame: Boolean;
//lastprojectrs
var x,y: Integer;
Begin
{$IFDEF SIMBAMAJOR980}
SMART_SERVER := 2;
SMART_MEMBERS := TRUE;
SMART_SIGNED := TRUE;
SMART_SUPERDETAIL := FALSE;
{$ELSE}
//lastprojectrs
SMART_FIXSPEED := TRUE;
{$ENDIF}
//lastprojectrs
SetupSRL;
ClearDebug;
DeclarePlayers;
End;
procedure click1;
begin
keyDown(VK_1);
end;
begin
setup;
//lastprojectrs
repeat
click1;
until false
end.
your welcome. C: