SRL Archive - Help

Compiling failed.

Reamt

2012-05-21 15:11:50

Procedure WalkToMine;
begin
  WalkToMine := (Point(4850, 2971), Point(4851, 2962), Point(4851, 2954), Point(4853, 2945), Point(4859, 2938), Point(5045, 2685));
  SPS_WalkPathModified(WalkToMine);
end;

[Error] (59:14): Identifier expected at line 58

Some help please

Google

2012-05-21 15:18:52

From: Reamt

Procedure WalkToMine;
begin
  WalkToMine := (Point(4850, 2971), Point(4851, 2962), Point(4851, 2954), Point(4853, 2945), Point(4859, 2938), Point(5045, 2685));
  SPS_WalkPathModified(WalkToMine);
end;

[Error] (59:14): Identifier expected at line 58

Some help please

Here you go


Procedure Walk;
Var
  WalkToMine: TPointArray;//Declare the variable walktomine
begin
   SPS_Setup(RUNESCAPE_Surface,['maps here']);// The Tool will give you the maps
  WalkToMine := (Point(4850, 2971), Point(4851, 2962), Point(4851, 2954), Point(4853, 2945), Point(4859, 2938), Point(5045, 2685));
  SPS_WalkPathModified(WalkToMine);
end;

Reamt

2012-05-21 16:21:26

How do I add maps, this is all what I get from the program:

SPS_Areas := ['11_7','];

myPath := [Point(4565, 3166), Point(4570, 3154), Point(4575, 3142), Point(4573, 3136), Point(4560, 3128), Point(4533, 3091), Point(4529, 3082), Point(4523, 3061), Point(4517, 3025), Point(4522, 3013), Point(4522, 2976), Point(4523, 2950), Point(4558, 2933), Point(4579, 2931), Point(4578, 2920), Point(4565, 2907)];

What and how do I add this?

SPS_Setup(RUNESCAPE_Surface,['maps here']);// The Tool will give you the maps

Google

2012-05-21 17:19:34

From: Reamt
How do I add maps, this is all what I get from the program:

SPS_Areas := ['11_7','];

myPath := [Point(4565, 3166), Point(4570, 3154), Point(4575, 3142), Point(4573, 3136), Point(4560, 3128), Point(4533, 3091), Point(4529, 3082), Point(4523, 3061), Point(4517, 3025), Point(4522, 3013), Point(4522, 2976), Point(4523, 2950), Point(4558, 2933), Point(4579, 2931), Point(4578, 2920), Point(4565, 2907)];

What and how do I add this?
SPS_Setup(RUNESCAPE_Surface,['maps here']);// The Tool will give you the maps



Procedure ToMines;
Var
  ToMine: TPointArray;
Begin
SPS_Setup(RUNESCAPE_Surface,['11_7']);
ToMine := [Point(4565, 3166), Point(4570, 3154), Point(4575, 3142), Point(4573, 3136), Point(4560, 3128), Point(4533, 3091), Point(4529, 3082), Point(4523, 3061), Point(4517, 3025), Point(4522, 3013), Point(4522, 2976), Point(4523, 2950), Point(4558, 2933), Point(4579, 2931), Point(4578, 2920), Point(4565, 2907)];
SPS_WALKPATH(ToMine);
If SPS_WalkPath(ToMine) Then
Begin
WriteLn('We made it');
End;
End;

It also helps if you look at some of the maps inside the folder and add other ones that are conjoining to make the walk a little more accurate.

EDIT: sorry for the long response helpn few people out atm.

Reamt

2012-05-21 17:23:33

From: GOOGLE
Procedure ToMines;
Var
  ToMine: TPointArray;
Begin
SPS_Setup(RUNESCAPE_Surface,['11_7']);
ToMine := [Point(4565, 3166), Point(4570, 3154), Point(4575, 3142), Point(4573, 3136), Point(4560, 3128), Point(4533, 3091), Point(4529, 3082), Point(4523, 3061), Point(4517, 3025), Point(4522, 3013), Point(4522, 2976), Point(4523, 2950), Point(4558, 2933), Point(4579, 2931), Point(4578, 2920), Point(4565, 2907)];
SPS_WALKPATH(ToMine);
If SPS_WalkPath(ToMine) Then
Begin
WriteLn('We made it');
End;
End;
It also helps if you look at some of the maps inside the folder and add other ones that are conjoining to make the walk a little more accurate.

EDIT: sorry for the long response helpn few people out atm.

Thanks! YOU ARE GREAT!