' variables
DIM K AS INTEGER
DIM PlayerName AS STRING
DIM NowPlaying AS STRING
DIM Time2wait AS INTEGER
DIM PlayGame AS STRING * 1


DECLARE SUB WaitSeconds (Seconds AS INTEGER)
DECLARE SUB showLogo ()

'Initialise
RANDOMIZE (TIMER)
Time2wait = 3
PlayGame = "Y"

CLS
showLogo

PRINT "Play ..."
PRINT "                 Russian Roulette "
PRINT
PRINT

INPUT "Your Name : ", PlayerName
PRINT "Welcome to the game, "; PlayerName; ". You're playing against Boris The Lucky Bastard."
PRINT
PRINT "SPINNING THE GUN, SEE WHO BEGINS"
PRINT

DO WHILE PlayGame = "Y"
	K = RND
	IF K < .5 THEN
		NowPlaying = PlayerName
	ELSE
		NowPlaying = "Boris"
	END IF

	'put a bullet in a chamber
	K = (RND * 6) + 1

	PRINT NowPlaying; " begins ..."
	PRINT "SPINNING THE CILINDER ... (TRRRRT...)"
	WaitSeconds (4)

	DO WHILE K < 6    '
		'feedback to player
		PRINT NowPlaying; " puts the gun to his head and pulls the trigger ..."
		WaitSeconds (Time2wait)
		PRINT "CLICK"
		PRINT "..."
       
		'swap players
		IF NowPlaying = "Boris" THEN
			NowPlaying = PlayerName
		ELSE
			NowPlaying = "Boris"
		END IF
		
		PRINT "Pass the gun to "; NowPlaying
		WaitSeconds (Time2wait)
		K = K + 1
		Time2wait = Time2wait + 1
	LOOP
	      
	'game ends
	PRINT NowPlaying; " puts the gun to his head and pulls the trigger ..."
	WaitSeconds (Time2wait)
	PRINT "PANG"
	PRINT NowPlaying; " just died, and lost the game"
	PRINT

	INPUT "Wanna try again ?"; PlayGame
	PlayGame = UCASE$(PlayGame)
	Time2wait = 3
LOOP
CLS
PRINT "GAME OVER"
END

SUB showLogo

	CLS
	PRINT
	PRINT
	PRINT
	PRINT "		SILLY SOFTWARE PRODUCTIONS"
	PRINT
	PRINT "			 -=oOo=-"
	PRINT
	WaitSeconds (5)
	CLS

END SUB

SUB WaitSeconds (Seconds AS INTEGER)
' Waits during a given number of seconds

	ThisMoment = TIMER
	DO UNTIL TIMER > ThisMoment! + Seconds
		IF TIMER < ThisMoment! THEN ThisMomemnt! = ThisMoment! - 86400
		REM this takes care of Waiting 'till past midnight
	LOOP
END SUB