Log in

View Full Version : Compiling failed.


Reamt
05-21-2012, 07:11 PM
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
05-21-2012, 07:18 PM
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
05-21-2012, 08:21 PM
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
05-21-2012, 09:19 PM
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
05-21-2012, 09:23 PM
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!