Log in

View Full Version : Walking to Willows



PotentPK
11-12-2011, 06:44 PM
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
11-12-2011, 06:48 PM
Add

SPS_WalkPath();

After you set MyPath

:)

PotentPK
11-12-2011, 07:04 PM
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
11-12-2011, 07:53 PM
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 ;)