Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Time Fantasy Engine
+4
Profane ~
Sonart
GallighanMaker
Kies
8 participantes
Aldeia RPG :: Baú
Página 3 de 3
Página 3 de 3 • 1, 2, 3
Re: Time Fantasy Engine
Eu n tive esse problemas então realmente me desculpe caso seja um bug.. Obrigado kenshiro pelo suporte dado.
Kies- Diva
- Mensagens : 1154
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Re: Time Fantasy Engine
Nah, tem problema não.Kakashi~ escreveu:Eu n tive esse problemas então realmente me desculpe caso seja um bug.. Obrigado kenshiro pelo suporte dado.
Só acho que tinha um jeito mais fácil de fazer esse sistema de pet ai
Kenshiro- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
Re: Time Fantasy Engine
Agora marcou essa linha!!Kenshiro escreveu:Troca por: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
- 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
E esse tambem
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
Re: Time Fantasy Engine
No Primeiro print onde está:Lucas Lôpo escreveu:Agora marcou essa linha!!Kenshiro escreveu:Troca por: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
- 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
E esse tambem
- 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- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
Re: Time Fantasy Engine
Desculpa incomodar mas o erro agora deu nessa linha:Kenshiro escreveu:No Primeiro print onde está:Lucas Lôpo escreveu:Agora marcou essa linha!!Kenshiro escreveu:Troca por: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
- 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
E esse tambem
- 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
- 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- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
Re: Time Fantasy Engine
@Lucas Lôpo
Muda Por isso:
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- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
Re: Time Fantasy Engine
Segue o erroKenshiro 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
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- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
Re: Time Fantasy Engine
Tem Skype? assim resolvo tudo quando vc estiver on.Lucas Lôpo escreveu:Segue o erroKenshiro 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
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- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
Re: Time Fantasy Engine
Te mandei uma msg privada com o skype.
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
Página 3 de 3 • 1, 2, 3
Tópicos semelhantes
» [Ajuda]Novos graficos na engine "Time Fantasy".
» [avaliação] Sprites time fantasy
» Bomberman estilo Time Fantasy
» [DISPONDO] RECURSOS FREE TIME FANTASY
» [Apresentando] Godot Engine - a engine aberta
» [avaliação] Sprites time fantasy
» Bomberman estilo Time Fantasy
» [DISPONDO] RECURSOS FREE TIME FANTASY
» [Apresentando] Godot Engine - a engine aberta
Aldeia RPG :: Baú
Página 3 de 3
Permissões neste sub-fórum
Não podes responder a tópicos
|
|