GS-Zone

Sistema Pretoriano. Ir al Indice

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

8
Este tema se encuentra cerrado.

Nota » 30 Dic 2011 21:29

Bueno tengo un problema con esto que al tirar los npcs no tienen intervalo para pegar , osea me tiran como 20 hechizos cada 5 segundos . quiero que tarden 2 o 3 segundos por hechizo/golpe.

Creo que no estaba echo asì antes.

Imagen
Intento de Programer
306
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1127
Aportes: 10

Nota » 30 Dic 2011 22:37

Mmm que raro Fijate el modulo petros Si no me equiboco hay un sub para los intervalos del las cosas esas

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 30 Dic 2011 23:51

esta parte puede ser?.

  1. Sub NpcLanzaSpellSobreUser2(ByVal NpcIndex As Integer, ByVal UserIndex As Integer, ByVal Spell As Integer)
  2. On Error GoTo errorh
  3. ''  Igual a la otra pero ataca invisibles!!!
  4. '' (malditos controles de casos imposibles...)
  5.  
  6. If Npclist(NpcIndex).CanAttack = 0 Then Exit Sub
  7. 'If UserList(UserIndex).Flags.Invisible = 1 Then Exit Sub
  8.  
  9. Npclist(NpcIndex).CanAttack = 0
  10. Dim daño As Integer
  11.  
  12. If Hechizos(Spell).SubeHP = 1 Then
  13.  
  14.     daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)
  15.     Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
  16.     Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
  17.  
  18.     UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP + daño
  19.     If UserList(UserIndex).Stats.MinHP > UserList(UserIndex).Stats.MaxHP Then UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
  20.    
  21.     Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "||" & Npclist(NpcIndex).name & " te ha quitado " & daño & " puntos de vida." & FONTTYPE_FIGHT)
  22.  
  23. ElseIf Hechizos(Spell).SubeHP = 2 Then
  24.    
  25.     daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)
  26.     Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
  27.     Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
  28.  
  29.     If UserList(UserIndex).flags.Privilegios = PlayerType.User Then UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP - daño
  30.    
  31.     Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "||" & Npclist(NpcIndex).name & " te ha quitado " & daño & " puntos de vida." & FONTTYPE_FIGHT)
  32.    
  33.     'Muere
  34.     If UserList(UserIndex).Stats.MinHP < 1 Then
  35.         UserList(UserIndex).Stats.MinHP = 0
  36.         Call UserDie(UserIndex)
  37.     End If
  38.    
  39. End If
  40.  
  41. If Hechizos(Spell).Paraliza = 1 Then
  42.      If UserList(UserIndex).flags.Paralizado = 0 Then
  43.           UserList(UserIndex).flags.Paralizado = 1
  44.           UserList(UserIndex).Counters.Paralisis = IntervaloParalizado
  45.           Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
  46.           Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
  47.         Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "PARADOK")
  48.         Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "PU" & UserList(UserIndex).Pos.X & "," & UserList(UserIndex).Pos.Y)
  49.      End If
  50. End If
  51.  
  52. Exit Sub
  53.  
  54. errorh:
  55.     LogError ("Error en NPCAI.NPCLanzaSpellSobreUser2 ")
  56.  
  57.  
  58. End Sub
  59.  

Imagen
Intento de Programer
306
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1127
Aportes: 10

Nota » 30 Dic 2011 23:59

Creo que es en un timer fijate me mata tu MonitoxDxD asjduasvdasdgasdjk
Suerte

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 31 Dic 2011 00:18

jajajaja.

Listo ya lo arregle me puse a mirar los timers pero no era hay pero ya encontre de donde era gracias pueden cerrar.

Imagen
Intento de Programer
306
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1127
Aportes: 10

Nota » 31 Dic 2011 00:21

Pentra~ escribió:jajajaja.

Listo ya lo arregle me puse a mirar los timers pero no era hay pero ya encontre de donde era gracias pueden cerrar.



Postea donde era xD

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 31 Dic 2011 00:23

era en otro lado, muajjaja.

SOLUCIONADO.

Imagen
Intento de Programer
306
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1127
Aportes: 10

Nota » 31 Dic 2011 00:24

Pentra~ escribió:era en otro lado, muajjaja.

SOLUCIONADO.


Vas a morir mouu Wiiiiiiiiiiiiiiiiiiiiiiiiii :lol:

Mandame por mp donde es

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Este tema se encuentra cerrado.

Volver a AO 0.11.5

¿Quién está conectado?

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