Page 1 of 8 123 ... LastLast
Results 1 to 25 of 185

Thread: Home's Range Guilder [Build It On Your Own]

  1. #1
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Cool Home's Range Guilder [Build It On Your Own]

    Home's GuildRanger [Build It On Your Own]


    Hello everyone.

    This is first Build It On Your Own Script thread.

    So how it works?
    Well I will post pretty much all functions and procedures that you need. But yourself must add Failsafes, Antirandoms, Antiban etc what ever you wan't basically.
    You must build Mainloop on your own.
    There are some missing functions (Nothing hard)
    Functions and Procedures are not in correct order.
    You must build whole script on your own (Or with some of your friends)
    You can post your version of the builded script in this thread (SRL Members + Shuuu!)
    You can always ask for help for anything.




    Simba Code:
    function FindArrows(var X, Y: Integer) :Boolean;
    var
      TPA: TPointArray;
      aTPA : T2DPointArray;
      MiddlePoint :TPoint;
      Hi, I, TempCTS :Integer;
    begin
      If Not LoggedIn then Exit;
      TempCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.17);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
      If Length(TPA) = 0 Then Exit;
      aTPA := TPAToATPAEx(TPA, 5, 5);
      SortATPAFromFirstPoint(aTPA, Point(0, 0));
      MiddlePoint := MiddleTPA(aTPA[0]);
      MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
      If WaitUpTextMulti(['ronze', 'rrow'], 250) then
      begin
        GetMousePos(X, Y);
        Result := True;
      end;
      ColorToleranceSpeed(TempCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;  


    procedure SpamMouse(var x, y: Integer; Time: Integer);
    begin
      If Not LoggedIn then Exit;
      HoldMouse(x, y, mouse_left);
      Wait(Round(Time / 2));
      ReleaseMouse(x, y, mouse_left);
      Wait(Time);
    end;


    procedure Competition;
    var
     X, Y, C :Integer;
    begin
      If Not LoggedIn then Exit;
      while not FindNPCChatText('orry', Nothing) do
      begin
        If FindNPCChatText('standard', Nothing) then
          If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

        if FireTarget(X, Y) then
          SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

        if not DidClick(True, 60) then Inc(C)
        else
          C := 0;
        if (C >= 2) then CloseWindow;
      end;
    end;


    function WaitNPCText(Text :String; Time :Integer) :Boolean;
    var
     T :Integer;
    begin
      If Not LoggedIn then Exit;
      MarkTime(T);
      while (TimeFromMark(T) < Time) do
      begin
        If Not LoggedIn then Exit;
        Wait(RandomRange(10, 25));
        if FindNPCChatText(Text, Nothing) then
        begin
          Result := True;
          Break;
        end;
      end;
    end;  


    function FindJudge :Boolean;
    var
      TPA: TPointArray;
      aTPA : T2DPointArray;
      MiddlePoint :TPoint;
      X, Y, Hi, I, TempCTS :Integer;
    begin
      If Not LoggedIn then Exit;
      TempCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.40, 0.06);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
      If Length(TPA) = 0 Then Exit;
      aTPA := TPAToATPAEx(TPA, 20, 20);
      SortATPAFromFirstPoint(aTPA, Point(260, 32));
      DebugATPA(aTPA, '');
      Hi := Length(aTPA);
      for I := 0 to Hi - 1 do
      begin
        If Length(aTPA[I]) < 40 then Continue;
        MiddlePoint := MiddleTPA(aTPA[I]);
        MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
        If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
        begin
          ClickMouse2(False);
          If WaitOptionEx('alk', 'All', Nothing, 250) then
            begin
              If WaitOptionMulti(['Compete', 'ompete'], 250) then
                begin
                  Flag;
                  If WaitNPCText('Yes', 1500) then
                  begin
                    TypeSendEx('1', False);
                    If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
                  end;
                end;

              Result := True;
              Break;
            end;
        end;
      end;
      ColorToleranceSpeed(TempCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;



    function FireTarget(var X, Y: Integer) :Boolean;
    var
      TPA: TPointArray;
      aTPA : T2DPointArray;
      MiddlePoint :TPoint;
      Hi, I, TempCTS :Integer;
    begin
      If Not LoggedIn then Exit;
      TempCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.15, 1.28);

      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5330874, MSX1, MSY1, MSX2, MSY2, 2);
      If Length(TPA) = 0 Then Exit;
      aTPA := TPAToATPAEx(TPA, 20, 20);
      SortATPAFromFirstPoint(aTPA, Point(0, 0));
      DebugATPA(aTPA, '');
      MiddlePoint := MiddleTPA(aTPA[0]);
      MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
      If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
      begin
        GetMousePos(X, Y);
        Result := True;
      end;
      ColorToleranceSpeed(TempCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;


    function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
    var
      T :Integer;
    begin
      If Not LoggedIn then Exit;
      MarkTime(T);
      while (TimeFromMark(T) < Time) do
      begin
        If Not LoggedIn then Exit;
        Wait(RandomRange(10, 25));
        if FindArrows(X, Y) then
        begin
          Result := True;
          Break;
        end;
      end;
    end;


    Tutorial:

    1. First your player must Login into RS.
    2. Align Compass to correct direction and Set mainscreen angle correctly.
    3. Find Judge and start competition (You can edit code if it fails).
    4. Shoot targets.
    5. Mabey use Loops?



    ~Home
    Last edited by Home; 01-19-2012 at 02:22 PM.

  2. #2
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    nice, this is quite a fun thing I like this.

  3. #3
    Join Date
    Jan 2012
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    well i am not too great at scripting whatsoever.. so can someone give me a link to their edited version of this that is done?

  4. #4
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ttm nick View Post
    well i am not too great at scripting whatsoever.. so can someone give me a link to their edited version of this that is done?
    That defeats the purpose! Good idea home

  5. #5
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Guys. You have pretty much nothing to do

    Contact me if you need help via MSN or join #SRL IRC.


    ~Home

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Oh nice, somewhat of a competition Need to finish updating mine I guess.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool idea home!

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  8. #8
    Join Date
    Jan 2011
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    That pretty much is the extent of my scripting, is butchering scripts to make them work the way I want them too, which you've basically just did here.

    EDIT: good idea none the less.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly.

  9. #9
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default script

    plz i really need a ranging guild script, and i check everyday at kyle in the hope he has updated his script plz help me to get one.

  10. #10
    Join Date
    Nov 2011
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tybkj View Post
    plz i really need a ranging guild script, and i check everyday at kyle in the hope he has updated his script plz help me to get one.

    Me too.

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

    Default

    Lol at all these dummy crying leeches. It takes literally less than 30 minutes to learn how you would assemble this, really all you have to do is assemble the mainloop and add small stuff like antiban...

    Cool idea Home.


    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!

  12. #12
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    All the code is there, just have to make it yourself
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  13. #13
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Taking this... yoink. Spanks home :3

    I suppose there could be a good range guild'er around here , hehe.



  14. #14
    Join Date
    Dec 2011
    Posts
    496
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Me likey, imma give this a go, even though i don't need one ;P never hurts to get some practice in!!

  15. #15
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by momotron View Post
    Me likey, imma give this a go, even though i don't need one ;P never hurts to get some practice in!!
    That's the spirit Come on guys it literally is RIGHT there for you. Just needs to be assembled and looped up properly.



  16. #16
    Join Date
    Dec 2011
    Location
    Sydney
    Posts
    1,284
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm gonna try this tomorrow even though I have basic SRL scripting knowledge. But I'm pretty confident that if I can edit scripts then I can do this!

  17. #17
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    WEll someone got lazy and didn't wanna finish the script...
    Nahhh i lied <3
    I'm going to start doing this too.

  18. #18
    Join Date
    Jan 2011
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    So far all I got left to do is the finding targets function if anyone cares to help me pm ^^.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly.

  19. #19
    Join Date
    Jan 2012
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    [Error] (9:10): Unknown identifier 'LoggedIn' at line 8
    Compiling failed.
    am i missing something?

  20. #20
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Error] (9:10): Unknown identifier 'LoggedIn' at line 8
    Compiling failed.
    am i missing something?
    Reply With Quote
    {$i SRL\SRL.scar}
    Last edited by loser69; 01-18-2012 at 04:20 PM.

  21. #21
    Join Date
    Jan 2012
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    so... i need to get this scar stuff? sorry i am new at this >.<

  22. #22
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by ttm nick View Post
    so... i need to get this scar stuff? sorry i am new at this >.<
    Nope, add that code near the begining of the script. I think it should be {$i SRL\SRL.simba} though or {$i SRL\SRL.scar}

  23. #23
    Join Date
    Dec 2011
    Posts
    88
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Hands it to the community near enough on a plate and people still complain? This is a good way to learn how a script is put together? Read some tutorials, ask for help and give it a go! This is what should be done with all scripts, it would most definitely get rid of the leechers.

    Great idea! I'll defo have a go when I get home

  24. #24
    Join Date
    Jan 2012
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    okay, so right after beginning? i did that.. didnt work :S

  25. #25
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by H_N View Post
    Hands it to the community near enough on a plate and people still complain? This is a good way to learn how a script is put together? Read some tutorials, ask for help and give it a go! This is what should be done with all scripts, it would most definitely get rid of the leechers.

    Great idea! I'll defo have a go when I get home
    As far as I can tell, you're one of the leechers....

Page 1 of 8 123 ... LastLast

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
  •