Results 1 to 6 of 6

Thread: Need Help For Script

  1. #1
    Join Date
    Jul 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help For Script

    //<================================================= =======>
    //<=======================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=14;//Chance Depending on how many mice you are using
    Username='Username'; //username
    Password='Password'; //password
    MouseColor=16185079; //Pick the WHITE part of the mouse in your inventory.
    LadderColor=0000000;//Pick the most common color of the ladder.
    /////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////
    Var InvSlot: Integer;
    Release: Integer;
    Inv2Slot: Integer;

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

    End;



    ////////////////////////////////////////////////////////////////
    ////////////////Turns MiniMap///////////////////////////////////
    procedure Map;
    begin
    MakeCompass('E');
    AntiRandoms;
    end;
    ////////////////////////////////////////////////////////////////
    ///////////////Winds Up Mice////////////////////////////////////
    Procedure OpenInv;
    begin
    ClickAllItemsColorWait('Wind',MouseColor, 100);
    AntiRandoms;
    end;
    ////////////////////////////////////////////////////////////////
    //////////////Releases Mice/////////////////////////////////////
    Procedure DropMice;
    Begin
    ClickAllItemsColorWait('Release',MouseColor, 300);

    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;
    loginplayer;
    Map;
    Repeat
    DropTo(15,28);
    OpenInv;
    AntiRandoms;
    DropMice;
    repeat
    PickEmUp;
    until(ExistsItem(MouseNumber))
    AntiRandoms;
    Fight;
    until(false)
    end.













    When it compiles it gets an error with the "ClickAllItemsColorWait" my idea is old includes. where can i find the information to replace old script

    This is not my script i found in first scripts.

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  3. #3
    Join Date
    May 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LOL that old thing? I don't think I knew enough to get it to compile when I was 'done' with it like 2 years ago haha! Does mouse catching still give good agility xp?

  4. #4
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  5. #5
    Join Date
    May 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You have to do it in a spot that only has 1 or two spots for them to run, like the top tower in Fally castle.

  6. #6
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

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
  •