Results 1 to 4 of 4

Thread: SuperBatman's Chitty Iron Miner and Dropper!!!!

  1. #1
    Join Date
    Jan 2009
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SuperBatman's Chitty Iron Miner and Dropper!!!!

    Well, yeah, id say its pretty chitty, seeing as its my second script that i made about 3 months ago. I just started using it on an account a week ago, and im lvl 69 mining, hopping to get 70 by tomorow. I thought it did better than i expected, so im posting it here.

    Features:
    -Anti Randoms(Well, the SRL antirandoms dont really work =p);

    Lolz, thats pretty much it. No antiban, no multiplayer... Oh, it is SMART though.

    OverView:
    -If your like me, and have 1 player, and your just looking for that first warning offense, but some fast mining xp(15-20k per hour) this is the script for you!! It will run anywhere from 20 minutes to 4 hours, it will pretty much stop on the first random. Features like MultiPlayer and AntiBan Could be easily added. NOTE: It will go to the first Rock Color it finds, it does not use FindColorsSpiral, just FindColorTolerances.
    -You Must Wield a Fire Staff... otherwise it wont detect when not mining.


    I used Scar 3.15B, not sure what rev. I was fairly satisfied with it.

    BestProggy:
    Code:
    ######################################
    #SuperBatmans''s Miner Thing
    #Xp gained: 60480
    #Time Running: 3 Hours, 16 Minutes and 0 Seconds
    KNOWN BUGS:
    - Doesnt Find Gems, Kinda Inacurate XP COunter, no pick head finder =p

    Conclusion:
    -It pretty much stinks compared to other scripts, but seeing as this was my second or third script i ever wrote, im hapy with it.

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program TempMiner;
    {.include SRL/SRL/Misc/SMART.scar}
    {.include SRL/SRL.scar}

    var
      RockColour: Array[0..5] of integer;
      RockColour2: Array[0..2] of Integer;
      x, y, CF, t, xp, CP, Loads: integer;

    const
      FireStaff = 1715413;
      LoadsToDo = 20;
      RestTime = 30;
      SwitchPlayers = True;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := CP;
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    procedure SetupColors;
    begin
      RockColour[0]:=2832734;
      RockColour[1]:=2701146;
      RockColour[2]:=2239818;
      RockColour[3]:=2898785;
      RockColour[4]:=2767197;
      RockColour[5]:=3096424;
      RockColour2[0]:=2174023;
      RockColour2[1]:=4744831;
      RockColour2[2]:=1712953;
    end;

    procedure MineThaRocks;
    var
      i: integer;
    begin
      if(not(LoggedIn))then
      begin
        Writeln('not logged in');
        TerminateScript;
      end;
      if(not(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5)))then
      begin
        repeat
         FindNormalRandoms;
         if(not(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5)))then
           begin
             Inc(i);
           end;
           Wait(200+Random(300));
           if(i = 6)then
           begin
             Writeln('could not find rock colour');
             TerminateScript;
           end;
        until(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5));
        Mouse(x, y, 6, 6, True);
      end;
      if(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5))then
      begin
        i := CF;
        FindNormalRandoms;
        Mouse(x, y, 6, 6, True);
      end;
    end;

    function NotMining: Boolean;
    begin
      if(FindColorTolerance(x, y, FireStaff, MSX1, MSY1, MSX2, MSY2, 5))then
      begin
        Result := True;
      end;
    end;

    procedure DropOres;
    var
      i: integer;
    begin
      if(ExistsItem(28))then
      begin
        if(not(FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5)))then
        begin
          if(ExistsItem(28))then
          begin
            Writeln('cannot find ore');
            TerminateScript;
          end;
        end;
        if(FindColortolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5))then
        begin
          repeat
            FindNormalRandoms;
            FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5);
            Mouse(x, y, 4, 4, False);
            Wait(50+Random(100));
            ChooseOption('rop');
            Wait(100+Random(300));
          until(not(FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5)));
          IncEx(xp, 945);
          Inc(Loads);
        end;
      end;
    end;

    procedure Proggy;
    begin
      ClearDebug;
      Writeln('######################################');
      Writeln('#SuperBatmans''s Miner Thing');
      Writeln('#Xp gained: '+ inttostr(xp));
      Writeln('#Time Running: '+TimeRunning);
    end;

    procedure PDisguise;
    var
      d: integer;
    begin
      case 3 of
        0: begin
             Disguise('SuperBatman''s Miner');
             Inc(d);
           end;
           
        1: begin
             Disguise(IntToStr(xp)+' XP Gained');
             Inc(d);
           end;
           
        2: begin
             Disguise('Running for '+TimeRunning);
             d := 0;
           end;
      end;
    end;

    begin
      SMARTSetUpEX(55, False, True, False);
      SetTargetDC(SMARTGetDC);
      SetupSRL;
      SetupColors;
      DeclarePlayers;
      Wait(10000+Random(5000));
      SetAudioOff;
      Wait(200+Random(300))
      LoginPlayer;
      GameTab(7);
      Wait(200+Random(200));
      SetAngle(True);
      Wait(200+Random(200));
      MakeCompass('n');
      Wait(300+Random(300));
      GameTab(4);
      Disguise('SuperBatman''s Miner');
      repeat
        PDisguise;
        FindNormalRandoms;
        if(not(FindColorTolerance(x, y, RockColour[CF], MSX1, MSY1, MSX2, MSY2, 5)))then
        begin
          repeat
            Wait(100+Random(200));
            Inc(t);
            if(t > 300)then
            begin
              Writeln('Could not find Rock Colour');
              TerminateScript;
            end;
          until(FindColorTolerance(x, y, RockColour[CF], MSX1, MSY1, MSX2, MSY2, 5));
          t := 0;
        end;
        MineThaRocks;
        Wait(500+Random(1000));
        repeat
          Wait(300+Random(200));
          Proggy;
        until(NotMining);
        DropOres;
      until(False);
    end.

    standardized and changed the Disguise to a case cuz I was bored

    and moved the DeclarePlayers to the beginning..

    your Main Loop looks a little weird (some things should be in different places) but if it works, it's fine

    keep it up

    (btw, your pass was in script and I was gonna change it for you but it didn't work.. so if it's stolen I didn't do it)

  3. #3
    Join Date
    Mar 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Next time you post a script make sure youre password is not in it and you might place the declare players as first procedure that way its easier to use

  4. #4
    Join Date
    Jan 2009
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What did the pass say? ( PM me it plz) i could have sworn that i changed that right before i saved it.... Oh well.... It got me 70 mining today!

    Edit: Wow wait... i just saw that you wrote inc(t); is that like c's t++? ive been looking for something like that!
    Last edited by superbatman; 03-28-2009 at 05:54 PM.

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
  •