sship1.bas

太空船游戏例子源程序

'Global Variable for the game
    
    'Position variables for player
    Global Xcord As Integer
    Global Ycord As Integer

    'Enemy Record type
    Type ERecord
        EnemyNum As Integer
        EXcord As Integer
        EYcord As Integer
        Visible As Integer
    End Type

    'Number of enemies
    Global Enemys(3) As ERecord

    'Score Structure
    Type Score
        Name As String
        NumEnemyDead As Integer
    End Type

    'Number fo High Scores
    Global HighScores(5) As Score

    'Total Enemy counter
    Global TotalEnemys As Integer

    'Enemy Laser Record
    Type ELRecord
        EnemyNum As Integer
        LEXcord As Integer
        LEYcord As Integer
        Visible As Integer
    End Type

    'Number of Enemy Lasers
    Global EnemyLasers(3) As ELRecord

    'Number of enemies hit counter
    Global EnemyHitNum As Integer
    
    'Generic Counter
    Global Counter As Integer

    'Global values for speed of the game and game delay
    Global Speed As Integer
    Global TimerDelay As Integer
    Global Delay As Integer

    'Globals for number of dead enemies
    Global NumDeadEnemy As Integer
    Global NumLives As Integer
    Global StartYcord, StartXcord As Integer

    Global Const ASCENDING_ORDER = 1
    Global Const DESCENDING_ORDER = 2