Universo Games
Ola , Convidado

Auto Correr Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe
 

 Auto Correr

Ir em baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto

Mensagens : 710

Auto Correr Empty
MensagemAssunto: Auto Correr   Auto Correr EmptySex 03 Fev 2017, 02:20

Crie Um ComandButton com o nome cmdWalkRun e com caption "Desativado" dê um duplo clique e adicione

Código:
If cmdWalkRun.Caption = "Desativado" Then
        cmdWalkRun.Caption = "Ativado"
        Call AddText("Agora você Ativou a função correr automaticamente, Clique novamente para Desativar", BrightBlue)
    ElseIf cmdWalkRun.Caption = "Ativado" Then
        cmdWalkRun.Caption = "Desativado"
        Call AddText("Agora você Desativou a função Correr Automaticamente, Clique Novamente oara Ativar", BrightBlue)
    End If

Agora procure por:

Código:
If ShiftDown Then
                    Player(MyIndex).Moving = MOVING_RUNNING
                Else
                    Player(MyIndex).Moving = MOVING_WALKING
                End If

Mude Tudo para:

Código:
If ShiftDown Then
                    Player(MyIndex).Moving = MOVING_RUNNING
                Else
                    Player(MyIndex).Moving = MOVING_WALKING
                End If
                If frmMirage.cmdWalkRun.Caption = "Ativado" Then
                    Player(MyIndex).Moving = MOVING_RUNNING
                ElseIf frmMirage.cmdWalkRun.Caption = "Desativado" Then
                    Player(MyIndex).Moving = MOVING_WALKING
                End If

Pronto. 

Creditos : Neapon

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
 
Auto Correr
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Tutoriais :: Tutoriais Aprovados-
Ir para: