setscreen ("graphics:800,600,offscreenonly,nobuttonbar")
var flyx, flyy, shoofly : array 1 .. 5 of int
var Colour : array 1 .. 5 of int := init (black, black, black, black, black)
var mousex, mousey, button : int
var flycounter, hitcount : int := 0
var crack1, crack2, crack3, crack : int
var cracknum : int := 1
var crackx, cracky : array 1 .. 21 of int
crackx (1) := 0
cracky (1) := 0
crack1 := Pic.FileNew ("crack1.jpg")
crack2 := Pic.FileNew ("crack2.jpg")
crack3 := Pic.FileNew ("crack3.jpg")
var fly : int := Pic.FileNew ("fly.jpg")
crack := 0
const flyspeed := 10

for i : 1 .. 5
    shoofly (i) := 1
end for
process splat
    Music.PlayFile ("splat.mp3")
end splat
process swat
    Music.PlayFile ("swat.mp3")
end swat

for i : 1 .. 5
    randint (flyx (i), 0, maxx)
    randint (flyy (i), 0, maxy)
end for
loop
    Mouse.Where (mousex, mousey, button)
    cls
    drawline (maxx div 2 - 250, 50, maxx div 2 + 150, maxy - 50, 30)
    drawline (maxx div 2 - 200, 50, maxx div 2 + 200, maxy - 50, 30)
    if button = 1 then
        fork splat
        crackx (cracknum) := mousex
        cracky (cracknum) := mousey
        randint (crack, 1, 3)
        % I want this picture to stay drawn.
        if crack = 1 then
            Pic.Draw (crack1, crackx (cracknum) - (Pic.Width (crack1)) div 2, cracky (cracknum) - (Pic.Height (crack1)) div 2, picMerge)
        elsif crack = 2 then
            Pic.Draw (crack2, crackx (cracknum) - (Pic.Width (crack2)) div 2, cracky (cracknum) - (Pic.Height (crack2)) div 2, picMerge)
        elsif crack = 3 then
            Pic.Draw (crack3, crackx (cracknum) - (Pic.Width (crack3)) div 2, cracky (cracknum) - (Pic.Height (crack3)) div 2, picMerge)
        end if
        cracknum += 1
        hitcount += 1
    end if
    for i : 1 .. 5
        Pic.Draw (fly, flyx (i), flyy (i), picMerge)
        flyx (i) += Rand.Int (-flyspeed, flyspeed)
        flyy (i) += Rand.Int (-flyspeed, flyspeed)
        if not shoofly (i) = 1 then
            if flyy (i) >= maxy then
                flyy (i) := maxy
            elsif flyy (i) <= 0 then
                flyy (i) := 0
            elsif flyx (i) >= maxx then
                flyx (i) := maxx
            elsif flyx (i) <= 0 then
                flyx (i) := 0
            end if
        end if
        if mousex > flyx (i) - 20 and mousex < flyx (i) + 20 and mousey > flyy (i) - 20 and mousey < flyy (i) + 20 and button = 1 then
            flycounter += 1
            flyx (i) := -1000
            shoofly (i) := 1
            fork swat
        end if
    end for
    delay (50)
    View.Update
    if flycounter = 5 then
        cls
        put "You win!"
        exit
        elsif hitcount = 20 then
        cls
        put "You lose. You broke the glass."
        exit
    end if
end loop