rabit/r3/Module_Game.bas

Attribute VB_Name = "Module_Game"
Public Sub StartSinglePlayerGame()

Dim clPlayer As Class_Player

    clGame.bSceneLoaded = False
    
    clGame.strSceneName = "scene5"
    OpenGeometryFromASE2 App.Path + "\Scenes\" + clGame.strSceneName + ".ase"
    
    clGame.bSceneLoaded = True
    
    CreateLocalPlayer
    
    Set clPlayer = clGame.Col_clPlayers(1)
    
    clPlayer.SetPosition clScene.VecPlayerStartPosition
    
End Sub
1	cvsrabit	1.1	Attribute VB_Name = "Module_Game"
2			Public Sub StartSinglePlayerGame()
3
4			Dim clPlayer As Class_Player
5
6			clGame.bSceneLoaded = False
7
8			clGame.strSceneName = "scene5"
9			OpenGeometryFromASE2 App.Path + "\Scenes\" + clGame.strSceneName + ".ase"
10
11			clGame.bSceneLoaded = True
12
13			CreateLocalPlayer
14
15			Set clPlayer = clGame.Col_clPlayers(1)
16
17			clPlayer.SetPosition clScene.VecPlayerStartPosition
18
19			End Sub
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26