Go Fish: Difference between revisions
m
→{{header|FutureBasic}}
mNo edit summary |
|||
Line 248:
/*
Go Fish
-- Rich Love --
Line 254 ⟶ 255:
Get the latest FutureBasic here
http://www.brilorsoftware.com/fb/pages/home.html
*/
_window = 1
Line 524 ⟶ 527:
CFStringRef UserInput
"InputYourName"
UserInput = input % (300, 70), @"What's your name?: "
if ( UserInput == NULL ) then "InputYourName"
fn CFStringGetPascalString (UserInput, @YourName, 256, _kCFStringEncodingMacRoman)
gNeedToClearScreen = _True
cls
if YourName = "X" or YourName = "x" or YourName = chr$(127) then fn QuitOrResumeAlert(@"EXIT")
End fn
Line 634 ⟶ 640:
CFStringRef UserInput = 0
"InputCard"
UserInput = input % (20, fn WhatCardInputHeight),@"What card do you want? "
if ( UserInput == NULL ) then "InputCard"
fn CFStringGetPascalString (UserInput, @RequestedCard, 256, _kCFStringEncodingMacRoman)
if RequestedCard = "10" then RequestedCard = "0"// card zero is a 10
Line 747 ⟶ 755:
print "-------------------------------------"
Print:Print Someone + " wants your " + wantsCard + "'s."
print
| |||