vacacow1
2012-03-29 01:49:31
Hello i'm trying to make my first script i'm new to here so what i'm trying to do is to make the script walk but i can't seem to make it walk help please
Here is my code
I already got the SPS map on my own folder called living_rock_caverns and already added the map to SPS, i get no error but at the end it says "Successfully executed." and just stops. Any ideas whats wrong?
Here is my code
program Miner;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SPS/SPS.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := Random(HowManyPlayers);
NumberOfPlayers(HowManyPlayers);
with Players[0] do
begin
Name := '';
Pass := '';
Member := True;
Nick := '';
Active := True;
end;
end;
Procedure WalkPath;
Var
myPath:TPointArray;
begin
SPS_Setup(LIVING_ROCK_CAVERNS,['0_1','0_0']);//SPS Areas
myPath := [Point(302, 411), Point(302, 411), Point(302, 408),
Point(301, 406), Point(301, 402), Point(299, 397), Point(299, 395),
Point(298, 391), Point(297, 388), Point(297, 387), Point(294, 383),
Point(291, 375), Point(288, 366), Point(288, 365), Point(286, 357),
Point(283, 349), Point(282, 343), Point(279, 336), Point(276, 328),
Point(271, 309), Point(271, 306), Point(270, 298), Point(268, 272),
Point(266, 264), Point(262, 262), Point(257, 261), Point(252, 261),
Point(248, 261), Point(244, 262), Point(244, 263)];
end;
begin
SetUpSrl;
ActivateClient;
DeclarePlayers;
LoginPlayer;
WalkPath;
end. I already got the SPS map on my own folder called living_rock_caverns and already added the map to SPS, i get no error but at the end it says "Successfully executed." and just stops. Any ideas whats wrong?