Client~Side
Procure por:
Abaixo de:
Adicione:
Agora procure por:
E acima adicione:
Creditos:
Ricardo (Eu \õ/)
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 \õ/)
Última edição por Riicardo em Sáb Out 22, 2011 8:15 pm, editado 1 vez(es)