HardRockers
2011-12-30 22:47:37
Ok, I am testing my walking procedure from the Yanille Iron ore to The yanille bank. It basically does nothing, obviously I have made a dumb mistake somewhere and i just can't find it. Any help?
program WalkingTester;
{$i SRL\SRL.scar}
{$i sps/sps.simba}
procedure RadialWalking(RadialWalkin: Integer);
begin
case RadialWalkin of
1: RadialWalk(2786392, 180, 210, 60, 5, 5); //the 15855597 would be where your color would go. to pick a color, go to SCAR, and press Ctrl + Alt + P and click on the spot that your color is. It will wright the color in the debug box.
2: RadialWalk(15461625, 180, 210, 60, 5, 5); //0, 90 is the section on the mini map it searches for, in this case, the whole north/west corner
3: RadialWalk(11448246, 180, 270, 60, 5, 5); //60 means it will search all the way out to the edge of the mini map from the center
end;
end;
procedure WalkToBank;
var
i: Integer;
begin
if not loggedin then exit; //this should be at the beginning of each of your procedures or functions
MakeCompass('N');
Setrun(true); //this turns run on
for i := 1 to 3 do //if you don't know what this is, look up my tut on loops ;)
begin
RadialWalking(i); //this means that the first loop through it will use RadialWalking(1), then the second time through, RadialWalking(2), etc. Remember, this is the procedure we made before?
end;
end;
begin
SetupSRL;
WalkToBank;
end.