SRL Archive - Outdated / Broken

The Gnome Copter Chopter
written by munk

Chops trees, oaks, and willows at Gnome Copter. If you dont know what Gnome Copter is, it's an f2p ride to see p2p areas. It is located in the cow pen above Lumbridge. There is a deposit box that the script uses to bank the chopped logs.

~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
**** (True) chopped 84 willows [wc] 42 {}
**** (True) chopped 84 willows [wc] 43 {}
**** (True) chopped 84 willows [wc] 42 {}
**** (True) chopped 112 willows [wc] 44 {}
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-

Gnome Copter Chopter
by munk

1 Hours, 43 Minutes and 30 Seconds
chopped 531 Willow logs

~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-

For those who don't know where:

Wow, 4 scripts released on 1 day :) Gratz, and gratz on Masters cup.

woah neat :) code looks stable and clean. just wish jagex didnt make that members cause i only got 1 acc that is!

From: P1NKY
woah neat :) code looks stable and clean. just wish jagex didnt make that members cause i only got 1 acc that is!

its not members ;)

wow.. simply.. wow.. I've never even heard of this "member ride"

I'll be sure to try this out very soon..

thanks

Yay great script munk:
[PHP]~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
ller (True) chopped 243 trees [wc] 21 { trees }
tup (True) chopped 189 trees [wc] 15 { bank }
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-

Gnome Copter Chopter
by munk

2 Hours, 8 Minutes and 28 Seconds
chopped 432 logs

~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-[/PHP]
Stopped manually.
The only problem is it doesnt find the water color… so i made a fix:

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, 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,50) then
      begin
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Blue - Green, 5, 36) then
          if InRange(Green - Red, 18, 26) then
            if InRange(Blue - Red, 49, 72) 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;

Gonna chop some oaks now :D

From: Cazax
Yay great script munk:
[PHP]~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
ller (True) chopped 243 trees [wc] 21 { trees }
tup (True) chopped 189 trees [wc] 15 { bank }
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-

Gnome Copter Chopter
by munk

2 Hours, 8 Minutes and 28 Seconds
chopped 432 logs

~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-[/PHP]
Stopped manually.
The only problem is it doesnt find the water color… so i made a fix:

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, 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,50) then
      begin
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Blue - Green, 5, 36) then
          if InRange(Green - Red, 18, 26) then
            if InRange(Blue - Red, 49, 72) 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;

Gonna chop some oaks now :D

woo, somebody actually ran this script! :D

yeah, its wierd, there are 2 watercolors in that area, and one isnt even a watercolor, its much much darker. But idk anythin about the status of srl's findWaterColor because Ive always replaced it with one I wrote ;) Im surprised reg trees ran that long, I wrote that real fast before I released, the script was written for oaks and willows :)

Yes, the script owns :) btw, im having a problem with the oaks, it fails while walking, and it start debugging the proggy like 1000 per second :S

this still working properly..?