%This is a pirate game, with several mini games in it
var cannonx, cannony, stretch, window : int %cannon x/y, and parabola vertical stretch
window := Window.Open ("graphics:800;800,position:center;center,nobuttonbar,offscreenonly")
cannonx := 0
cannony := 0
stretch := 0
loop
    if Mouse.ButtonMoved ("down") then
        stretch := 1
    end if
    exit when stretch = 1
end loop
loop
    exit when Mouse.ButtonMoved ("up")
    delay (500)
    stretch := stretch + 1
end loop
for i : 30 .. 100
    cls
    cannonx := i + 1
    cannony := -1 * stretch * (cannonx - 50) ** 2 + (stretch * 400)
    if cannony < 0 then
        cannony := 0
    end if
    Draw.FillOval (cannonx, cannony, 5, 5, black)
    View.Update
    delay (50)
    exit when cannony = 0
end for