Então, já tinha ajeitado mais ou menos as GUI e parti para a database, porém recebi esse erro. Alguém sabe como corrigir? É só no comando dos itens mesmo, mapas e animações funcionam corretamente.
2 participantes
[Resolvido]Erro no comando editar itens
driko- Semi-Experiente
- Mensagens : 125
Créditos : 7
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
- Mensagem nº1
[Resolvido]Erro no comando editar itens
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
- Mensagem nº2
Re: [Resolvido]Erro no comando editar itens
Procure pelo comando no ModInput.
Geralmente os codigos de chat são postos nessa sub:
No Client!!!
Verifique se seu codigo está lá, e se ele está chamando alguma função. =P
Geralmente os codigos de chat são postos nessa sub:
- Código:
Public Sub HandleKeyPresses(ByVal KeyAscii As Integer)
No Client!!!
Verifique se seu codigo está lá, e se ele está chamando alguma função. =P
_________________
"Mistress of shattered hopes and forever broken dreams"
driko- Semi-Experiente
- Mensagens : 125
Créditos : 7
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
- Mensagem nº3
Re: [Resolvido]Erro no comando editar itens
- Código:
SendRequestLevelUp Command(1)
' // Developer Admin Commands //
' Editing item request
Case "/edititem"
If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
SendRequestEditItem
' Editing animation request
Case "/editanimation"
If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
SendRequestEditAnimation
' Editing npc request
Case "/editnpc"
If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
- Código:
Public Sub HandleKeyPresses(ByVal KeyAscii As Integer)
Dim chatText As String
Dim name As String
Dim I As Long
Dim n As Long
Dim Command() As String
Dim buffer As clsBuffer
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
chatText = MyText
If GUIWindow(GUI_CURRENCY).Visible Then
If (KeyAscii = vbKeyBack) Then
If LenB(sDialogue) > 0 Then sDialogue = Mid$(sDialogue, 1, Len(sDialogue) - 1)
End If
' And if neither, then add the character to the user's text buffer
If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyTab) Then
sDialogue = sDialogue & ChrW$(KeyAscii)
End If
End If
Estranho o erro, eu não modifiquei nada no modinput ;3
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
- Mensagem nº4
Re: [Resolvido]Erro no comando editar itens
AUSHuash Mals, so agora eu fui ver teu video até o final.
Olhei só o começo e pensei que era erro de input de você está pondo os /edit ~
Bem isso ai é o out of range de registro do Classes.
O que você tem de verificar é ~
> Se o Numero de Classes máximo, servidor e cliente estão iguais ;c
> Verifica esse "MaxClassReq" que é uma constante, ve se está correto com o numero de classes do servidor ~
Olhei só o começo e pensei que era erro de input de você está pondo os /edit ~
Bem isso ai é o out of range de registro do Classes.
O que você tem de verificar é ~
> Se o Numero de Classes máximo, servidor e cliente estão iguais ;c
> Verifica esse "MaxClassReq" que é uma constante, ve se está correto com o numero de classes do servidor ~
_________________
"Mistress of shattered hopes and forever broken dreams"
driko- Semi-Experiente
- Mensagens : 125
Créditos : 7
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
- Mensagem nº5
Re: [Resolvido]Erro no comando editar itens
Opa, era isso mesmo. Futuquei a um tempo, pensei que só precisava alterar os arquivos de texto. Muito obrigado, agora vou tentar ver o outro lá em que você está me ajudando!
|
|