| 1 |
cvsrabit |
1.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
