Page 5 of 6 FirstFirst ... 3456 LastLast
Results 101 to 125 of 144

Thread: Lumbridge Chicken Pwnage

  1. #101
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Zodia View Post
    ...One Word...

    Fail...

    Only ran for 20 minutes, it didn't pick up all the feathers, some money lost there.
    When sandwich lady came it logged out.
    1. It will NOT pick up all the feathers...that would kind of be a waist of time, if you want them ALL, play legit...
    2. The sandwich lady stopped it...not the scripts fault....
    3. DON'T blame the script for a semi-un-solvable random (I know it's "solved", but it fails half the time still on all the scripts I run)
    4. Try it again, don't blame the script till you've tried it a few times, they get bad runs once in awhile
    5. This is a great script



    EDIT:

    I just got this not great proggie this morning, I'm running a miner on smart, and if I open two the latest one to open crashes randomly, so I ran this old-fashioned way overnight and through school:
    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 12 Hours, 52 Minutes and 2 Seconds
    Chickens killed: 2835 | 1 Hit K0's: 84
    Kill rate: 215/hr
    Feathers picked up 1659 times, ~ 16590
    Walked back from lumby: 4
    ===============================

    0 : gal - T Pen; Rand: Certer ATC 21, STR 1, DEF 1, HP 16. W: 51 min. K: 231.
    1 : obih - T Pen ATC 23, STR 1, DEF 1, HP 17. W: 82 min. K: 319.
    2 : yna - T Pen ATC 15, STR 1, DEF 1, HP 13. W: 89 min. K: 327.
    3 : uga - T Pen ATC 16, STR 1, DEF 1, HP 13. W: 96 min. K: 369.
    4 : tetb - T Pen; Rand: Sandwich Lady ATC 1, STR 1, DEF 12, HP 12. W: 68 min. K: 185.
    5 : gal - T Pen ATC 22, STR 1, DEF 1, HP 16. W: 102 min. K: 391.
    6 : obih - T Pen ATC 24, STR 1, DEF 1, HP 18. W: 74 min. K: 255.
    7 : yna - T Pen; Rand: No GameTab ATC 18, STR 1, DEF 1, HP 15. W: 47 min. K: 311.
    8 : uga - T Pen ATC 13, STR 1, DEF 1, HP 12. W: 58 min. K: 224.
    9 : tetb - T Pen; Rand: Sandwich Lady ATC 1, STR 1, DEF 7, HP 11. W: 62 min. K: 223.

    ===============================

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 27 |
    | Talks : 20 |
    | Dwarfs : 10 |
    | Ricks : 1 |
    | Sandwiches : 1 |
    | No Sandwiches : 2 |
    | Frog Solved : 1 |
    | Capn Hand[s] : 1 |
    | Certers Solved : 1 |
    | Certers Missed : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  2. #102
    Join Date
    Jan 2008
    Posts
    163
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not the best proggie though the best one i have had so far

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 3 Hours, 28 Minutes and 35 Seconds
    Chickens killed: 698 | 1 Hit K0's: 117
    Kill rate: 201/hr
    Feathers picked up 598 times, ~ 5980
    Walked back from lumby: 0
    ===============================

    0 : - T Pen ATC 9, STR 22, DEF 1, HP 17. W: 49 min. K: 178.
    1 : - F Pen ATC 27, STR 21, DEF 1, HP 22. W: 44 min. K: 158.
    2 : - F Pen ATC 30, STR 17, DEF 1, HP 23. W: 23 min. K: 92.
    3 : - T Pen ATC 9, STR 24, DEF 1, HP 18. W: 27 min. K: 102.
    4 : - T Pen ATC 27, STR 19, DEF 1, HP 22. W: 31 min. K: 87.
    5 : - F Pen ATC 30, STR 15, DEF 1, HP 23. W: 26 min. K: 81.

  3. #103
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I ran it with 4 accounts over night it ran for 1 hour with 1 account, solved a couple of randoms also. It never ran the other accounts though....

    Lost the proggy

  4. #104
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    since my char = banned
    i am lvling 2 players with this now
    expect a proggy
    looks very nice

    EDIT:
    short proggy:
    (stopped to restart my pc and reduce lag)
    ===============================
    Worked: 1 Hours, 5 Minutes and 53 Seconds
    Chickens killed: 233 | 1 Hit K0's: 8
    Kill rate: 212/hr
    Feathers picked up 172 times, ~ 1720
    Walked back from lumby: 0
    ===============================
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 3 |
    | Talks : 2 |
    | Dwarfs : 1 |
    | Capn Hand[s] : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

    better one coming

    EDIT:
    a few proggies:
    ===============================
    Worked: 1 Hours, 38 Minutes and 46 Seconds
    Chickens killed: 470 | 1 Hit K0's: 71
    Kill rate: 290/hr
    Feathers picked up 340 times, ~ 3400
    Walked back from lumby: 0
    ===============================
    stopped to change attack style

    ===============================
    Worked: 1 Hours, 44 Minutes and 57 Seconds
    Chickens killed: 463 | 1 Hit K0's: 70
    Kill rate: 264/hr
    Feathers picked up 367 times, ~ 3670
    Walked back from lumby: 0
    ===============================
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 3 |
    | Talks : 1 |
    | Dwarfs : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    stopped because of unsolvable random


    I like the way it misclicks.. its an awsome antiban
    i also like the walkback thing
    (you need the watercolour fix for it, since that one needs to be changed
    able to found in:
    srl junior members
    runcrafting
    craftermaster
    page 5)
    than it works good
    the only things you might add/fix are:
    add a trade responder..
    if found trade say : i dont want to trade or something
    if found assistance request say :nty
    and 1 more thing..
    the findfight (evilchicken) is awsome..
    but a bit slow...
    i almost died from it (1 hp left ^^)
    ran away manually.
    p.s.
    i used smart with it and turned off the talktomebaby thing
    ( with { }'s in the mainloop )

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 3 Hours, 14 Minutes and 4 Seconds
    Chickens killed: 894 | 1 Hit K0's: 148
    Kill rate: 274/hr
    Feathers picked up 715 times, ~ 7150
    Walked back from lumby: 1
    ===============================
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 5 |
    | Talks : 2 |
    | Lamps Missed : 2 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    changing from str to att now
    expect more proggies
    since i may not double post:
    another proggy:

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 2 Hours, 29 Minutes and 26 Seconds
    Chickens killed: 760 | 1 Hit K0's: 124
    Kill rate: 299/hr
    Feathers picked up 585 times, ~ 5850
    Walked back from lumby: 0
    ===============================
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 5 |
    | Talks : 4 |
    | Dwarfs : 1 |
    | No Sandwiches : 1 |
    | Lamps Missed : 1 |
    | Certers Solved : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

    short, cause one player = False because of unsolvable sandwich lady random.
    setting everything up again ^^
    expect more

    EDIT:
    ===============================
    Worked: 3 Hours, 8 Minutes and 27 Seconds
    Chickens killed: 1014 | 1 Hit K0's: 190
    Kill rate: 323/hr
    Feathers picked up 712 times, ~ 7120
    Walked back from lumby: 0
    ===============================

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 5 |
    | Talks : 6 |
    | Dwarfs : 3 |
    | Old Men : 1 |
    | Sandwiches : 1 |
    | No Sandwiches : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 28 Minutes and 23 Seconds
    Chickens killed: 137 | 1 Hit K0's: 28
    Kill rate: 291/hr
    Feathers picked up 108 times, ~ 1080
    Walked back from lumby: 0
    ===============================

    ===============================
    Worked: 26 Minutes and 58 Seconds
    Chickens killed: 137 | 1 Hit K0's: 24
    Kill rate: 307/hr
    Feathers picked up 99 times, ~ 990
    Walked back from lumby: 0
    ===============================

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 26 Minutes and 16 Seconds
    Chickens killed: 120 | 1 Hit K0's: 23
    Kill rate: 276/hr
    Feathers picked up 82 times, ~ 820
    Walked back from lumby: 0
    ===============================
    stopped by randoms.
    last stop was to buy a new weapem^^
    this script is awsome man
    BTW: am i the only one posting proggys

    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 1 Hours, 41 Minutes and 22 Seconds
    Chickens killed: 462 | 1 Hit K0's: 152
    Kill rate: 273/hr
    Feathers picked up 360 times, ~ 3600
    Walked back from lumby: 0
    ===============================
    another proggy:
    stopped to sleep
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 3 |
    | Talks : 2 |
    | Dwarfs : 1 |
    | Capn Hand[s] : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

  5. #105
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    alright, well....I'm training my new noobs on the side of working on my old noobs' mining, so here is a short lil proggie I got
    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 44 Hours, 9 Minutes and 50 Seconds
    Chickens killed: 10015 | 1 Hit K0's: 263
    Kill rate: 171/hr
    Feathers picked up 5356 times, ~ 53560
    Walked back from lumby: 0
    ===============================

    0 : gal - T Pen; Rand: No GameTab ATC 39, STR 1, DEF 1, HP 29. W: 697 min. K: 2526.
    1 : obih - T Lost on way back to pen; Rand: No GameTab ATC 39, STR 1, DEF 1, HP 29. W: 314 min. K: 1159.
    2 : yna - T Pen; Rand: Mordaut ATC 31, STR 1, DEF 1, HP 22. W: 428 min. K: 468.
    3 : uga - T Pen; Rand: Certer ATC 38, STR 1, DEF 1, HP 28. W: 282 min. K: 1156.
    4 : tetb - T Lost on way back to pen; Rand: Pinball ATC 1, STR 1, DEF 27, HP 20. W: 142 min. K: 296.
    5 : gal - T Pen; Rand: No GameTab ATC 39, STR 1, DEF 1, HP 29. W: 467 min. K: 758.
    6 : obih - T Pen; Rand: Sandwich Lady ATC 38, STR 1, DEF 1, HP 28. W: 338 min. K: 1325.
    7 : yna - T Pen; Rand: No GameTab ATC 31, STR 1, DEF 1, HP 22. W: 87 min. K: 340.
    8 : uga - T Pen; Rand: No GameTab ATC 36, STR 1, DEF 1, HP 27. W: 610 min. K: 1821.
    9 : tetb - T Lost on way back to pen; Rand: No GameTab ATC 1, STR 1, DEF 27, HP 20. W: 52 min. K: 166.

    ===============================

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 103 |
    | Talks : 68 |
    | Dwarfs : 35 |
    | Ricks : 3 |
    | Old Men : 4 |
    | Sandwiches : 4 |
    | No Sandwiches : 1 |
    | Lamps Missed : 4 |
    | Certers Solved : 4 |
    | Certers Missed : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    And I think I'm going to put the scripts I use most in my sig, so this will be on top

    EDIT:
    If its okay with you that is...if not, I will take it out of my sig promptly

    EDIT2:

    Hey hey hey!
    this can't die...I love this!
    anyway...since no-one has posted on this in forever I have to edit in this short proggie, scar died on me,
    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 27 Hours, 24 Minutes and 50 Seconds
    Chickens killed: 5562 | 1 Hit K0's: 186
    Kill rate: 162/hr
    Feathers picked up 3558 times, ~ 35580
    Walked back from lumby: 0
    ===============================

    0 : gal - T Lost on way back to pen; Rand: Sandwich Lady ATC 43, STR 1, DEF 1, HP 33. W: 436 min. K: 963.
    1 : obih - T Lost on way back to pen; Rand: No GameTab ATC 39, STR 1, DEF 1, HP 29. W: 15 min. K: 0.
    2 : yna - T Lost on way back to pen ATC 35, STR 1, DEF 1, HP 25. W: 135 min. K: 305.
    3 : uga - T Pen; Rand: No GameTab ATC 41, STR 1, DEF 1, HP 31. W: 353 min. K: 1392.
    4 : tetb - T Lost on way back to pen; Rand: Pinball ATC 1, STR 1, DEF 31, HP 22. W: 165 min. K: 424.
    5 : gal - T Lost on way back to pen; Rand: No GameTab ATC 43, STR 1, DEF 1, HP 33. W: 205 min. K: 693.
    6 : obih - T Lost on way back to pen ATC 39, STR 1, DEF 1, HP 29. W: 19 min. K: 0.
    7 : yna - T Lost on way back to pen; Rand: No GameTab ATC 35, STR 1, DEF 1, HP 25. W: 99 min. K: 348.
    8 : uga - T Pen; Rand: No GameTab ATC 39, STR 1, DEF 1, HP 29. W: 392 min. K: 1019.
    9 : tetb - T Pen; Rand: Pinball ATC 0, STR 0, DEF 0, HP 0. W: 133 min. K: 418.

    ===============================

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | SRL Logs : 127 |
    | Talks : 38 |
    | Dwarfs : 24 |
    | Ricks : 1 |
    | Old Men : 1 |
    | Sandwiches : 3 |
    | No Sandwiches : 3 |
    | Capn Hand[s] : 2 |
    | Certers Solved : 2 |
    | Demons Solved : 1 |
    | Mazes Found : 8 |
    | Death[s] : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    still works great!
    Everyone needs to use this!!!!
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  6. #106
    Join Date
    Mar 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I keep getting this error:
    [Runtime Error] : Out Of Range in line 129 in script C:\DOCUME~1\andy\LOCALS~1\Temp\chickens 0.14_pub.scar

  7. #107
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by killer_game0 View Post
    I keep getting this error:
    [Runtime Error] : Out Of Range in line 129 in script C:\DOCUME~1\andy\LOCALS~1\Temp\chickens 0.14_pub.scar
    go to line 80...and setup the correct number of players please...at least I think that should fix it
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  8. #108
    Join Date
    Mar 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok well I do that. I switch it to 1 player.(just wanna try it to see if there are any problems.) But then it comes up with another error. Here it is:

    [Runtime Error] : Out Of Range in line 105 in script C:\DOCUME~1\andy\LOCALS~1\Temp\chickens 0.14_pub-1.scar

    P.S what is the RCMASTER?

  9. #109
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    rc master is remote control master, you can give commands to your players, to reset them all to true and so on.
    but with the new updates IT WONT WORK

  10. #110
    Join Date
    Oct 2007
    Location
    medway.england
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    always fails on the way back to the pen with

    Could not find Water Color!
    Could not find Water Color!

    a problem with srl not your script methinks, shame it dosnt work though

  11. #111
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Demit, so much new proggies.
    They're all good. About autocolor failures, are you using scar 3.15 or 3.14?

    I'll update it when rev update comes, im pretty busy with everything.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  12. #112
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey
    thats a problem in autocolor.scar
    you can find a fix on:
    go to srl junior members
    runecrafting
    craftermaster
    page 5
    copy that fixes to your autocolor.scar and it will work
    nothing wrong in this script

  13. #113
    Join Date
    Mar 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I tried it again and then I got this error:
    Out Of Range in line 111 in script C:\DOCUME~1\andy\LOCALS~1\Temp\chickens 0.14_pub.scar

  14. #114
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    did you delete watercolor and fally road color?
    you need to replace them with the fix..
    ohh wait..
    i'll give you mine
    SCAR Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               » AutoColorFinding Routines                   --//
    //-----------------------------------------------------------------//

    //  Â» function  FindWaterColor: Integer;                                            | by Tarajunky
    //  Â» function  FindRoadColor: Integer;                                             | by Tarajunky
    //  Â» function  FindVarrockRoadColor: Integer;                                      | by Tarajunky
    //  Â» function  FindFallyRoadColor: Integer;                                        | by Tarajunky
    //  Â» function  FindRockColor: Integer;                                             | by Tarajunky
    //  Â» function  FindStoneColor: Integer;                                            | by Tarajunky
    //  Â» function  FindDirtRoadColor: Integer;                                         | by Tarajunky
    //  Â» function  FindBridgeColor: Integer;                                           | by Tarajunky
    //  Â» function  FindLadderColor: Integer;                                           | by Tarajunky
    //  Â» function  AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2:Integer) : integer;    | by Sumilion

    {*******************************************************************************
    function FindWaterColor: Integer;
    By: Tarajunky
    Description: Autodetects Water Color on Minimap
    *******************************************************************************}


    function FindWaterColor: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 12095356;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 50);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,50) then
          begin
            ColorToRGB(TestColor,Red,Green,Blue);
            if InRange(Green - Red, 18, 30) then
              if InRange(Blue - Red, 55, 72) then
                if InRange(Blue - Green, 34 ,52) then
                  if GetColor(P[a].x + 2, P[a].y + 2) = TestColor then
                    if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                      if GetColor(P[a].x, P[a].y + 2) = TestColor then
                        if GetColor(P[a].x + 2, P[a].y) = TestColor then
                          if GetColor(P[a].x, P[a].y + 1) = TestColor then
                            if GetColor(P[a].x + 1, P[a].y) = TestColor then
                              if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                                if GetColor(P[a].x + 1, P[a].y + 2) = TestColor then
                                begin
                                  Result := TestColor;
                                  WaterColor := TestColor;
                                  WriteLn('WaterColor = ' + IntToStr(TestColor));
                                  Exit;
                                end;
          end;
        end;
      end;
      WriteLn('Could not find Water Color!');
      Result := 0;
    end;


    {*******************************************************************************
    function FindRoadColor: Integer;
    By: Tarajunky
    Description: Autodetects Normal Road Color on Minimap
    *******************************************************************************}


    function FindRoadColor: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 5987170;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,60) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Red - Green <= 10 then if Red - Green >= 5 then
              if Red - Blue <= 10 then if Red - Blue >= 5 then
                if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
                  if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                    if GetColor(P[a].x, P[a].y + 5) = TestColor then
                      if GetColor(P[a].x + 5, P[a].y) = TestColor then
                        if GetColor(P[a].x, P[a].y + 3) = TestColor then
                          if GetColor(P[a].x + 3, P[a].y) = TestColor then
                            if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                              if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                              begin
                                Result := TestColor;
                                RoadColor := TestColor;
                                WriteLn('RoadColor = ' + IntToStr(TestColor));
                                Exit;
                              end;
          end;
        end;
      end;
      WriteLn('Could not find Road Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindVarrockRoadColor: Integer;
    By: Tarajunky
    Description: Autodetects Varrock Road Color on Minimap
    *******************************************************************************}


    function FindVarrockRoadColor: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 7304312;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,60) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Red - Blue <= 12 then if Red - Blue >= 8 then
              if Red - Green <= 6 then if Red - Green >= -1 then
                if Green - Blue <= 10 then if Green - Blue >= 4 then
                  if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
                    if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                      if GetColor(P[a].x, P[a].y + 5) = TestColor then
                        if GetColor(P[a].x + 5, P[a].y) = TestColor then
                          if GetColor(P[a].x, P[a].y + 3) = TestColor then
                            if GetColor(P[a].x + 3, P[a].y) = TestColor then
                              if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                                if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                                begin
                                  Result := TestColor;
                                  WriteLn('Varrock RoadColor = ' +
                                    IntToStr(TestColor));
                                  Exit;
                                end;
          end;
        end;
      end;
      WriteLn('Could not find Varrock Road Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindFallyRoadColor: Integer;
    By: Tarajunky
    Description: Autodetects Falador Road Color on Minimap
    *******************************************************************************}


    function FindFallyRoadColor: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue : integer;
    var
      P:array of Tpoint;
    begin
      GC := 6187637;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 50);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,50) then
          begin
            ColorToRGB(TestColor,Red,Green,Blue);
            if InRange(Red - Blue, 18, 33) then
              if InRange(Red - Green, 0, 15) then
                if InRange(Green - Blue, 8, 30) then
                  if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
                    if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                      if GetColor(P[a].x, P[a].y + 5) = TestColor then
                        if GetColor(P[a].x + 5, P[a].y) = TestColor then
                          if GetColor(P[a].x, P[a].y + 3) = TestColor then
                            if GetColor(P[a].x + 3, P[a].y) = TestColor then
                              if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                                if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                                begin
                                  Result := TestColor;
                                  WriteLn('Falador RoadColor = ' +
                                    IntToStr(TestColor));
                                  Exit;
                                end;
          end;
        end;
      end;
      WriteLn('Could not find Falador Road Color!');
      Result := 0;
    end;


    {*******************************************************************************
    function FindRockColor: Integer;
    By: Tarajunky
    Description: Autodetecs Rock (Gray) Color on Minimap
    *******************************************************************************}


    function FindRockColor: Integer;
    var
      GC, a, l, TestColor: integer;
    var
      P:array of Tpoint;
    begin
      GC := 6444639;
      Flag;
      FindColorsSpiralTolerance(MMCX,MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 50);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        TestColor := GetColor(P[a].x,P[a].y);
        if (GetColor(P[a].x-1,P[a].y)=TestColor-789772) then
        begin
          Result := TestColor;
          WriteLn('Rock Color = ' + IntToStr(TestColor));
          Exit;
        end;
      end;
      WriteLn('Could not find Rock Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindStoneColor: Integer;
    By: Tarajunky
    Description: Autodetecs Stone (Mine Rock) Color on Minimap
    *******************************************************************************}


    function FindStoneColor: Integer;
    var
      GC, a, l, TestColor: integer;
    var
      P:array of Tpoint;
    begin
      GC := 3561615;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        TestColor := GetColor(P[a].x,P[a].y);
        if (GetColor(P[a].x-1,P[a].y)=TestColor-461068) then
        begin
          Result := TestColor;
          WriteLn('Stone Color = ' + IntToStr(TestColor));
          Exit;
        end;
      end;
      WriteLn('Could not find Stone Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindDirtRoadColor: Integer;
    By: Tarajunky
    Description: Autodetects Dirt Road Color on Minimap
    *******************************************************************************}


    function FindDirtRoadColor: Integer;
    var
      GC, a, l, TestColor, Red, Green, Blue, x, y : integer;
    var
      P:array of Tpoint;
    begin
      if WaterColor = 0 then WaterColor:=FindWaterColor;
      if not (FindColor(x, y, WaterColor, MMX1, MMY1, MMX2, MMY2)) then
        WaterColor := FindWaterColor;
      GC := 4548987;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 140);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,140) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Red - Green <= 33 then if Red - Green >= 5 then if Red <= 120 then
              if Green - Blue >= 17 then if Green - Blue <= 58 then
                if Blue <=45 then if Red - Blue >= 30 then if Red - Blue <= 75 then
                  if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
                    if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                      if GetColor(P[a].x, P[a].y + 5) = TestColor then
                        if GetColor(P[a].x + 5, P[a].y) = TestColor then
                          if GetColor(P[a].x, P[a].y + 3) = TestColor then
                            if GetColor(P[a].x + 3, P[a].y) = TestColor then
                              if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                                if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                                  if ((WaterColor = 0) or not (FindColor(x, y,
                                    WaterColor, P[a].x - 10, P[a].y - 10,
                                    P[a].x + 10, P[a].y + 10))) then
                                    begin
                                      Result := TestColor;
                                      WriteLn('Dirt Road Color = ' +
                                      IntToStr(TestColor));
                                      Exit;
                                    end;
          end;
        end;
      end;
      WriteLn('Could not find Dirt Road Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindBridgeColor: Integer;
    By: Tarajunky
    Description: Autodetects Bridge Color on Minimap
    *******************************************************************************}


    function FindBridgeColor: Integer;
    var
      GC, a, l, TestColor, x, y: integer;
    var
      P:array of Tpoint;
    begin
      if WaterColor = 0 then WaterColor := FindWaterColor;
      if not(FindColor(x, y, WaterColor, MMX1, MMY1, MMX2, MMY2)) then
        WaterColor := FindWaterColor;
      if WaterColor = 0 then
      begin
        WriteLn('No water on screen... aborting');
        Result := 0;
        Exit;
      end;
      GC := 1389645;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if GetColor(P[a].x,P[a].y-1)=WaterColor then
          begin
            if GetColor(P[a].x-1,P[a].y)=Testcolor+198926 then
            begin
              Result := TestColor;
              WriteLn('Bridge Color = ' + IntToStr(TestColor));
              Exit;
            end;
          end;
        end;
      end;
      WriteLn('Could not find Bridge Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function FindLadderColor: Integer;
    By: Tarajunky
    Description: Autodetects Ladder Color on Minimap
    *******************************************************************************}


    function FindLadderColor:integer;
    var
      GC, ColorCount, a, i, j, n, l, TestColor, Red, Green, Blue : integer;
    var
      ColorArray : array of integer;
    var
      P : array of Tpoint;
    begin
      GC := 10837;
      Flag;
      FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
      l:=GetArrayLength(P);
      SetArrayLength(ColorArray,32);
      l:=GetArrayLength(P);
      for a:= 0 to l-1 do
      begin
        if rs_OnMinimap(P[a].x,P[a].y) then
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if SimilarColors(TestColor,GC,60) then
          begin
            red := (TestColor mod 256);
            green := ((TestColor / 256) mod 256);
            blue := ((TestColor / 256) / 256);
            if Blue <= 30 then if Red - Blue <= 105 then if Red <= 115 then
              if Green <= 70 then if Green >= 5 then if Green - Blue >= 5 then
                if Green - Blue <= 60 then if Red >= 55 then
                  if Red - Green >= 25 then if Red - Green <= 65 then
                    if Red - Blue >= 55 then
                    begin
                      n:=0;
                      for i:= 0 to 3 do
                      begin
                        for j:= 0 to 7 do
                        begin
                          ColorArray[n]:=GetColor(P[a].x+i,P[a].y-3+j);
                          n:=n+1;
                        end;
                      end;
                      ColorCount:=0;
                      for n:= 0 to 31 do
                      begin
                        if ColorArray[n]=TestColor then ColorCount:=ColorCount+1;
                      end;
                      if ColorCount<17 then if ColorCount>12 then
                      begin
                        Result := TestColor;
                        WriteLn('Ladder color = ' + IntToStr(TestColor)
                        +
                        ' at ' + IntToStr(P[a].x) + ',' + IntToStr(P[a].y));
                        Exit;
                      end;
                    end;
          end;
        end;
      end;
      WriteLn('Could not find Ladder Color!');
      Result := 0;
    end;

    {*******************************************************************************
    function AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2: Integer): Integer;
    By: Sumilion
    Description: Resturns exact color of a bmp with tol found on the screen.
    *******************************************************************************}


    function AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2: Integer): Integer;
    var
      lTol, Ax, Ay: Integer;
    begin
      repeat;
        if (FindBitmapToleranceIn(Bitmap, Ax, Ay, X1, Y1, X2, Y2, lTol)) then
        begin
          Result := GetColor(Ax, Ay);
          Exit;
        end;
        lTol := lTol + 5;
      until (lTol >= MaxTol);
      WriteLn('Color NOT found.');
    end;
    go to your autocolor include in srl map.
    than do ctrl+a
    hit delete.
    copy my code
    paste it in autocolor.scar
    save it.
    restart scar
    and try again

  15. #115
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ugh I have to make another character. because of my name * * * * * it won't detect randoms lol. I just lost 25k feathers and 30k bolts. ain't this some BS lol.

  16. #116
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    lol....youre fault for making a name that has spaces between each letter...
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  17. #117
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    any idea why this cuts off every 2 hours? this is what it says.

    breaked out from loop: Not Loggedin
    We got 1 active players left
    NextPlayer

    btw i'm running this with one character

  18. #118
    Join Date
    Jan 2007
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SRL Compiled in 1012 msec
    Creating the NickTPA.
    [Runtime Error] : Exception: Access violation at address 004B998D in module 'scar.exe'. Read of address 00000008 in line 657 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Symbol.scar

    this is the error i get when my player has teleported in Lumy ...

    How can i solve this ?
    THX !
    PEOPLE PLEASE AUTO PROPERLY

  19. #119
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    so....I was watching this run, and a genie popped up, and the script was sad because it missed the lamp
    but...I was thinking that if it knows it lost the lamp, could you make so that it buries one of the bones in the inventory and then pick up the lamp and use it?
    just wondering if this would be hard, I mean, i know you are teh 1337 scriptzor negaal
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  20. #120
    Join Date
    Mar 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Lck

    Oops thought I sent this in pm o.O

    Anyways, looks like a kickass script.
    http://www.fenjer.com/adnan/SRLStats/4738.png

    Hy71194's Fight Cave Runner is OWNS!!!!!!!!!
    Drizzt's FallyCowCruncher is ownage too! <3<3<3

  21. #121
    Join Date
    Feb 2007
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    Lumbridge Chicken Killer v0.14_Pub by Negaal
    ===============================
    Worked: 7 Hours, 30 Minutes and 21 Seconds
    Chickens killed: 2823 | 1 Hit K0's: 1070
    Kill rate: 376/hr
    Feathers picked up 2169 times, ~ 21690
    Walked back from lumby: 1
    ===============================
    
    0 : ars - T Pen ATC 47, STR 49, DEF 51, HP 50. W: 403 min. K: 2823. 
    
    ===============================
    GTL: No GameTab
    breaked out from loop: Not Loggedin
    We got 0 active players left
    NextPlayer

  22. #122
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  23. #123
    Join Date
    May 2007
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Constantly picks up raw chickens... Rather annoying....


    Good script though

  24. #124
    Join Date
    Dec 2007
    Location
    Williston, ND
    Posts
    3,106
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by vinny13 View Post
    Constantly picks up raw chickens... Rather annoying....


    Good script though
    It does that on purpose....
    It fills your inventory with junk to prevent some of the easy/annoying randoms.
    I really don't see how you find this feature annoying to you, you just have to drop the stuff, isn't too bad
    Proud owner of "Efferator" my totally boted main account!
    "You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)

  25. #125
    Join Date
    May 2007
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I find it annoying because it will be fighting a chicken and as its fighting it just runs over and picks something up and abandons the chicken...


    Oh and how's about a SMART version

    That would GREATLY help me out

Page 5 of 6 FirstFirst ... 3456 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My Pwnage Script
    By Jethr0x in forum News and General
    Replies: 12
    Last Post: 02-02-2009, 04:28 AM
  2. Post if you think im uber 733t pwnage
    By Waddo in forum The Bashing Club / BBQ Pit
    Replies: 11
    Last Post: 07-26-2008, 08:06 AM
  3. Lumbridge
    By Boreas in forum RS3 Outdated / Broken Scripts
    Replies: 66
    Last Post: 04-30-2007, 08:25 PM
  4. Lumbridge East Chicken Killer
    By madmoon in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 03-02-2007, 01:38 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
  •