Results 1 to 6 of 6

Thread: Toy Mice, updated!

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Toy Mice, updated!

    Well, I think I did a better job then the other guy, this can use as MANY mice as you feel is necessary. Wound is if your mice are wound before the script is started, true for yes false for no. MouseNumber is how many mice you have.

    SCAR Code:
    //<========================================================>
    //<=======================AGILE MOUSE!=====================>
    //<===========FAST Agility trainer Created By...===========>
    //<======================YWV MASTER========================>
    //<========================================================>

    //Make sure to read the instructions on my post!

    program AgileMouse;
    {.include SRL/SRL.scar}
    Const
    MouseNumber=7;//Chance Depending on how many mice you are using
    Username=''; //username
    Password=''; //password
    MouseColor=16185079; //Pick the WHITE part of the mouse in your inventory.
    LadderColor=6062752;//Pick the most common color of the ladder.
    Wound=True; //Are your mice wound?
    /////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////
    Var
    c, x, y : integer;

    /////////////AntiRandom///////////////////////////////////////
    Procedure AntiRandoms;
    Begin
      Findnormalrandoms;

    End;



    ////////////////////////////////////////////////////////////////
    ////////////////Turns MiniMap///////////////////////////////////
    procedure Map;
    begin
      MakeCompass('S');
      AntiRandoms;
    end;
    ////////////////////////////////////////////////////////////////
    ///////////////Winds Up Mice////////////////////////////////////
    Procedure OpenInv;
    begin
    c:=0
    repeat
    begin
        c:=c+1
        MouseItem(c, true)
        AntiRandoms;
        end;
    until(c=mousenumber)
      end;
    ////////////////////////////////////////////////////////////////
    //////////////Releases Mice/////////////////////////////////////
    Procedure DropMice;
    Begin
    c:=0
        repeat
        c:=c+1
        MouseItem(c, false)
        ChooseOption('elease')
        until(c=mousenumber)

    end;
    /////////////////////////////////////////////////////////////////
    ///////////////Picks up Mice/////////////////////////////////////
    procedure PickEmUp;
     begin
       if FindObj(X, Y, 'Pick-up', MouseColor, 20) then
        begin
         Wait(100+random(50));
         Mouse(x,y,0,0,true);
       end else
           if FindObj(X,Y,'Take', MouseColor, 10) then
           Wait(100+random(50));
           Mouse(x,y,0,0,true);
     end;
    ////////////////////Fight Finder/runner/////////////////////////
    Procedure Fight;
    begin
      if FindFight then
        begin
           if FindObj(X, Y, 'Climb-Down', LadderColor, 20) then
             Mouse(x,y,0,0,true);
             Wait(10000+random(2000));
           if FindObj(x,y,'Climb-Up',LadderColor,20) then
             Mouse(x,y,0,0,true);
       end;
    end;
           


    ///////////Main Loop/////////////////////////////////////////////
    begin
      setupsrl;
      numberofplayers(1);
      players[0].name := Username;
      players[0].pass := Password;
      Players[0].active := true
      loginplayer;
      Map;
      if(wound)then
      AntiRandoms;
      DropMice;
      repeat
      PickEmUp;
      until(ExistsItem(MouseNumber))
    Repeat
      OpenInv;
      AntiRandoms;
      DropMice;
      repeat
      PickEmUp;
      FindNormalRandoms;
      until(ExistsItem(MouseNumber))
      AntiRandoms;
      Fight;
      until(false)
    end.

    Have fun!

  2. #2
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First Post.

    Why do you have the player array all weird?
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    your the second one wich comes with a update of that script...

    why don't you guys make it better with multi player and stuff?


  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dude your thing does the same as the old one did and now i got a very good finding anti-ban and antirandoms but still nice try! i dotn say mine is better but it looks like the same :s
    edit:
    i looked at yours and now i see you almost did nothing(i got nothing against you!) mines is updated more and uses better finding yours can sue more mouses but mines wont loose the so more mouses is not needed

  5. #5
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT:

    Well, you said it, I say it. Check out my script, slightly better than this guy's.
    Link is in sig.

    Meh, hes banned anyway, he can't harm me.

  6. #6
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hermpie View Post
    dude your thing does the same as the old one did and now i got a very good finding anti-ban and antirandoms but still nice try! i dotn say mine is better but it looks like the same :s
    edit:
    i looked at yours and now i see you almost did nothing(i got nothing against you!) mines is updated more and uses better finding yours can sue more mouses but mines wont loose the so more mouses is not needed
    No, I changed around the drop/wind procedures, and added more antirandoms. This should solve ever random almost as soon as it comes up.

    @Rich, it is like that because it was like that in the original script, I don't feel like wasting time on it lol.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. RS Had Updated
    By nhstarter10 in forum News and General
    Replies: 24
    Last Post: 02-13-2008, 08:49 PM
  2. is rs being updated??
    By TheSantaMan in forum RuneScape News and General
    Replies: 2
    Last Post: 01-23-2008, 02:00 AM
  3. Agile Mice
    By Narcle in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 12-03-2007, 04:31 AM
  4. Updated Again
    By I Pick Axes in forum RS has been updated.
    Replies: 4
    Last Post: 10-13-2006, 05:19 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
  •