Ricardo escreveu:

Client~Side

Procure por:

Código:

Public Sub GameLoop()

Abaixo de:

Código:

Dim tmr25 As Long

Adicione:

Código:

Dim tmr60000 As Long

Agora procure por:

Código:

        If tmr25 < Tick Then
            InGame = IsConnected
            Call CheckKeys ' Check to make sure they aren't trying to auto do anything

            If GetForegroundWindow() = frmMain.hWnd Then
                Call CheckInputKeys ' Check which keys were pressed
            End If

E acima adicione:

Código:

        If tmr60000 >= 1 Then
            If Player(MyIndex).Moving = NO Then
                Call GameDestroy
            End If
        End If

Creditos:

Ricardo (Eu \õ/)