Hey everyone! I recently finished creating Video Poker for the PicoCalc which I developed in MMBasic for the PicoMite firmware. To add to the challenge (and fun!), I coded the entire game on the PicoCalc itself using the built-in editor. My PicoCalc is running a Pico 2, so I hope it will work just fine for anyone that has the original Pico 1 slotted. Just a heads up: the game will create a save file (poker.sav) in the same directory as poker.bas which will let you pick up where you left off.
The latest version is available via my GitHub:
Direct Download: poker.bas (right-click, save-as)
Controls
Left, Right - Card selection
Up, Down - Increase / Decrease bet
Spacebar - Hold / Unhold card
Enter - Deal / Draw
Gameplay
During the bet round, use Up or Down to increase or decrease your bet. The minimum bet is 1 credit and the maximum is 5 credits. Press Enter to deal the cards. Select cards using Left or Right. Press Spacebar to toggle Hold on the selected card. Press Enter to exchange unheld cards for new ones from the deck. If a winning hand results, you will be awarded the amount of credits corresponding to the illuminated win on the payout board at the top of the screen. The bet can now be increased or decreased again before the next round of cards is dealt.
Winning hands and rewards are as follows:
Royal Flush: 250 x Bet
Straight Flush: 50 x Bet
Four of a Kind: 25 x Bet
Full House: 9 x Bet
Flush: 6 x Bet
Straight: 4 x Bet
Three of a Kind: 3 x Bet
Two Pair: 2 x Bet
Pair of Jacks or Better: 1 x Bet
Enjoy!
