Windows编程

开发平台：
Visual C++

GAME2.TXT：源码内容
							$OBJECT=ShipClass
$OBJECT=BubbleClass
$OBJECT=AmmoClass
$OBJECT=ExtraClass
Option Explicit
'----------------------------------------------------------------------------
' Game2.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()
'   ------------
    'Setup Collision possibilities.  Bit 1 is reserved for hitting same-kind objects.
    ShipClass.Collide   = 2
    BubbleClass.Collide = 2 + 4
    AmmoClass.Collide   =     4
    'Setup Standard images for the different classes of sprites
    ShipClass.Image   = 32		'Ship
    BubbleClass.Image = 60		'Small bubble
    AmmoClass.Image   = 35		'Ammo
    Set sShip = ShipClass.CreateSprite(Game.Width / 2, Game.Height / 2, 0)
    BubbleClass.CreateSprite 0, 0, 0
End Sub
Sub Game_KeyDown(ByVal ch)
'   ------------
    Dim sT
    'Up
    If ch = 38 Then
        sShip.Image = 24
        Set sT = AmmoClass.CreateSprite(sShip.Left + sShip.Width / 2, sShip.Top, 0)
        sT.Vx = 0 : sT.Vy = -5
        sShip.Vy = sShip.Vy + 1
    End If
    'Down
    If ch = 40 Then
        sShip.Image = 8
        Set sT = AmmoClass.CreateSprite(sShip.Left + sShip.Width / 2, sShip.Top + sShip.Height, 0)
        sT.Vx = 0 : sT.Vy = 5
        sShip.Vy = sShip.Vy - 1
    End If
    'Left
    If ch = 37 Then
        sShip.Image = 16
        Set sT = AmmoClass.CreateSprite(sShip.Left, sShip.Top + sShip.Height / 2, 0)
        sT.Vx = -5 : sT.Vy = 0
        sShip.Vx = sShip.Vx + 1
    End If
    'Right
    If ch = 39 Then
        sShip.Image = 0
        Set sT = AmmoClass.CreateSprite(sShip.Left + sShip.Width, sShip.Top + sShip.Height / 2, 0)
        sT.Vx = 5 : sT.Vy = 0
        sShip.Vx = sShip.Vx - 1
    End If
End Sub
Sub Game_Collide(ByVal sLowId, ByVal sHighId, ByVal coll)
'   ------------
    Dim ship
    Dim bubble
    Dim ammo
    Dim sT
    Select Case coll
        Case 2
            Set ship   = sLowId
            Set bubble = sHighId
            If ship.Image <> 32 Then
                'Ship Hit Bubble
                sShip.Image = 32
                Game.ShipCount = Game.ShipCount - 1
                If Game.ShipCount <= 0 Then
                    Game.EndGame
                Else
                    sShip.Vx = 0 : sShip.Vy = 0
                    sShip.MoveTo Game.Width / 2, Game.Height / 2
                End If
            End If
        Case 4
            Set bubble = sLowId
            Set ammo   = sHighId
            ammo.Remove
            If bubble.Image <= 57 Then
                Game.AddScore 50
                bubble.Remove
                Set sT = BubbleClass.CreateSprite(bubble.Left, bubble.Top, 1)
                sT.Vx  = bubble.Vx * 0.5 + 4 * Rnd() - 2
                sT.Vy  = bubble.Vy * 0.5 + 4 * Rnd() - 2
                Set sT = BubbleClass.CreateSprite(bubble.Left, bubble.Top, 1)
                sT.Vx  = bubble.Vx * 0.5 + 4 * Rnd() - 2
                sT.Vy  = bubble.Vy * 0.5 + 4 * Rnd() - 2
            Else
                bubble.Image = bubble.Image - 1
                Game.AddScore 5
            End If
    End Select
End Sub
'----------------------------------------------------------------------------
' ShipClass events
'
Sub ShipClass_Border(ByVal s, ByVal brd)
    Game.StdBorderBounce s, brd
End Sub
'----------------------------------------------------------------------------
' BubbleClass events
'
Sub BubbleClass_Init(ByVal s, ByVal u)
    If s.Left = 0 Then
        'New Bubble, so start it at an edge with a velocity
        Game.StdInitEdge s, u
        s.Vx = 6
        s.Vy = 6
    End If
End Sub
Sub BubbleClass_Border(ByVal s, ByVal brd)
    Game.StdBorderBounce s, brd
End Sub
'----------------------------------------------------------------------------
' AmmoClass events
'
Sub AmmoClass_Border(ByVal s, ByVal brd)
    s.Remove
End Sub
'--- EOF ---

						