SCAR Code:
procedure SetupColors;
begin
NPCColors[1] := 2026220;
NPCColors[2] := 6949227;
NPCColors[3] := 593486;
NPCColors[4] := 5441875;
NPCColors[5] := 6031709;
NPCColors[6] := 594515;
NPCColors[7] := 1184278;
end;
Procedure FindShop;
var CBx,CBy, GCIndex: Integer;
begin
if (ShopScreen)= False then
for GCIndex := 1 to 16 do
begin
repeat
if FindColorSpiralTolerance(CBx, CBy, NPCColors[GCIndex], MSX1, MSY1, MSX2, MSY2, 12) then
Writeln('Found Rune Shop! Continuing...');
Mouse(cbx,cby,22,17,false)
wait(30)
popup ('Trade')
until (ShopScreen)= True
end;
end;