PDA

View Full Version : SPS not working



Jhangir
12-25-2011, 08:01 PM
program SnapeGrass;

//{$define SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
end;
end;

Procedure Antiban;
Begin
case Random(250) Of
0: HoverSkill('random', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;

Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;

Procedure StartScript;
Begin
SetUpSRL;
MouseSpeed := 15;
ActivateClient;
DeclarePlayers;
If (Not LoggedIn) then
LoginPlayer;
SetAngle(True);
MakeCompass('n');
End;

Procedure WalkToBank;
var
ToBanker:TPointArray;
Begin

If Not FindNormalRandoms Then
Begin
SPS_Setup(RUNESCAPE_SURFACE, ['13_4']);
ToBanker := [Point(5626, 1840), Point(5636, 1833), Point(5640, 1811), Point(5640, 1796), Point(5637, 1780), Point(5636, 1761)];
StatsGuise('Heading to Banker');
WriteLn('Heading to Banker');
SPS_WalkPath(ToBanker);
StatsGuise('Arrived at Banker');
WriteLn('Arrived at Banker');

End;
End;

Function Bank: Boolean;
Var
x, y:Integer;

begin
Flag;
Wait(2000+RandomRange(25,50));
If FindObjCustom(x, y, ['anker'], [10117444, 6723765], 25) Then
begin;
MMouse(x, y, 1, 1);
Wait(200+RandomRange(50,100));
Mouse(x, y, 0, 0, False);
Wait(200+Randomrange(100,150));
ChooseOption('ank Frem');
Wait(2000+RandomRange(25,50));
if PinScreen then
if (Players[CurrentPlayer].Pin <> '') then
InPin(Players[CurrentPlayer].Pin)

else
begin;
writeln('NO PIN ENTERED!');
TerminateScript;
end;


end;
end;

Procedure Withdrawrunes;

begin
DepositAll;
Withdraw(0, 0, 2);
Wait(200+RandomRange(50,100));
Withdraw(1, 0, 1);
Wait(200+RandomRange(50,100));
Withdraw(2, 0, 1);
Wait(200+RandomRange(50,100));
CloseBank;
StatsGuise('Banked snape grass and withdrew runes');
WriteLn('Banked snape grass and withdrew runes');


end;






begin
StartScript;
WalkToBank;
Bank;
Withdrawrunes;
end.

Im really frustrated right now I changed the coords so many times. I want my char to go to the banker after it teleports to daemonheim but it keep going in other ******* directions. sometimes it goes past the banker and keeps going north. Sometimes it keeps going west. I changed the coords and the surface png so many times but it keeps going to wrong places.



Procedure WalkToBank;
var
ToBanker:TPointArray;
Begin

If Not FindNormalRandoms Then
Begin
SPS_Setup(RUNESCAPE_SURFACE, ['13_4']);
ToBanker := [Point(5626, 1840), Point(5636, 1833), Point(5640, 1811), Point(5640, 1796), Point(5637, 1780), Point(5636, 1761)];
StatsGuise('Heading to Banker');
WriteLn('Heading to Banker');
SPS_WalkPath(ToBanker);
StatsGuise('Arrived at Banker');
WriteLn('Arrived at Banker');

End;
End;

BraK
12-25-2011, 10:05 PM
You should post this in the SPS section. Marpis is more likely to see and answer it there. ;) I'll move it for you this time though.

YoHoJo
12-25-2011, 10:11 PM
I'm on phone so it's hard to navigate... Can someone go though my post history and find the one where I explain how to alter sps tolerance in SPS.Simb?or just exaplain how to raise/lower SPS tolerance That fixes a lot of SPS problems.

BraK
12-25-2011, 10:13 PM
@Yohojo You post too much lately bro that'd take me forever.

YoHoJo
12-25-2011, 10:22 PM
Check out this thread and the instructions in the link I posted on it.
http://villavu.com/forum/showthread.php?p=871201#post871201
That often helps fix SPS annoyances.

Hero
12-25-2011, 10:36 PM
I thnk there might be an issue legitly with SPS and not the users lol. I just tried 3 different scripts with SPS and they are all walking in crazy directions. I guess I will just finish fletching. I love suiciding.

Jhangir
12-25-2011, 10:50 PM
I think its because of this dang snow? It also snowed in daemonheim i noticed.