Results 1 to 14 of 14

Thread: Mech Quest Fighter.

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

    Default Mech Quest Fighter.

    Mech Quest Fighter.

    THE LINK TO THE GAME IS HERE!

    Well hello, i have made this script because i was bored, and i wanted to make a script for something besides runescape.

    So what this script does is, it fights other robots in mech quest, and earns exp. and credits for you.

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    {Instructions}
    {1. Start Logged In (In MechQuest), At Soluna City.                            }
    {2. Set Up Const.                                                              }
    {3. Drag The Cross-Hair Into The MechQuest Window.                             }
    {4. Hit Run.                                                                   }
    {5. Enjoy.                                                                     }
    {Instructions}
    ////////////////////////////////////////////////////////////////////////////////

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    { F E A T U R E S }
    {1. Perfect Fighting, Uses Most Combat Weapons (Arms + Back Shoulder + Head)   }
    {2. Perect Repairing When Needed.                                              }
    {3. Clicks All Buttons (Level Up, Ok, And Done Buttons).                       }
    {4. Does Not Get Stuck.                                                        }
    {5. Earns Credits & Exp.                                                       }
    { F E A T U R E S }
    ////////////////////////////////////////////////////////////////////////////////

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    {PROGGYS}                                                                      {
    FIRST VERSION.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Mech Quest Fighter ~ By U L T R A.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Ran For: 10 Hours, 54 Minutes and 18 Seconds.
    Fights: 1146.
    Wins: 1008.
    Loses: 138.
    Level Ups: 2.
    Repairs: 626.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    I Got 90k Credits From That Proggy!
    ////////////////////////////////////////////////////////////////////////////////
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Mech Quest Fighter ~ Version 1.5 ~ By U L T R A.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Ran For: 8 Hours, 39 Minutes and 52 Seconds.
    Fights: 946.
    Wins: 936.
    Loses: 10.
    Level Ups: 2.
    Repairs: 846.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    100k Credits!!!                                                                }

    {PROGGYS}
    ////////////////////////////////////////////////////////////////////////////////

    I have spend some time on this script, it took me a while to get all of the perfect colors and co-ordinates (X, Y).

    I didint post the very first versions of the script because at that time i didnt want to release it yet :P.

    Here is the script.
    SCAR Code:
    program Mech_Quest_Fighter;
    {.Include SRL/SRL.Scar}
    ////////////////////////////////////////////////////////////////////////////////
    {Instructions}
    {1. Start Logged In (In MechQuest), At Soluna City.                            }
    {2. Set Up Const.                                                              }
    {3. Drag The Cross-Hair Into The MechQuest Window.                             }
    {4. Hit Run.                                                                   }
    {5. Enjoy.                                                                     }
    {Instructions}
    ////////////////////////////////////////////////////////////////////////////////
    { F E A T U R E S }
    {1. Perfect Fighting, Uses Most Combat Weapons (Arms + Back Shoulder + Head)   }
    {2. Perect Repairing When Needed.                                              }
    {3. Clicks All Buttons (Level Up, Ok, And Done Buttons).                       }
    {4. Does Not Get Stuck.                                                        }
    {5. Earns Credits & Exp.                                                       }
    { F E A T U R E S }
    ////////////////////////////////////////////////////////////////////////////////
    {PROGGYS}                                                                      {
    FIRST VERSION.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Mech Quest Fighter ~ By U L T R A.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Ran For: 10 Hours, 54 Minutes and 18 Seconds.
    Fights: 1146.
    Wins: 1008.
    Loses: 138.
    Level Ups: 2.
    Repairs: 626.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    I Got 90k Credits From That Proggy!
    ////////////////////////////////////////////////////////////////////////////////
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Mech Quest Fighter ~ Version 1.5 ~ By U L T R A.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Ran For: 8 Hours, 39 Minutes and 52 Seconds.
    Fights: 946.
    Wins: 936.
    Loses: 10.
    Level Ups: 2.
    Repairs: 846.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    100k Credits!!!                                                                }

    {PROGGYS}
    ////////////////////////////////////////////////////////////////////////////////

    { U L T R A Presents To You...

       _____                .__     ________                          __
      /     \   ____   ____ |  |__  \_____  \  __ __   ____   _______/  |_
     /  \ /  \_/ __ \_/ ___\|  |  \  /  / \  \|  |  \_/ __ \ /  ___/\   __\
    /    Y    \  ___/\  \___|   Y  \/   \_/.  \  |  /\  ___/ \___ \  |  |
    \____|__  /\___  >\___  >___|  /\_____\ \_/____/  \___  >____  > |__|
            \/     \/     \/     \/        \__>           \/     \/
    ___________.__       .__     __
    \_   _____/|__| ____ |  |___/  |_  ___________
     |    __)  |  |/ ___\|  |  \   __\/ __ \_  __ \
     |     \   |  / /_/  >   Y  \  | \  ___/|  | \/
     \___  /   |__\___  /|___|  /__|  \___  >__|
         \/      /_____/      \/          \/

    }



    const
    DoFights = 2000;//How Many Times To Battle.

    var
    TotalFights, Repairs, TotalWins, TotalLoses, TotalLevelUps : Integer;
    VN : String;

    function FindMQColor(MQColor, MQX, MQY : Integer) : Boolean;
    var
    MQFoundColor : Integer;
    begin
     MQFoundColor := GetColor(MQX, MQY);
      if(MQColor = MQFoundCOlor)then
       begin
       Result:=True;
      end else
     Result:=False;
    end;

    function WLLUScreen : Boolean;
    begin
     if(FindMQColor(8311789, 363, 263))and(FindMQColor(16777215, 468, 226))or(FindMQColor(255, 370, 199))or(FindMQColor(13421772, 248, 98))then
      begin
      Result:=True;
      end else
     Result:=False;
    end;

    function Win : Boolean;
    begin
     if(FindMQColor(8311789, 363, 263))and(FindMQColor(16777215, 468, 226))then
      begin
      TotalWins := TotalWins + 1;
      ReportVars[2] := ReportVars[2] + 1;
      Result:=True;
     end else
     Result:=False;
    end;

    function Lose : Boolean;
    begin
     if(FindMQColor(255, 370, 199))then
      begin
      TotalLoses := TotalLoses + 1;
      ReportVars[3] := ReportVars[3] + 1;
      Result:=True;
     end else
     Result:=False;
    end;

    function LevelUp : Boolean;
    begin
     if(FindMQColor(13421772, 248, 98))then
      begin
      Result:=True;
     end else
     Result:=False;
    end;

    procedure WaitUntilFindMQColor(MQColor, MQX, MQY : Integer);
    begin
     repeat
     Wait(100);
     until(FindMQColor(MQColor, MQX, MQY))or(WLLUScreen);
    end;

    function InCity : Boolean;
    begin
     Result:=(FindMQColor(255, 115, 241));
    end;

    procedure Heal;
    begin
     if(not(FindMQColor(255, 220, 497)))then
      begin
      Mouse(352, 433, 0, 0, True);
      Repairs := Repairs + 1;
      ReportVars[1] := ReportVars[1] + 1;
     end;
    end;

    procedure Battle;
    begin
     if(InCity)then
      begin
      Mouse(75, 432, 0, 0, True);
      repeat
      Wait(100);
      until(FindMQColor(921207, 360, 429));
     end;
    end;

    function AK1 : Boolean;
    begin
      if(FindMQColor(1184311, 316, 263))then
      begin
      Mouse(316, 263, 0, 0, True);
      Wait(100);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1777065, 360, 421);
      Result:=True;
      end else
      Result:=False;
    end;

    function AK2 : Boolean;
    begin
     if(FindMQColor(921225, 440, 290))then
      begin
      Mouse(440, 290, 0, 0, True);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1777065, 360, 421);
      Result:=True;
      end else
      Result:=False;
    end;

    function AK3 : Boolean;
    begin
     if(FindMQColor(1711278, 434, 337))then
      begin
      Mouse(434, 337, 0, 0, True);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1777065, 360, 421);
      Result:=True;
      end else
     Result:=False;
    end;

    function AK4 : Boolean;
    begin
     if(FindMQColor(1711283, 436, 392))then
      begin
      Mouse(436, 392, 0, 0, True);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1777065, 360, 421);
      Result:=True;
      end else
     Result:=False;
    end;

    function AK5 : Boolean;
    begin
     if(FindMQColor(2106018, 411, 307))then
      begin
      Mouse(411, 307, 0, 0, True);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1777065, 360, 421);
      Result:=True;
      end else
     Result:=False;
    end;

    procedure Attack;
    begin
     if(AK1)or(AK2)or(AK3)or(AK4)or(AK5)then
      begin
      Wait(1);
     end else
     if(not(AK1))and(not(AK2))and(not(AK3))and(not(AK4))and(not(AK5))then
     begin
      Mouse(360, 429, 0, 0, True);
      Wait(100);
      MMouse(578, 145, 0, 0);
      WaitUntilFindMQColor(1842596, 359, 422);
     end;
    end;
     
    procedure Fight;
    begin
     Battle;
      begin
      repeat
      Attack;
      until(Win)or(Lose)or(LevelUp);
     Mouse(410, 340, 0, 0, True);
     Wait(4000);
     if(LevelUp)then
     begin
     TotalLevelUps := TotalLevelUps + 1;
     ReportVars[4] := ReportVars[4]+ 1;
     end;
     Mouse(375, 419, 0, 0, True);
     Wait(2000);
     Mouse(416, 400, 0, 0, True);
      repeat
      Wait(100);
      until(InCity);
      Heal;
      TotalFights := TotalFights + 1;
      ReportVars[0] := ReportVars[0] + 1;
     end;
    end;

    procedure Report;
    begin
     ClearDebug;
      begin
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('Mech Quest Fighter ~ Version ' + VN + ' ~ By U L T R A.');
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('Ran For: ' + TimeRunning + '.');
      WriteLn('Fights: ' + IntToStr(TotalFights) + '.');
      WriteLn('Wins: ' + IntToStr(TotalWins) + '.');
      WriteLn('Loses: ' + IntToStr(TotalLoses) + '.');
      WriteLn('Level Ups: ' + IntToStr(TotalLevelUps) + '.');
      WriteLn('Repairs: ' + IntToStr(Repairs) + '.');
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Disguise('Total Fights: ' + IntToStr(TotalFights) + ' | Loses: ' + IntToStr(TotalLoses) + ' | Wins: ' + IntToStr(TotalWins) + ' | Level Ups: ' + IntToStr(TotalLevelUps) + ' | Repairs: ' + IntToStr(Repairs));
     end;
    end;

    begin
     SetUpSRL;
     TotalFights := 0;
     Repairs := 0;
     TotalWins := 0;
     TotalLoses := 0;
     TotalLevelUps := 0;
     VN := '1.7';
     MouseSpeed := 50 + random(50);
     Heal;
     repeat
     MouseSpeed := 20 + random(30);
     Fight;
     Report;
     until(TotalFights >= DoFights);
    end.

    {Version Log}

    {Version 1.0}
    {First version of the script, alot of bugs are still not found.}

    {Version 1.1}
    {Some bugs found and fixed, added more features, now clicks most of the buttons
    to prevent getting stuck. Some bugs are still not found.}


    {Version 1.2}
    {Clicks all of the buttons, now barely gets stuck at all. Very few bugs left,
    some co-ordinates are wrong yet that is not fixed.}


    {Version 1.3}
    {All co-ordinates are perfect, now it repairs your mecha when your HP is low.}

    {Version 1.4}
    {Now, if all of the weapons are still recharging it will skip the turn.}

    {Version 1.5}
    {It will now tell you how many level-ups you got, how many times you lost/won
    and how many fights in total, also some bugs fixed. Very-very important
    release.}


    {Version 1.6}
    {Some colors were changed due to the new update at mechquest, some co-ordinates
    were off, fixed everything.}


    {Version 1.7}
    {Found a tiny bug, fixed it. Added a signature thing at the top of the script. }

    Here is the version log.
    SCAR Code:
    {Version Log}

    {Version 1.0}
    {First version of the script, alot of bugs are still not found.}

    {Version 1.1}
    {Some bugs found and fixed, added more features, now clicks most of the buttons
    to prevent getting stuck. Some bugs are still not found.}


    {Version 1.2}
    {Clicks all of the buttons, now barely gets stuck at all. Very few bugs left,
    some co-ordinates are wrong yet that is not fixed.}


    {Version 1.3}
    {All co-ordinates are perfect, now it repairs your mecha when your HP is low.}

    {Version 1.4}
    {Now, if all of the weapons are still recharging it will skip the turn.}

    {Version 1.5}
    {It will now tell you how many level-ups you got, how many times you lost/won
    and how many fights in total, also some bugs fixed. Very-very important
    release.}


    {Version 1.6}
    {Some colors were changed due to the new update at mechquest, some co-ordinates
    were off, fixed everything.}


    {Version 1.7}
    {Found a tiny bug, fixed it. Added a signature thing at the top of the script. }

    Thanks please post some proggys or at least post some comments :P.
    Woot woot.

  2. #2
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks nice ill use maybe add something to make it a allover place
    Being A Boss

  3. #3
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    All over place?
    Woot woot.

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Link to the game?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Hy71194 View Post
    Link to the game?


    http://www.mechquest.com/

    Lazy boy.

  6. #6
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote:
    Originally Posted by Hy71194 View Post
    Link to the game?


    http://www.mechquest.com/

    Lazy boy.
    Lol, lazy boy :P.
    Woot woot.

  7. #7
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I updated the script lol.
    Woot woot.

  8. #8
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Triplepost omgzors .
    Woot woot.

  9. #9
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do you think i could get this thing to run like 24 hours plus?


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  10. #10
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    *Whips out VMWare*

    Lol. Dang, a new account needs level 3 before going into that town or something.

    Wait a bit.

    It does not work? I am in soluna city, and it just works for once when I go manually into battle mode. after killing ???, it just pauses there.
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  11. #11
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by leelokhin View Post
    *Whips out VMWare*

    Lol. Dang, a new account needs level 3 before going into that town or something.

    Wait a bit.

    It does not work? I am in soluna city, and it just works for once when I go manually into battle mode. after killing ???, it just pauses there.
    im about to test

    EDit:Successfully compiled (1754 ms)
    File access error
    SRL Compiled in 16 msec
    Successfully executed

    any help?

    EDIT EDIT: got it.
    hoping for a 24 hour plus to post up here lawl.
    ive never even played this game im just bored O.o

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~
    Mech Quest Fighter ~ Version 1.7 ~ By U L T R A.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~
    Ran For: 18 Minutes and 7 Seconds.
    Fights: 11.
    Wins: 10.
    Loses: 1.
    Level Ups: 0.
    Repairs: 9.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~

    longest run of 3 -.-


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  12. #12
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I found the bug, its this random event when you have to click another button before fighting another robot, it will be fixed.
    Woot woot.

  13. #13
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    alright thanks, looking forward to it.


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  14. #14
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For some reason i cant get the event anymore and i need the co-ordinates of the button, if someone encounters this event then please use your scar to pick the co-ordinates.

    As i said i for some reason ain't getting the event anymore so maybe you just have to do it once...


    Anyways, can someone tell me what happens before their auto messes up, because i'am actually not that sure whats going on, so someone gimme the details on how and what happens. I need to know the problem so i can fix it.
    Woot woot.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Quest running.....
    By Raskolnikov in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-02-2008, 02:51 AM
  2. Quest Chars?
    By Nava2 in forum OSR Help
    Replies: 0
    Last Post: 08-26-2008, 07:27 PM
  3. which p2p quest are the best to do .....
    By ShowerThoughts in forum Discussions & Debates
    Replies: 4
    Last Post: 10-19-2007, 08:36 AM
  4. quest
    By sniper360 in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 07-11-2007, 03:26 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
  •