[Ajuda] - Como posso fazer um timer com 1:00h

snaker15 escreveu:onde seria esse timer? é para um netplay?

Código:

' SERVER GAME LOOP

' segundos * 1000
public const YOUR_TIMER as long = 10 * 1000 ' 10 seconds

public sub GameLoop()
 
    do
        ' Um segundo se passou
        if (tmr1000 < tick) then
      
            ' Loop por todos players
            for i = 1 to MAX_PLAYERS
                ' Decretar o tempo x
                if sTimer > 0 then
                    sTimer = sTimer - 1
                end if
            next
          
            ' Atualizar o timer
            tmr1000 = tick + 1000
        end if
    while (true)
 
end sub

public sub SendTimer(byval index as long)
    dim buffer as clsBuffer
    set buffer = new clsBuffer
  
    buffer.WriteLong sTimer
    buffer.WriteLong YOUR_TIMER ' Escreve o tempo em segunos

    ' Send it to the player.
    SendDataTo index, buffer.ToArray()
    set buffer = nothing
end sub

Código:

' CLIENT GAME LOOP LOGIC STUFF
 
public cTimer as long
 
' HANDLE PACKET SUB

public sub HandleTimer()
    dim buffer as clsBuffer
    set buffer = new clsBuffer
  
    buffer.WriteBytes Data()
  
    ' Setar o tempo da variavel
    cTimer = buffer.ReadLong
end sub

public sub GameLoop()
 
    do
  
        ' Um segundo se passou
        if tmr1000 < tick then
      
            if cTimer > 0) then
                cTimer = cTimer - 1
            end if
      
            ' Atualizar o timer
            tmr1000 = tick + 1000
        end if
  
    while (true)
 
end sub