goalkeeper.bas

[原创]非常耐玩的足球小游戏

Attribute VB_Name = "goalkeeper"
'THIS MODULE ISN'T USED IN THE PROGRAM!!!!!(If you want to make the program smaller or improve the program you can public the Subs)
'When you do it, don't forget to add "form*." before the subject name
Private Sub goalkeeper_move()
If puckx > goalkeeper1.Left And goalkeeper1.Left < 5880 Then
goalkeeper1.Left = goalkeeper1.Left + 30
goalkeeper2.Left = goalkeeper2.Left + 30
ElseIf puckx < goalkeeper1.Left And goalkeeper1.Left > 2160 Then
goalkeeper1.Left = goalkeeper1.Left - 30
goalkeeper2.Left = goalkeeper2.Left - 30
End If
End Sub
Private Sub goalkeeper1_touch()
If puckx - goalkeeper1.Left < 120 And pucky - goalkeeper1.Top < 120 Then
puckx = 4080
pucky = 1350
vpucky = 150
'tip
addtip ("Unluck!")
End If
End Sub
Private Sub goalkeeper2_touch()
If puckx - goalkeeper2.Left < 120 And goalkeeper2.Top - pucky < 120 Then
puckx = 4080
pucky = 9000
vpucky = -150
'tip
addtip ("Wonderful saving!")
End If
End Sub