module1.bas

游戏代码]射击(导弹)游戏的源程序

Attribute VB_Name = "Module1"
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Type ExplosionData
    Active As Boolean
    CurrX As Integer
    CurrY As Integer
    ExplosionStage As Integer
    ExplosionDirection As Integer
End Type

Type BogeyData
    x1 As Integer
    x2 As Integer
    y1 As Integer
    y2 As Integer
    Length As Integer
    Angle As Integer
    Active As Integer
End Type