atfield.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ATField"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public vita As Long
Private ATvertici(6) As D3DVERTEX
Private materiale As D3DMATERIAL8
Private posizioneX As Single
Private posizioneZ As Single
Private angolazione As Long

Sub crea(ATposX As Single, ATposZ As Single, ATang As Long)
    posizioneX = ATposX
    posizioneZ = ATposZ
    angolazione = ATang
    ATvertici(0) = CreaD3Dv(-10, -10, 5, 1, 1, 1, 0, 1)
    ATvertici(2) = CreaD3Dv(-10, 10, 5, 1, 1, 1, 0, 0)
    ATvertici(1) = CreaD3Dv(10, 10, 5, 1, 1, 1, 1, 0)
    ATvertici(3) = CreaD3Dv(10, 10, 5, 1, 1, 1, 1, 0)
    ATvertici(5) = CreaD3Dv(10, -10, 5, 1, 1, 1, 1, 1)
    ATvertici(4) = CreaD3Dv(-10, -10, 5, 1, 1, 1, 0, 1)
    materiale.emissive.r = 0
    materiale.emissive.g = 1
    materiale.emissive.b = 0
    materiale.emissive.a = 1
    vita = 50
    
End Sub
Sub controlla()
    vita = vita - 1
End Sub
Sub renderizza()
    D3DXMatrixRotationZ ShadMat, vita * 60
    D3DXMatrixMultiply ShadMat, ShadMat, muoviObjF(4, 4, 4, 0, angolazione, 0, posizioneX, 0, posizioneZ)
    device.SetTransform D3DTS_WORLD, ShadMat
    device.SetTexture 0, discoTex
    device.SetMaterial materiale
    device.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, ATvertici(0), Len(ATvertici(0))
End Sub