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	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