Eu n tive esse problemas então realmente me desculpe caso seja um bug.. Obrigado kenshiro pelo suporte dado.

Kakashi~ escreveu:Eu n tive esse problemas então realmente me desculpe caso seja um bug.. Obrigado kenshiro pelo suporte dado.

Nah, tem problema não.
Só acho que tinha um jeito mais fácil de fazer esse sistema de pet ai

Kenshiro escreveu:

Lucas Lôpo escreveu:Agora esta dando erro na seguinte linha

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

    For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 Then
    >> If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
    Map(mapNum).Npc(i) = 0
    MapNpc(mapNum).Npc(i).Num = 0
    End If
    End If
    Next

End Sub

Troca por:

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 and MapNpc(Mapnum).Npc(i).Num <= MAX_NPCS Then
 If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
 Map(mapNum).Npc(i) = 0
 MapNpc(mapNum).Npc(i).Num = 0
 End If
    End If
Next

Agora marcou essa linha!!
E esse tambem

Lucas Lôpo escreveu:

Kenshiro escreveu:

Lucas Lôpo escreveu:Agora esta dando erro na seguinte linha

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

    For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 Then
    >> If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
    Map(mapNum).Npc(i) = 0
    MapNpc(mapNum).Npc(i).Num = 0
    End If
    End If
    Next

End Sub

Troca por:

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 and MapNpc(Mapnum).Npc(i).Num <= MAX_NPCS Then
 If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
 Map(mapNum).Npc(i) = 0
 MapNpc(mapNum).Npc(i).Num = 0
 End If
    End If
Next

Agora marcou essa linha!!
E esse tambem

No Primeiro print onde está:

Código:

If Mapnpc(MapNpcNum).Num = 0 Then Exit Sub

Mude Por:

Código:

If Mapnpc(MapNpcNum).Num = 0 Or Mapnpc(MapNpcNum).Num > MAX_NPCS Then Exit Sub

No Segundo acima do erro onde tem:

Código:

If Map(mapNum).Npc(x) > 0 And MapNpc(mapNum).Npc(x).Num > 0 Then

Mude Por:

Código:

If Map(mapNum).Npc(x) > 0 And MapNpc(mapNum).Npc(x).Num > 0 And MapNpc(mapNum).Npc(x).Num <= MAX_NPCS Then

Kenshiro escreveu:

Lucas Lôpo escreveu:

Kenshiro escreveu:

Lucas Lôpo escreveu:Agora esta dando erro na seguinte linha

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

    For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 Then
    >> If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
    Map(mapNum).Npc(i) = 0
    MapNpc(mapNum).Npc(i).Num = 0
    End If
    End If
    Next

End Sub

Troca por:

Código:

Sub SpawnMapNpcs(ByVal mapNum As Long)
    Dim i As Long

For i = 1 To MAX_MAP_NPCS
    Call SpawnNpc(i, mapNum)
    If MapNpc(mapNum).Npc(i).Num > 0 and MapNpc(Mapnum).Npc(i).Num <= MAX_NPCS Then
 If Npc(MapNpc(mapNum).Npc(i).Num).Behaviour = NPC_BEHAVIOUR_PET Then
 Map(mapNum).Npc(i) = 0
 MapNpc(mapNum).Npc(i).Num = 0
 End If
    End If
Next

Agora marcou essa linha!!
E esse tambem

No Primeiro print onde está:

Código:

If Mapnpc(MapNpcNum).Num = 0 Then Exit Sub

Mude Por:

Código:

If Mapnpc(MapNpcNum).Num = 0 Or Mapnpc(MapNpcNum).Num > MAX_NPCS Then Exit Sub

No Segundo acima do erro onde tem:

Código:

If Map(mapNum).Npc(x) > 0 And MapNpc(mapNum).Npc(x).Num > 0 Then

Mude Por:

Código:

If Map(mapNum).Npc(x) > 0 And MapNpc(mapNum).Npc(x).Num > 0 And MapNpc(mapNum).Npc(x).Num <= MAX_NPCS Then

Desculpa incomodar mas o erro agora deu nessa linha:

Código:

Sub ClearPossiblePets()
    Dim i As Long
    Dim i2 As Long
    
    For i = 1 To MAX_MAPS
       For i2 = 1 To MAX_MAP_NPCS
       If Map(i).Npc(i2) > 0 Then


      >>>>    If Npc(Map(i).Npc(i2)).Behaviour = NPC_BEHAVIOUR_PET Then <<<<
           
            Map(i).Npc(i2) = 0
            MapNpc(1).Npc(i2).Num = 0
          End If
        End If
        Next
    Next

End Sub

@Lucas Lôpo
Muda Por isso:

Código:

Sub ClearPossiblePets()
    Dim i As Long
    Dim i2 As Long
    
    For i = 1 To MAX_MAPS
       For i2 = 1 To MAX_MAP_NPCS
       If Map(i).Npc(i2) > 0 And  Map(i).Npc(i2).num > 0 And Map(i).Npc(i2).num <= MAX_NPCS Then


     If Npc(Map(i).Npc(i2)).Behaviour = NPC_BEHAVIOUR_PET Then <<<<
          
            Map(i).Npc(i2) = 0
            MapNpc(1).Npc(i2).Num = 0
          End If
        End If
        Next
    Next

End Sub

Kenshiro escreveu:@Lucas Lôpo
Muda Por isso:

Código:

Sub ClearPossiblePets()
    Dim i As Long
    Dim i2 As Long
    
    For i = 1 To MAX_MAPS
       For i2 = 1 To MAX_MAP_NPCS
       If Map(i).Npc(i2) > 0 And  Map(i).Npc(i2).num > 0 And Map(i).Npc(i2).num <= MAX_NPCS Then


     If Npc(Map(i).Npc(i2)).Behaviour = NPC_BEHAVIOUR_PET Then <<<<
          
            Map(i).Npc(i2) = 0
            MapNpc(1).Npc(i2).Num = 0
          End If
        End If
        Next
    Next

End Sub

Segue o erro

Bom consegui resolver esse erro deixando da seguinte maneira:

Código:

If Map(i).Npc(i2) > 0 And Map(i).Npc(i2) > 0 And MapNpc(1).Npc(i2).Num <= MAX_NPCS Then

Mas então deu erro na seguinte linha:

Código:

For n2 = 1 To MAX_MAP_NPCS
                'If MapNpc(mapNum).Npc(x).Num > 0 And MapNpc(mapNum).Npc(n2).Num > 0 Then
               
                >>>  If Npc(MapNpc(mapNum).Npc(x).Num).Behaviour = NPC_BEHAVIOUR_PET Then

Lucas Lôpo escreveu:

Kenshiro escreveu:@Lucas Lôpo
Muda Por isso:

Código:

Sub ClearPossiblePets()
    Dim i As Long
    Dim i2 As Long
    
    For i = 1 To MAX_MAPS
       For i2 = 1 To MAX_MAP_NPCS
       If Map(i).Npc(i2) > 0 And  Map(i).Npc(i2).num > 0 And Map(i).Npc(i2).num <= MAX_NPCS Then


     If Npc(Map(i).Npc(i2)).Behaviour = NPC_BEHAVIOUR_PET Then <<<<
          
            Map(i).Npc(i2) = 0
            MapNpc(1).Npc(i2).Num = 0
          End If
        End If
        Next
    Next

End Sub

Segue o erro

Bom consegui resolver esse erro deixando da seguinte maneira:

Código:

If Map(i).Npc(i2) > 0 And Map(i).Npc(i2) > 0 And MapNpc(1).Npc(i2).Num <= MAX_NPCS Then

Mas então deu erro na seguinte linha:

Código:

For n2 = 1 To MAX_MAP_NPCS
                'If MapNpc(mapNum).Npc(x).Num > 0 And MapNpc(mapNum).Npc(n2).Num > 0 Then
                
                 >>>   If Npc(MapNpc(mapNum).Npc(x).Num).Behaviour = NPC_BEHAVIOUR_PET Then

Tem Skype? assim resolvo tudo quando vc estiver on.

Te mandei uma msg privada com o skype.