NPC cada tanto tiempo

» 14 Ene 2012 20:50

Osea yo tengo SWAO y tengo un evento que aparece un npc cada 8 horas como hago para cambiarle el tiempo ?.

» 14 Ene 2012 20:58

Postea el codigo del timer

» 14 Ene 2012 21:04

miqueas150 escribió:Postea el codigo del timer

Ese es el tema no se cual es

.

Te dejo esto espero que me puedas ayudar con esto.

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

Sub PasarSegundo()
        Dim i     As Integer
        Dim g     As Integer
        
        
        If BestiaEvent > 0 Then
          BestiaEvent = BestiaEvent - 1
        ElseIf BestiaEvent = 0 Then
           If ExistEvent = False Then
            Dim PosBest As WorldPos
             PosBest.Map = RandomNumber(2, 7)
             PosBest.X = RandomNumber(25, 75)
             PosBest.Y = RandomNumber(25, 75)
             SendData SendTarget.ToAll, 0, 0, "||Una criatura de gran poder se ha invocado en el mapa " & PosBest.Map & " ¿Quién será el guerrero que pueda combatirla?" & FONTTYPE_GANAR
             Call SpawnNpc(926, PosBest, True, False)
            Dim ss As Byte, mm As Byte
           For ss = 1 To 8
            mm = mm + 1
           Select Case mm
            Case 1, 2
              PosBest.X = PosBest.X + 1
              PosBest.Y = PosBest.Y - 1
            Case 3, 4
              PosBest.X = PosBest.X - 1
              PosBest.Y = PosBest.Y + 1
            Case 5, 6
              PosBest.X = PosBest.X + 2
              PosBest.Y = PosBest.Y - 2
            Case 7, 8
              PosBest.X = PosBest.X - 2
              PosBest.Y = PosBest.Y + 2
           End Select
              Call SpawnNpc(925, PosBest, True, False)
           Next ss
             ExistEvent = True
           End If
        End If