Auto Correr

Administrador Mensagens : 711

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