Go Fish/Locomotive Basic: Difference between revisions

Content added Content deleted
(improved dealing and AI)
m (Fixed syntax highlighting.)
 
Line 1: Line 1:
<lang locobasic>10 cls:randomize time:defint a-z
<syntaxhighlight lang="locobasic">10 cls:randomize time:defint a-z
20 dim play(13),compu(13),deck(13),guess(13),poss(13),asked(13)
20 dim play(13),compu(13),deck(13),guess(13),poss(13),asked(13)
30 card$="A234567890JQK"
30 card$="A234567890JQK"
Line 128: Line 128:
1280 sc=sc-deck(k)
1280 sc=sc-deck(k)
1290 if sc<=0 then return
1290 if sc<=0 then return
1300 next</lang>
1300 next</syntaxhighlight>


Note: 10's are called 0's here to get single-letter rank names.
Note: 10's are called 0's here to get single-letter rank names.