I there an ETA on when this will be fix yet? I know there wasn't one at first but I'm just wondering if anyone could throw a educated guess out there
I there an ETA on when this will be fix yet? I know there wasn't one at first but I'm just wondering if anyone could throw a educated guess out there
ETA: Some time last week I would say.
The official fix has been out for almost a week now. YoHoJo should really update the OP to say so.
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Still getting this, I don't understand, i've tryed everything.
It worked before. I don't know what i'm doing doing wrong.
I'm not that experienced with Simba, can somebody give me a step by step guide on how to fix this, please?
SRL Compiled in 16 msec
Error: Out Of Range at line 267
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, SRL - NavBar Bitmap]
Official update to Simba 991: http://villavu.com/forum/showthread.php?t=87258
Common script-side errors as a result of this update: http://villavu.com/forum/showthread.php?t=84334
@Faab68, you'll have to post line 267 for anybody to be able to help you.
@lucifer, you can update your simba using the regular updater included in it, just make sure to update everything.
It's this:
End;
Edit:
Here's the whole script:
Simba Code:// Home of some free Simba Scripts: [url]http://smurg.net[/url]
//===== Version 1.05 =====
// Instructions:
// - Start next to bank chosen in settings
// - Fill in appropriate action and item slots
// - Run the script
//============================
Program QuickHerblore;
{$DEFINE SMART}
{$I SRL/SRL.SIMBA}
Var
firstMaterial, secondMaterial: Array of Integer;
WhereToBank: Variant;
Const
//==============================================================================
//===== Main Settings ======================================================
AccountLogin = ''; // Runescape Account Login
AccountPassword = ''; // Runescape Account Password
AccountPIN = ''; // Runescape Bank Pin
CleanOrPots = 'pots'; // 'Clean' : Grimy Herbs are firstMaterial
// 'Pots' : (Unf) Clean Herbs are firstMaterial, Water Vials secondMaterial
// (Finished) Non-edidable ingredient is firstMaterial
ClickingWait = 20; // Wait time for clicking for cleaning herbs
DebugMode = True;
World = 48;
Procedure DeclarePlayers;
begin
// [Row, Column] starts at 0, 0 in Bank
firstMaterial := [0, 0]; // [Row, Column] in Bank
WhereToBank := SRL_BANK_SW; // Bank where you want to run it at
// Full list added below
// --- If doing pots ---
secondMaterial := [0, 1]; // [Row, Column] in Bank
//===== SRL Supported Banks ================================================
// Bank_FE (Falador East Bank)
// Bank_FW (Falador West Bank)
// Bank_VE (Varrock East Bank)
// Bank_VW (Varrock West Bank)
// Bank_GE (Varrock GE Bank)
// Bank_DR (Draynor Bank)
// Bank_AK (Al-Kharid Bank)
// Bank_EV (Edgeville Bank)
// Bank_CT (Catherby bank)
// Bank_CM (Camelot bank)
// Bank_NA (North Ardougne bank)
// Bank_SA (South Ardougne bank)
// Bank_YN (Yanille bank)
// Bank_NG (North gnome bank)
// Bank_SG (South gnome bank)
// Bank_WG (Warrior guild bank)
// Bank_FG (Fishing guild bank)
// SRL_BANK_SW (Soul Wars chest)
// SRL_BANK_CW (Castle Wars chest)
// SRL_BANK_B (Burthrope chest: outside warriors guild)
// SRL_BANK_GG (Gamer's Grotto: north of Falador)
//===== End Of Main Settings ===============================================
//==============================================================================
NumberOfPlayers(1);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := AccountLogin;
Pass := AccountPassword;
PIN := AccountPIN;
Active := True;
Member := True;
SRL_DisableIPLog := True;
End;
end;
Var
StartTime, S_TR, TimeToBreak, Cleaned, Mixed: Integer;
F_Count: Integer;
F_String: String;
Const
C_OrangeMakeText = 2070783;
Procedure Wat(W1, W2: Integer);
Begin
Wait(RandomRange(W1, W2));
End;
Function DoCondition(TimeOut, WaitPer: Integer; Funct: Function: Boolean; Condition: Function: Boolean; Normal: Boolean): Boolean;
Var
T: Integer;
Begin
T := GetSystemTime + TimeOut;
If Normal Then
Begin
Repeat
Funct();
If (not Condition()) Then Wait(RandomRange(WaitPer, Round(WaitPer * 1.5)));
If (GetSystemTime > T) Then Exit;
Until(Condition())
End Else Begin
Repeat
Funct();
If Condition() Then Wait(RandomRange(WaitPer, Round(WaitPer * 1.5)));
If (GetSystemTime > T) Then Exit;
Until(Not Condition())
End;
Result := True;
End;
Function MakeItemMenu(TimeOut: Integer): Boolean;
Var
X, Y, T: Integer;
Begin
If Not LoggedIn Then Exit;
Result := FindColorSpiralTolerance(X, Y, C_OrangeMakeText, MCX1, MCY1, MCX2, MCY2, 10);
If Not Result Then
Begin
T := GetSystemTime + TimeOut;
Repeat
If Not LoggedIn Then Exit;
Result := FindColorSpiralTolerance(x, y, C_OrangeMakeText, MCX1, MCY1, MCX2, MCY2, 10);
Wait(100);
If (GetSystemTime > T) Then Exit;
Until(Result)
End;
End;
Function CustomLogin: Boolean;
Begin
Result := LoggedIn;
If Result Then Exit;
If Not LobbyScreen Then
Begin
Logout;
If Not LoginPlayerToLob Then Exit;
End;
If ChangeWorld(World) Then
Result := True;
SetAngle(SRL_ANGLE_HIGH);
End;
procedure Debug(Message: String);
begin
if DebugMode then Writeln(Message);
end;
Function LogMeIn: Boolean;
Begin
Result := DoCondition(300000, 30000, @CustomLogin, @LoggedIn, True);
End;
Procedure EndScript(Msg: String);
Begin
CloseWindow;
Logout;
Writeln(Msg);
TerminateScript;
End;
Procedure FailCount(Reset: Boolean; FType: String);
Begin
If Reset Then
Begin
F_Count := 0;
F_String := '';
Debug('Reset Fail Count');
End Else Begin
F_Count := F_Count + 1;
F_String := F_String + FType + '. ';
Debug('Added 1 to Fail Count: ' + FType);
End;
If F_Count > 7 Then EndScript(F_String);
End;
Procedure Report;
begin
S_TR := S_TR + (GetSystemTime - StartTime);
StartTime := GetSystemTime;
if (not DebugMode) then ClearDebug;
Writeln('____________Smurgs QuickHerblore V1.05_______________');
Writeln('');
If LowerCase(CleanOrPots) = 'clean' Then
Writeln('Herbs Cleaned: ' + IntToStr(Cleaned) + ' (' + IntToStr(Round(Cleaned div (S_TR div 1000.0 div 60.0 div 60.0))) + ' herbs/hr)');
If LowerCase(CleanOrPots) = 'pots' Then
Writeln('Pots Mixed: ' + IntToStr(Mixed) + ' (' + IntToStr(Round(Mixed div (S_TR div 1000.0 div 60.0 div 60.0))) + ' pots/hr)');
Writeln('Time running: ' + MSToTime(Round(S_TR), 0));
Writeln('Time until break: ' + MSToTime(TimeToBreak - GetSystemTime, 0));
Writeln('_____________________________________________________');
end;
Function BreakTime: Boolean;
begin
Result := (GetSystemTime > TimeToBreak);
end;
Procedure TakeBreak;
begin
Writeln('Time for a break');
S_TR := S_TR + (GetSystemTime - StartTime);
If BankScreen Then
DoCondition(10000, 1000, @CloseBank, @BankScreen, False);
DoCondition(30000, 5000, @ExitToLobby, @LobbyScreen, True);
Wait(RandomRange(30 * 1000, 60 * 1000));
DoCondition(30000, 5000, @CustomLogin, @LoggedIn, True);
TimeToBreak := GetSystemTime + (600 * 60 * 1000) + RandomRange((-5 * 60 * 1000), (5 * 60 * 1000));
StartTime := GetSystemTime;
end;
procedure Mose(X, Y, Xr, Yr: Integer; Button: Boolean);
var
B, C: Integer;
iButton: Integer;
begin
MMouse(X + RandomRange(-Xr, Xr), Y + RandomRange(-Yr, Yr), 0, 0);
Wat(ClickingWait, Round(ClickingWait * 1.2));
If Button Then
iButton := mouse_left
Else
iButton := mouse_right;
GetMousePos(B, C);
HoldMouse(B, C, iButton);
Wait(RandomRange(50, 70));
GetMousePos(B, C);
ReleaseMouse(B, C, iButton);
Wat(ClickingWait, Round(ClickingWait * 1.2));
end;
Function BankIt: Boolean;
Var
N, T: Integer;
Begin
If Not LoggedIn Then Exit;
For N := 0 to 3 Do
Begin
If BankScreen then Break;
If OpenBank(WhereToBank, True, True) Then Break;
If N = 3 Then Exit;
End;
If InvCount > 0 Then DepositAll;
Case LowerCase(CleanOrPots) Of
'clean': Begin
Writeln(GetBankItemAmount(firstMaterial[1], firstMaterial[0]));
If (GetBankItemAmount(firstMaterial[1], firstMaterial[0]) <= 28) Then
Begin
T := GetSystemTime + 3000;
Repeat
Wait(250);
If GetSystemTime > T Then
Begin
FailCount(False, '0 materials, first slot! ');
CloseBank;
Exit;
End;
Until (GetBankItemAmount(firstMaterial[1], firstMaterial[0]) > 28)
End;
For N := 0 to 3 Do
Begin
If Withdraw(firstMaterial[1], firstMaterial[0], 0) Then Break;
If N = 3 Then Exit;
End;
End;
'pots': Begin
Writeln(GetBankItemAmount(firstMaterial[1], firstMaterial[0]));
If (GetBankItemAmount(firstMaterial[1], firstMaterial[0]) <= 14) Then
Begin
T := GetSystemTime + 3000;
Repeat
Wait(250);
If GetSystemTime > T Then
Begin
FailCount(False, '0 materials, first slot! ');
CloseBank;
Exit;
End;
Until (GetBankItemAmount(firstMaterial[1], firstMaterial[0]) > 14)
End;
For N := 0 to 3 Do
Begin
If Withdraw(firstMaterial[1], firstMaterial[0], 14) Then Break;
If N = 3 Then Exit;
End;
Writeln(GetBankItemAmount(secondMaterial[1], secondMaterial[0]));
If (GetBankItemAmount(secondMaterial[1], secondMaterial[0]) <= 14) Then
Begin
T := GetSystemTime + 3000;
Repeat
Wait(250);
If GetSystemTime > T Then
Begin
FailCount(False, '0 materials, second slot! ');
CloseBank;
Exit;
End;
Until (GetBankItemAmount(secondMaterial[1], secondMaterial[0]) > 14)
End;
For N := 0 to 3 Do
Begin
If Withdraw(secondMaterial[1], secondMaterial[0], 0) Then Break;
If N = 3 Then Exit;
End;
End;
End;
Repeat
CloseBank;
Wait(200);
Until Not BankScreen
T := GetSystemTime + 7500;
Repeat
Wait(25);
If GetSystemTime > T Then
Begin
FailCount(False, 'Didnt withdraw right! ');
Exit;
End;
Until InvCount = 28
Wait(RandomRange(100, 200));
Result := True;
End;
Function MakeThem: Boolean;
Var
N, X, Y, T, T2: Integer;
Order: TIntegerArray;
TB: TBox;
Begin
If Not LoggedIn Then Exit;
Repeat
CloseBank;
Until Not BankScreen
Gametab(tab_Inv);
Case LowerCase(CleanOrPots) Of
'clean': Begin
MouseSpeed := RandomRange(40, 50);
Order := [1, 5, 9, 13, 17, 21, 25, 26, 22, 18, 14, 10, 6, 2, 3, 7, 11, 15, 19, 23, 27, 28, 24, 20, 16, 12, 8, 4];
For N := 0 to 27 Do
Begin
TB := InvBox(Order[N]);
If FindColor(X, Y, srl_outline_black, TB.x1, TB.y1, TB.x2, TB.y2) Then
Mose(Round((TB.X1 + TB.X2) / 2), Round((TB.Y1 + TB.Y2) / 2), 5, 5, True);
End;
Cleaned := Cleaned + 28;
End;
'pots': Begin
MouseSpeed := RandomRange(40, 50);
InvMouse(14, mouse_left);
Wat(100, 250);
InvMouse(15, mouse_left);
If Not MakeItemMenu(5000) Then Exit;
N := InvCount;
Mose(260, 430, 20, 10, True);
T := GetSystemTime + 35000;
T2 := GetSystemTime;
Repeat
If InvCount < N Then
T2 := GetSystemTime;
N := InvCount;
Wat(50, 100);
If ((GetSystemTime > (T2 + 5000)) or (Not ExistsItem(28)) or (Not ExistsItem(14))) Then Break;
Until False
Mixed := Mixed + 14;
End;
Else
EndScript('CleanOrPots type wrong');
End;
Wait(RandomRange(150, 500));
Result := True;
If Result Then FailCount(True, '');
End;
Begin
ClearDebug;
Smart_FixSpeed := True;
SetupSRL;
SRL_SixHourFix := True;
DeclarePlayers;
if (not LogMeIn) then EndScript('Could not login pre-loop');
MakeCompass('W');
SetAngle(SRL_ANGLE_HIGH);
TimeToBreak := GetSystemTime + (330 * 60 * 1000) + RandomRange((-5 * 60 * 1000), (5 * 60 * 1000));
StartTime := GetSystemTime;
Repeat
If (Not LogMeIn) Then EndScript('Could not login in-loop');
If BreakTime Then TakeBreak;
If BankIt Then
Begin
FindNormalRandoms;
If MakeThem Then
Begin
Report;
FindNormalRandoms;
End Else
FailCount(False, 'Could not mix pots or clean herbs! ');
End Else
FailCount(False, 'Could not withdraw correctly! ');
Until False
TerminateScript;
End.
Last edited by Faab68; 08-01-2012 at 03:08 PM.
can some1 pls help me i keep getting this error on Majority of scripts not all tho.
[Error] C:\Simba\Includes\srl/srl/misc/smart.simba(53:19): Invalid number of parameters at line 52
Compiling failed.
I've literally spend like 5 hours trying to fix this.
I feel so ****ing dumb.
Please help me.
Not trying to sound like a leech, please teach me about Simba
Guys, i am stuck at this issue on this script: RiwuDomDagannoth
[Error] C:\Documents and Settings\home\My Documents\Downloads\riwuDomDagannoth (3).simba(1408:3): Unknown identifier 'Smart_Server' at line 1407
Compiling failed.
*Followed Ghetto fix; same error
*Followed this http://villavu.com/forum/showthread.php?t=87258, same error.
The script does autoupdate, well i think so.
Help would be VERY appreciated.![]()
Remove the Smart_* stuff and it will compile.
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
http://villavu.com/forum/showthread.php?t=84334
Follow that
Basically your changing:
ToCode:Smart_Server := 72; Smart_Members := True; Smart_Signed := True; Smart_SuperDetail := False;
Code:SRL_SixHourFix := True; Smart_FixSpeed := True;
Checking for script version...
Script Version: 9
Latest Version: 9
You have the latest version! Script starting...
SRL Compiled in 94 msec
Loading SMART: http://world78.runescape.com/f5206859855362085188
THANKS!!!!![]()
Did you replace it with SixHourFix and FixSpeed too? They're good to have![]()
can anybody help with the lrc miner script by harry? ive been working on it for hours and to no avial i cant get it to work. i keep getting a shit load of errors, updated everything. 1st main error is SmartSetDebug(True);
cheers??
I have Simba fully updated, and SMART loads perfectly with every script I try, but the red dot cursor just sits idly in the top left corner. It never logs me in. When I disable smart and log in myself, and then reenable, it sometimes moves around for a few seconds, and maybe types in my login info into the chatbox (accidentally of course) and stops. The scripts never continue to do anything. Any ideas?
Hi Folks,
I have tried to install Smart v8 and copied the files into my c: but now get the follow error:
[Error] C:\Simba\Includes\SRL\srl\misc\SmartParams.Simba(7 0:8): Unknown identifier 'RSReady' at line 69 Compiling failed.
Any ideas how I fix this?
Thanks!!
Hello guys, Im getting this error, if anyone could help in fixing it that would be great. Thanks
[Error] C:\Simba\Includes\SRL/SRL.simba(86:19): Unknown identifier 'SetupSmart' at line 85
Compiling failed.
There are currently 1 users browsing this thread. (0 members and 1 guests)