Time Fantasy Engine - Página 3 Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Time Fantasy Engine

+4
Profane ~
Sonart
GallighanMaker
Kies
8 participantes

Página 3 de 3 Anterior  1, 2, 3

Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Kies Seg Nov 20, 2017 11:34 am

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

Mensagens : 1154
Créditos : 124

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue0/0Time Fantasy Engine - Página 3 Empty_bar_bleue  (0/0)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Kenshiro Seg Nov 20, 2017 12:42 pm

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
Kenshiro
Lenda
Lenda

Mensagens : 178
Créditos : 22

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue2/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (2/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Dexter Seg Nov 20, 2017 12:59 pm

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!!Time Fantasy Engine - Página 3 Sem_ty11
E esse tambem
Time Fantasy Engine - Página 3 Sem_ty12
Dexter
Dexter
Semi-Experiente
Semi-Experiente

Mensagens : 90
Créditos : 13

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue0/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (0/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Kenshiro Seg Nov 20, 2017 1:23 pm

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!!Time Fantasy Engine - Página 3 Sem_ty11
E esse tambem
Time Fantasy Engine - Página 3 Sem_ty12
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
Kenshiro
Lenda
Lenda

Mensagens : 178
Créditos : 22

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue2/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (2/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Dexter Seg Nov 20, 2017 8:04 pm

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!!Time Fantasy Engine - Página 3 Sem_ty11
E esse tambem
Time Fantasy Engine - Página 3 Sem_ty12
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
Dexter
Dexter
Semi-Experiente
Semi-Experiente

Mensagens : 90
Créditos : 13

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue0/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (0/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Kenshiro Seg Nov 20, 2017 9:17 pm

@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
Kenshiro
Lenda
Lenda

Mensagens : 178
Créditos : 22

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue2/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (2/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Dexter Seg Nov 20, 2017 9:30 pm

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
Time Fantasy Engine - Página 3 Erro10
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
Dexter
Dexter
Semi-Experiente
Semi-Experiente

Mensagens : 90
Créditos : 13

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue0/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (0/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Kenshiro Ter Nov 21, 2017 6:36 pm

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
Time Fantasy Engine - Página 3 Erro10
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.
Kenshiro
Kenshiro
Lenda
Lenda

Mensagens : 178
Créditos : 22

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue2/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (2/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Dexter Ter Nov 21, 2017 10:56 pm

Te mandei uma msg privada com o skype.
Dexter
Dexter
Semi-Experiente
Semi-Experiente

Mensagens : 90
Créditos : 13

Ficha do personagem
Nível: 1
Experiência:
Time Fantasy Engine - Página 3 Left_bar_bleue0/50Time Fantasy Engine - Página 3 Empty_bar_bleue  (0/50)
Vida:
Time Fantasy Engine - Página 3 Left_bar_bleue30/30Time Fantasy Engine - Página 3 Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Time Fantasy Engine - Página 3 Empty Re: Time Fantasy Engine

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Página 3 de 3 Anterior  1, 2, 3

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos