SRL Archive - RS3 Outdated / Broken Scripts

EDIT: Thanks Nicbaz.

I thought the fairy ring used the 'Transportation' symbol?

Valid Arguments are:
  - agility                  - furnace                    - quest
  - altar                    - gem stall                  - rare trees, tree
  - anvil                    - guide                      - sandpit
  - apothecary               - hair dresser               - saw mill
  - archery shop             - herbalist                  - scimitar shop
  - arrow                    - house                      - shield
  - axe shop                 - hunter store               - shop, store
  - bar                      - hunter training            - short cut
  - candle shop              - jewelery                   - silk stall
  - churn                    - kebab shop                 - silver stall
  - clothes shop             - mace shop                  - slayer master
  - cookery shop             - magic shop                 - spice stall
  - cookery, cook            - makeover mage              - spinning wheel, spin
  - crafing shop             - mill                       - staff shop
  - dungeon                  - minigame                   - summoning store
  - farming shop             - mining shop                - sword shop
  - farming spot             - pet shop                   - training dummy
  - fishing shop, fish store - platebody shop             - underground
  - fishing spot, fish       - plateskirt shop            - water source, water
  - food shop                - portal (to player owned houses) - weave
  - fur trader               - pottery, pot               - windmill

- arrow

;
)

OH wow…

Thanks Nicbaz :)

I interpreted it as Archery, my bad

fairy ring to teleport with or for walking? (jw)

That was the walking, though i do also need to find the fairy ring in main screen

From: benjaa
That was the walking, though i do also need to find the fairy ring in main screen

MS Finder

program New;
{.include SRl/SRl.scar}



function FindFaryRingMS(var x,y: integer): Boolean;
var
  z,cts,I : Integer; 
  TPA: TPointArray;  
  TP : TPoint;     
  D2TPA: T2DPointArray;
  TPAA: Array Of TPointArray; 

begin    
  Result:= False; 
  SetAngle(True); 
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(cts);   
  FindColorsSpiralTolerance(628,428, TPAA[I], 4940167, MSX1 , MSY1 , MSX2 , MSY2 , 3);   
  TPA := CombineTPA(TPAA[0], TPAA[1]); 
  if not Length(TPA) <> 0 then 
    Exit;   
  D2TPA:= TPAtoATPAEx(TPA,8,8);     
  SortATPASize(D2TPA, true);
 
  for z:= 0 to length(D2TPA) - 1 Do   
  begin                        
    TP:= MiddleTPA(D2TPA[Z]);  
    x := TP.x;                
    y := TP.y;                
    MMouse (x, y, 3, 3);        
 
    if IsUpText('airy') then 
    begin                       
      GetMousePos(X, Y);         
      Result := True;       
      Exit;     
    end; 
 
    Wait(350+random(350)); 
  end;             
  Result := False;    
end; 



begin
  SetupSRL;
  if FindFaryRingMS(x,y) then
   Writeln('FindFaryRingMS Found')
end. 

MM Finder

program New;
{.include SRl/SRl.scar}


function FindFaryRingMS: Integer;
var
  H,S,L,X,Y,Z : Extended;
  R,G,B,P,A,TestColor : Integer;
  TPA : TPointArray;

begin
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, 2322923, MMX1, MMY1, MMX2, MMY2,60); 
  for A := 0 to  High(TPA) do
  begin
    if RS_OnMinimap(TPA[A].X, TPA[A].Y) then
    begin
      TestColor := GetColor(TPA[A].X, TPA[A].Y);
      if SimilarColors(TestColor, 2322923, 50) then
      begin
        ColorToHSL(TestColor, H, S, L);
        ColorToXYZ(TestColor, X, Y, Z);
        ColorToRGB(TestColor, R, G, B);

        if InRange(R - G, -20, 20) then 
          if InRange(R - B, -20, 20) then 
            if InRange(G - B, -20, 20) then 

        if InRange(Round(H - L), -15, 15) then
          if InRange(Round(S - H), -15, 15) then
            if InRange(Round(S - L), -15, 15) then

        if InRange(Round(X) - Round(Y), -7, 7) then
          if InRange(Round(Y) - Round(Z), -7, 7) then

        if GetColor(TPA[A].X + 2, TPA[A].Y + 2) = TestColor then
          if GetColor(TPA[A].X + 1, TPA[A].Y + 1) = TestColor then

        begin
          Result := TestColor;
          Exit;
        end;
      end;
      Result := 0;
      Exit;
    end;
  end;
end;


begin
  SetupSRL;
  Writeln('FindFaryRingMS Found');
end. 

Hey Nicbaz,

Have I ever told i love you?

:D But seriously, thats so sweet

T H A N K Y O U S 0 M U C H