Log in

View Full Version : Insane lag on simba client



Skybreeder
10-18-2012, 04:52 AM
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.

riwu
10-18-2012, 05:06 AM
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.

Skybreeder
10-18-2012, 05:20 AM
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.

riwu
10-18-2012, 05:22 AM
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.

Skybreeder
10-18-2012, 05:26 AM
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.

OriginalGM
03-28-2013, 07:10 AM
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+C0Qf4WyW4C4A4 iboewGID5zhoHh3RVfhh2LnRmOHDoAZmMDjFgwGAAAqPAQ6w== ');
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('mQwAAAHicY2ZgYAhkZGDwB2JvIG4B8juAuB WIOx2YwPjIoQMMyIARCQMBAAAkBmI=');
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+C0Qf4WyW4C4A4 iboewGID5zhoHh3RVfhh2LnRmOHDoAZmMDjFgwGAAAqPAQ6w== ');
WalkToFur:= DTMFromString('mQwAAAHicY2ZgYAhkZGDwB2JvIG4B8juAuB WIOx2YwPjIoQMMyIARCQMBAAAkBmI=');
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.