GS-Zone
Facebook Twitter

Fix Dibujado CrearPJ (Dx8) Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

6

Nota » 01 Feb 2012 23:03

Bueno aca les dejo el aporte de Godker, pero lo arregle todo, yo simplemente lo modifique y lo deje funcionando.

Post Original:
Descargas
dibujar_cabezas_en_crearpj_dx8_tkmF.html


Cliente:

Remplazamos el codigo del timer "tAnimacion":
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub tAnimacion_Timer()
  2.     Dim SR As RECT
  3.     Dim Grh As Long
  4.     Dim color(3) As Long
  5.     Static Frame As Byte
  6.     Dim hWndDestWindowOverride As Long
  7.    
  8.     color(0) = D3DColorXRGB(255, 255, 255)
  9.     color(1) = D3DColorXRGB(255, 255, 255)
  10.     color(2) = D3DColorXRGB(255, 255, 255)
  11.     color(3) = D3DColorXRGB(255, 255, 255)
  12.    
  13.     DirectDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, 0, 0, 0
  14.     DirectDevice.BeginScene
  15.    
  16.     If currentGrh = 0 Then Exit Sub
  17.     UserHead = CheckCabeza(UserHead)
  18.    
  19.     Frame = Frame + 1
  20.     If Frame >= GrhData(currentGrh).NumFrames Then Frame = 1
  21.    
  22.     Grh = GrhData(currentGrh).Frames(Frame)
  23.    
  24.     With GrhData(Grh)
  25.         SR.bottom = 65
  26.         SR.Left = 0
  27.         SR.Top = 0
  28.         SR.Right = 41
  29.        
  30.         DDrawTransGrhIndextoSurface Grh, 6, 15, 0, color()
  31.  
  32.         Grh = HeadData(UserHead).Head(Dir).GrhIndex
  33.    
  34.         If UserRaza = eRaza.Elfo Or UserRaza = eRaza.ElfoOscuro Or UserRaza = eRaza.Humano Then
  35.             DDrawTransGrhIndextoSurface Grh, 10, 5, 0, color()
  36.         Else
  37.             DDrawTransGrhIndextoSurface Grh, 10, 13, 0, color()
  38.         End If
  39.        
  40.         hWndDestWindowOverride = frmCrearPersonaje.picPJ.hWnd
  41.     End With
  42.    
  43.     DirectDevice.EndScene
  44.     DirectDevice.Present SR, ByVal 0, hWndDestWindowOverride, ByVal 0
  45.    
  46. End Sub


Remplazamos el Public Sub Engine_Render_CPJ por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Engine_Render_CPJ(Optional ByVal Head As Integer, Optional ByVal PicIndex As Integer, Optional ByVal Dir As E_Heading = SOUTH, Optional ByVal Body As Integer)
  2. '*************************************
  3. 'Author: Martín Gomez (Samke)
  4. 'Fecha: 01/02/2012
  5. 'Fix Engine_Render_CPJ
  6. '*************************************
  7.     Dim color(3) As Long
  8.     Dim hWndDestWindowOverride As Long
  9.     Dim Grh As Long
  10.     Dim SR As RECT
  11.    
  12.     color(0) = D3DColorXRGB(255, 255, 255)
  13.     color(1) = D3DColorXRGB(255, 255, 255)
  14.     color(2) = D3DColorXRGB(255, 255, 255)
  15.     color(3) = D3DColorXRGB(255, 255, 255)
  16.  
  17.     DirectDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, 0, 0, 0
  18.     DirectDevice.BeginScene
  19.  
  20.     SR.bottom = 24
  21.     SR.Left = 0
  22.     SR.Top = 0
  23.     SR.Right = 24
  24.            
  25.     Grh = HeadData(Head).Head(Dir).GrhIndex
  26.            
  27.     DDrawTransGrhIndextoSurface Grh, 0, 0, 0, color()
  28.  
  29.     hWndDestWindowOverride = frmCrearPersonaje.picHead(PicIndex).hWnd
  30.    
  31.     DirectDevice.EndScene
  32.     DirectDevice.Present SR, ByVal 0, hWndDestWindowOverride, ByVal 0
  33.    
  34. End Sub


Muestra:
Imagen

Saludos ^^
Última edición por Samke el 02 Feb 2012 13:48, editado 1 vez en total

Imagen
Imagen
Samke
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3414
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)
Arriba

Nota » 01 Feb 2012 23:41

Hermoso Aporte.
Rakjha
Usuario Registrado
161
Newbie [4]
Registrado: Años de membresía
Mensajes: 129
Arriba

Nota » 01 Feb 2012 23:59

exelente martin !

ibuC
Staff Narnia AO
192
Aprendiz [2]
Registrado: Diciembre 2011
Mensajes: 243
Arriba

Nota » 02 Feb 2012 00:41

Public Sub Engine_Render_CPJ? no esta en ningun lado eso
sharkmori
Usuario Registrado
104
Newbie [3]
Registrado: Agosto 2011
Mensajes: 86
Arriba

Nota » 02 Feb 2012 12:48

No encuentro el Public Sub Engine_Render_CPJ

Imagen
Ibliz
Desarrollo de InitiumAO
81
Newbie [2]
Registrado: Octubre 2011
Ubicación: Montevideo,Uruguay
Mensajes: 46
Arriba

Nota » 02 Feb 2012 13:04

Ibliz escribió:No encuentro el Public Sub Engine_Render_CPJ


ahorrense de comentar boludeces, q explico arriba ¬¬

muy bueno samke ^^

gracias por respetar creditos ^^ , mira, borra la parte del hWndDestWindowOverride as long, borra la parte del hWndDestWindowOverride = y en el .present lo cambias por frmCrearPersonaje.picPJ.hWnd, y te ahorraste un long xD

lo ise para q diferencaira los distintos pictures segun el cualdibuja



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Volver a AO 0.13.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados