{curl 3.0 applet}
{applet manifest = "manifest.mcurl",
    resources = {{ReadOnlyArray-of String}
                    "explosion.wav",
                    "curl.jpg"
                }
}

||Curl Invaders
||Copyright 2001 - 2002 Steve Turner

{import * from SI-SUPPORT}

{document-style PlainDocument}

||Set the browser title
{let my-applet:Applet = {get-the-applet}}
{my-applet.set-title "Curl Invaders"}

||Set up the game
{reset-game}
{setup main-canvas}
{ask-to-start-game}

||Create the display
{let playarea:VBox = 
    {VBox
        margin = 10pt,
        {HBox
            vorigin = "bottom",
            horigin = "left",
            {get-curl-logo},
            {center
                {paragraph font-size = 48pt, 
                    font-family = "Verdana",
                    color = "blue",
                    Curl Invaders
                }
            },
            {get-curl-logo}
        },
        menubar,
        main-canvas,
        {Fill height = 10pt},
        {HBox
            vorigin = "bottom",
            horigin = "left",
            {link href = 
                {url "http://www.curlexamples.com"},
                More examples of Curl Technology
            },
            {Fill},
            {link href = 
                {url "si.zip"},
                Download the source code
            }
        }
    }
}

||Display the game
{value 
    {center
        {VBox
            playarea
        }
    }
}

||Request keyboard focus for the box that holds the player's name
{hall-of-fame-name-tf.request-key-focus}