Results 1 to 18 of 18

Thread: [SRL4] Range Guild: Bow Competition

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

    Default [SRL4] Range Guild: Bow Competition

    SCAR Code:
    {==================================================================]
    [                  Range Guild: Bow Competition                    ]
    [                                                                  ]
    [            NAME          : Range Guild: Bow Competition          ]
    [            AUTHOR        : Vilon                                 ]
    [            CATEGORY      : Minigame / Ranging                    ]
    [            DESCRIPTION   : Does the bow competition.             ]
    [            MULTIPLAYER   : No                                    ]
    [            SCAR VERSION  : SCAR Divi 3.12                        ]
    [            SRL VERSION   : SRL 4 #rev 4                          ]
    [            RELEASED ON   : 29/09/2007                            ]
    [                                                                  ]
    [==================================================================]
    [                           Instructions                           ]
    [==================================================================]
    [  01. Use runescape with low detail and very bright.              ]
    [  02. Set your screen resolution to 32bit true color.             ]
    [  03. Setup lines 36 and 44 - 55.                                 ]
    [  04. Position your character inside of the minigame (next to the ]
    [      'Competition Judge') and make sure he is visible. Also,     ]
    [      wear/wield all equipment you want to use and make sure you  ]
    [      have money in your inventory.                               ]
    [  05. Recommend to start logged in (logged out should work).      ]
    [  06. Drag crosshair over runescape window and press play.        ]
    [  07. Enjoy and please post feedback and progress reports! :D     ]
    [==================================================================}

    Changelog:
    Code:
    v2.1
    A special thanks for this version goes out to "the scar noob".
    
    Added:
    - Failsafe (when aligning the compass).
    
    Improved:
    - More accurate finding of the "Target View" when hitting the targets, also a major speedup.
    - Better talking to judge.
    - Code cleanup.
    
    v2.0
    This version is a complete re-write of the old script. Here is what has been changed:
    
    Added:
    - New method for aligning the compass.
    - Disguise, now shows number of loads in titlebar.
    
    Improved:
    - No more annoying colorpicking, fully autocolor!
    - Much more failsafes.
    - Better finding of colors (new method), which means no more annoying mouse jumping around the screen trying to find a certain color.
    - Now finds the arrows without any problem, no matter where it is in your inventory.
    - Better antirandoms.
    - Better standards.
    - Other small fixes and changes.
    
    v1.1:
    Added:
    - Antiban (hover skill, ranging).
    - Progress-report and SRL-random report.
    
    Improved:
    - Finding and wielding of arrows (you don't have to have a specific inventory setup anymore).
    - Anti-random.
    - More fail-safe and checks after each round if any arrows are still equipped.
    Todo for next version:
    Code:
    Nothing yet. Suggestions are welcome!
    If you download and/or use this script please leave feedback/progress report!

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

    Default

    1.
    SCAR Code:
    procedure LogOutPlayer;
    begin
      if(LoggedIn)then
      begin
        LogOut;
      end;
      TerminateScript;
    end;
    You don't need the begin/end, this is good enough:
    SCAR Code:
    procedure LogOutPlayer;
    begin
      if(LoggedIn)then LogOut;
      TerminateScript;
    end;

    2.
    SCAR Code:
    procedure CheckLogin;
    begin
      if(not(LoggedIn))then
      begin
        TerminateScript;
      end;
    end;
    Same as number 1, this should be enough:
    SCAR Code:
    procedure CheckLogin;
    begin
      if(not(LoggedIn))then TerminateScript;
    end;

    3.
    SCAR Code:
    procedure AlignCompass;
    begin
      CheckLogin;
      MakeCompass('S');
      KeyDown(VK_LEFT);
      repeat
        Wait(1);
      until(FindColorTolerance(x, y, TargetColor1, MSX1, MSY1, MSX2, MSY2, 5));
      KeyUp(VK_LEFT);
    end;
    a repeat should always have a failsafe, also the wait(1) could be changed to a higher integer value, maybe 50 or 100 or something, you could also raise that 5 tol I think.
    For the failsafe, add an integer value and increase it, let me explain it with an example:
    SCAR Code:
    procedure AlignCompass;
    var
      FailSafe: integer;
    begin
      CheckLogin;
      MakeCompass('S');
      KeyDown(VK_LEFT);
      repeat
        Wait(100);//changed 1 to 100 (100 miliseconds is still fast, isn't it?
        Inc(failSafe);
      until(FindColorTolerance(x, y, TargetColor1, MSX1, MSY1, MSX2, MSY2, 10)) or (Failsafe >100)//the failsafe, 100 times*100ms=10 secs
      KeyUp(VK_LEFT);
    end;

    You could also use a timer instead of that simple integer raise trick
    Then you'll have to use MarkTime and TimeFromMark:
    SCAR Code:
    procedure AlignCompass;
    var
      FailSafeMark: longint;//long integer, an integer has a maximum value of 65535, whatever an integer is fine too :)
    begin
      CheckLogin;
      MakeCompass('S');
      MarkTime(FailSafeMark);
      KeyDown(VK_LEFT);
      repeat
        Wait(100);//changed 1 to 100 (100 miliseconds is still fast, isn't it?
      until(FindColorTolerance(x, y, TargetColor1, MSX1, MSY1, MSX2, MSY2, 10)) or (TimeFromMark(FailSafeMark)>10000)//10secs=10 000 ms
      KeyUp(VK_LEFT);
    end;

    4.
    Your AntiRandom procedure: Some things in there aren't really needed, for example the
    SCAR Code:
    FindTalk;
    because that's already included in FindFastRandoms.

    5.
    your SetupScript procedure: You use 2 times
    SCAR Code:
    ClearDebug;
    there's no need to

    6.
    A global remark, try to use global vars, for example in your
    SCAR Code:
    procedure TalkToJudge;

    7.
    SCAR Code:
    if(JudgeTries = 25)then
        begin
          LogOutPlayer;
        end;
    Same as number 1 & 2
    I wont tell things like this anymore since tehre are more, you should be manage to find them

    8.
    SCAR Code:
    Wait(750+random(500));                          // Start talking to the judge
            ClickToContinue
    instead of using "ClickToContinue" in combination with a wait, you can use
    SCAR Code:
    function ClickContinue(Click, Wait: Boolean): Boolean;
    where you can combine them


    Othere then these it is a nice piece of work you have created, you're knew man
    If you will keep studying further this way then you will be an SRL member

    Also, I LOVE FindObjCustom

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  3. #3
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the great feedback!
    You should know that I really appreciate it!

    1. I was aware that this could be done in other programming languages but was not sure about pascal but now i know, thanks.
    3. Ops, seem to have forgot the failsafe here (we're all humans after all, aren't we? ).
    4. Most procedures in there are double checks and copies of each other. Btw, why doesn't the procedure for finding randoms include the pinball solving? (or does it?).
    6. I don't really understand what you are talking about here...How does declaring of global/local variables work in pascal/scar?
    8. Thanks! That function was really useful!

    Quote Originally Posted by the scar noob
    Othere then these it is a nice piece of work you have created, you're knew man
    If you will keep studying further this way then you will be an SRL member

    Also, I LOVE FindObjCustom
    Thanks!
    I LOVE FindObjCustom too

    Edit: v2.1 is out!

  4. #4
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by vilon View Post
    Thanks for the great feedback!
    You should know that I really appreciate it!

    1. I was aware that this could be done in other programming languages but was not sure about pascal but now i know, thanks.
    3. Ops, seem to have forgot the failsafe here (we're all humans after all, aren't we? ).
    4. Most procedures in there are double checks and copies of each other. Btw, why doesn't the procedure for finding randoms include the pinball solving? (or does it?).
    6. I don't really understand what you are talking about here...How does declaring of global/local variables work in pascal/scar?
    8. Thanks! That function was really useful!


    Thanks!
    I LOVE FindObjCustom too

    Edit: v2.1 is out!
    Np
    I've looked through the code again (to be honestly rather fast) and I see improvment
    Glad you've liked my feedback
    Now, what I mean with Globar Variables is:
    Let's say that you have a var that you only use in 1 procedure, why should you give SCAR the task to get it loaded all the time?
    Why shouldn't you defnine the variable in the procedure/function so it does reduces lagg?

    That's what I meant, make global(in the procedure/function were you need it), so that your script would edven work better and so that SCAR don't have to load the variable all the time

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  5. #5
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the scar noob View Post
    That's what I meant, make global(in the procedure/function were you need it), so that your script would edven work better and so that SCAR don't have to load the variable all the time

    -Tsn.
    Yeh, I figured out what you meant with that but what I wanted to know is how this work practically...Like, how do you declare a variable global and not global (for a certain function/procedure), does it work like this?:

    Global
    SCAR Code:
    var
      x, y, whatever : Integer;

    Local
    SCAR Code:
    procedure someprocedure;
    var
      target, main : Integer;
    begin
      DoScript;
    end;

    or? :P

  6. #6
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by vilon View Post
    Yeh, I figured out what you meant with that but what I wanted to know is how this work practically...Like, how do you declare a variable global and not global (for a certain function/procedure), does it work like this?:

    Global
    SCAR Code:
    var
      x, y, whatever : Integer;

    Local
    SCAR Code:
    procedure someprocedure;
    var
      target, main : Integer;
    begin
      DoScript;
    end;

    or? :P
    Indeed, variables that you use all the time you can store them in the beginning of your script, the stay loaded all the time.

    If you have a variable that you only use in a certain procedure/function then you declare it inside that procedure/function:
    SCAR Code:
    program New;

    procedure WhatEver;
    var
      i: integer;
    begin
      ClearDebug;
      for i:=0 to 4 do
      begin
        Writeln('value of i = '+inttostr(i));
      end;
    end;

    begin
      WhatEver;
    end.
    you see? I only am going to use those variables in that procedure, so I declare them inside the procedure.

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  7. #7
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, just as I thought.
    Thanks for clearing it up

  8. #8
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by vilon View Post
    Yes, just as I thought.
    Thanks for clearing it up
    Np, I like helping people
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    ooh thanks

    I might use it for long time :P ( if it works nice)

    [22:20] <[-jesus-]> freddy, go uninstall yourself

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

    Default

    Is there anything that you need to do to update it for the ltest srl version?

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

    Default

    looks good i shall try if wrks will post results

  12. #12
    Join Date
    Oct 2007
    Location
    Florida, USA
    Posts
    486
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can any1 that tried it post a proggy?

  13. #13
    Join Date
    Oct 2007
    Location
    Anime land. Woot!
    Posts
    552
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet, any with the free mills i get from autoing this is painless training ^_^ thanks, i'll post a proggie when i use, like always =D

  14. #14
    Join Date
    Apr 2007
    Posts
    357
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So this script does the bow competition over and over again
    and gains good range exp?

  15. #15
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mind Updating?

  16. #16
    Join Date
    Jun 2007
    Location
    Liverpool ,Nsw,Australia
    Posts
    740
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lawl he hasent been here for a while
    Quote Originally Posted by Darkmage View Post
    I got 2 questions'
    #1. When i run the script will it automatically pick up the mouse and move?

  17. #17
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    2 shovels working eh? This is a grave dont dig it.
    I do visit every 2-6 months

  18. #18
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    You're just as bad.
    Anyway, This script has potential for creating bounty hunter freak pures with like 80 range 80 str and 55 combat.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Range guild
    By Lorax in forum RS3 Outdated / Broken Scripts
    Replies: 69
    Last Post: 01-23-2009, 01:45 AM
  2. [srl4]#6 Range script.
    By Look Me in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-26-2007, 10:30 PM
  3. Range Guild: Bow Competition
    By vilon in forum First Scripts
    Replies: 24
    Last Post: 09-28-2007, 04:23 PM
  4. range competition Autoer
    By Dumpin in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 08-02-2007, 04:11 PM
  5. Range Guild
    By ~PuRePoWeR~ in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-01-2007, 11:58 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
  •