module.bas

用vb编写的射击游戏

Attribute VB_Name = "Module"
Public Sub MoveRight()
If starship.imgstarship.Left <= 15320 Then
starship.imgstarship.Left = starship.imgstarship.Left + 100
End If
End Sub


Public Sub MoveLeft()
If starship.imgstarship.Left >= -720 Then
starship.imgstarship.Left = starship.imgstarship.Left - 100
End If
End Sub


Public Sub Moveup()
If starship.imgstarship.Top >= 7000 Then
starship.imgstarship.Top = starship.imgstarship.Top - 100
End If
End Sub

Public Sub Movedown()
If starship.imgstarship.Top < 12840 Then
starship.imgstarship.Top = starship.imgstarship.Top + 100
End If
End Sub

Public Sub enemyappear()
location = (Rnd * 7500)
starship.enemy1.Left = location
End Sub

Public Sub goodtorp()
If starship.Friendlytorp.Visible = False Then
starship.Friendlytorp.Visible = True
starship.Timer1.Enabled = True
starship.Friendlytorp.Left = starship.imgstarship.Left + 950
starship.Friendlytorp.Top = starship.imgstarship.Top - 300
End If
End Sub