Itankbots
2012-08-22 18:35:37
I can't figure out why sps isn't walking the path, it worked once but now it doesn't work. Does not even try to walk the path. I've re made the path several times but it still doesn't work.
This is my first time using a full sps path so any help would be much appreciated :)
program TinderboxPro;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var
teleport:integer;
x,y:Integer;
myPath:TPointArray;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
Pin := '';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
end;
procedure SetDtm;
begin;
teleport := DTMFromString('mbQAAAHicY2VgYLBlYmBwBmIzILaCssUYGRj4gVgUiGWgWE/DgMHd3pghK/IAQ2zgUob86dcZsAFGLBgMAN03B7E=');
end;
procedure FreeeDtm;
begin;
FreeDTM(teleport);
end;
procedure ToBank;
begin;
FTab(tab_Magic);
if FindDTM(teleport, x, y, MIX1, MIY1, MIX2, MIY2) then;
Mouse(x, y, 4, 4, False);
ChooseOption('revious-des');
wait(18000+random(200));
begin;
SPS_WalkPath(myPath);
Writeln('Walking to bank');
begin
OpenBankFast('clt');
wait(900+random(200));
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
DepositAll;
end;
end;
end;
begin;
SRL_SixHourFix := True;
SMART_FixSpeed := True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SPS_Setup(RUNESCAPE_SURFACE,['6_6','6_7','7_7','7_6']);
myPath := [Point(2566, 2723), Point(2574, 2725), Point(2579, 2720), Point(2586, 2719), Point(2597, 2719), Point(2609, 2715), Point(2619, 2716), Point(2627, 2716), Point(2635, 2717), Point(2646, 2714), Point(2661, 2713), Point(2674, 2713), Point(2693, 2710), Point(2706, 2711), Point(2719, 2712), Point(2726, 2712), Point(2734, 2710), Point(2740, 2709), Point(2738, 2691), Point(2740, 2680)];
SetDtm;
Repeat
ToBank;
until(Not (LoggedIn));
FreeeDtm;
end. This is my first time using a full sps path so any help would be much appreciated :)