Page 39 of 54 FirstFirst ... 29373839404149 ... LastLast
Results 951 to 975 of 1345

Thread: OFFICIAL Social Slayer/SMART Not Working Thread

  1. #951
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ghetto fix
    TY Brandon, you is my homie now.

  2. #952
    Join Date
    Jun 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Foooty View Post
    Why are you putting that in? Anyways, find the main loop(the last begin/end), copy everything inbetween the begin and end in your post, then Paste it at the top of the main loop, It would be helpful if we could see the script.
    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
      
    firstMaterialsecondMaterial: Array of Integer;
      
    WhereToBankVariant;
    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 := [00];   // [Row, Column] in Bank
      
    WhereToBank := SRL_BANK_SW;   // Bank where you want to run it at
                                    // Full list added below
      // --- If doing pots ---
      
    secondMaterial := [01];  // [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
      
    StartTimeS_TRTimeToBreakCleanedMixedInteger;
      
    F_CountInteger;
      
    F_StringString;

    Const
      
    C_OrangeMakeText 2070783;

    Procedure Wat(W1W2Integer);
    Begin
      Wait
    (RandomRange(W1W2));
    End;

    Function 
    DoCondition(TimeOutWaitPerIntegerFunct: Function: BooleanCondition: Function: BooleanNormalBoolean): Boolean;
    Var
      
    TInteger;
    Begin
      T 
    := GetSystemTime TimeOut;
      If 
    Normal Then
      Begin
        Repeat
          Funct
    ();
          If (
    not Condition()) Then Wait(RandomRange(WaitPerRound(WaitPer 1.5)));
          If (
    GetSystemTime TThen Exit;
        
    Until(Condition())
      
    End Else Begin
        Repeat
          Funct
    ();
          If 
    Condition() Then Wait(RandomRange(WaitPerRound(WaitPer 1.5)));
          If (
    GetSystemTime TThen Exit;
        
    Until(Not Condition())
      
    End;
      
    Result := True;
    End;

    Function 
    MakeItemMenu(TimeOutInteger): Boolean;
    Var
      
    XYTInteger;
    Begin
      
    If Not LoggedIn Then Exit;
      
    Result := FindColorSpiralTolerance(XYC_OrangeMakeTextMCX1MCY1MCX2MCY210);
      If 
    Not Result Then
      Begin
        T 
    := GetSystemTime TimeOut;
        
    Repeat
          
    If Not LoggedIn Then Exit;
          
    Result := FindColorSpiralTolerance(xyC_OrangeMakeTextMCX1MCY1MCX2MCY210);
          
    Wait(100);
          If (
    GetSystemTime TThen Exit;
        
    Until(Result)
      
    End;
    End;

    Function 
    CustomLoginBoolean;
    Begin
      Result 
    := LoggedIn;
      If 
    Result Then Exit;
      If 
    Not LobbyScreen Then
      Begin
        Logout
    ;
        If 
    Not LoginPlayerToLob Then Exit;
      
    End;
      If 
    ChangeWorld(WorldThen
        Result 
    := True;
      
    SetAngle(SRL_ANGLE_HIGH);
    End;

    procedure Debug(MessageString);
    begin
      
    if DebugMode then Writeln(Message);
    end;

    Function 
    LogMeInBoolean;
    Begin
      Result 
    := DoCondition(30000030000, @CustomLogin, @LoggedInTrue);
    End;

    Procedure EndScript(MsgString);
    Begin
      CloseWindow
    ;
      
    Logout;
      
    Writeln(Msg);
      
    TerminateScript;
    End;

    Procedure FailCount(ResetBooleanFTypeString);
    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 DebugModethen 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 GetSystemTime0));
      
    Writeln('_____________________________________________________');
    end;

    Function 
    BreakTimeBoolean;
    begin
      Result 
    := (GetSystemTime TimeToBreak);
    end;

    Procedure TakeBreak;
    begin
      Writeln
    ('Time for a break');
      
    S_TR := S_TR + (GetSystemTime StartTime);

      If 
    BankScreen Then
        DoCondition
    (100001000, @CloseBank, @BankScreenFalse);
      
    DoCondition(300005000, @ExitToLobby, @LobbyScreenTrue);
      
    Wait(RandomRange(30 100060 1000));
      
    DoCondition(300005000, @CustomLogin, @LoggedInTrue);
      
    TimeToBreak := GetSystemTime + (600 60 1000) + RandomRange((-60 1000), (60 1000));

      
    StartTime := GetSystemTime;
    end;

    procedure Mose(XYXrYrIntegerButtonBoolean);
    var
      
    BCInteger;
      
    iButtonInteger;
    begin
      MMouse
    (RandomRange(-XrXr), RandomRange(-YrYr), 00);
      
    Wat(ClickingWaitRound(ClickingWait 1.2));

      If 
    Button Then
        iButton 
    := mouse_left
      
    Else
        
    iButton := mouse_right;

      
    GetMousePos(BC);
      
    HoldMouse(BCiButton);
      
    Wait(RandomRange(5070));
      
    GetMousePos(BC);
      
    ReleaseMouse(BCiButton);
      
    Wat(ClickingWaitRound(ClickingWait 1.2));
    end;

    Function 
    BankItBoolean;
    Var
      
    NTInteger;
    Begin
      
    If Not LoggedIn Then Exit;
      For 
    := 0 to 3 Do
      
    Begin
        
    If BankScreen then Break;
        If 
    OpenBank(WhereToBankTrueTrueThen Break;
        If 
    3 Then Exit;
      
    End;
      If 
    InvCount 0 Then DepositAll;
      Case 
    LowerCase(CleanOrPotsOf
        
    'clean':  Begin
          Writeln
    (GetBankItemAmount(firstMaterial[1], firstMaterial[0]));
          If (
    GetBankItemAmount(firstMaterial[1], firstMaterial[0]) <= 28Then
          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 
    := 0 to 3 Do
          
    Begin
            
    If Withdraw(firstMaterial[1], firstMaterial[0], 0Then Break;
            If 
    3 Then Exit;
          
    End;
        
    End;
        
    'pots'Begin
          Writeln
    (GetBankItemAmount(firstMaterial[1], firstMaterial[0]));
          If (
    GetBankItemAmount(firstMaterial[1], firstMaterial[0]) <= 14Then
          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 
    := 0 to 3 Do
          
    Begin
            
    If Withdraw(firstMaterial[1], firstMaterial[0], 14Then Break;
            If 
    3 Then Exit;
          
    End;
          
    Writeln(GetBankItemAmount(secondMaterial[1], secondMaterial[0]));
          If (
    GetBankItemAmount(secondMaterial[1], secondMaterial[0]) <= 14Then
          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 
    := 0 to 3 Do
          
    Begin
            
    If Withdraw(secondMaterial[1], secondMaterial[0], 0Then Break;
            If 
    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(100200));
      
    Result := True;
    End;

    Function 
    MakeThemBoolean;
    Var
      
    NXYTT2Integer;
      
    OrderTIntegerArray;
      
    TBTBox;
    Begin
      
    If Not LoggedIn Then Exit;
      
    Repeat
        CloseBank
    ;
      
    Until Not BankScreen
      Gametab
    (tab_Inv);
      Case 
    LowerCase(CleanOrPotsOf
        
    'clean':  Begin
          MouseSpeed 
    := RandomRange(4050);
          
    Order := [15913172125262218141062371115192327282420161284];
          For 
    := 0 to 27 Do
          
    Begin
            TB 
    := InvBox(Order[N]);
            If 
    FindColor(XYsrl_outline_blackTB.x1TB.y1TB.x2TB.y2Then
              Mose
    (Round((TB.X1 TB.X2) / 2), Round((TB.Y1 TB.Y2) / 2), 55True);
          
    End;
          
    Cleaned := Cleaned 28;
        
    End;
        
    'pots'Begin
          MouseSpeed 
    := RandomRange(4050);
          
    InvMouse(14mouse_left);
          
    Wat(100250);
          
    InvMouse(15mouse_left);
          If 
    Not MakeItemMenu(5000Then Exit;
          
    := InvCount;
          
    Mose(2604302010True);
          
    := GetSystemTime 35000;
          
    T2 := GetSystemTime;
          
    Repeat
            
    If InvCount N Then
              T2 
    := GetSystemTime;
            
    := InvCount;
            
    Wat(50100);
            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(150500));
      
    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 LogMeInthen EndScript('Could not login pre-loop');
      
    MakeCompass('W');
      
    SetAngle(SRL_ANGLE_HIGH);
      
    TimeToBreak := GetSystemTime + (330 60 1000) + RandomRange((-60 1000), (60 1000));
      
    StartTime := GetSystemTime;
      
    Repeat
        
    If (Not LogMeInThen 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

  3. #953
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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!

  4. #954
    Join Date
    May 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Foooty View Post
    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:
    ...
    It doesn't work. Same issue as here -

    Quote Originally Posted by Megahit View Post
    Ok I got it to work, but the script sadly doesn't. It does everything well until it gets to ''MakeitemMenu'' where it clicks abit higher than it needs to. Any clues on how to fix this?

  5. #955
    Join Date
    Mar 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got the fix to run with the code , but none of my scripts work... Are they all out of date now or ?

  6. #956
    Join Date
    Dec 2011
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  7. #957
    Join Date
    Dec 2011
    Location
    U.S.A.
    Posts
    635
    Mentioned
    5 Post(s)
    Quoted
    249 Post(s)

    Default

    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.

  8. #958
    Join Date
    Feb 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sawyer View Post
    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 didn't' think MSI had a Dwarven miner script.
    Did you target the window by dragging the crosshairs from Simba over to the client window?

  9. #959
    Join Date
    Dec 2011
    Location
    U.S.A.
    Posts
    635
    Mentioned
    5 Post(s)
    Quoted
    249 Post(s)

    Default

    I mean Mining guild miner. Oops I did. it would look up stats, ect., but it wouldn't recognize I was already in the mining guild.

  10. #960
    Join Date
    Jun 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Foooty View Post
    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.


    Footy, tyvm, u made me understand how to edit scripts, and now i've got a script working, thank you very much!

  11. #961
    Join Date
    Jun 2012
    Posts
    712
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still can't bank with my script; it doesn't click on the bank anymore its off by alot.

  12. #962
    Join Date
    Feb 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by po2n star View Post
    Still can't bank with my script; it doesn't click on the bank anymore its off by alot.
    Change the coordinates of the procedures that are "off by a lot."
    Add 50 to each Y-value coordinate. Then you have your fix.

  13. #963
    Join Date
    May 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by klamse View Post
    Change the coordinates of the procedures that are "off by a lot."
    Add 50 to each Y-value coordinate. Then you have your fix.
    Thanks, got my script working now

  14. #964
    Join Date
    Jul 2012
    Location
    At home, bro.
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  15. #965
    Join Date
    Jan 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    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...

  16. #966
    Join Date
    Jun 2012
    Posts
    46
    Mentioned
    1 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Faab68 View Post
    Footy, tyvm, u made me understand how to edit scripts, and now i've got a script working, thank you very much!
    Hey i also got the script workin for me but the safemode item glitch is messin me up. My herbs will disappear after a few loads of cleaning. I tried clearing my cache but its not helping. How did u fix this problem faab?

  17. #967
    Join Date
    Nov 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    safemode glitch is intentional, jmod already posted that they are not going to fix it, they want us to use different video mode

  18. #968
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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!

  19. #969
    Join Date
    Jun 2012
    Posts
    46
    Mentioned
    1 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Foooty View Post
    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
    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.

  20. #970
    Join Date
    Nov 2011
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Foooty View Post
    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
    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.

  21. #971
    Join Date
    Jun 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  22. #972
    Join Date
    May 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  23. #973
    Join Date
    Mar 2007
    Location
    USA
    Posts
    1,433
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by karlita007 View Post
    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 can always just re-install Proper fix should be out very soon.
    I'm Silent SPY
    Secret project: 0%
    Need help? Send me a PM

  24. #974
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  25. #975
    Join Date
    Jun 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

Page 39 of 54 FirstFirst ... 29373839404149 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •