Windows编程

开发平台：
Visual C++

GAME1.TXT：源码内容
							$OBJECT=ShipClass
$OBJECT=BubbleClass
$OBJECT=AmmoClass
Option Explicit
'----------------------------------------------------------------------------
' Game1.txt
'----------------------------------------------------------------------------
' Use path to this file as parameter to Sprite.exe.  E.g.:
'    Sprite C:TmpGame2.txt
' See "Game.Pix" for list of images available, numbered 0-n.
'----------------------------------------------------------------------------
Dim sShip               'Player's ship
'----------------------------------------------------------------------------
' GAME events
'
Sub Game_NewGame()
'   ------------
    'Bullets and ammo can collide (note: bit 1 is reserved)
    BubbleClass.Collide = 2
    AmmoClass.Collide   = 2
    ShipClass.Image   = 32	'Ship
    BubbleClass.Image = 60	'Small bubble
    AmmoClass.Image   = 34	'Bullet
    'Create player's ship centered on screen:
    Set sShip = ShipClass.CreateSprite(Game.Width / 2, Game.Height / 2, 0)
    'Create a bubble for player to fire at
    BubbleClass.CreateSprite 0, 0, 0
End Sub
Sub Game_KeyPress(ByVal ch)
'   ------------
    Dim sT
    'Fire if Space hit
    If ch = 32 Then
        Set sT = AmmoClass.CreateSprite(sShip.Left, sShip.Top, 0)
        sT.Vx = 0 : sT.Vy = -5
        Set sT = AmmoClass.CreateSprite(sShip.Left, sShip.Top, 0)
        sT.Vx = 0 : sT.Vy = 5
        Set sT = AmmoClass.CreateSprite(sShip.Left, sShip.Top, 0)
        sT.Vx = -5 : sT.Vy = 0
        Set sT = AmmoClass.CreateSprite(sShip.Left, sShip.Top, 0)
        sT.Vx = 5 : sT.Vy = 0
    End If
End Sub
Sub Game_Collide(ByVal sLowId, ByVal sHighId, ByVal coll)
'   ------------
    Dim bubble
    Dim ammo
    If coll = 2 Then
        Set bubble = sLowId
        Set ammo   = sHighId
        ammo.Remove
        If bubble.Image <= 57 Then
            Game.AddScore 50
            bubble.Remove
            BubbleClass.CreateSprite bubble.Left, bubble.Top, 0
        Else
            bubble.Image = bubble.Image - 1
            Game.AddScore 5
        End If
    End If
End Sub
'----------------------------------------------------------------------------
' BubbleClass events
'
Sub BubbleClass_Init(ByVal s, ByVal u)
    Game.StdInitEdge s, u
    s.Vx = 6 : s.Vy = 6
End Sub
Sub BubbleClass_Border(ByVal s, ByVal brd)
    Game.StdBorderBounce s, brd             'Bubbles bounce on edge of screen
End Sub
'----------------------------------------------------------------------------
' AmmoClass events
'
Sub AmmoClass_Border(ByVal s, ByVal brd)
    s.Remove                                'Ammo destroys itself on edge of screen
End Sub
'--- EOF ---

						