Wha-?

[Sastraxi]

What the heck is this?

Function SupportsBumpMapping As Bool
{
    Dim d3dCaps As D3DCAPS8

    m_D3DDevice.GetDeviceCaps d3dCaps

    ' Does this device support the two bump mapping blend operations?
    If ( d3dCaps.TextureOpsCaps And _
         ( D3DTEXOPCAPS_BUMPENVMAP Or D3DTEXOPCAPS_BUMPENVMAPLUMINANCE ) = 0) Then
         SupportBumpMapping = 0
    End If

    // Does this device support up to three blending stages?
    If d3dCaps.MaxTextureBlendStages < 3 Then
        SupportBumpMapping = 0
    End If

    SupportBumpMapping = 1
}

I find this very wierd; got it off of micro$oft.
http://msdn.microsoft.com/library/de...g_graphics.htm

[Zaei]

Psudo code. =P

Change the first line to "Public Function SupportBumpMapping() as Boolean" and delete the curly-bracve following it, and change the last curly-brace to an "End Function" to make it work in VB.

Z.