Go Fish: Difference between revisions
→{{header|FutureBasic}}
m (Resave to try to get FutureBasic solution to show in menu) |
|||
Line 245:
=={{header|FutureBasic}}==
May 5, 2024 Rich Love
Fixed intermittent hang
Also, now using && and || to be compatible with later versions of FutureBasic.
( replaces AND and OR )
<syntaxhighlight lang="futurebasic">
/*
Line 251 ⟶ 256:
-- Rich Love --
FutureBasic app
Get the latest FutureBasic here
http://www.brilorsoftware.com/fb/pages/home.html
Line 271 ⟶ 276:
cards = "A234567890JQK"
short play(13), Computer(13), deck(13), guess(13), poss(13), asked(13)
str255 YourName, Someone
//bool gNeedToClearScreen
short Points(2) : Points(0) = 0 : Points(1) = 0
short i, k, j, CardNumber
Line 283 ⟶ 288:
str255 WantsCard
WantsCard = str$(TheCard)
if TheCard = 0 then WantsCard = "10"
if TheCard = 11 then WantsCard = "jack"
Line 294 ⟶ 299:
void local fn PrintViewScrollToBottom( printView as ViewRef )
BeginCCode
NSScrollView *scrollView = [printView enclosingScrollView];
NSClipView *clipView = [scrollView contentView];
[clipView scrollToPoint:NSMakePoint(0,printView.frame.size.height-scrollView.contentSize.height + 20)];
[scrollView reflectScrolledClipView:clipView];
EndC
end fn
Line 306 ⟶ 311:
RemainingCards -= 1
short sc
sc = rnd(RemainingCards) + 1 // 5/2/24 Rich added + 1
For k = 1 To 13
Line 329 ⟶ 334:
End fn
void local fn cpuGoFishing
Line 334 ⟶ 340:
fn DealCards
Print " a card from the deck."
if k > 13 then k = 13
deck(k) -= 1
Computer(k) += 1
Line 350 ⟶ 357:
WantsCard = Mid$(cards,i,1)
if WantsCard = "j"
if WantsCard = "q"
if WantsCard = "k"
if WantsCard = "a"
if WantsCard = "0" then WantsCard = "10"
Line 376 ⟶ 383:
WantsCard = Mid$(cards,i,1)
if WantsCard = "j"
if WantsCard = "q"
if WantsCard = "k"
if WantsCard = "a"
if WantsCard = "0" then WantsCard = "10"
Line 400 ⟶ 407:
i = 0:k = 0:j = 0:CardNumber = 0
Points(i) = 0
next i
play(i) = 0
Computer(i) = 0
Line 428 ⟶ 435:
fn CheckForCompletedBook // Rich added 5/1/24
fn
end fn
Line 461 ⟶ 468:
Next i
If RemainingCards =
text ,,fn colorRed
Line 497 ⟶ 504:
Print " __ _ _ "
Print " __ _ ___ / _(_)___| |__ "
Print " / ` |/ _ \ | |_| / __|
Print "| (_) | (_) | | _| \__ \ | | | "
Print " \__, |\___/ |_| |_|___/_| |_| "
Line 513 ⟶ 520:
print " The remaining cards are placed face down in the center of the table"
print " to form the draw pile (the fish pond)."
print " On your turn, you ask the CPU
print " You must already have at least one card of a given rank to ask
print " (A rank is one
print " If the CPU has any cards of the named rank, it must hand over all such cards,"
print " and you can then ask again."
Line 524 ⟶ 531:
print " If at any time, your hand is empty, a new card will be drawn from the pile."
print " The game ends when every book is complete,"
print "
print " The player with the most books wins."
Line 533 ⟶ 540:
if ( UserInput == NULL ) then "InputYourName" // Rich added this 5/1/24
fn CFStringGetPascalString (UserInput, @YourName, 256, _kCFStringEncodingMacRoman)
cls
if YourName = "X"
End fn
Line 562 ⟶ 568:
end fn
fn BuildWindow
Line 580 ⟶ 586:
ShowHand = _false
str255 RequestedCard
While ShowHand = _false
Line 596 ⟶ 603:
Print Chr$(10) + " " + str$(RemainingCards) + " remaining cards"
text ,,fn colorWhite
/*
// Uncomment this to see the
Print Chr$(10) + "CPU Cards: ";
For i = 1 To 13
Line 636 ⟶ 644:
if fn CheckForEndGame = _True then cls:fn InitCards:goto "Loop"
Someone = YourName
CFStringRef UserInput = 0
Line 652 ⟶ 657:
WantsCard = RequestedCard
if WantsCard = "j"
if WantsCard = "q"
if WantsCard = "k"
if WantsCard = "a"
if WantsCard = "0" then WantsCard = "10"
Line 663 ⟶ 668:
AorAn = "a"
if WantsCard = "Ace" then AorAn = "an"
print YourName + " asked
print
text ,,fn ColorWhite
Line 669 ⟶ 674:
fn PrintViewScrollToBottom( fn WindowPrintView(1))
if RequestedCard = "X"
If RequestedCard <> "" Then CardNumber = Instr$(1,cards, Ucase$(RequestedCard)): RequestCard = _true
Line 678 ⟶ 683:
print
fn PrintViewScrollToBottom( fn WindowPrintView(1))
Else if play(CardNumber) = 0 Then text ,,fn colorRed: Print "You don
fn PrintViewScrollToBottom( fn WindowPrintView(1))
text,,fn ColorWhite
End If
Wend
Line 708 ⟶ 712:
ShowHand = _false
End If
Wend
Line 726 ⟶ 729:
po = 0
For i = 1 To 13
If (Computer(i) > 0)
Next i
short whilecounter
WhileCounter = 0
If po = 0
// this k is the
while computer(k) = 0 Or asked(k)▼
whilecounter ++
k = rnd(12) +1
if WhileCounter > 100 then k = 0: exit while //5/5/24 Rich added this to prevent hangs
wend
Else
k = rnd(12) + 1
while poss(k) = 0
k = rnd(12) + 1
if WhileCounter > 100 then k = 0: exit while //5/5/24 Rich added this to prevent hangs
wend
Line 746 ⟶ 760:
if k = 0 then "Loop" //5/5/24 Rich added this to prevent hangs
WantsCard = fn CheckForFaceCard(k)
if WantsCard = "j"
if WantsCard = "q"
if WantsCard = "k"
if WantsCard = "a"
if WantsCard = "0" then WantsCard = "10"
Line 759 ⟶ 773:
print "-------------------------------------"
Print:Print Someone + " wants your " + wantsCard + "'s."
Line 766 ⟶ 782:
asked(k) = 1
If play(k) = 0
Line 771 ⟶ 788:
text ,,fn colorRed: Print "go fish!"
text ,,fn colorWhite:Print Someone + " got";: fn cpuGoFishing
fn CheckCPUForCompletedBook
CPUsTurn = _true
Line 792 ⟶ 810:
handleevents
</syntaxhighlight>
| |||