rabit/RaBit%27s%20Rapid%20Racers/Module_Players.bas

Attribute VB_Name = "Module_Players"
Public Sub CreateLocalPlayer()

Dim clPlayer As New Class_Player

    Set clPlayer = clPlayer.CreatePlayer(0, "Kamikaze")
    
    clGame.AddPlayer clPlayer

End Sub

Public Sub SetupKeyCommands()

    lplKeyControlFlags(vbKeyUp) = ePCF_Forward
    lplKeyControlFlags(vbKeyDown) = ePCF_Backward
    lplKeyControlFlags(vbKeyLeft) = ePCF_Left
    lplKeyControlFlags(vbKeyRight) = ePCF_Right
    lplKeyControlFlags(vbKeySpace) = ePCF_Break
    lplKeyControlFlags(vbKeyShift) = ePCF_Horn

End Sub
1	Attribute VB_Name = "Module_Players"
2	Public Sub CreateLocalPlayer()
3
4	Dim clPlayer As New Class_Player
5
6	Set clPlayer = clPlayer.CreatePlayer(0, "Kamikaze")
7
8	clGame.AddPlayer clPlayer
9
10	End Sub
11
12	Public Sub SetupKeyCommands()
13
14	lplKeyControlFlags(vbKeyUp) = ePCF_Forward
15	lplKeyControlFlags(vbKeyDown) = ePCF_Backward
16	lplKeyControlFlags(vbKeyLeft) = ePCF_Left
17	lplKeyControlFlags(vbKeyRight) = ePCF_Right
18	lplKeyControlFlags(vbKeySpace) = ePCF_Break
19	lplKeyControlFlags(vbKeyShift) = ePCF_Horn
20
21	End Sub
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26