EDIT: Thanks Nicbaz.
EDIT: Thanks Nicbaz.
Project: Welcome To Rainbow
I thought the fairy ring used the 'Transportation' symbol?
Originally Posted by irc
Code: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
Project: Welcome To Rainbow
OH wow...
Thanks Nicbaz
I interpreted it as Archery, my bad
Project: Welcome To Rainbow
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
Project: Welcome To Rainbow
MS Finder
SCAR Code: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
SCAR Code: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?
But seriously, thats so sweet
T H A N K Y O U S 0 M U C H
Project: Welcome To Rainbow
There are currently 1 users browsing this thread. (0 members and 1 guests)