Results 1 to 6 of 6

Thread: More dropping help

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

    Default More dropping help

    I need help with another dropping procedure this script is not complete will add antiban and randoms + much more DTMS or bitmaps will be aprreciated
    I left a gap for dropping procedure alsos please help with the mining procedure it says identifier expeted in script at the until bit


    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}

    //JADS AnitBan Credit Goes To Him.

    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RudeProggy = True;//Use My Proggy Please For Reports.
    Color = 4418452;//The Color Of The Ore You Want To Mine.
    ClickRock = 5000;//How Long To Click Again

    Procedure DeclarePlayers;

    //If Not Using Any Left Over Players Delete There Forms.


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

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


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


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


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

    end;

    Procedure FindRocks;
    Begin
    If
    (FindColorSpiral(x,y,Color,2,2,418,304)) Then
    Begin
    Writeln('Found Ore Now Starting Script')
    End Else
    Writeln('Didnt Find Ore');
    end;


    Procedure MineRocks;
    Begin
    if
    (findColorSpiral(x,y,Color,2,2,418,304)) Then
    MMouse(x,y,3,3)
    IsTextAt2(9,9,'Mine',20)
    Mouse(x,y,2,2,True)
    Wait(ClickRock + Random(500))
    until(InvFull)
    if(InvFull = True)then
    end;


    Procedure DropOres;
    Begin
    End;




    Begin
    SetupSRL;
    DeclarePlayers;
    FindRocks;
    MineRocks;
    DropOres;
    end.

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

    Default

    it needs to say repeat where you want to start until loop look in script


    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}
     
    //JADS AnitBan Credit Goes To Him.
     
    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RudeProggy = True;//Use My Proggy Please For Reports.
    Color = 4418452;//The Color Of The Ore You Want To Mine.
    ClickRock = 5000;//How Long To Click Again
     
    Procedure DeclarePlayers;
     
    //If Not Using Any Left Over Players Delete There Forms.
     
     
      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
     
         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Active:=True;
     
     
         Players[1].Name :='';
         Players[1].Pass :='';
         Players[1].Nick :='';
         Players[1].Active:=True;
         
         
         Players[2].Name :='';
         Players[2].Pass :='';
         Players[2].Nick :='';
         Players[2].Active:=True;
     
     
         Players[3].Name :='';
         Players[3].Pass :='';
         Players[3].Nick :='';
         Players[3].Active:=True;
     
     
         Players[4].Name :='';
         Players[4].Pass :='';
         Players[4].Nick :='';
         Players[4].Active:=True;
     
    end;
     
    Procedure FindRocks;
    Begin
    If
    (FindColorSpiral(x,y,Color,2,2,418,304)) Then
    Begin
    Writeln('Found Ore Now Starting Script')
    End Else
    Writeln('Didnt Find Ore');
    end;
     
     
    Procedure MineRocks;
    Begin
    //repeat
    if
    (findColorSpiral(x,y,Color,2,2,418,304)) Then
    MMouse(x,y,3,3)
    IsTextAt2(9,9,'Mine',20)
    Mouse(x,y,2,2,True)
    Wait(ClickRock + Random(500))
    until(InvFull)
    if(InvFull = True)then
    end;
     
     
    Procedure DropOres;
    Begin
    End;
     
     
     
     
    Begin
    SetupSRL;
    DeclarePlayers;
    FindRocks;
    MineRocks;
    DropOres;
    end.
    "your always where you supposed to be"

  3. #3
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Just use Drop(2,28) if you don't have the pick equipped and Dropall if you do


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

    Default

    Also, you don't have to have:
    Code:
    until(InvFull)
    if(InvFull = True)then  <----------
    end;
    It will just look better and improve on scripting ability appearance.

  5. #5
    Join Date
    Feb 2007
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Drop Drop(2,28) is not a good idea
    Maybe theres a valuable item in bag ?
    Better make ore and clay masks

    See tut
    http://www.villavu.com/forum/showthread.php?t=6129

    Ill help you with that when ill return

    Just checked the Wizzups miner and saw that there's alreaddy special procedure for ore dropping

    ClickAllItemsBmpMaskTolWait('rop', Ore, 20, 25, 30+Random(30));

    Include srl/srl/skill/mining.scar and add SetupSRLMining to your main loop

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

    Default

    I dont need anymore i done it myself I added the the mine rocks procedure iin the drip procedure and it works

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
  •