Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|38|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Pick a card!

by JL235 for Workshop #097

Are you a mind reader? Pick a card to find out!

Keyboard

AppTitle("Pick a card!")

; card type
Type Card
	Field suit$
	Field num$
End Type

; main loop
While Not KeyDown(1)
	myCard.Card = NewRandomCard()
	
	Print "pick a card, any card!"
	
	yourCard.Card = New Card
		
	acceptInput = False
	While Not acceptInput
		suit$ = Input$("pick the suit first (c,d,h,s): ")
		If cardSuitString$(suit$) = ""
			Print "that's not acceptable, try again"
		Else
			yourCard\suit$ = cardSuitString$(suit$)
			acceptInput = True
		EndIf
	Wend
	
	acceptInput = False
	While Not acceptInput
		num$ = Input$("now pick the number (1 to 13): ")
		If CardNumber$(Int(num$)) = ""
			Print "that's not acceptable, try again"
		Else
			yourCard\num$ = CardNumber$(Int(num$))
			acceptInput = True
		EndIf
	Wend
	
	Print ""
	Print "ok, your card is the: "
	PrintCard( yourCard )
	Print ""
	If yourCard\suit$ = myCard\suit$ And yourCard\num$ = myCard\num$
		Print "WOW!, you must be a (pc) mind-reader!"
	Else
		Print "Sorry, that was not my card."
		Print "My card was the:"
		PrintCard( myCard )
	EndIf
	
	Print ""
Wend

Function NewRandomCard.Card()
	Local c.Card = New Card
	
	c\num$ = CardNumber$(Rand(1, 13))
	c\suit$ = CardSuitNum$(Rand(1, 4))

	Return c
End Function

Function PrintCard(card.Card)
	Print "The " + card\num$ + " of " + card\suit$ + "."
End Function

Function CardNumber$(num)
	Select num
	Case 1
		Return "ace"
	Case 2
		Return "two"
	Case 3
		Return "three"
	Case 4
		Return "four"
	Case 5
		Return "five"
	Case 6
		Return "six"
	Case 7
		Return "seven"
	Case 8
		Return "eight"
	Case 9
		Return "nine"
	Case 10
		Return "ten"
	Case 11
		Return "jack"
	Case 12
		Return "queen"
	Case 13
		Return "king"
	Default
		Return ""
	End Select
End Function

Function CardSuitNum$(num)
	Select num
	Case 1
		Return "clubs"
	Case 2
		Return "diamonds"
	Case 3
		Return "hearts"
	Case 4
		Return "spades"
	End Select
End Function

Function CardSuitString$(num$)
	Select num$
	Case "c"
		Return "clubs"
	Case "d"
		Return "diamonds"
	Case "h"
		Return "hearts"
	Case "s"
		Return "spades"
	Default 
		Return ""
	End Select
End Function