var col :int:=0
var mx, my, mb :int

%colorbox
if b = 1 and x > 60 and x < 80 and y < 20 then 
col := 0 
end if 
if b = 1 and x > 80 and x < 100 and y < 20 then 
col := 1 
end if 
if b = 1 and x > 100 and x < 120 and y < 20 then 
col := 2 
end if 
if b = 1 and x > 120 and x < 140 and y < 20 then 
col := 3 
end if 
if b = 1 and x > 140 and x < 160 and y < 20 then 
col := 4 
end if 
if b = 1 and x > 160 and x < 180 and y < 20 then 
col := 5 
end if 
if b = 1 and x > 180 and x < 200 and y < 20 then 
col := 6 
end if 
if b = 1 and x > 200 and x < 220 and y < 20 then 
col := 7 
end if 
if b = 1 and x > 220 and x < 240 and y < 20 then 
col := 8 
end if 
if b = 1 and x > 240 and x < 260 and y < 20 then 
col := 9 
end if 
if b = 1 and x > 260 and x < 280 and y < 20 then 
col := 10 
end if 
if b = 1 and x > 280 and x < 300 and y < 20 then 
col := 11 
end if 
if b = 1 and x > 300 and x < 320 and y < 20 then 
col := 12 
end if 
if b = 1 and x > 320 and x < 340 and y < 20 then 
col := 13 
end if 
if b = 1 and x > 340 and x < 360 and y < 20 then 
col := 14 
end if 
if b = 1 and x > 360 and x < 380 and y < 20 then 
col := 15 
end if 

%spray can
if mb = 1 then 
loop 
Draw.Dot (Rand.Int (mx - 34, mx + 34), Rand.Int (my - 34, my + 34), col) 
mb := 0 
exit when mb = 0 
end loop 
end if