roberts gay

View.Set ("graphics:max,max")

var mx, my, mb : int
var sprayx, sprayy : int
var col : int := 0
var distance:int


loop
    %sqrt ((x2-x1)**2 + (y2-y1)**2


    mousewhere (mx, my, mb)

    randint (sprayx, mx - 25, mx + 25)
    randint (sprayy, my - 25, my + 25)
    randint (col, 1, maxcolour)
    if mb = 1 and sqrt ((sprayx-mx)**2 + (sprayy-my)**2) < 40 then

        drawdot (sprayx, sprayy, col)

    exit when hasch
end loop