eventi.bas

用VB编写一个非常好的赛车游戏,源程序来自网络,这里是转载~谢谢合作~

Attribute VB_Name = "eventi"
Global meshAusX() As oggX

Global recordT As Long 'lap record
Global giroC As Boolean 'se ci si trova nella zona
Global bestLap As New Collection

Global preNumeroCanzone As Long

Sub disegnaEv()
'disegna tuti gli oggetti speciali
Select Case numPista
Case 2
    'portale fuorescente
    device.SetRenderState D3DRS_ALPHABLENDENABLE, 1
    With meshAusX(0)
                For relW = 0 To .numX
                    muoviObj 1, 1, 1, 0, 0, 0, 10 * 200, 0, 10 * 200
                    device.SetTexture 0, .texX(relW)
                    .mateX(relW).emissive = .mateX(relW).diffuse
                    device.SetMaterial .mateX(relW)
                    .meshX.DrawSubset relW
                Next relW
                '///////////
    End With
    device.SetRenderState D3DRS_ALPHABLENDENABLE, 0
Case 4
    'portale fuorescente
    device.SetRenderState D3DRS_ALPHABLENDENABLE, 1
    With meshAusX(0)
                For relW = 0 To .numX
                    muoviObj 1, 1, 1, 0, 0, 0, 10 * 200, 0, 10 * 200
                    device.SetTexture 0, .texX(relW)
                    .mateX(relW).emissive = .mateX(relW).diffuse
                    device.SetMaterial .mateX(relW)
                    .meshX.DrawSubset relW
                Next relW
                '///////////
    End With
    device.SetRenderState D3DRS_ALPHABLENDENABLE, 0


            
End Select
End Sub

'////////////////////////////////
'/////////GESTIONE//////////////
'//////////////////////////////

Sub Gestione_gioco(n As Long)
    Select Case nGioco
    Case 1, 4
            '//////////////////////////////////
            '///////CAMPIONATO////////////////
            '////////////////////////////////
            If veicoli(n).posX > 1900 And veicoli(n).posX < 2100 And veicoli(n).posZ > 2000 And veicoli(n).posZ < 2100 Then
               
               If giroC Then
                    'non fare nulla
               Else
                    
                    'se si