Sistema Pretoriano.

Este tema se encuentra cerrado.

» 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.

» 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

» 30 Dic 2011 23:51

esta parte puede ser?.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Sub NpcLanzaSpellSobreUser2(ByVal NpcIndex As Integer, ByVal UserIndex As Integer, ByVal Spell As Integer)
On Error GoTo errorh
''  Igual a la otra pero ataca invisibles!!!
'' (malditos controles de casos imposibles...)
 
If Npclist(NpcIndex).CanAttack = 0 Then Exit Sub
'If UserList(UserIndex).Flags.Invisible = 1 Then Exit Sub
 
Npclist(NpcIndex).CanAttack = 0
Dim daño As Integer
 
If Hechizos(Spell).SubeHP = 1 Then
 
    daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)
    Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
    Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
 
    UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP + daño
    If UserList(UserIndex).Stats.MinHP > UserList(UserIndex).Stats.MaxHP Then UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
    
    Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "||" & Npclist(NpcIndex).name & " te ha quitado " & daño & " puntos de vida." & FONTTYPE_FIGHT)
 
ElseIf Hechizos(Spell).SubeHP = 2 Then
    
    daño = RandomNumber(Hechizos(Spell).MinHP, Hechizos(Spell).MaxHP)
    Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
    Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
 
    If UserList(UserIndex).flags.Privilegios = PlayerType.User Then UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP - daño
    
    Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "||" & Npclist(NpcIndex).name & " te ha quitado " & daño & " puntos de vida." & FONTTYPE_FIGHT)
    
    'Muere
    If UserList(UserIndex).Stats.MinHP < 1 Then
        UserList(UserIndex).Stats.MinHP = 0
        Call UserDie(UserIndex)
    End If
    
End If
 
If Hechizos(Spell).Paraliza = 1 Then
     If UserList(UserIndex).flags.Paralizado = 0 Then
          UserList(UserIndex).flags.Paralizado = 1
          UserList(UserIndex).Counters.Paralisis = IntervaloParalizado
          Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & Hechizos(Spell).WAV)
          Call SendData(MonitoxDxD.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).char.CharIndex & "," & Hechizos(Spell).FXgrh & "," & Hechizos(Spell).loops)
        Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "PARADOK")
        Call SendData(MonitoxDxD.ToIndex, UserIndex, 0, "PU" & UserList(UserIndex).Pos.X & "," & UserList(UserIndex).Pos.Y)
     End If
End If
 
Exit Sub
 
errorh:
    LogError ("Error en NPCAI.NPCLanzaSpellSobreUser2 ")
 
 
End Sub
 

» 30 Dic 2011 23:59

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

» 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.

» 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

» 31 Dic 2011 00:23

era en otro lado, muajjaja.

SOLUCIONADO.

» 31 Dic 2011 00:24

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

SOLUCIONADO.

Vas a morir mouu Wiiiiiiiiiiiiiiiiiiiiiiiiii :lol:

Mandame por mp donde es

Este tema se encuentra cerrado.

Sistema Pretoriano.

¿Quién está conectado?