Code:
program New;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$ENDIF}
Procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name:='';
Players[0].Pass:='';
Players[0].Active:=True;
end;
Procedure WalkToPort;//walking from bank to portsarim
Var myPath:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9','10_8','9_9']);
myPath := [Point(4206, 3679), Point(4207, 3673), Point(4206, 3667), Point(4197, 3666), Point(4154, 3664), Point(4131, 3675), Point(4119, 3655), Point(4114, 3632), Point(4116, 3608), Point(4121, 3578), Point(4122, 3562), Point(4112, 3555), Point(4084, 3562), Point(4067, 3575), Point(4047, 3587), Point(4034, 3593), Point(4002, 3610), Point(3995, 3628), Point(3990, 3642), Point(3982, 3656), Point(3974, 3667), Point(3966, 3677), Point(3961, 3685), Point(3947, 3695), Point(3948, 3712), Point(3947, 3734), Point(3945, 3753), Point(3948, 3774), Point(3947, 3786)];
SPS_WalkPath(myPath);
end;
begin
{$IFDEF SMART}
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ENDIF}
SetUpSRL();
ActivateClient();
DeclarePlayers();
LoginPlayer();
WalkToPort;
end.