Results 1 to 12 of 12

Thread: Please need dropping procedure

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

    Default Please need dropping procedure

    SCAR Code:
    program MyWorkingPowerMiner;
    {.include SRL\SRL.scar}
    //JAD antiban is in here credits for that goes to him
    //Ore Color needed on line 23
    //Mannal ore color is better
    //Must were weildable pick

    //CopperColor       = 4286610;
    //TinColor          = 9277080;
    //ClayColor         = 4553880;
    //IronColor         = 1910851;
    //SilverColor       = 12434885;
    //CoalColor         = 2834753;
    //GoldColor         = 1881051;
    //MithrilColor      = 7359564;
    //AdamantColor      = 6322272;
    //RuniteColor       = 8681306;


    const
      RockWait = 6000;//Time to hit rock again change if to fast
      NumberOfUsers = 1;//can only do one 1 at the moment
      StartPlayer = 0;//Cant be anything else at the moment
      RockColor = 4747162;//use ore color above for what u want to powermine
      Loads = 2;//How many loads to do
      DropCeptPick = false; //if set to true then it will drop everything except
                        //pick. if false will use DTM's to only drop ores.
      RunDir         =    'S'; // RunDirection, choose it wisely.
    {--------------------------------------------------------

    Procedure DeclarePlayers;

    --------------------------------------------------------}


    Procedure DeclarePlayers;

      Begin
         HowManyPlayers := NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
      // delete the player forms you are not using or it wont work
     
     
     
      Players[0].Name :='Username';//Username here
      Players[0].Pass :='Password';//Password here
      Players[0].Nick :='3-4letters of youre username';//3 Lowercase letters of youre name
      Players[0].Active:=True;

      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := True;


      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;

      Players[3].Name := 'UserName';
      Players[3].Pass := 'Password';
      Players[3].Nick := '3-4 letters of UserName';
      Players[3].Active := True;
     
      Players[4].Name := 'UserName';
      Players[4].Pass := 'Password';
      Players[4].Nick := '3-4 letters of UserName';
      Players[4].Active := True;


      Players[5].Name := 'UserName';
      Players[5].Pass := 'Password';
      Players[5].Nick := '3-4 letters of UserName';
      Players[5].Boolean1 := True;

    end;
    procedure Miner;

    begin

      repeat

        FindColorSpiral(x, y, RockColor, 14, 19, 495, 325)

        MMouse(x, y, 3, 3)

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

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

        Wait(RockWait + Random(300))

      until(InvFull)

      if(InvFull = True)then
    end;

    procedure Randoms;
    begin
      TalkToRand;
      FindNormalRandoms;
      if (FindFight) then
      begin
        RunWhere(RunDir, false);
        Wait(10000 + random(200))
          RunBack;
      end;
      begin
        RunWhere(RunDir, false);
        Wait(2000 + random(1000));
        RunBack;
        WriteLn('Waiting For Gas to Stop ..');
        Wait(10000 + random(2000));
      end;
      if (FindNewBox) then
      begin
        writeln('Found Strange Box Trying To Solve..')
          OpenBox;
        SolveBox;
        wait(1000);
      end;
      if (FindNewBox) then
      begin
        GambleNewBox;
      end;
      if (FindNewBox) then
      begin
        LogOut;
        Writeln('Unable To Solve Box....Terminating');
        TerminateScript;
      end;
      begin
        LoadSandArray;
        LoadSWBitMaps;
        SetupSandwich;
        ReleasesandWich;
        GetSandQuestion;
        SolveSandwich;
        SolveFrog;
      end;
    end;


    procedure ProgressReport;
    var
    clicks: integer;
    begin
    ClearDebug;
       Writeln('[]========================================[]');
        Writeln('---------------->Thanks for using my scripty<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
        Writeln('[]========================================[]');
    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 Dropore;
    begin
    DropAll;
    end;

    begin

      SetupSRL;

      repeat

      DeclarePlayers;
        Miner;
        LoadSandArray;
        LoadSWBitMaps;
        SetupSandwich;
        ReleasesandWich;
        GetSandQuestion;
        SolveSandwich;
        SolveFrog;
        ProgressReport;
        Dropore;

      until(False)

    end.
    Mine wont work help please +rep

  2. #2
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if your pick is in first slot
    SCAR Code:
    dropto(2,28)

    if your wielding your pickaxe
    SCAR Code:
    dropall;
    or
    SCAR Code:
    dropto(1,28)

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

    Default

    Tryied it didnt work check out my script now it dont drop thought -.- i need help please

  4. #4
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    o... i get it

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

    you can change dropto(2,28) to which ever one you want.


    dropto(2,28)
    dropto(,1,28)
    or
    dropall;

    dropto(1,28) drops from the start inv slot "1" until the destination slot is reached "28"

  5. #5
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    rudeboialex, do you have Wizzup's permission to take all these procedures from his powerminer?

  6. #6
    Join Date
    Dec 2006
    Location
    Helsinki, Finland
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I doubt it. Also rudeboi's auto-talker is copied from dagger's one

  7. #7
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    rudeboialex, You can't steal other guys works....

  8. #8
    Join Date
    Dec 2006
    Location
    Helsinki, Finland
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Atleast don't claim them as ur own and always credit the scripters

  9. #9
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    I just came from a thread where someone got flamed like crazy for taking someone else's procedures; you might want to 'un-plagiarize' that script before it happens to you too
    Interested in C# and Electrical Engineering? This might interest you.

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

    Default

    Sorrrrrrry evryoneeeeeeeeee im gonna start scripting alll over again delete all my scripts make them 100% myselve but i need to read an srl tut again -.-

  11. #11
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    lol you playgerize?

    omg thats gonna kill you in the future

    They are sisters...
    Runescape Classic

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

    Default

    Well sorta but im delteing it and become a proper scripter does that count lol

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. SmartDrop - Advanced dropping procedure
    By mixster in forum Research & Development Lounge
    Replies: 2
    Last Post: 05-08-2008, 08:51 PM
  2. Dropping procedure not working correctly
    By HyperSecret in forum OSR Help
    Replies: 0
    Last Post: 04-17-2008, 05:16 AM
  3. Replies: 13
    Last Post: 04-12-2008, 05:32 PM
  4. need scar procedure for dropping
    By poolikemax in forum OSR Help
    Replies: 2
    Last Post: 02-07-2008, 09:31 AM

Posting Permissions

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