SRL Archive - Help

Hello, recently I've started using the Simba (or SMART) client, and lately I've been noticing a lot of cpu percentage usage from the simba.exe process.
This generally causes my whole computer to freeze up, which shouldnt happen considering I have a quite highend computer.

If it matters, then I am using SMART 8.0
If you require any other info, then please ask.

What script you are using, and if using your own scripts, post them. Also do you just leave your com running on for days? I've heard of some issues with smart leaving zombie processes but that shouldn't be a problem if you restart your computer daily.

I would prefer not to post the script as it is private. However, I restart daily, and even now I just restarted to try again, with same result.

Probably because you have some memory leak in your script then. Did you free your DTM/bitmaps, use wrapper TPA functions etc? Pm your script to someone you trust if you can't figure it out.

I'll make sure to do so.

Strange thing is, it happens with maybe 3 out of, for example, 6 clients that I run. Never all of them (so far at least).

But, I'll pm one of the scripts creators and see what he has to say about it.

Program FurThiever;
{$define SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}

Var

Fur, Number, TimeGone, Fur1, Seconds, profit, number2, number3, xp: Integer;


// —-FurThiever Pro Made by Ekarma—-
//=============INSTRUCTIONS=============
// MAKE SURE BRIGHTNESS IS SET TO MAX!
// Go behind the Fur stall in ardougne
// Press Play
// Login & Awnser Pin!
// Watch for randoms & combat!
//======================================
Procedure Camera;
begin;
If (Not P07_LoggedIn) Then
Exit;
KeyDown(38);
Wait(RandomRange(1800,2000));
KeyUp(38);
P07_MakeCompassDegree(50);
End;

procedure TurnOnRun;
var x, y: integer;
begin
Mouse(671, 482, random(5), random(5), true);
wait(randomrange(750,600));
if(FindColorTolerance(x, y, 4803917, 651, 422, 659, 430, 10)) then
begin
Mouse(640, 426, random(5), random(5), true);
end;
Mouse(644, 184, random(5), random(5), true);
end;

Procedure WalkToBank;
var
banklogo, X, Y: Integer;
begin;
ClearDebug;
banklogo := DTMFromString('mbQAAAHicY2VgYPgIxB+A+C0Qf4WyW4C4A4iboewGID5zhoHh3RVfhh2LnRmOHDoAZmMDjFgwGAAAqPAQ6w==');
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
Writeln('Bot Status : Banking…');
Camera;
If FindDTM(banklogo, X, Y, 520, 3, 760, 167) then
Begin
TurnOnRun;
Mouse(x, y, 1, 1, true);
wait(12000+random(5000));
P07_FFlag;
end;

FreeDTM(banklogo);

end;

Procedure BankFur;
var
X, Y: Integer;

begin;

Fur := DTMFromString('mWAAAAHicY2FgYGACYlYGCGAEYi4kNh8QT/DiZODhRWB0wIiGQQAASU8Bcw==');


If FindDTM(Fur, X, Y, 518, 168, 759, 492) then
Inc(fur1);
If FindDTM(Fur, X, Y, 518, 168, 759, 492) then
Begin
Mouse(x, y, 2, 2, true)
wait(900+random(125));
end;

FreeDTM(Fur1);

end;

Procedure WalkToFur;
var
furlogo, X, Y: Integer;
begin;
Cleardebug;
furlogo := DTMFromString('mQwAAAHicY2ZgYAhkZGDwB2JvIG4B8juAuBWIOx2YwPjIoQMMyIARCQMBAAAkBmI=');
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
Writeln('Bot Status : Walking to Fur…');
Camera;
If FindDTM(furlogo, X, Y, 520, 3, 760, 167) then
Begin
Mouse(x, y, 1, 1, true);
wait(10000+random(5000));
P07_FFlag;
end;

FreeDTM(furlogo);

end;

Procedure ProgressReport;
begin;
number3 := 36
number2 := 120
TimeGone := (GetTimeRunning/60000);
Fur1 := Fur1;
Number := 28
seconds := (GetTimeRunning/1000);
profit := ((Fur1)) * ((number2));
xp := ((number3)) * ((Fur1));


ClearDebug;
Writeln(' FurThiever Pro ');
Writeln(' ====================================');
Writeln('||Fur collected : ' + IntToStr(Fur1) + ' Fur ');
Writeln('||Profit : ' + IntToStr(profit) + ' GP ' );
Writeln('||XP Gained : ' + IntToStr(xp) + ' XP ' );
Writeln('||RunTime : ' + IntToStr(TimeGone) + ' Minutes ' );
Writeln(' ====================================');
Writeln(' <$> Script By : Ekarma <$> ');
wait(1000+random(2000));
end;



Procedure CountDown;
begin;
Writeln(' =======================================');
Writeln('|| Welcome to FurThiever Pro by: Ekarma ||');
Writeln(' =======================================');
Writeln('Script is starting in 5…');
wait(1000);
Writeln('Script is starting in 4…');
wait(1000);
Writeln('Script is starting in 3…');
wait(1000);
Writeln('Script is starting in 2…');
wait(1000);
Writeln('Script is starting in 1…');
wait(1000);
ClearDebug;
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
end;

Procedure B;
var x, y: Integer;
begin;
Camera;
If P07_FindObjCustom(x, y, ['use', 'Bank booth'], [6710893, 608609], 2) Then
Mouse(x, y, 0, 0, true);
wait(750+random(500));
P07_ChooseOptionMulti(['quickly']);
wait(2500+random(3000));
If P07_BankScreen And P07_InvFull Then P07_Deposit(1, 28, true);
end;

Procedure AntiBan;
begin
wait(randomrange(250,750));
if not(P07_loggedin)then
Exit;
case Random(6) of
0: wait(randomrange(250,250));
1: wait(randomrange(250,250));
2: wait(randomrange(250,250));
3: P07_MakeCameraAngleHigh;
4: wait(randomrange(250,250));
5: wait(randomrange(250,250));
6: wait(randomrange(250,250));
end;
end;


Procedure StealFur;
var x, y: Integer;

begin;
If (Not P07_LoggedIn) Then
terminatescript;
Writeln( 'Bot Status: Looking for Fur stall…')
Camera;
repeat
If P07_FindObjCustom(x, y, ['Steal-from', 'Fur stall'], [1145237, 1143179], 2) Then
begin;
Mouse(x, y, 3, 3, true);
ProgressReport;
antiban;
wait(randomrange(750,500));
end;
until(P07_Invfull)
end;

Begin
ClearDebug;
SetupSRL;
SetupP07Include;
ClearDebug;
CountDown;
Repeat
StealFur;
WalkToBank;
B;
BankFur;
WalkToFur;
Until(false);
end.

procedure DTMZ;
begin
WalkToBank:= DTMFromString('mbQAAAHicY2VgYPgIxB+A+C0Qf4WyW4C4A4iboewGID5zhoHh3RVfhh2LnRmOHDoAZmMDjFgwGAAAqPAQ6w==');
WalkToFur:= DTMFromString('mQwAAAHicY2ZgYAhkZGDwB2JvIG4B8juAuBWIOx2YwPjIoQMMyIARCQMBAAAkBmI=');
BankFur:= DTMFromString('mWAAAAHicY2FgYGACYlYGCGAEYi4kNh8QT/DiZODhRWB0wIiGQQAASU8Bcw==');
end;

procedure FREEDTMZ;
begin
FreeDtm(WalkToBank);
FreeDTM(WalkToFur);
FreeDTM(BankFur);
end;
begin
SetupSRL;
DTMZ;
Addonterminate('FREEDTMZ');
repeat
CrushProcess;
until (not Loggedin);
FREEDTMZ;
terminatescript();
end.

i have this same error, i went on http://villavu.com/forum/showthread.php?t=78418 and i believe i followed the instructions correctly, but it freezes after it clicks on fur stall and unfreezes when a fur reappears in the stall and continues this cycle, and when i am at the bank, it banks correctly, but then it freezes once it says locating fur stall… walking to fur stall.. and sits there frozen.
anyone that can help please do, it is frusterating as hell and i know this is digging but please help.