» 15 Mar 2011 13:51 - Public Sub Draw_GrhIndex(ByVal grh_index As Integer, ByVal X As Integer, ByVal y As Integer, Optional ByVal alpha As Boolean)
- If grh_index <= 0 Then Exit Sub
- Dim rgb_list(3) As Long
- If Not alpha = True Then
- rgb_list(0) = D3DColorXRGB(255, 255, 255)
- rgb_list(1) = D3DColorXRGB(255, 255, 255)
- rgb_list(2) = D3DColorXRGB(255, 255, 255)
- rgb_list(3) = D3DColorXRGB(255, 255, 255)
- Device_Box_Textured_Render grh_index, _
- X, y, _
- GrhData(grh_index).pixelWidth, GrhData(grh_index).pixelHeight, _
- rgb_list, _
- GrhData(grh_index).sX, GrhData(grh_index).sY
- Else
- rgb_list(0) = D3DColorXRGB(100, 100, 100)
- rgb_list(1) = D3DColorXRGB(100, 100, 100)
- rgb_list(2) = D3DColorXRGB(100, 100, 100)
- rgb_list(3) = D3DColorXRGB(100, 100, 100)
- Device_Box_Textured_Render grh_index, _
- X, y, _
- GrhData(grh_index).pixelWidth, GrhData(grh_index).pixelHeight, _
- rgb_list, _
- GrhData(grh_index).sX, GrhData(grh_index).sY, True
- End If
- End Sub
Y a los draw_grhindex al final le ponen ,true o ,false para iluminar o no ajaj
Bah, es lo mismo, saludos !
475![Oraculo [5]](./images/ranks/Rango29.gif "Oraculo [5]")
