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 (https://www.dropbox.com/s/nht1n0nezjeyqbt/fb_Russian_roulette.zip?dl=0)
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