Cerrando el juego al chocar contra las paredes muy rapido

FrankitoH298

Newbie Lvl 2
Ya lo solucione
En el Sub MoveMe
Agrega esto
Código:
Static LastMovement As Long
Reemplaza esto
Código:
ElseIf CharList(UserCharIndex).Heading <> Direction Then Call SendData("CHEA" & Direction)
por esto:

Código:
Else
If GetTickCount - LastMovement > 56 Then
    LastMovement = GetTickCount
    If CharList(UserCharIndex).Heading <> Direction Then Call SendData("CHEA" & Direction)
End If
 
Arriba