Results 1 to 4 of 4

Thread: Dropping help again....

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Dropping help again....

    Right most of u know i took some parts of other scripts and put them into mine BUT i have delted them and scripting properly i have JADS antiban and decided not to take his randoms i used whiteshadows random guide here it it is.when it has a full load it rune away then runs back to the mine then it carrys on minning and dont drop please help even ask JAD i pmed him asking


    SCAR Code:
    program MyPoperAutoMiner;
    {.include SRL\SRL.scar}

    //JAD antiban and randoms all credit for antiban and randoms goes to him!



    const
      RockWait = 2000;
      StartPlayer    =    0; // The Number of the player that has to start.
      NumberOfUsers  =    1; // How many players you are using.
      RockColor = 4351629;
      RudeboiProggy = true;//True for proggy report
      DirToRun = 'N';
      Loads = 1;
      FindGas = True;

    Procedure  DeclarePlayers;
    Begin
         HowManyPlayers := NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Active:=True;

     end;

    procedure Miner;

    begin

      repeat

        FindColorSpiral(x, y, RockColor, 3, 3, 515, 336)

        MMouse(x, y, 3, 3)

        IsTextAt2(9, 9, 'Mine', 20)

        Mouse(x, y, 2, 2, True)

        Wait(RockWait + Random(700))

      until(InvFull)

      if(InvFull = True)then
    end;


    function Randoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;



    function DoAntiBan: Boolean;
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;

    procedure dropallores;
    begin
    If(invfull)then
    begin
    dropto(2,28)
    end;
    end;




    var
      LoadsNum: Integer;
      Ores: Integer;

    procedure rudeboireport;
    begin
      if (RudeboiProggy = False) then
        Exit;
      if (RudeboiProggy = true) then
      begin
        ClearDebug;
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
        Writeln('0o0o0o0o0o0o--RudeboiProggy--o0o0o0o0o0o0o0o0o0');
        Writeln('  Worked For : ' + ScriptTime2(2) + '         ');
        Writeln('--------------------------------------------');
        Writeln('  did ' + IntToStr(LoadsNum) + ' Loads' + '    ');
        Writeln('--------------------------------------------');
        Writeln('  Mined ' + IntToStr(Ores) + ' ores' + '        ');
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
      end;
    end;


    begin

      SetupSRL;

      repeat

        Miner;
        randoms;
      until(False)

    end.

  2. #2
    Join Date
    Jul 2006
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if that doest work just make a ore dtm and have it drop all ores you'll also save gems
    "your always where you supposed to be"

  3. #3
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How i use DTM like inlcude it were and how i make 1?

  4. #4
    Join Date
    Jul 2006
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    theres a great!! tut with pics and stuff on tut island
    "your always where you supposed to be"

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with dropping
    By dallas574 in forum OSR Help
    Replies: 3
    Last Post: 07-24-2008, 05:13 PM
  2. Dropping By DTM
    By ammo2006 in forum OSR Help
    Replies: 2
    Last Post: 09-17-2007, 12:11 AM
  3. Dropping
    By hardman in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-01-2007, 02:47 PM

Posting Permissions

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