Aldeia RPG

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

Suporte ao desenvolvimento de jogos


+4
Profane ~
Sonart
GallighanMaker
Kies
8 participantes

    Time Fantasy Engine

    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)

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

    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
    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)

    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
    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)

    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
    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)

    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
    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)

    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
    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)

    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
    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)

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

    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.

    Conteúdo patrocinado


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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Mar 28, 2024 4:26 pm