[EE][ES]Correr Auto por CheckBox

por wallacewagner123456789 Ter 29 Jun 2010, 19:12

Vá a frmMirage e crie uma checkBox no lugar que você desejar e de o nome de chkRun

Então no modGameLogic, na Sub CheckMovement() procure por:

If ShiftDown Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
End If

E Substitua por:

If ShiftDown Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
If frmMirage.chkRun.Value = Checked Then
Player(MyIndex).Moving = MOVING_RUNNING
Else
Player(MyIndex).Moving = MOVING_WALKING
End If
End If

Créditos : Lenon