I got this script to figure out some things with SPS
Simba Code:
program Test;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
end;
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(1000 + Random(3000));
ClickNorth(0);
end;
procedure Test;
var
MyPath:TPointArray;
MyPos:TPoint;
begin
SPS_Setup(RC_ALTARS, ['0_0RC']);
//myPath := [Point(211, -9)]
//SPS_WalkPath(MyPath);
MyPos:=SPS_GetMyPos;
Writeln('My position is x: '+inttostr(MyPos.x)+' y: '+inttostr(MyPos.y));
if MyPos = Point(91, 2503) then
begin
WriteLn('We are on the correct spot!');
end else
end;
begin
SetUpLogin;
Test;
end.
Made custom map (will add as attachment) and edit the SPS thing etc. to make it work. But when I run the script it returns negative values:
My position is x: 239 y: -325
My position is x: 235 y: -325
My position is x: 231 y: -325
My position is x: 239 y: -321
Is this correct or what is wrong?