MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Ajuda] Item Teleporte

3 participantes

Ir para baixo

[Ajuda] Item Teleporte Empty [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 22:17

Eu tou tentando fazer esse sistema aki:http://www.mmorpgbr.com/t7944-item-teleporte

E da um erro e o erro vem relacionado com essa case:
Case ITEM_TYPE_TELEPORTE
SetPlayerDir Index, Item(itemNum).Dir
PlayerWarp Index, Item(itemNum).Map, Item(itemNum).x, Item(itemNum).y
Call TakeInvItem(Index, Player(Index).Inv(invNum).Num, 0)

OBS: o erro é o que ta em vermelho


Alguém me ajuda pf
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por jonny157 Sáb 09 Mar 2013, 23:05

Qual é o nome do erro amigo??
jonny157
jonny157
Membro Sênior
Membro Sênior

Mensagens : 406

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:10

Não é erro run-time n é compile error na hora que vou compilar
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Sáb 09 Mar 2013, 23:11

Se seu código está situado no servidor, em "ModPlayer" ,e na "Sub UseItem" , troque o código em vermelho por:

Código:
Call TakeInvItem(Index, ItemNum, 0)

E teste para ver o que ocorre ! Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:17

SendAnimation GetPlayerMap(Index), Item(itemNum).ItemAnim, 0, 0, TARGET_TYPE_PLAYER, Index

Agr deu esse erro
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Sáb 09 Mar 2013, 23:23

E agora troque toda essa sua linha por esta:

Código:
Call SendAnimation(GetPlayerMap(Index), Item(ItemNum).Animation, 0, 0, TARGET_TYPE_PLAYER, Index)

E "Bringt it On!"
Mais algum erro? Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:28

Call TakeInvItem(Index, Player(Index).Inv(invNum).Num, 0)

Agr esse, Surprised
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Sáb 09 Mar 2013, 23:31

Faça a mesma correção anterior '-'

Código:
Call TakeInvItem(Index, ItemNum, 0)

E agora? Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:39

Compile Error:

Argument not Optional...

A mesma coisa Suspect
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Sáb 09 Mar 2013, 23:42

Faça melhor, poste toda a sua:

Código:
Case ITEM_TYPE_TELEPORT

Aí fica melhor, eu copio, corrijo e adiciono o necessário e posto aqui que fica mais fácil...
ok? Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:44

Código:
Case ITEM_TYPE_TELEPORTE
                    SetPlayerDir Index, Item(itemNum).Dir
                    PlayerWarp Index, Item(itemNum).Map, Item(itemNum).x, Item(itemNum).y
                    Call SendAnimation(GetPlayerMap(Index), Item(itemNum).Animation, 0, 0, TARGET_TYPE_PLAYER, Index)
                    Call TakeInvItem(Index, itemNum, 0)
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Sáb 09 Mar 2013, 23:50

Você será ninja se der erro, troque toda a sua:

Código:
Case ITEM_TYPE_TELEPORT

por esta:

Código:
Case ITEM_TYPE_TELEPORTE
               
                ' stat requirements
                For i = 1 To Stats.Stat_Count - 1
                    If GetPlayerRawStat(Index, i) < Item(ItemNum).Stat_Req(i) Then
                        PlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRed
                        Exit Sub
                    End If
                Next
               
                ' level requirement
                If GetPlayerLevel(Index) < Item(ItemNum).LevelReq Then
                    PlayerMsg Index, "You do not meet the level requirement to use this item.", BrightRed
                    Exit Sub
                End If
               
                ' class requirement
                If Item(ItemNum).ClassReq > 0 Then
                    If Not GetPlayerClass(Index) = Item(ItemNum).ClassReq Then
                        PlayerMsg Index, "You do not meet the class requirement to use this item.", BrightRed
                        Exit Sub
                    End If
                End If
               
                ' access requirement
                If Not GetPlayerAccess(Index) >= Item(ItemNum).AccessReq Then
                    PlayerMsg Index, "You do not meet the access requirement to use this item.", BrightRed
                    Exit Sub
                End If
               
                    Call SetPlayerDir(Index, Item(ItemNum).Dir)
                    Call PlayerWarp(Index, Item(ItemNum).Map, Item(ItemNum).x, Item(ItemNum).y)
                    Call SendAnimation(GetPlayerMap(Index), Item(ItemNum).Animation, 0, 0, TARGET_TYPE_PLAYER, Index)
                    Call TakeInvItem(Index, ItemNum, 0)
                   
                    ' send the sound
                SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum

Aqui não deu erros Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Sáb 09 Mar 2013, 23:57

Incrivelmente deu outro erro...

e é a mesma merda de código '-'
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Dom 10 Mar 2013, 00:01

Qual outro erro?? O código está certo...
Que engine você usa??? Neutral
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Dom 10 Mar 2013, 00:10

Eu n sei que engine é que um amigo me pediu só sei que o sv dele é mysql
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Dom 10 Mar 2013, 00:12

Vish aí fica difícil.....
Porque a "TakeInvItem" está com os items corretos.....
A "SendAnimation" também....
e as duas continuam dando erro.....tem certeza que você corrigiu as linhas e continua a ter o erro nas mesmas linhas? Ou em linhas diferentes da mesma "SUB" ?
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Dom 10 Mar 2013, 00:20

sim, eu mudei oq vc falou no Call esqecionome e continua o erro no mesmo
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Dom 10 Mar 2013, 00:24

Na:

Código:
Call SendAnimation

ou na :

Código:
Call TakeInvItem

Qual das duas o erro persiste ?
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Dom 10 Mar 2013, 00:33

Call TakeInvItem
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Dom 10 Mar 2013, 00:51

Mostre sua função "TakeInvItem" e poste aqui só o início dela....

Essa é da minha engine:

Código:
Function TakeInvItem(ByVal Index As Long, ByVal ItemNum As Long, ByVal ItemVal As Long) As Boolean

Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por TheKirin Dom 10 Mar 2013, 01:24

Call TakeInvItem(Index, ItemNum, 0)

não é função não...
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por lucas100vzs Dom 10 Mar 2013, 04:17

é só procurar por isto:

Código:
Function TakeInvItem

e postar daquele jeito que fiz Laughing
lucas100vzs
lucas100vzs
Membro Sênior
Membro Sênior

Mensagens : 396

Ir para o topo Ir para baixo

[Ajuda] Item Teleporte Empty Re: [Ajuda] Item Teleporte

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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