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.

Correr Automaticamente por COMMANDBUTTON

+3
João™ 
Karlos
nikolasfoz
7 participantes

Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Correr Automaticamente por COMMANDBUTTON

Mensagem por nikolasfoz Sex 04 Dez 2009, 07:56

Código:
Crie um "commandbutton" em qlquer lugar da sua frmmirage com:
o nome de  cmdWalkRun e a caption andando...

de um duplo click em cima dele e bote esse código:

    [quote]If cmdWalkRun.Caption = "Andando..." Then
        cmdWalkRun.Caption = "Correndo..."
        Call AddText("Agora você está correndo! Clique de novo para voltar a caminhar...", BrightBlue)
    ElseIf cmdWalkRun.Caption = "Correndo..." Then
        cmdWalkRun.Caption = "Andando..."
        Call AddText("Agora você está caminhando! Clique de novo para voltar a correr...", BrightBlue)
    End If

e agora procure por :

Código:
Sub CheckMovement()
    If GettingMap = False Then
        If IsTryingToMove Then
            If CanMove Then
                ' Check if player has the shift key down for running
                If ShiftDown Then
                    Player(MyIndex).Moving = MOVING_RUNNING
                Else
                    Player(MyIndex).Moving = MOVING_WALKING
                End If
e abaixo disso adicione:
Código:
                If frmMirage.cmdWalkRun.Caption = "Correndo..." Then
                    Player(MyIndex).Moving = MOVING_RUNNING
                ElseIf frmMirage.cmdWalkRun.Caption = "Andando..." Then
                    Player(MyIndex).Moving = MOVING_WALKING
                End If

Créditos ao Lenon por ter me passado esse código lá pela MMODEV, E como agora ela está off e eu estou fazendo um novo release do meu game, tive que me vira pra recuperar ele ! então créditos a mim também ^^ !

Funciona para Eclipse e ED.
avatar
nikolasfoz
Novato
Novato

Mensagens : 48

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por Karlos Sex 04 Dez 2009, 08:58

Ja temos esse tutorial aki, + mesmo assim vou te dar 1 de cred pelo su enteresse em estar ajudando XD
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por nikolasfoz Sex 04 Dez 2009, 10:21

gracias novamente :]
avatar
nikolasfoz
Novato
Novato

Mensagens : 48

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por João™  Sex 04 Dez 2009, 16:16

em vez de command button da pra colocar CheckBox? eu acho mais "charmoso".. XD
e +1 CRED Very Happy
João™ 
João™ 
Membro Junior
Membro Junior

Mensagens : 92

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por St4rk Dom 06 Dez 2009, 13:54

Sim da pra por CheckBox Very Happy.
Mini-Tuto
Crie um CheckBox(Check1).
Abra ele e digite(opicional) "MsgBox "Você esta correndo".
Depois procure por(Use CTR+F seu melhor amigo) "Sub CheckMovement()"
Quando acha subistitua o "ShiftDown" do codigo
"If ShiftDown Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
End If"
por esse codigo:
"If Check1 Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
End If"
Aque fuciono mais tem uma coisa(no meu eu fiz so pra corre apertando no CheckBox)
alguma duvida coloque aqui u.u perdão pelos erros de Português.
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por João™  Dom 06 Dez 2009, 15:14

eu já tirei minha duvida xD, fui fuçando la e consegui, mas vlw mesmo assim, vejo que todos aqui são gente boa, quando podem ajudam xD
João™ 
João™ 
Membro Junior
Membro Junior

Mensagens : 92

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por lukasfkt Dom 11 Abr 2010, 18:24

Para criar uma check box e o Visual Basic como q cria ela?
lukasfkt
lukasfkt
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por cristian113 Seg 26 Abr 2010, 15:31

Crie um "commandbutton" em qlquer lugar da sua frmmirage com:
o nome de cmdWalkRun e a caption andando...

de um duplo click em cima dele e bote esse código:

If cmdWalkRun.Caption = "Andando..." Then
cmdWalkRun.Caption = "Correndo..."
Call AddText("Agora você está correndo! Clique de novo para voltar a caminhar...", BrightBlue)
ElseIf cmdWalkRun.Caption = "Correndo..." Then
cmdWalkRun.Caption = "Andando..."
Call AddText("Agora você está caminhando! Clique de novo para voltar a correr...", BrightBlue)
End If


é isso oq ele queria por XD
cristian113
cristian113
Membro
Membro

Mensagens : 141

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

Mensagem por mayerkf Ter 24 maio 2011, 12:06

Oi, gostaria de saber, tem como fazer por script o correr ??? ... sabe... algum comando que faça o personagem andar mais rapido??? ..o comando playerSPEED , almenta o atributo speed,.. mas o que eu queria era um comando que faça ele andar mais rapido...
Tem alguem ae que saiba como fazer isso, sem ter que mexer no VB?
Soh por script???

Agradeço muitoo!
mayerkf
mayerkf
Novato
Novato

Mensagens : 13

Ir para o topo Ir para baixo

Correr Automaticamente por COMMANDBUTTON Empty Re: Correr Automaticamente por COMMANDBUTTON

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