Eu n tive esse problemas então realmente me desculpe caso seja um bug.. Obrigado kenshiro pelo suporte dado.
+4
Profane ~
Sonart
GallighanMaker
Kies
8 participantes
Time Fantasy Engine
Kies- Diva
- Mensagens : 1155
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
- Mensagem nº21
Re: Time Fantasy Engine
Kenshiro- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
- Mensagem nº22
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
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
- Mensagem nº23
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
Kenshiro- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
- Mensagem nº24
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
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
- Mensagem nº25
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
Kenshiro- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
- Mensagem nº26
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
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
- Mensagem nº27
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
Kenshiro- Lenda
- Mensagens : 178
Créditos : 22
Ficha do personagem
Nível: 1
Experiência:
(2/50)
Vida:
(30/30)
- Mensagem nº28
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
Dexter- Semi-Experiente
- Mensagens : 90
Créditos : 13
Ficha do personagem
Nível: 1
Experiência:
(0/50)
Vida:
(30/30)
- Mensagem nº29
Re: Time Fantasy Engine
Te mandei uma msg privada com o skype.