|
|
31-oct-2008, 12:01
| #1 (permalink) | |||||||||||
| EduCanDo a La Competencia  Ingreso: junio-2008 Ubicación: Con Tu Novia
Mensajes: 223
Poder: 56  |  [APORTE] Techos & FX con Alpha Blending (FÉNIXAO) Todo va en el cliente. 1-Buscamos: Código: Dim fMD5HushYo As String * 32 Código: UseAlphaBlending = True Código: If CharList(MapData(X, Y).CharIndex).FX <> 0 Then Call DDrawTransGrhtoSurface(BackBufferSurface, FxData(tempchar.FX).FX, iPPx + FxData(tempchar.FX).OffsetX, iPPy + FxData(tempchar.FX).OffsetY, 1, 1, MapData(X, Y).CharIndex) y lo reemplazamos por: Código: If CharList(MapData(X, Y).CharIndex).FX <> 0 Then Call DDrawBlendGrhtoSurface(BackBufferSurface, FxData(tempchar.FX).FX, iPPx + FxData(tempchar.FX).OffsetX, iPPy + FxData(tempchar.FX).OffsetY, 1, 1, MapData(X, Y).CharIndex) 4-Buscamos: Código: If MapData(X, Y).Graphic(4).GrhIndex <> 0 Then Call DDrawTransGrhtoSurface(BackBufferSurface, MapData(X, Y).Graphic(4), ((32 * ScreenX) - 32) + PixelOffsetX, ((32 * ScreenY) - 32) + PixelOffsetY, 1, 1) Y lo reemplazamos por: Código: If MapData(X, Y).Graphic(4).GrhIndex <> 0 Then Call DDrawBlendGrhtoSurface(BackBufferSurface, MapData(X, Y).Graphic(4), ((32 * ScreenX) - 32) + PixelOffsetX, ((32 * ScreenY) - 32) + PixelOffsetY, 1, 1) Salu2.. fuente : Gs-zone.
__________________  "El año ya se va, porque no me aguanta más". | |||||||||||
|     |
| Sponsored Links |
 |
| Marcadores |
| Herramientas | |
| Desplegado | |
|
|
Te recomendamos visitar estos sitios
PasionChat
Blogs
UASU lite
El Foro Latino
Argentum Online
Host Gratis
Bazar de dominios
|
Mode Lineal
