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