setscreen ("graphics:300;300,nobuttonbar")
drawstar (0, 0, 300, 300, blue)

var mx, my, mb : int

proc fill2 (x, y, clr, oclr : int)
    if x >= 0 and y >= 0 and x <= maxx and y <= maxy then
        drawdot (x, y, clr)
        for i : -1 .. 1
            for j : -1 .. 1
                if abs (i) not= abs (j) and whatdotcolor (x + i, y + j) = oclr then
                    fill2 (x + i, y + j, clr, oclr)
                end if
            end for
        end for
    end if
end fill2

proc fill (x, y, clr : int)
    if whatdotcolor (x, y) not= clr then
        setscreen ("offscreenonly")
        fill2 (x, y, clr, whatdotcolor (x, y))
        setscreen ("nooffscreenonly")
    end if
end fill

loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        fill (mx, my, red)
    end if
end loop

proc spray (x, y, radius, clr : int)
    var tempx, tempy : int
    randint (tempx, -radius, radius)
    randint (tempy, -radius, radius)
    if (tempx ** 2 + tempy ** 2) < radius ** 2 then
        drawdot (tempx + x, tempy + y, clr)
    end if
end spray

var mx, my, mb : int
var count := 0
loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        spray (mx, my, 20, blue)
        count += 1
        if count = 10 then
            count := 0
            delay (1)
        end if
    else
        count := 0
    end if
end loop