/[cvs]/rabit/r3/Module_Players.bas
ViewVC logotype

Contents of /rabit/r3/Module_Players.bas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Tue Mar 12 21:29:11 2002 UTC (22 years ago) by cvsrabit
Branch: NFO, MAIN
CVS Tags: v034a, HEAD
Changes since 1.1: +0 -0 lines
Initial project import

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 RSS 2.0 feed