SetFPS 60

ammo = 5
clip = 3
message$ = ""
messageTimer = 0

Do
    messageTimer = messageTimer - 1

    If SpaceKey()
            If ammo > 0
                ammo = ammo - 1
                message$ = " BANG!"
                messageTimer = 5
            Else
                message$ = " click."
                messageTimer = 5    
            EndIf
            FlushKeys    
    EndIf

    If KeyState(19)
        If ammo = 0 And clip > 0
            ammo = 5
            clip = clip - 1
            message$ = " Reloaded!"
            messageTimer = 60
        ElseIf clip = 0
            message$ = " No clips left."
            messageTimer = 60
        ElseIf ammo > 0
            message$ = " You don't have to reload."
            messageTimer = 60
        EndIf
        FlushKeys    
    EndIf

    Cls 0
        Print " Press Space to Fire a Shot."
        Print " Press R to reload."

        Print " Ammo  : " + Str$(ammo)
        Print " Clips : " + Str$(clip)
        Print " "
        If messageTimer > 0 Then Print message$

    Sync
Loop