Go Fish/Locomotive Basic: Difference between revisions
Content added Content deleted
(improved dealing and AI) |
m (Fixed syntax highlighting.) |
||
Line 1: | Line 1: | ||
< |
<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</ |
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. |