rabit/r3/Module_Spectator.bas

Attribute VB_Name = "Module_Spectator"
Option Explicit
'

Public Function CreatePlayerViewMatrix() As D3DMATRIX

Dim X As Single
Dim Y As Single
Dim Z As Single

Dim s As Single
Dim s2 As Single

Dim clPlayer As Class_Player

Dim tpVecCamPosition As D3DVECTOR
Dim tpVecCamLookAt As D3DVECTOR

    Set clPlayer = clGame.Col_clPlayers("p" & lLocalPlayerHandle)

    Select Case lCamMode

        Case 0:
        
            With clPlayer
                
                s = 4 + 6 * Abs(.sgSpeedRate)
        
                s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi - 0.1 * .sgSteeringWheelPosition
                X = s * -Sin(s2)
                Z = s * Cos(s2)
        
                tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 4, .GetPosition.Z - Z)
                tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
                
            End With
    
            bShowPlayer = True
            
        Case 1:
        
            With clPlayer
                
'                s = 20 ' + 0.1 * Abs(.sgSpeed)
        
                s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi ' - 0.1 * .sgSteeringWheelPosition
                X = 20 * -Sin(s2)
                Z = 20 * Cos(s2)
        
                tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 10, .GetPosition.Z - Z)
                tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
                
            End With
    
            bShowPlayer = True
            
        Case 2:
        
            With clPlayer
                
                s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi ' - 0.2 * .sgSteeringWheelPosition
                X = 10 * -Sin(s2)
                Z = 10 * Cos(s2)
        
                tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 30, .GetPosition.Z - Z)
                tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
            
            End With
    
            bShowPlayer = True
            
        Case 3:
        
            With clPlayer
                
                s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi - 0.1 * .sgSteeringWheelPosition
                X = 5 * -Sin(s2)
                Z = 5 * Cos(s2)
        
                tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 40, .GetPosition.Z - Z)
                tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
                
            End With
    
            bShowPlayer = True
            
        Case 4:
        
            With clPlayer
                
                tpVecCamPosition = MakeVector(0, 15, 0)
                tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
                
            End With
    
            bShowPlayer = True
            
        Case 5:
        
            With clPlayer
                
                s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi + 0.1 * .sgSteeringWheelPosition
                X = 10 * -Sin(s2)
                Z = 10 * Cos(s2)

                tpVecCamPosition = MakeVector(.GetPosition.X, .GetPosition.Y + 1.2, .GetPosition.Z)
                tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
            
            End With
    
            bShowPlayer = False
            
    End Select
    
    clDSListener.SetPosition tpVecCamPosition.X, tpVecCamPosition.Y, tpVecCamPosition.Z, DS3D_IMMEDIATE
    clDSListener.SetOrientation tpVecCamLookAt.X - tpVecCamPosition.X, tpVecCamLookAt.Y - tpVecCamPosition.Y, tpVecCamLookAt.Z - tpVecCamPosition.Z, 0, 1, 0, DS3D_IMMEDIATE
    
    D3DXMatrixLookAtLH CreatePlayerViewMatrix, tpVecCamPosition, tpVecCamLookAt, MakeVector(0, 1, 0)

End Function
1	cvsrabit	1.1	Attribute VB_Name = "Module_Spectator"
2			Option Explicit
3			'
4
5			Public Function CreatePlayerViewMatrix() As D3DMATRIX
6
7			Dim X As Single
8			Dim Y As Single
9			Dim Z As Single
10
11			Dim s As Single
12			Dim s2 As Single
13
14			Dim clPlayer As Class_Player
15
16			Dim tpVecCamPosition As D3DVECTOR
17			Dim tpVecCamLookAt As D3DVECTOR
18
19			Set clPlayer = clGame.Col_clPlayers("p" & lLocalPlayerHandle)
20
21			Select Case lCamMode
22
23			Case 0:
24
25			With clPlayer
26
27			s = 4 + 6 * Abs(.sgSpeedRate)
28
29			s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi - 0.1 * .sgSteeringWheelPosition
30			X = s * -Sin(s2)
31			Z = s * Cos(s2)
32
33			tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 4, .GetPosition.Z - Z)
34			tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
35
36			End With
37
38			bShowPlayer = True
39
40			Case 1:
41
42			With clPlayer
43
44			' s = 20 ' + 0.1 * Abs(.sgSpeed)
45
46			s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi ' - 0.1 * .sgSteeringWheelPosition
47			X = 20 * -Sin(s2)
48			Z = 20 * Cos(s2)
49
50			tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 10, .GetPosition.Z - Z)
51			tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
52
53			End With
54
55			bShowPlayer = True
56
57			Case 2:
58
59			With clPlayer
60
61			s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi ' - 0.2 * .sgSteeringWheelPosition
62			X = 10 * -Sin(s2)
63			Z = 10 * Cos(s2)
64
65			tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 30, .GetPosition.Z - Z)
66			tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
67
68			End With
69
70			bShowPlayer = True
71
72			Case 3:
73
74			With clPlayer
75
76			s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi - 0.1 * .sgSteeringWheelPosition
77			X = 5 * -Sin(s2)
78			Z = 5 * Cos(s2)
79
80			tpVecCamPosition = MakeVector(.GetPosition.X - X, .GetPosition.Y + 40, .GetPosition.Z - Z)
81			tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
82
83			End With
84
85			bShowPlayer = True
86
87			Case 4:
88
89			With clPlayer
90
91			tpVecCamPosition = MakeVector(0, 15, 0)
92			tpVecCamLookAt = MakeVector(.GetPosition.X, .GetPosition.Y, .GetPosition.Z)
93
94			End With
95
96			bShowPlayer = True
97
98			Case 5:
99
100			With clPlayer
101
102			s2 = .sgAngleY * Const_sgDeg2Rad + Const_sgPi + 0.1 * .sgSteeringWheelPosition
103			X = 10 * -Sin(s2)
104			Z = 10 * Cos(s2)
105
106			tpVecCamPosition = MakeVector(.GetPosition.X, .GetPosition.Y + 1.2, .GetPosition.Z)
107			tpVecCamLookAt = MakeVector(.GetPosition.X + X, .GetPosition.Y, .GetPosition.Z + Z)
108
109			End With
110
111			bShowPlayer = False
112
113			End Select
114
115			clDSListener.SetPosition tpVecCamPosition.X, tpVecCamPosition.Y, tpVecCamPosition.Z, DS3D_IMMEDIATE
116			clDSListener.SetOrientation tpVecCamLookAt.X - tpVecCamPosition.X, tpVecCamLookAt.Y - tpVecCamPosition.Y, tpVecCamLookAt.Z - tpVecCamPosition.Z, 0, 1, 0, DS3D_IMMEDIATE
117
118			D3DXMatrixLookAtLH CreatePlayerViewMatrix, tpVecCamPosition, tpVecCamLookAt, MakeVector(0, 1, 0)
119
120			End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26