jkrules22
03-28-2012, 05:16 PM
Ok so Im just trying to get the hang of SPS, and Im making a script that just walks around the Varrock west bank, Im having this error though: The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
It will log me in and such, just that though, it will sit for a second then say succesfully executed then say the error i mentioned above.
Im a noob I know just bare with me :)
This is what the script looks like:
Program MrWalksAlot;
{$i srl\srl\misc\smart.simba}
{$i srl\srl.simba}
{$i sps\sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Bankpin Here
end;
Procedure StatsGuise(wat:String);
Begin;
Status(wat);
Disguise(wat);
End;
Procedure AntiBan;
Begin;
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
Procedure FailSafe(Reason:String);
Begin;
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Procedure WalkAround;
Var
MyPath:TPointArray;
Begin;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['11_7']);
myPath := [Point(275, 132), Point(218, 135),
Point(196, 130), Point(160, 134),
Point(133, 131), Point(130, 109),
Point(137, 81), Point(151, 53),
Point(176, 46), Point(213, 53),
Point(240, 86), Point(265, 99),
Point(290, 106), Point(335, 126),
Point(381, 126), Point(418, 134),
Point(406, 164), Point(407, 194),
Point(405, 233), Point(382, 256),
Point(376, 281), Point(329, 292),
Point(288, 290), Point(282, 255),
Point(280, 202), Point(283, 156)];//Path
SPS_WalkPath(myPath);
End;
Procedure WriteLoggedIn;
Begin;
Writeln('Logged In');
End;
Procedure WriteLoggingIn;
Begin;
Writeln('Logging In');
End;
Procedure WriteAntiBan;
Begin;
Writeln('Antiban');
End;
Procedure WriteStartwalk;
Begin;
Writeln('Starting to walk');
End;
Begin;
Smart_Server := 13;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
ActivateClient;
WriteLoggingIn;
LoginPlayer;
WriteLoggedIn;
WriteAntiBan;
AntiBan;
SPS_Areas := ['11_7'];
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
WriteAntiBan;
AntiBan;
WriteStartwalk;
WalkAround;
WriteAntiBan;
AntiBan;
End.
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
It will log me in and such, just that though, it will sit for a second then say succesfully executed then say the error i mentioned above.
Im a noob I know just bare with me :)
This is what the script looks like:
Program MrWalksAlot;
{$i srl\srl\misc\smart.simba}
{$i srl\srl.simba}
{$i sps\sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Bankpin Here
end;
Procedure StatsGuise(wat:String);
Begin;
Status(wat);
Disguise(wat);
End;
Procedure AntiBan;
Begin;
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
Procedure FailSafe(Reason:String);
Begin;
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Procedure WalkAround;
Var
MyPath:TPointArray;
Begin;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['11_7']);
myPath := [Point(275, 132), Point(218, 135),
Point(196, 130), Point(160, 134),
Point(133, 131), Point(130, 109),
Point(137, 81), Point(151, 53),
Point(176, 46), Point(213, 53),
Point(240, 86), Point(265, 99),
Point(290, 106), Point(335, 126),
Point(381, 126), Point(418, 134),
Point(406, 164), Point(407, 194),
Point(405, 233), Point(382, 256),
Point(376, 281), Point(329, 292),
Point(288, 290), Point(282, 255),
Point(280, 202), Point(283, 156)];//Path
SPS_WalkPath(myPath);
End;
Procedure WriteLoggedIn;
Begin;
Writeln('Logged In');
End;
Procedure WriteLoggingIn;
Begin;
Writeln('Logging In');
End;
Procedure WriteAntiBan;
Begin;
Writeln('Antiban');
End;
Procedure WriteStartwalk;
Begin;
Writeln('Starting to walk');
End;
Begin;
Smart_Server := 13;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
ActivateClient;
WriteLoggingIn;
LoginPlayer;
WriteLoggedIn;
WriteAntiBan;
AntiBan;
SPS_Areas := ['11_7'];
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
WriteAntiBan;
AntiBan;
WriteStartwalk;
WalkAround;
WriteAntiBan;
AntiBan;
End.