SRL Archive - Help

Walking to Willows


PotentPK

2011-11-12 13:44:05

I'm using SPS and I put in the coordinates but I can't get anywhere. I just get this.

Successfully executed.
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]


program Willows;
{$DEFINE SMART}
{$i SRL/SRL.scar}
{$i sps/sps.simba}


Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='*****'; // Copy and paste to add more players
Players[0].Pass :='***';
Players[0].Nick :='***'; //Used for random events
Players[0].Active:=True;
end;

var
MyPath: TPointArray; // We will store our points in a TPointArray

begin
Smart_Server := 1;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9']);
MyPath := [Point(195, 59), Point(167, 91)];

end.

Kyle Undefined

2011-11-12 13:48:11

Add

SPS_WalkPath();
After you set MyPath

:)

PotentPK

2011-11-12 14:04:15

From: Camo Developer
Add

SPS_WalkPath();
After you set MyPath

:)


Is this what you meant? I'm a complete noob at this. =P

begin
Smart_Server := 1;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9']);
MyPath := [Point(189, 59), Point(154, 86)];
SPS_WalkPath(MyPath);
if SPS_WalkPath(MyPath) then
WriteLn('We made it!');
end.

Kyle Undefined

2011-11-12 14:53:15

Here you go, you were close! :)


begin
Smart_Server := 1;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9']);
MyPath := [Point(189, 59), Point(154, 86)];
if SPS_WalkPath(MyPath) then
WriteLn('We made it!');
end.

And no worries, you're getting it, and we were all noobs once ;)