Write A Game in 24 hours Contest!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Dark Half

Open in online IDE

AppTitle("Casino Simulator Deluxe")
Purse%=500
ThisBet%=5
ThisGame=0
While ThisBet<>0 And Purse > 0
	ThisGame=ThisGame+1
	Print "====================================================="
	Print "  Game:"+ThisGame+" Purse: $"+Purse%
	ThisBet = Int(Input("  How Much To Bet (Default $1, 0 to quit)?"))
	If ThisBet > 0 And ThisBet <= Purse Then
		Odds = Rnd(1,4)
		If Odds = 1 Then
			Print "****    You Win $"+(ThisBet)+"    ****"
			Purse = Purse + ThisBet
		ElseIf Odds = 2 Then
			Print "****    Draw!    ****"
		Else
			Print "****    You Loose $"+ThisBet+"    ****"
			Purse = Purse - ThisBet
		EndIf
	Else
		Print "  You Don't Have That Kind Of Cash!"		
	EndIf
Wend
Print "----------------------------------------------"
Print "You Walk Away With $"+Purse 
Print "--Press Any Key To Quit!--"
WaitKey()
End