Player Kick por ausencia

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Player Kick por ausencia

    Mensagem por Thales12 em Qua Fev 15, 2012 2:37 am

    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 \õ/)

      Data/hora atual: Dom Out 21, 2018 1:43 am