Results 1 to 3 of 3

Thread: CheckMiner (IronOre)

  1. #1
    Join Date
    Dec 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default CheckMiner (IronOre)

    Features:

    AntiBan,
    Mines Iron Ore,
    Not much but yea..
    On my next scripts I am going to put more effort & thought into making scripts that will actually benefit the community.

    More of a script for if your on youtube etc, drop ores manually

    Code:
    //*******************************************************************
    //Credits to YoHoJo
    //Check his youtube for the guide I used
    //www.youtube.com/YoHoJoSRL
    //This isn't the best script in the world more as a 'First Script'
    //*******************************************************************
    
    //*******************************************************************
    //\\ Info
    //This Script was made in about 30 minutes don't expect much*********
    //Works very well in Ardougne (Ne) Mining Spot***********************
    //*******************************************************************
    
    //*******************************************************************
    //\\ Things to be added in future
    //Dropping
    //Clicking closest object to Character*******************************
    //*******************************************************************
    
    program CheckMiner;
    
    //{$DEFINE SMART}
    {$i srl/srl.Simba}
    {$i sps/sps.simba}
    
    Const
      Members =           True;
      Server =            54;
      NumbOfPlayers =      1;
      StartPlayer =        0;
    
    procedure DeclarePlayers();
      begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name        := '';              // Your RuneScape Account Name
        Pass        := '';              // Your RuneScape Account Password
        Active      := True;            // Use in the Script. True / False.
         end;
    end;
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;
    Procedure Antiban;
    Begin
      Case Random(150) Of    //// Lower 150 for higher chance of AntiBan happening
        0: HoverSkill('Mining', False);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv;
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;
    Function MineDatOre:Boolean;
    Var
      bX, bY, PlusOne, MineCounter: Integer;
    Begin
      PlusOne:=InvCount+1;
      if FindObjCustom(bX, bY, ['Mine', 'Rocks'], [2635357, 2701151], 10) Then
    Begin
      StatsGuise('STATUS] Currently: Mining');
      GetMousePos(bX, bY);
      Case Random(2) Of
      0: Mouse(bX, bY, 5, 5, True);
      1: Begin
            Mouse(bX, By, 5, 5, False);
            WaitOption('Mine', 500);
        end;
    end;
     Repeat
      MarkTime(MineCounter);
      Antiban;
      Wait(100);
     if InvCount=Plusone Then
      Writeln('Just Mined an Iron Ore');
      Until (InvCount=Plusone) Or (TimeFromMark(MineCounter) > 9000)
    
    end;
        end;
    
    
    
    
    
    
    begin
    SetupSrl;
    DeclarePlayers;
    repeat
    MineDatOre
    until(false);
    
    end.

  2. #2
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Please Replace the [CODE][ /CODE] tags with [SIMBA][ /SIMBA]

  3. #3
    Join Date
    Jan 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i run it, it checks bank and everything then logs me out with this.

    Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    Status: | SRL Randoms Report |
    Status: | www.villavu.com |
    Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    {----------------------------------------------------------------}
    { MSI Phoenix Short Report }
    {----------------------------------------------------------------}
    { Time Running: 2 Minutes and 51 Seconds }
    {----------------------------------------------------------------}
    { }
    { Totals: }
    { - Players: 1 }
    { - Player Time: 00s }
    { }
    {----------------------------------------------------------------}
    {----------------------------------------------------------------}

    {----------------------------------------------------------------}
    { MSI Phoenix Player Report }
    {----------------------------------------------------------------}
    { Time Running: 2 Minutes and 51 Seconds }
    {----------------------------------------------------------------}
    { }
    { Player 0: dontneedtoknowthis, lol }
    { Location: Powerskilling }
    { Time: 00s }
    { Active: False }
    { Reason: Failed to setup player }
    { }
    { Script: Powerminer }
    { Time: 00s }
    { Skill: Mining }
    { Exp: 0 }
    { Level: 38 }
    { Loads: 0 }
    { }
    {----------------------------------------------------------------}
    {----------------------------------------------------------------}

    how can i fix this?

Thread Information

Users Browsing this Thread

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

Posting Permissions

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