function.bas

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

Attribute VB_Name = "function"

Public Sub c_f()
vpuckx = 0
vpucky = 20
End Sub
Public Sub c_fl()
vpuckx = -20
vpucky = 20
End Sub
Public Sub c_fr()
vpuckx = 20
vpucky = 20
End Sub
Public Sub c_l()
vpuckx = -20
vpucky = 0
End Sub
Public Sub c_r()
vpuckx = 20
vpucky = 0
End Sub
Public Sub c_b()
vpuckx = 0
vpucky = -20
End Sub
Public Sub c_bl()
vpuckx = -20
vpucky = -20
End Sub
Public Sub c_br()
vpuckx = 20
vpucky = -20
End Sub
Public Sub ball_stop()
vpuckx = 0
vpucky = 0
End Sub
Public Sub s_f()
vpuckx = 0
vpucky = -200
End Sub
Public Sub s_l()
'left is the direction
vpuckx = -100
vpucky = -200
End Sub
Public Sub s_r()
vpuckx = 100
vpucky = -200
End Sub