Results 1 to 6 of 6

Thread: Gnome Agility Runner

  1. #1
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Gnome Agility Runner

    YAY! Ive finally finished most of my Gnome Agility Course runner script.
    This is the first script I've ever made (except for that Auto-Talker everyone makes when they frist learn scripting )

    There are a few more things I want on this script,
    I want to make it stop running after a certain amount of laps, which you can change in;
    PHP Code:
    const
    NumberOfLaps='60' 
    or something similar.
    I was wondering if someone had something similar from another script with I could use and credit

    Also.. i was wondering if there was a procedure that checks for the level up message that appears in the chatbox, and clicks it to make it go away.
    Because its screwing up my script as alot of my timings are triggered by the (InChat=) function, and that doesnt work if its all covered up

    anyway heres my script

    SCAR Code:
    /////////////////////////////////////////////////////////////////////
    //                                      ________                   //
    //                       ____    ____  /  _____/                   //
    //                      /    \  / __ \/   \  ___                   //
    //                     |   |  \|  ___/\    \_\  \                  //
    //                     |___|  / \___  >\______  /                  //
    //                          \/      \/        \/                   //
    //                                                       V. BETA 1 //
    /////////////////////////////////////////////////////////////////////
    //                   This is my frist ever script.                 //
    //                 Special thanks to the SRL-forums                //
    //                And to everyone that helped me there             //
    //                              srl-forums.com                     //
    /////////////////////////////////////////////////////////////////////

                                program agilrun;
                            {.include SRL/SRL.scar}
    {
                                   Very-Bright
                           Start just north of the log
                          (on the agility symboy works :D)

       To-Do List
         *Auto-Login
         *Fix the Level-Up bug
         *Anti-Ban
         *Make "NumberOfLapsToDo" feature
                         
    }

    const  // Change colours here if you wish, should work as is tho.
     LogColor         = 9794;
     NetColor         = 6385808;
     BranchColor      = 3959683;
     RopeColor        = 5997215;
     TreeColor        = 3167850;
     Net2Color        = 5730440;
     PipeColor        = 7436416;

    var
     Laps:integer;
     rx, ry:integer;


    procedure FindLog; //Log Procedure.
    begin
     repeat
      Status('Searching for Log');
      wait(50);
      FindObjMultiText(x,y,'ross','ross','ross',LogColor,4);
      wait(300+(200));
      MMouse(x,y,2,2);
     until(IsUpText('ross'));
     if(IsUpText('ross'))then
      begin
       Status('Found Log');
       Mouse(x,y,2,2,true);
       LowestAngle;
      end
     begin
      repeat
      wait(50);
      Status('Waiting to cross the log...');
      until(InChat('ou make it safely to the other side'));
     end;
    end;




    procedure FindNet; //Find Net.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',NetColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindNet;
     begin
      repeat
      wait(50);
      Status('Climbing the netting...')
      until(InChat('climb the netting'))
     wait(1500+(700))
     HighestAngle;
     end;
    end;

    procedure FindBranch; //Find Branch.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',BranchColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindBranch;
     begin
      repeat
      wait(50);
      Status('Climbing the Branch...')
      until(InChat('the platform above'))
     end;
    end;

    procedure FindRope; //Find Rope.
    begin
     repeat
      FindObjMultiText(x,y,'alan','alan','alan',RopeColor,4)
      wait(300+(200))
      MMouse(x,y,1,1);
     until(IsUpText('alan'));
     if(IsUpText('alan'))then
       Mouse(x,y,1,1,true)
     else
      FindRope;
     begin
      repeat
      wait(50);
      Status('Crossing Rope')
      until(InChat('carefully cross the'))
     end;
     wait(5000+(1000))
    end;

    procedure FindTree; //Find Tree.
    begin
     repeat
      FindObjMultiText(x,y,'down','down','down',TreeColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('down'));
     if(IsUpText('down'))then
       Mouse(x,y,2,2,true)
     else
      FindTree;
     begin
      repeat
      wait(50);
      Status('Climbing down tree')
      until(InChat('ou land on the'))
     end;
     LowestAngle;
    end;

    procedure FindNet2; //Find Second Net.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',Net2Color,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindNet2;
     begin
      repeat
      wait(50);
      Status('Climbing Over Netting..')
      until(InChat('climb the'))
     end;
     HighestAngle;
     wait(3000+(900))
    end;

    procedure FindPipe; //Find Pipe.
    begin
     repeat
      FindObjMultiText(x,y,'queeze','queeze','queeze',PipeColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('queeze'));
     if(IsUpText('queeze'))then
       Mouse(x,y,2,2,true)
     else
      FindPipe;
     begin
      if (InChat('pipe is')) then
       begin
       Status('Waiting for that fat bastard to get out of our pipe')
       wait(5000+(1000))
       FindPipe
       end
      else
       begin
       wait(10000+(1000))
       end;
     end;
    end;



    procedure FindAgility;
    begin
     GetSymbolColor(rx,ry,'agility');
     Mouse(rx,ry,2,2,true);
     Laps:= Laps + 1;
     if FlagPresent then wait(3000+(1000))
     else FindAgility;
    end;

    //PROGRESS REPORT//
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('/////////////////////');
      WriteLn('// PROGRESS REPORT //');
      WriteLn('//                 //');
      WriteLn('// Laps = ' + IntToStr(Laps) + '');
      WriteLn('//   Made by neG   //');
      WriteLn('/////////////////////');
    end;
     
    //MAIN LOOP//
    begin
     Setupsrl;
     ActivateClient;
     SetRun(true);
      repeat
       ProgressReport;
       FindLog;
       FindNet;
       FindBranch;
       FindRope;
       FindTree;
       FindNet2;
       FindPipe;
       FindAgility;
      until(false)
    end.

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

    Default

    I Dont wanan mess up your script but...

    Clicktocontinue;

    Is what clicks the click to continue thing.

    Ill just put the number of laps in for you.
    SCAR Code:
    /////////////////////////////////////////////////////////////////////
    //                                      ________                   //
    //                       ____    ____  /  _____/                   //
    //                      /    \  / __ \/   \  ___                   //
    //                     |   |  \|  ___/\    \_\  \                  //
    //                     |___|  / \___  >\______  /                  //
    //                          \/      \/        \/                   //
    //                                                       V. BETA 1 //
    /////////////////////////////////////////////////////////////////////
    //                   This is my frist ever script.                 //
    //                 Special thanks to the SRL-forums                //
    //                And to everyone that helped me there             //
    //                              srl-forums.com                     //
    /////////////////////////////////////////////////////////////////////

                                program agilrun;
                            {.include SRL/SRL.scar}
    {
                                   Very-Bright
                           Start just north of the log
                          (on the agility symboy works :D)

       To-Do List
         *Auto-Login
         *Fix the Level-Up bug
         *Anti-Ban
         *Make "NumberOfLapsToDo" feature

    }

    const  // Change colours here if you wish, should work as is tho.
     LogColor         = 9794;
     NetColor         = 6385808;
     BranchColor      = 3959683;
     RopeColor        = 5997215;
     TreeColor        = 3167850;
     Net2Color        = 5730440;
     PipeColor        = 7436416;
     LapsToDo         = 100;

    var
     Laps:integer;
     rx, ry:integer;


    procedure FindLog; //Log Procedure.
    begin
     repeat
      Status('Searching for Log');
      wait(50);
      FindObjMultiText(x,y,'ross','ross','ross',LogColor,4);
      wait(300+(200));
      MMouse(x,y,2,2);
     until(IsUpText('ross'));
     if(IsUpText('ross'))then
      begin
       Status('Found Log');
       Mouse(x,y,2,2,true);
       LowestAngle;
      end
     begin
      repeat
      wait(50);
      Status('Waiting to cross the log...');
      until(InChat('ou make it safely to the other side'));
     end;
    end;




    procedure FindNet; //Find Net.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',NetColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindNet;
     begin
      repeat
      wait(50);
      Status('Climbing the netting...')
      until(InChat('climb the netting'))
     wait(1500+(700))
     HighestAngle;
     end;
    end;

    procedure FindBranch; //Find Branch.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',BranchColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindBranch;
     begin
      repeat
      wait(50);
      Status('Climbing the Branch...')
      until(InChat('the platform above'))
     end;
    end;

    procedure FindRope; //Find Rope.
    begin
     repeat
      FindObjMultiText(x,y,'alan','alan','alan',RopeColor,4)
      wait(300+(200))
      MMouse(x,y,1,1);
     until(IsUpText('alan'));
     if(IsUpText('alan'))then
       Mouse(x,y,1,1,true)
     else
      FindRope;
     begin
      repeat
      wait(50);
      Status('Crossing Rope')
      until(InChat('carefully cross the'))
     end;
     wait(5000+(1000))
    end;

    procedure FindTree; //Find Tree.
    begin
     repeat
      FindObjMultiText(x,y,'down','down','down',TreeColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('down'));
     if(IsUpText('down'))then
       Mouse(x,y,2,2,true)
     else
      FindTree;
     begin
      repeat
      wait(50);
      Status('Climbing down tree')
      until(InChat('ou land on the'))
     end;
     LowestAngle;
    end;

    procedure FindNet2; //Find Second Net.
    begin
     repeat
      FindObjMultiText(x,y,'limb','limb','limb',Net2Color,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('limb'));
     if(IsUpText('limb'))then
       Mouse(x,y,2,2,true)
     else
      FindNet2;
     begin
      repeat
      wait(50);
      Status('Climbing Over Netting..')
      until(InChat('climb the'))
     end;
     HighestAngle;
     wait(3000+(900))
    end;

    procedure FindPipe; //Find Pipe.
    begin
     repeat
      FindObjMultiText(x,y,'queeze','queeze','queeze',PipeColor,4)
      wait(300+(200))
      MMouse(x,y,2,2);
     until(IsUpText('queeze'));
     if(IsUpText('queeze'))then
       Mouse(x,y,2,2,true)
     else
      FindPipe;
     begin
      if (InChat('pipe is')) then
       begin
       Status('Waiting for that fat bastard to get out of our pipe')
       wait(5000+(1000))
       FindPipe
       end
      else
       begin
       wait(10000+(1000))
       end;
     end;
    end;



    procedure FindAgility;
    begin
     GetSymbolColor(rx,ry,'agility');
     Mouse(rx,ry,2,2,true);
     Laps:= LapsToDo + 1;
     if FlagPresent then wait(3000+(1000))
     else FindAgility;
    end;

    //PROGRESS REPORT//
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('/////////////////////');
      WriteLn('// PROGRESS REPORT //');
      WriteLn('//                 //');
      WriteLn('// Laps = ' + IntToStr(Laps) + '');
      WriteLn('//   Made by neG   //');
      WriteLn('/////////////////////');
    end;

    //MAIN LOOP//
    begin
     Setupsrl;
     ActivateClient;
     SetRun(true);
      repeat
       FindLog;
       FindNet;
       FindBranch;
       FindRope;
       FindTree;
       FindNet2;
       FindPipe;
       FindAgility;
      until(LapsToDo=LapsToDo)
      if(LapsToDo=LapsToDo)then
      logout;
      ProgressReport
      TerminateScript;
    end.

    Why do you want it to keep repeating the progress report?
    I put that when the script is finished with its laps!

    Also i made it log out and terminate the script when its done with the laps.

    And when your making the laps :=laps thing
    in the main loop, you put

    until(Laps=Laps)

    That means it will keep repeating the stuff until it gets to its destination.

    If you need anymore help post or pm me.

  3. #3
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Thanks Junkj!
    Thats exactly what I needed.

    Now with the Clicktocontinue; procedure,
    Does it check if the "click to continue" text is there before it tries to click there?
    or will I need to use
    SCAR Code:
    if ('whatever') then
    Clicktocontinue;

    Oh and also, I repeat the progress report every lap because if im walking past the computer I like to know what lap its up to

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

    Default

    1-Put it in the mainloop in the repeat, that should work.You dont really need it because you can keep on going with in the chatbox, it will go away.

    2-Ooo,then.. take out the progress procedure in the mainloop and put it where you have the Laps+1 thing.

  5. #5
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    K thanks man, I really appreciate your help

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

    Default

    No problemo!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Gnome Agility Runner
    By Baked0420 in forum RS3 Outdated / Broken Scripts
    Replies: 27
    Last Post: 04-23-2009, 12:46 AM
  2. Gnome Agility Course Runner
    By Janziz in forum RS3 Outdated / Broken Scripts
    Replies: 36
    Last Post: 04-21-2009, 01:54 PM
  3. Gnome Agility Course Runner
    By RedSpree in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-06-2008, 02:23 PM
  4. gnome agility runner
    By scissormetimbers in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 06-11-2008, 09:30 PM
  5. Gnome agility course runner
    By Sp0rky in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 09-02-2007, 08:47 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
  •