GS-Zone
Facebook Twitter

DX8 - Meditar con partículas -Menduz- 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

20

Nota » 03 Ago 2011 17:44

Basado en el de Samke.

Servidor:

Buscan:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CreateFX                ' CFX


Abajo:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CreateParticle          ' CFF


Agregan al final del mod Protocol:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ''
  2. ' Prepares the "CreateParticle" message and returns it.
  3. '
  4. ' @param    UserIndex User to which the message is intended.
  5. ' @param    CharIndex Character upon which the Particle will be created.
  6. ' @param    Particle Particle index to be displayed over the new character.
  7. ' @return   The formated message ready to be writen as is on outgoing buffers.
  8. ' @remarks  The data is not actually sent until the buffer is properly flushed.
  9.  
  10. Public Function PrepareMessageCreateParticle(ByVal CharIndex As Integer, ByVal Particle As Integer) As String
  11. '***************************************************
  12. 'Author: Martín Gomez (Samke)
  13. 'Modified by: Emanuel Matías (Dunkan)
  14. 'For "ParticleSystem" of Menduz - emanuel.m@dunkancorp.com
  15. 'Last Modification: 03/08/11
  16. 'Prepares the "CreateParticle" message and returns it
  17. '***************************************************
  18.     With auxiliarBuffer
  19.         Call .WriteByte(ServerPacketID.CreateParticle)
  20.         Call .WriteInteger(CharIndex)
  21.         Call .WriteInteger(Particle)
  22.        
  23.         PrepareMessageCreateParticle = .ReadASCIIStringFixed(.length)
  24.     End With
  25. End Function
  26.  
  27. ' Writes the "CreateParticle" message to the given user's outgoing data buffer.
  28. '
  29. ' @param    UserIndex User to which the message is intended.
  30. ' @param    CharIndex Character upon which the Particle will be created.
  31. ' @param    Particle Particle index to be displayed over the new character.
  32. ' @param    ParticleLoops Number of times the Particle should be rendered.
  33. ' @remarks  The data is not actually sent until the buffer is properly flushed.
  34.  
  35. Public Sub WriteCreateParticle(ByVal UserIndex As Integer, ByVal CharIndex As Integer, ByVal Particle As Integer)
  36. '***************************************************
  37. 'Author: Martín Gomez (Samke)
  38. 'Modified by: Emanuel Matías (Dunkan)
  39. 'For "ParticleSystem" of Menduz - emanuel.m@dunkancorp.com
  40. 'Last Modification: 03/08/11
  41. 'Writes the "CreateParticle" message to the given user's outgoing data buffer
  42. '***************************************************
  43. On Error GoTo Errhandler
  44.     Call UserList(UserIndex).outgoingData.WriteASCIIStringFixed(PrepareMessageCreateParticle(CharIndex, Particle))
  45. Exit Sub
  46.  
  47. Errhandler:
  48.     If Err.Number = UserList(UserIndex).outgoingData.NotEnoughSpaceErrCode Then
  49.         Call FlushBuffer(UserIndex)
  50.         Resume
  51.     End If
  52. End Sub
  53.  


Reemplazan el HandleMeditate:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub HandleMeditate(ByVal UserIndex As Integer)
  2. '***************************************************
  3. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  4. 'Last Modification: 01/08/11 (Samke)
  5. 'Implemente el Sistema de Particulas al Meditar
  6. '***************************************************
  7.     With UserList(UserIndex)
  8.         'Remove packet ID
  9.         Call .incomingData.ReadByte
  10.        
  11.         'Dead users can't use pets
  12.         If .flags.Muerto = 1 Then
  13.             Call WriteConsoleMsg(UserIndex, "¡¡Estás muerto!! Solo podés usar meditar cuando estás vivo.", FontTypeNames.FONTTYPE_INFO)
  14.             Exit Sub
  15.         End If
  16.        
  17.         'Can he meditate?
  18.         If .Stats.MaxMAN = 0 Then
  19.              Call WriteConsoleMsg(UserIndex, "Sólo las clases mágicas conocen el arte de la meditación", FontTypeNames.FONTTYPE_INFO)
  20.              Exit Sub
  21.         End If
  22.        
  23.         'Admins don't have to wait :D
  24.        ' If Not .flags.Privilegios And PlayerType.User Then
  25.        '     .Stats.MinMAN = .Stats.MaxMAN
  26.        '     Call WriteConsoleMsg(UserIndex, "Mana restaurado", FontTypeNames.FONTTYPE_VENENO)
  27.        '     Call WriteUpdateMana(UserIndex)
  28.        '     Exit Sub
  29.        ' End If
  30.        
  31.         Call WriteMeditateToggle(UserIndex)
  32.        
  33.         If .flags.Meditando Then _
  34.            Call WriteConsoleMsg(UserIndex, "Dejas de meditar.", FontTypeNames.FONTTYPE_INFO)
  35.        
  36.         .flags.Meditando = Not .flags.Meditando
  37.        
  38.         'Barrin 3/10/03 Tiempo de inicio al meditar
  39.         If .flags.Meditando Then
  40.             .Counters.tInicioMeditar = GetTickCount() And &H7FFFFFFF
  41.            
  42.             Call WriteConsoleMsg(UserIndex, "Te estás concentrando. En " & Fix(TIEMPO_INICIOMEDITAR / 1000) & " segundos comenzarás a meditar.", FontTypeNames.FONTTYPE_INFO)
  43.            
  44.             .Char.loops = INFINITE_LOOPS
  45.            
  46.             'Show proper Particle according to level
  47.             If .Stats.ELV < 13 Then
  48.                 .Char.Particle = FXIDs.FXMEDITARCHICO
  49.            
  50.             ElseIf .Stats.ELV < 25 Then
  51.                 .Char.Particle = FXIDs.FXMEDITARMEDIANO
  52.            
  53.             ElseIf .Stats.ELV < 35 Then
  54.                 .Char.Particle = FXIDs.FXMEDITARGRANDE
  55.            
  56.             ElseIf .Stats.ELV < 42 Then
  57.                 .Char.Particle = FXIDs.FXMEDITARXGRANDE
  58.            
  59.             Else
  60.                 .Char.Particle = FXIDs.FXMEDITARXXGRANDE
  61.             End If
  62.            
  63.             Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(.Char.CharIndex, .Char.Particle))
  64.         Else
  65.             .Counters.bPuedeMeditar = False
  66.            
  67.             .Char.Particle = 0
  68.             .Char.loops = 0
  69.             Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(.Char.CharIndex, 0))
  70.         End If
  71.     End With
  72. End Sub


Reemplazan el Enum FXIDs:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Enum FXIDs
  2.     FXWARP = 1
  3.     FXMEDITARCHICO = 2
  4.     FXMEDITARMEDIANO = 3
  5.     FXMEDITARGRANDE = 4
  6.     FXMEDITARXGRANDE = 5
  7.     FXMEDITARXXGRANDE = 6
  8. End Enum


Buscan:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Char.FX = 0
  2. UserList(UserIndex).Char.loops = 0
  3. Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(UserList(UserIndex).Char.CharIndex, 0, 0))


Abajo agregan:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Char.Particle = 0
  2. Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(UserList(UserIndex).Char.CharIndex, 0))


Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).Stats.MinMAN >= UserList(UserIndex).Stats.MaxMAN Then
  2.     Call WriteConsoleMsg(UserIndex, "Has terminado de meditar.", FontTypeNames.FONTTYPE_INFO)
  3.     Call WriteMeditateToggle(UserIndex)
  4.     UserList(UserIndex).flags.Meditando = False
  5.     UserList(UserIndex).Char.FX = 0
  6.     UserList(UserIndex).Char.loops = 0
  7.     Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(UserList(UserIndex).Char.CharIndex, 0, 0))
  8.     Exit Sub
  9. End If


Reemplazamos por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).Stats.MinMAN >= UserList(UserIndex).Stats.MaxMAN Then
  2.     Call WriteConsoleMsg(UserIndex, "Has terminado de meditar.", FontTypeNames.FONTTYPE_INFO)
  3.     Call WriteMeditateToggle(UserIndex)
  4.     UserList(UserIndex).flags.Meditando = False
  5.     UserList(UserIndex).Char.Particle = 0
  6.     UserList(UserIndex).Char.loops = 0
  7.     Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(UserList(UserIndex).Char.CharIndex, 0))
  8.     Exit Sub
  9. End If


Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).flags.Meditando Then
  2.     If daño > Fix(UserList(UserIndex).Stats.MinHP / 100 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia) * UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) / 100 * 12 / (RandomNumber(0, 5) + 7)) Then
  3.         UserList(UserIndex).flags.Meditando = False
  4.         Call WriteMeditateToggle(UserIndex)
  5.         Call WriteConsoleMsg(UserIndex, "Dejas de meditar.", FontTypeNames.FONTTYPE_INFO)
  6.         UserList(UserIndex).Char.FX = 0
  7.         UserList(UserIndex).Char.loops = 0
  8.         Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(UserList(UserIndex).Char.CharIndex, 0, 0))
  9.     End If
  10. End If


Reemplazamos por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(UserIndex).flags.Meditando Then
  2.     If daño > Fix(UserList(UserIndex).Stats.MinHP / 100 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia) * UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) / 100 * 12 / (RandomNumber(0, 5) + 7)) Then
  3.         UserList(UserIndex).flags.Meditando = False
  4.         Call WriteMeditateToggle(UserIndex)
  5.         Call WriteConsoleMsg(UserIndex, "Dejas de meditar.", FontTypeNames.FONTTYPE_INFO)
  6.         UserList(UserIndex).Char.Particle = 0
  7.         UserList(UserIndex).Char.loops = 0
  8.         Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(UserList(UserIndex).Char.CharIndex, 0))
  9.     End If
  10. End If


Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If .flags.Paralizado = 0 Then
  2.             If .flags.Meditando Then
  3.                 'Stop meditating, next action will start movement.
  4.                 .flags.Meditando = False
  5.                 .Char.FX = 0
  6.                 .Char.loops = 0
  7.                
  8.                 Call WriteMeditateToggle(UserIndex)
  9.                 Call WriteConsoleMsg(UserIndex, "Dejas de meditar.", FontTypeNames.FONTTYPE_INFO)
  10.                
  11.                 Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(.Char.CharIndex, 0, 0))
  12.             Else


Reemplazamos por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If .flags.Paralizado = 0 Then
  2.             If .flags.Meditando Then
  3.                 'Stop meditating, next action will start movement.
  4.                 .flags.Meditando = False
  5.                 .Char.Particle = 0
  6.                 .Char.loops = 0
  7.                
  8.                 Call WriteMeditateToggle(UserIndex)
  9.                 Call WriteConsoleMsg(UserIndex, "Dejas de meditar.", FontTypeNames.FONTTYPE_INFO)
  10.                
  11.                 Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateParticle(.Char.CharIndex, 0))
  12.             Else


Agregan en el Type Char:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Particle As Integer


CLIENTE:
Mod declaraciones:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Particle_Count As Byte


Sub main:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Particle_Count = 1


Agregan en el Public Type Char:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. DX_ParticleCount As Integer


Buscan:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CreateFX                ' CFX


Abajo:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CreateParticle          ' CFF


Debajo de:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        Case ServerPacketID.CreateFX                ' CFX
  2.             Call HandleCreateFX


Ponen:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        Case ServerPacketID.CreateParticle          ' CFF
  2.             Call HandleCreateParticle


Al final del Protocol:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ''
  2. ' Handles the CreateParticle message.
  3.  
  4. Private Sub HandleCreateParticle()
  5. '***************************************************
  6. 'Author: Martín Gomez (Samke)
  7. 'Modified by: Emanuel Matías (Dunkan)
  8. 'Last Modification: 03/08/11
  9. 'emanuel.m@dunkancorp.com
  10. '***************************************************
  11.     If incomingData.Length < 7 Then
  12.         Err.Raise incomingData.NotEnoughDataErrCode
  13.         Exit Sub
  14.     End If
  15.    
  16.     'Remove packet ID
  17.     Call incomingData.ReadByte
  18.    
  19.     Dim CharIndex As Integer
  20.    
  21.     CharIndex = incomingData.ReadInteger()
  22.     charlist(CharIndex).DX_ParticleCount = incomingData.ReadInteger()
  23.    
  24.     If charlist(CharIndex).DX_ParticleCount = 0 Then
  25.     Particle_Count = Particle_Count + 1
  26.     Engine.Particle_Group_Make Particle_Count, 0, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0
  27.     Engine.Particle_Remove CInt(Particle_Count), CInt(charlist(CharIndex).Pos.X), CInt(charlist(CharIndex).Pos.Y)
  28.     End If
  29.    
  30.     If charlist(CharIndex).DX_ParticleCount = 1 Then _
  31.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  32.    
  33.     If charlist(CharIndex).DX_ParticleCount = 2 Then _
  34.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  35.    
  36.     If charlist(CharIndex).DX_ParticleCount = 3 Then _
  37.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  38.    
  39.     If charlist(CharIndex).DX_ParticleCount = 4 Then _
  40.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  41.    
  42.     If charlist(CharIndex).DX_ParticleCount = 5 Then _
  43.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  44.    
  45.     If charlist(CharIndex).DX_ParticleCount = 6 Then _
  46.     Engine.Render_Particle charlist(CharIndex).DX_ParticleCount, charlist(CharIndex).Pos.X, charlist(CharIndex).Pos.Y
  47.    
  48.     Call RefreshAllChars
  49. End Sub


Agregan en el clsDX8Engine:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Particle_Remove(Index As Integer, map_x As Integer, map_y As Integer)
  2. '*********************************************************
  3. '****** Coded by Dunkan (emanuel.m@dunkancorp.com) *******
  4. '*********************************************************
  5.     MapData(map_x, map_y).particle_group = 0
  6. End Sub
  7.  
  8. Public Sub Particle_Group_Remove(Particle_Count As Integer)
  9. '*********************************************************
  10. '****** Coded by Dunkan (emanuel.m@dunkancorp.com) *******
  11. '*********************************************************
  12. Dim i As Integer
  13. For i = 1 To Particle_Count
  14.     Call Particle_Group_Make(i, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1)
  15. Next
  16. End Sub
  17.  
  18. Function Render_Particle(ParticleCountVar As Integer, X As Long, Y As Long)
  19. '*********************************************************
  20. '****** Coded by Dunkan (emanuel.m@dunkancorp.com) *******
  21. '*********************************************************
  22. Particle_Count = Particle_Count + 1
  23. Particle_Group_Make Particle_Count, 0, X, Y, Particula(ParticleCountVar).VarZ, Particula(ParticleCountVar).VarX, Particula(ParticleCountVar).VarY, Particula(ParticleCountVar).AlphaInicial, Particula(ParticleCountVar).RedInicial, Particula(ParticleCountVar).GreenInicial, _
  24.     Particula(ParticleCountVar).BlueInicial, Particula(ParticleCountVar).AlphaFinal, Particula(ParticleCountVar).RedFinal, Particula(ParticleCountVar).GreenFinal, Particula(ParticleCountVar).BlueFinal, Particula(ParticleCountVar).NumOfParticles, Particula(ParticleCountVar).Gravity, Particula(ParticleCountVar).Texture, Particula(ParticleCountVar).size, Particula(ParticleCountVar).Life
  25. End Function
  26.  


Explicación:
Ahora deberán modificar el Particles.ini que viene con las particulas de Menduz... los NROS de las perticulas los modifican en el servidor, acá.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Enum FXIDs
  2.     FXWARP = 1
  3.     FXMEDITARCHICO = 2
  4.     FXMEDITARMEDIANO = 3
  5.     FXMEDITARGRANDE = 4
  6.     FXMEDITARXGRANDE = 5
  7.     FXMEDITARXXGRANDE = 6
  8. End Enum


Ejemplo de Particles.ini:
[INIT]
Total=2
[1]
Name=Meditacion1
VarZ=0
VarX=1
VarY=-10
AlphaInicial=255
RedInicial=100
GreenInicial=100
BlueInicial=255
AlphaFinal=1
RedFinal=10
GreenFinal=10
BlueFinal=40
NumOfParticles=700
Gravity=-6
Texture=19716
Size=5
Life=500
[2]
Name=Meditacion2
VarZ=0
VarX=1
VarY=-13
AlphaInicial=255
RedInicial=255
GreenInicial=100
BlueInicial=100
AlphaFinal=1
RedFinal=200
GreenFinal=70
BlueFinal=70
NumOfParticles=700
Gravity=-8
Texture=19716
Size=5
Life=500
Última edición por Dunkan el 04 Ago 2011 17:07, editado 1 vez en total
Dunkan
All we need is love
475
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 2001
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 03 Ago 2011 19:07

Buen aporte, quedo lindo.

Saludos ^^

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 » 03 Ago 2011 19:25

Hermoso aporte.

Holis
Faqe
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3111
Aportes: 9
Arriba

Nota » 04 Ago 2011 16:37

No había leído que te basaste en el de Samke, y como no sabía al leer esto " 'Author: Martín Gomez (Samke)", se me bajó la cara XD...

Hacelo desde cero si lo vas a aportar paja :P.


Adiós. (Buen aporte)

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
356
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4546
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 04 Ago 2011 16:56

Si lo hago de cero va a ser igual pero con otras variables, jajaja... prefiero dejarle los créditos y que funcione.
Dunkan
All we need is love
475
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 2001
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 04 Ago 2011 16:59

Aportaso.

Se agradece :)

Imagen

Imagen

TE AMO SKYFUN SOS MI FANNNNNNNNNNNNNNNNNNNNN
SimP
HAO Staff
409
Dragon Ancestral [2]
Registrado: Años de membresía
Ubicación: Buenos Aires
Mensajes: 2745
Aportes: 28
Premios: 1
Embajador (1)
Arriba

Nota » 04 Ago 2011 19:08

buenisimo dunkan, se agradece ^^



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

Nota » 05 Ago 2011 12:53

Espero que pueda solucionar mis problemas con este (Y)
Gracias.

No anda el particle remove, osea crea las partículas pero no las destruye correctamente.. Era uno de mis problemas.
Última edición por Lanzers el 05 Ago 2011 18:56, editado 1 vez en total

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
544
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2678
Aportes: 16
Arriba

Nota » 05 Ago 2011 21:23

Lanzers escribió:Espero que pueda solucionar mis problemas con este (Y)
Gracias.

No anda el particle remove, osea crea las partículas pero no las destruye correctamente.. Era uno de mis problemas.


Estube leyendo el sub particle_remove y vi que lo que mata es la particula del mapa, no del char, por eso no te la mata.

Saludos ^^

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 » 19 Ago 2011 14:44

me tira sub indice fuera de intervalo aca:

D3DDevice.SetTexture 0, GetTexture(GrhData(particle_group_list(.particle_group).Texture).FileNum, tmplng, tmblng2) 'Textures(particle_group_list(.particle_group).Texture)

alguna idea?



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

Nota » 19 Ago 2011 22:52

Está bugeado este sistema, no lo pude hacer andar. SI alguien lo arregla se lo agradeceríamos *Dunkan :D

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
544
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2678
Aportes: 16
Arriba

Nota » 19 Ago 2011 23:32

No la crea en el char la partícula SAMKE, siempre la crea en el mapa... leíste bien genio

Pueden poner los errores? A mi me funciona bien -
Última edición por Dunkan el 19 Ago 2011 23:34, editado 1 vez en total
Dunkan
All we need is love
475
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 2001
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 20 Ago 2011 00:34

La partículas las crea en el mapa no en el char... Cuando dejas de meditar y lo volves a hacer en otra posición, la partícula se ve en la dos dos posiciones donde meditaste. Y a mi se me bugean algunas capas, que creo que eso es problema mio =$

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
544
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2678
Aportes: 16
Arriba

Nota » 20 Ago 2011 12:24

GoDKeR escribió:me tira sub indice fuera de intervalo aca:

D3DDevice.SetTexture 0, GetTexture(GrhData(particle_group_list(.particle_group).Texture).FileNum, tmplng, tmblng2) 'Textures(particle_group_list(.particle_group).Texture)

alguna idea?


ese es mi error, alguien me postea el type pa_gro y la parte de renderizacion de las particulas en renderscreen?



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

Nota » 20 Ago 2011 21:14

GoDKeR escribió:ese es mi error, alguien me postea el type pa_gro y la parte de renderizacion de las particulas en renderscreen?


Vas a tener que bajarte el 12.1 con Dx8 porque el render de parículas que uso no es el mismo que el que está posteado acá.

http://www.gs-zone.org/ft21117_0_12_1_en_dx8_para_todos.html
Última edición por Lanzers el 20 Ago 2011 21:14, editado 1 vez en total

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
544
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2678
Aportes: 16
Arriba
Siguiente

Volver a AO 0.12.x

¿Quién está conectado?

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