Auto Correr

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

Tem como ele correr apertando Ctrl?

Bom disso eu nao sei mais pode ate ter mais eu prefiro o Ctrl pra atakar doq pra correr

ai fiz tudo certo mais nao pego qq eu faço agr?

Marlos Gama escreveu:Tem como ele correr apertando Ctrl?

Da sim, mas ai é soh mudar de Ctrl de atacar para Shift, o shift do correr para ctrl..