Milicia Republicana

Estado
Cerrado para nuevas respuestas.

Lherius

Dragón Ancestral Lvl 6
Especialista de Diseño
Primer Error : Me dice que falta un Select Case arriba de Case "/informacion" .. Que pongo?


Código:
Case "/INFORMACION"
 
           'Se asegura que el target es un npc
 
           If UserList(UserIndex).flags.TargetNPC = 0 Then
 
               Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
 
               Exit Sub
 
           End If
 
           
 
           If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 5 _
 
           Or UserList(UserIndex).flags.Muerto <> 0 Then Exit Sub
 
           
 
           If Distancia(UserList(UserIndex).Pos, Npclist(UserList(UserIndex).flags.TargetNPC).Pos) > 4 Then
 
               Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO)
 
               Exit Sub
 
           End If
 
           
 
           If Npclist(UserList(UserIndex).flags.TargetNPC).flags.Faccion = 0 Then
 
                If UserList(UserIndex).Faccion.ArmadaReal = 0 Then
 
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No perteneces a las tropas reales!!!" & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex))
 
                    Exit Sub
 
                End If
 
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Tu deber es combatir criminales, cada 100 criminales que derrotes te dare una recompensa." & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex))
 
           Else
 
                If UserList(UserIndex).Faccion.FuerzasCaos = 0 Then
 
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No perteneces a la legión oscura!!!" & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex))
 
                    Exit Sub
 
                End If
 
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Tu deber es sembrar el caos y la desesperanza, cada 100 ciudadanos que derrotes te dare una recompensa." & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex))
 
           End If
 
           Exit Sub


Otro error : Me marca estas 2 Cosas en rojo Y NO me deja COMPILAR , Que debo modificar.

Asi esta :

Código:
If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 5 _
 
          Or UserList(UserIndex).flags.Muerto <> 0 Then Exit Sub

Gracias a todos espero su ayuda!
 

Mafia

Juree!
Respecto a la 1 : Fijate que este dentro de algun select case. Y respecto a la 2: ponelo asi :

If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 5 Or UserList(UserIndex).flags.Muerto <> 0 Then Exit Sub

Respecto a la 3: Leete manuales
 

Lherius

Dragón Ancestral Lvl 6
Especialista de Diseño
Mafia dijo:
Respecto a la 1 : Fijate que este dentro de algun select case. Y respecto a la 2: ponelo asi :

If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 5 Or UserList(UserIndex).flags.Muerto <> 0 Then Exit Sub

Respecto a la 3: Leete manuales

Gracias RESPECTO 2 SOLUCIONADO .. ahi me fijo 1 :D


EDIT : Select Case UCase$(Left$(rData, 3)) ESTE ESTA BIEN Mafia?
 

Midraks

Creador de AOWeb
Ex-Staff
Lherius dijo:
Mafia dijo:
Respecto a la 1 : Fijate que este dentro de algun select case. Y respecto a la 2: ponelo asi :

If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 5 Or UserList(UserIndex).flags.Muerto <> 0 Then Exit Sub

Respecto a la 3: Leete manuales

Gracias RESPECTO 2 SOLUCIONADO .. ahi me fijo 1 :D


EDIT : Select Case UCase$(Left$(rData, 3)) ESTE ESTA BIEN Mafia?
Para que lo vas a poner ahí si no necesitas obtener ningún dato? :/

Ponelo arriba del case /online y listo.
 
Estado
Cerrado para nuevas respuestas.
Arriba