//set #g findcolor (0 0 500 500 1 1 (2443151) %a 2 1)
set %a[1 1] 128
set %a[1 2] 116
set %a[2 1] (%a[1 1] + 37) * 2
set %a[2 2] (%a[1 2] + 51) * 2

:start
gosub getcolor
gosub x6
gosub y6
gosub x4
gosub y4
goto start

end_script

:getcolor
set #af %a[2 1] + 872
set #bf %a[2 2] + 872
for #b %a[2 2] #bf 109
set #y #b / 2
for #a %a[2 1] #af 109
set #x #a / 2
get color #c #x #y
set %m[#a #b] 0
if #c = 2957780 or #c = 3614169 or #c = 2102719 or #c = 3155374
set %m[#a #b] 1
end_if
if #c = 6480639 or #c = 6676990 or #c = 5760767 or #c = 5629182 or #c = 0 or #c = 0
set %m[#a #b] 5
end_if
if #c = 6807532 or #c = 7790574 or #c = 7987695 or #c = 2345699
set %m[#a #b] 20
end_if
if #c = 12320641 or #c = 12776559 or #c = 12254849 or #c = 12189056  or #c = 12320384
set %m[#a #b] 100
end_if
if #c = 9661440 or #c = 8806912 or #c = 11767296 or #c = 11504128 or #c = 0
set %m[#a #b] 500
end_if
if #c = 14388009 or #c = 14519338 or #c = 14453545 or #c = 14255399 or #c = 0 or #c = 0
set %m[#a #b] 1000
end_if
//if %m[#a #b] < 1
//move #x, #y
//msg #c
//end_if 
end_for
end_for
return

:x6
set #xm %a[2 1] + 763
set #ym %a[2 2] + 872
for #ly1 %a[2 2] #ym 109
for #lx1 %a[2 1] #xm 109
set #lx2 #lx1 + 109
set #lx3 #lx1 + 218
set #ly2 #ly1 + 109
set #af1 (#lx1 - 109) / 2
set #af2 #lx1 / 2
set #af3 (#lx1 + 109) / 2
set #bf1 (#ly1 - 109) / 2
set #bf2 #ly1 / 2
set #r %m[#lx1 #ly1] + %m[#lx2 #ly2] + %m[#lx3 #ly1]
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af2, #bf2
wait 10
left #af2, #bf1 
end_if
set #r %m[#lx1 #ly2] + %m[#lx2 #ly1] + %m[#lx3 #ly2]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af2, #bf1
wait 10
left #af2, #bf2
end_if
set #r %m[#lx1 #ly1] + %m[#lx2 #ly1] + %m[#lx3 #ly2]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af3, #bf2
wait 10
left #af3, #bf1 
end_if
set #r %m[#lx1 #ly2] + %m[#lx2 #ly2] + %m[#lx3 #ly1]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af3, #bf1
wait 10
left #af3, #bf2 
end_if
set #r %m[#lx1 #ly2] + %m[#lx2 #ly1] + %m[#lx3 #ly1]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf2
wait 10
left #af1, #bf1 
end_if
set #r %m[#lx1 #ly1] + %m[#lx2 #ly2] + %m[#lx3 #ly2]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf1
wait 10
left #af1, #bf2 
end_if
end_for
end_for
return

:x4
set #xm %a[2 1] + 654
set #ym %a[2 2] + 981
for #ly1 109 #ym 109
for #lx1 109 #xm 109
set #lx2 #lx1 + 109
set #lx3 #lx1 + 218
set #lx4 #lx1 + 327
set #af1 (#lx1 - 109) / 2
set #af2 #lx1 / 2
set #af3 (#lx1 + 109) / 2
set #af4 (#lx1 + 218) / 2
set #bf1 (#ly1 - 109) / 2
set #r %m[#lx1 #ly1] + %m[#lx2 #ly1] + %m[#lx4 #ly1]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af4, #bf1
wait 10
left #af3, #bf1 
end_if
set #r %m[#lx1 #ly1] + %m[#lx3 #ly1] + %m[#lx4 #ly1]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf1
wait 10
left #af2, #bf1 
wait 100
end_if
end_for
end_for
return

:y4
set #xm %a[2 1] + 981
set #ym %a[2 2] + 654
for #ly1 109 #ym 109
for #lx1 109 #xm 109
set #ly2 #ly1 + 109
set #ly3 #ly1 + 218
set #ly4 #ly1 + 327
set #bf1 (#ly1 - 109) / 2
set #bf2 #ly1 / 2
set #bf3 (#ly1 + 109) / 2
set #bf4 (#ly1 + 218) / 2
set #af1 (#lx1 - 109) / 2
set #r %m[#lx1 #ly1] + %m[#lx1 #ly2] + %m[#lx1 #ly4]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf4
wait 10
left #af1, #bf3 
end_if
set #r %m[#lx1 #ly1] + %m[#lx1 #ly3] + %m[#lx1 #ly4]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf1
wait 10
left #af1, #bf2 
end_if
end_for
end_for
return

:y6
set #xm %a[2 1] + 872
set #ym %a[2 2] + 763
for #ly1 109 763 109
for #lx1 109 872 109
set #lx2 #lx1 + 109
set #ly2 #ly1 + 109
set #ly3 #ly1 + 218
set #af1 (#lx1 - 109) / 2
set #af2 #lx1 / 2
set #bf3 (#ly1 + 109) / 2
set #bf1 (#ly1 - 109) / 2
set #bf2 #ly1 / 2
set #bf3 (#ly1 + 109) / 2
set #r %m[#lx1, #ly1] + %m[#lx2, #ly2] + %m[#lx1, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af2, #bf2
wait 10
left #af1, #bf2 
end_if
set #r %m[#lx2, #ly1] + %m[#lx1, #ly2] + %m[#lx2, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf2
wait 10
left #af2, #bf2
end_if
set #r %m[#lx1, #ly1] + %m[#lx1, #ly2] + %m[#lx2, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af2, #bf3
wait 10
left #af1, #bf3 
end_if
set #r %m[#lx2, #ly1] + %m[#lx2, #ly2] + %m[#lx1, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf3
wait 10
left #af2, #bf3 
end_if
set #r %m[#lx2, #ly1] + %m[#lx1, #ly2] + %m[#lx1, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af2, #bf1
wait 10
left #af1, #bf1 
end_if
set #r %m[#lx1, #ly1] + %m[#lx2, #ly2] + %m[#lx2, #ly3]  
if #r = 3 or #r = 15 or #r = 60 or #r = 300 or #r = 1500 or #r = 3000 
left #af1, #bf1
wait 10
left #af2, #bf1 
end_if
end_for
end_for
return