Entry #258/Wed. Workshop (SoCoder)

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

Latest Comments

Posted : Wednesday, 02 May 2007, 09:20

shroom_monk

Vote : 2

I found this game had no skill to it, was too repetitive, and basically impossible. OK, so it was made in 15 minutes, but still!

Posted : Thursday, 03 May 2007, 12:35

power mousey

you know DD,

so, if I pick a card. I'll find out
if I might have the ability to read minds.

hmmmmm...interesting thought.

cheers

Latest Items

News : Newsletter #176

Jayenkai Sat 04:49

News : Newsletter #175

Dabz Tue 09:38

Blog : Snow: More Material Junk

Cower Sat 23:17

Dev-Diary : Mutant Monty: Amstrad CPC to Windows conversion

rockford Fri 13:14

Techy : AppleTV

Jayenkai Thu 09:40

Blog : Graphviz

steve_ancell Sat 14:17

Pets : Top-Down Shadow Hack

Jayenkai Tue 05:52

Snippet : JNKrunch v1.0

Jayenkai Sat 07:20

News : Newsletter #173

waroffice Fri 04:47

Blog : Material Loading

Cower Fri 02:08

Pets : I Done Won A Thing

shroom_monk Sun 11:31

Pets : Repurposing A Lexer

Cower Mon 22:06

Bah : Feeling a Little Angry

spinal Mon 11:26

News : Newsletter #170

Dabz Sat 00:34

Showcase : sbfgen

Cower Sat 16:57

Who's Online
waroffice
Wed, at 02:54
spinal
Wed, at 02:48
Hotshot
Wed, at 02:45
blanko1324
Wed, at 01:20
Cower
Wed, at 00:28
steve_ancell
Tue, at 23:57
Evil Roy Ferguson
Tue, at 23:38
Afr0
Tue, at 23:35
shroom_monk
Tue, at 23:35
Dabz
Tue, at 23:06

Link to this page
Site : Jayenkai 2006-Infinity |
MudChat's origins, BBCode's former life, Image Scaler.