Ghetto fix
TY Brandon, you is my homie now.
Ghetto fix
TY Brandon, you is my homie now.
Here's the script man! Imma eat dinner now, and i'll brb to look into it!
PHP Code: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.04_______________');
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_Server := 21;
Smart_Members:= True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
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.
for simba code, use [SIMBA] tags. Ill take a look at it in a minute.
E:
Heres the script with the SMART stuff added in. Im not sure if the script still works after the update, a lot of stuff got screwed up.
Simba Code:Program QuickHerblore;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$IFDEF SIMBAMAJOR980}
{$I SRL/SRL/Misc/PaintSmart.Simba}
{$ELSE}
{$I SRL/SRL/Misc/SmartGraphics.Simba}
{$ENDIF}
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.04_______________');
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
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 72;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}
SetupSRL;
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 Footy; 07-17-2012 at 04:26 PM.
Thx Euphemism and Vinyl for the awesome siggy and avatar!
I got the fix to run with the code , but none of my scripts work... Are they all out of date now or ?
i can get the rs page open and the "unknown" tab turns "play" off. then i open a new windo and try to load a script but then "smart" opens up in the next tap and the error:
[Error] C:\Simba\Includes\SRL/SRL/Misc/Smart.simba(53:19): Invalid number of parameters at line 52
Compiling failed.
pops up.
I have updated Simba to 0.99, got all of Brandon's folders, and used MSI in my browser without SMART. I start the Dwarven Mine miner script, but it cannot find that I am in the mine.
I mean Mining guild miner. OopsI did. it would look up stats, ect., but it wouldn't recognize I was already in the mining guild.
Still can't bank with my script; it doesn't click on the bank anymore its off by alot.
I got my script working for a few hours but then it quit and is now refusing the IgnoreBar; which it clearly didn't have a problem with a couple hours ago.![]()
cant wait till the fix is in... man in the meantime i guess im going to have to bot on a different game... i tried gzz's ghetto fix n stuff but was to ghetto for me to try... lol just cant wait to use smart again... soo easy 2 debug on...
safemode glitch is intentional, jmod already posted that they are not going to fix it, they want us to use different video mode
A fix to the safemode glitch has been posted already. Ill quote it to the best of my ability
1. Put all the items you are using during your gaming session(essence and runes if you are rc'ing) in your inventory
2. Log out to the lobby
3. Log back in, those items in your inv wont glitch for the rest of your playing session
Thx Euphemism and Vinyl for the awesome siggy and avatar!
Yea I tried this but for cleaning herbs I have to deposit the cleaned herbs and withdraw more grimy herbs. Using the following method I had grimy herbs in my inventory so they wouldn't glitch. At first my herbs in my inventory were visible but after a few deposits and withdrawals the grimy herbs glitched and became invisible. I guess for this kind of script it isn't possible at the moment...![]()
Last edited by drew3170; 07-17-2012 at 10:44 PM.
Besides the fact that if you open the bank and deposit or withdraw anything it'll glitch again.
TPA & mouse to move to the position then uptext to find item, use instead of dtms/bitmaps for finding items that need to be deposited/withdrawn/clicked on/etc.
For example with RC, it'll need to do with filling pouches (since they sometimes go invis) depositing runes, withdrawing runes, withdrawing pots, withdrawing food, and using the items.
U just need a bot that depends on the clicking spot, so it clicks the first and second bank spot. Jeffrey's or p1ng herblore scripts are both scripts that work that way.
cant wait until the fix come out i tried the fix that is on the main page and seriously cant make it, anyways i think i messed up my simba.
You're right dude, I am a fucking sad no-life leecher. I should probably try to change that fact about me. I have no idea why I said that. Hopefully I can actually use my brain in the future.
I'm currently running als LRC script and i can't get it to work nor do any of my other scripts, this is the error that occurs when i load it.
[Error] C:\Simba\Includes\SRL/SRL/misc/paintsmart.simba(41:33): Unknown identifier 'SmartGetDebugDC' at line 40
Compiling failed.
Last edited by happycamper207; 07-18-2012 at 12:54 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)