| 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 |
Parent Directory
| 
Revision Log
