Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
3 participantes
Página 1 de 1
Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Sistema totalmente Client~Side, abra o Client~Side vai em frmMain na parte do codigo procure por:
e mude a sub toda para:
OBS: oq foi adicionado de novo ?
Isso q esta dentro da spoiler abaixo
OBS²: ao apertar o botão "DELETE" ele vai para o lado "ESQUERDO" ao apertar o botão "END" ele vai para "BAIXO" ao apertar o botão "PAGEDOWN" ele vai para a "DIREITA" ao apertar o botão "HOME" ele vai para "CIMA".
OBS³: ele so muda a direção, o char nao anda ao apertar o botão ele so vira, vira para os lados, cima e baixo ! :)
Fim ! :)
Simples, Util e facil ! :)
Créditos: A Mim Thales12
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
e mude a sub toda para:
- Código:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
Select Case KeyCode
Dim OldDir
Case vbKeyEnd
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
ElseIf Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
If OldDir <> DIR_LEFT Then Call SendPlayerDir
End If
End If
Case vbKeyDelete
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
ElseIf Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
Case vbKeyPageDown
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
ElseIf Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
ElseIf Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
Case vbKeyHome
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_UP)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_UP)
ElseIf Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_UP)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
Case vbKeyInsert
If Player(MyIndex).Access > 0 Then
picAdmin.Visible = Not picAdmin.Visible
End If
End Select
' hotbar
For i = 1 To MAX_HOTBAR
If KeyCode = 111 + i Then
SendHotbarUse i
End If
Next
' Error handler
Exit Sub
errorhandler:
HandleError "Form_KeyUp", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
OBS: oq foi adicionado de novo ?
Isso q esta dentro da spoiler abaixo
- Spoiler:
- Código:
Dim OldDir
Case vbKeyEnd
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
ElseIf Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_DOWN)
If OldDir <> DIR_LEFT Then Call SendPlayerDir
End If
End If
Case vbKeyDelete
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
ElseIf Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_LEFT)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
Case vbKeyPageDown
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_UP Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
ElseIf Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
ElseIf Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_RIGHT)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
Case vbKeyHome
If Player(MyIndex).Moving = NO Then
OldDir = GetPlayerDir(MyIndex)
If Player(MyIndex).Dir = DIR_DOWN Then
Call SetPlayerDir(MyIndex, DIR_UP)
ElseIf Player(MyIndex).Dir = DIR_RIGHT Then
Call SetPlayerDir(MyIndex, DIR_UP)
ElseIf Player(MyIndex).Dir = DIR_LEFT Then
Call SetPlayerDir(MyIndex, DIR_UP)
If OldDir <> DIR_UP Then Call SendPlayerDir
End If
End If
OBS²: ao apertar o botão "DELETE" ele vai para o lado "ESQUERDO" ao apertar o botão "END" ele vai para "BAIXO" ao apertar o botão "PAGEDOWN" ele vai para a "DIREITA" ao apertar o botão "HOME" ele vai para "CIMA".
OBS³: ele so muda a direção, o char nao anda ao apertar o botão ele so vira, vira para os lados, cima e baixo ! :)
Fim ! :)
Simples, Util e facil ! :)
Créditos: A Mim Thales12
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Legal, vou por depois, ia se legal se fosse ctrl + seta tipo tibia ;x ctrl é atk dai nao daria... entao shift xD
_________________
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
acho q conssigo fazer .. quer q eu fassa e poste aki .. ?
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Se conseguir e postar eu agradeço muito, acho massa e interesante o negocio de virar, é util!
_________________
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
arrume os creditos novamente rsrs se mi lembro bem esse tutorial e bem antigo foi postado por um menbro da toucht ;D
Ian- Ocasional
- Mensagens : 216
Créditos : 27
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Thales conseguiu fazer com shift la...?
_________________
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Jian se tu chegar em mais 1 tutorial meu q os creditos esteja a mim e tu falar q nao e meu, tu vai ver o proprio diabo na tua frente !
to cançando de ir no meu topico e ver vc dizendo isso, se tem na touch postado ou nao "FODA-SE" eu nao entro na touch nao sei ingles, e nao copiei nada, Se tem tuto la, entre e veja se e igual, e veja a data postada dos 2 !
@STAFF = staff caso queira me punir pelo palavrão fique avontade .. pos sei q errei
@Deidara, Fiz sim vou postar para vc amanha jae ?
to cançando de ir no meu topico e ver vc dizendo isso, se tem na touch postado ou nao "FODA-SE" eu nao entro na touch nao sei ingles, e nao copiei nada, Se tem tuto la, entre e veja se e igual, e veja a data postada dos 2 !
@STAFF = staff caso queira me punir pelo palavrão fique avontade .. pos sei q errei
@Deidara, Fiz sim vou postar para vc amanha jae ?
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
desculpe amigo se voce não aguenta averdade mais 90% dos tutorial que voce posta ou são copiados ou voce ripo não tou reclamando dissu apenas arrume os creditos dario no mesmo alguem roubar algo seu não dizer que era seu antis de vender mais se voce se acha no direito de roubar o trabalahos dos outros e dizer que foi voce que fez não vou dar um unico post nos seus topicos roubados - desculpa a staff
Ian- Ocasional
- Mensagens : 216
Créditos : 27
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
Blz thales... Ian só pq o tutorial dele tem no touch quer dizer que ele copiou? ele não sabe ingles e vai copiar e traduzir poracaso mano? vc ja falou em 300 topicos dele que eu vi se ele copiou blz mano avisa alguem sei la velho pq ja é idiotice isso ficar falando em todos os topicos '
@Edit
antes de falar que ele pode ter usado google tradutor saiba que a tradução do google tradutor ta uma bosta traduzindo tudo errado...
@Edit2
ele ja postou tantos sistemas é impossivel que ele não saiba e tenha copiado e.e ''
@Edit
antes de falar que ele pode ter usado google tradutor saiba que a tradução do google tradutor ta uma bosta traduzindo tudo errado...
@Edit2
ele ja postou tantos sistemas é impossivel que ele não saiba e tenha copiado e.e ''
_________________
Re: Virar o Perssonagem ( Esquerda, Direita, Baixo e Cima )
não digo mais nada nem dele nem de nimguem mais que eu conheço thales eu conheço desculpe ao os menbros do forum e a staff...
Ian- Ocasional
- Mensagens : 216
Créditos : 27
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|