flat assembler
Message board for the users of flat assembler.
Index
> Tutorials and Examples > Deluxe Video Poker 
Author 

uart777 04 Jun 2013, 15:22
New Video Poker for 1024x768x32 resolution. DirectX not required.
Download: Video Poker Source Preview: Code: N.DECK=52 N.CARDS=5 STRUCTURE CARD NUMBER n, suite, held, up ENDS ?card numeric WIN.ROYAL.FLUSH,\ WIN.STRAIGHT.FLUSH, WIN.FOUR.KIND,\ WIN.FULL.HOUSE, WIN.FLUSH, WIN.STRAIGHT,\ WIN.THREE.KIND, WIN.TWO.PAIR, WIN.JACKS.BETTER TEXTS wins[]=\ 'Royal Flush', 'Straight Flush',\ 'Four of a Kind', 'Full House', 'Flush',\ 'Straight', 'Three of a Kind', 'Two Pair',\ 'Jacks or Better' ; create hand and deck. 210=08, JA=912. ; suites: 0=clubs, 1=spades, 2=hearts, 3=diamonds function create.cards locals p, i, n, suite array.size hand, N.CARDS .erase hand array.size deck, N.DECK let [i]=0 .loop [suite]=0 to 4 ; suites .loop [n]=0 to 13 ; numbers get [p]=.index deck[i] let [?card.n+eax]=[n],\ [?card.suite+eax]=[suite],\ [?card.up+eax]=NO,\ [?card.held+eax]=NO, [i]++ .endl .endl endf macro shuffle.cards { array.randomize deck } ; copy next card from top of deck[n1] ; to hand[i] then remove from deck function deal.card, i .if not [deck.n] ; no cards remaining? create.cards ; reload deck shuffle.cards .end array.recent deck ; top card array.replace \ hand, [i], eax array.reduce deck .index hand[i] let [?card.up+eax]=YES,\ [?card.held+eax]=NO endf ; deal cards from deck to hand. replace all ; hand cards that are not held with next ; cards in deck function deal.cards locals i .loop [i]=0 to N.CARDS .index hand[i] .if not [?card.held+eax] deal.card [i] .end .endl endf ; search hand for card #. return # occurances function has.card, c locals i, nc let [nc]=0 .loop [i]=0 to N.CARDS .index hand[i] let ecx=[?card.n+eax] .if [c]=ecx let [nc]++ .end .endl endf [nc] ; all cards of the same suite? function all.same.suite locals i, suite let eax=[hand.p],\ ; get first card suite [suite]=[?card.suite+eax] ; remaining cards must be same suite... .loop [i]=1 to N.CARDS .index hand[i] let ecx=[?card.suite+eax] .if [suite]<>ecx return 0 .end .endl endf 1 ; jacks or better? pair of high cards: A/K/Q/J function has.jacks.or.better locals i, j, p, card.n .loop [i]=0 to N.CARDS get [p]=.index hand[i] let [card.n]=[?card.n+eax] ; if high card, search remaining indices ; for same card #/.n... .if [card.n]>=CARD.JACK let eax=[i], eax++ .loop [j]=eax to N.CARDS get [p]=.index hand[j] let ecx=[?card.n+eax] .if [card.n]=ecx return 1 .end .endl .end .endl endf 0 ; is there another card n? function has.pair, n locals i, nc let [nc]=0 .loop [i]=0 to N.CARDS .index hand[i] let ecx=[?card.n+eax] .if [n]=ecx let [nc]++ .if [nc]>1 return 1 .end .end .endl endf 0 ; 2 pairs? function has.two.pair locals i, n, cn, np let [cn]=NOTHING, [np]=0 .loop [i]=0 to N.CARDS .index hand[i] let eax=[?card.n+eax], [n]=eax .if [cn]<>eax .if.has.pair [n] let [cn]=[n], [np]++ .if [np]>1 return 1 .end .end .end .endl endf 0 ; has x of kind? function has.x.kind, x locals i .loop [i]=0 to N.CARDS .index hand[i] has.card [?card.n+eax] .if eax=[x] return 1 .end .endl endf 0 ; full house? 3 of one kind, 2 of another function has.full.house .if.has.3.kind .if.has.2.kind return 1 .end .end endf 0 ; any five consecutive cards of same suite function has.straight.flush .if.has.straight .if.has.flush return 1 .end .end endf 0 ; royal flush? A/K/Q/J/10 of same suite function has.royal.flush .if.has.flush .if.has.card CARD.ACE .if.has.card CARD.KING .if.has.card CARD.QUEEN .if.has.card CARD.JACK .if.has.card CARD.10 return 1 .end .end .end .end .end .end endf 0 ; is current hand a winner? function winner? .if.has.royal.flush return WIN.ROYAL.FLUSH .end .if.has.straight.flush return WIN.STRAIGHT.FLUSH .end .if.has.4.kind return WIN.FOUR.KIND .end .if.has.full.house return WIN.FULL.HOUSE .end .if.has.flush return WIN.FLUSH .end .if.has.straight return WIN.STRAIGHT .end .if.has.3.kind return WIN.THREE.KIND .end .if.has.two.pair return WIN.TWO.PAIR .end .if.has.jacks.or.better return WIN.JACKS.BETTER .end endf NOTHING ; calculate winnings function payout let eax=[win], eax*(5*4), ecx=[bet], ecx,\ ecx<<2, eax+ecx, eax=[payouts+eax],\ [won]=eax, eax+[bet], [credits]+eax endf Do whatever you want with this: Copy, edit, distribute. More than likely, I will never show this to anyone else or do anything with it but give to the FASM community. Not something I'm proud of, just another little program, but the ideas and graphics may be useful to others. 

04 Jun 2013, 15:22 

uart777 04 Jun 2013, 19:24
Quote: Is it a chain of cmp's and conditional jumps? Quote: It works as expected. Anyone trying to make a poker machine? I'll tell you what. Send me $5K and I'll have this working perfectly on any system. In US, $5K is just enough $ to buy a nice used car or build a small garage to live in. 

04 Jun 2013, 19:24 

MHajduk 04 Jun 2013, 19:40
uart777 wrote: Anyone trying to make a poker machine? I'll tell you what. Send me $5K and I'll have this working perfectly on any system. In US, $5K is just enough $ to buy a nice used car or build a small garage to live in. 

04 Jun 2013, 19:40 

typedef 04 Jun 2013, 22:10
Too much "glitter". Good work nonetheless. Shows someone was actually doing something.


04 Jun 2013, 22:10 

HaHaAnonymous 05 Jun 2013, 00:46
[ Post removed by author. ]
Last edited by HaHaAnonymous on 28 Feb 2015, 20:13; edited 1 time in total 

05 Jun 2013, 00:46 

Dex4u 05 Jun 2013, 18:48
@uart777, this looks like its cut & pasted from a 3 year old


05 Jun 2013, 18:48 

typedef 06 Jun 2013, 02:02
Dex4u wrote: @uart777, this looks like its cut & pasted from a 3 year old lol. cut & paste sounds too rude. Maybe copy & paste. 

06 Jun 2013, 02:02 

< Last Thread  Next Thread > 
Forum Rules:

Copyright © 19992024, Tomasz Grysztar. Also on GitHub, YouTube.
Website powered by rwasa.