Log in

View Full Version : Help Please :)



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.

Abu
03-28-2012, 05:23 PM
Just a note - when posting scripts, use Simba tags so it is easier to read. Also all those Writeln Procedures aren't necessary.

OT: I'm not sure whats gone wrong, sorry. Have you tried restarting Simba?

masterBB
03-28-2012, 05:29 PM
Point(288, 290), Point(282, 255),
Point(280, 202), Point(283, 156)];//Path
Writeln(SPS_GetMyPos); //add this line
SPS_WalkPath(myPath);
End;

The script works for me, could you try this. Also no error occurred, but note you have 2 times setupSRL and you also set up sps twice.

jkrules22
03-28-2012, 05:45 PM
abu_jwka, my bad lol...didnt realize I could do that. And I have all of the writeLns so I know where the script is messing up at. Didnt work out the way I thought it would though lol, Im gona take them out too.



masterBB, I took out where i have it setting up 2 times, so now its only doing each of them once, That fixed my main error, Now its just not walking for me, It loggs in, does antiban then it says starting to walk, and list a coord, but doesnt walk anywhere. O_o

Abu
03-28-2012, 05:54 PM
No Problem.

That means you need to fix you're paths....try adding backup paths.