FreeBasic Russian Roulette Game

[ron77]

Hello Here is a Game In FreeBASIC Russian Roulette with Sound Using FBSound Library

https://www.dropbox.com/s/nht1n0nezjeyqbt/fb_Russian_roulette.zip?dl=0

[__blackjack__]

I wonder what that might have been looked like...

Randomize Timer
Const ChamberCount = 6
Dim clicksTillBoom As Integer = Int(Rnd * ChamberCount)
Print "Spinning the cylinder with"; ChamberCount; " chambers and one cartridge."
Do
    Print "ESCape or any other key to pull trigger..."
    If GetKey = 27 Then Print "Coward!": End
    If clicksTillBoom = 0 Then
        Print "Boom! The gun went off.": End
    Else
        Print "Click.": clicksTillBoom = clicksTillBoom - 1
    End If
Loop