Sorry your browser is not supported!

sync on : hide mouse

gosub init_stuff

`------------------------------------------------------
`MAIN LOOP
`------------------------------------------------------
do

    `I'm using 0,0 as a flag for telling if the cards have been dealt
    if PlayerCardData(0,0)=0
       gosub DealCards
       gosub ShowTable
    else
         if mouseclick()=1 then gosub ShowTable
    endif

 sync

loop







`------------------------------------------------------
`SUBROUTINES
`------------------------------------------------------

init_stuff:

   `make table image
         table_pic=100
         ink rgb(0,255,0),0
         for yrad=200 to 0 step -1
         ellipse 320,240,yrad+50,yrad
         next yrad
         get image table_pic,0,0,640,480
         cls

   `make cards
         set text font "Symbol"
         set text size 15
         cls rgb(255,255,255)
         imagenum=200
         for number=2 to 14
            if number<11
               value$=" " + str$(number)
            else
               select number
                  case 11 : value$=" J" : endcase
                  case 12 : value$=" Q" : endcase
                  case 13 : value$=" K" : endcase
                  case 14 : value$=" A" : endcase
               endselect
            endif
            for suit=1 to 4
               if suit>1 and suit<4
                  ink rgb(255,0,0),0
               else
                  ink rgb(0,0,0),0
               endif
               if number=11 or number=12 : set text font "arial" : else : set text font "symbol" : endif
               print value$
               set text font "symbol"
               print " " + chr$(166+suit)
               get image imagenum,0,0,20,30
               inc imagenum
               cls rgb(255,255,255)
            next suit
         next number
         ink rgb(255,0,0),0
         set text size 30
         center text 10,2,"?"
         get image 199,0,0,20,30

   `make variables/arrays
         dim PlayerCardData(8,2,2)
            CardValue=1
            CardSuit=2
         dim TableCards(5,2)
            TableCards(0,0)=-1
         dim CardStatus(14,4)
         dim PlayerChips(8)
            for player=1 to 8 : PlayerChips(player)=2000 : next player

return





DealCards:

   for player=1 to 8
      for card=1 to 2
         repeat
            randomize timer()+rnd(100)
            value=rnd(12)+2
            suit=rnd(3)+1
         until CardStatus(value,suit)=0
         CardStatus(value,suit)=1
         PlayerCardData(player,card,CardValue)=value
         PlayerCardData(player,card,CardSuit)=suit
      next card
   next player

   for card=1 to 5
      repeat
         randomize timer()+rnd(100)
         value=rnd(12)+2
         suit=rnd(3)+1
      until CardStatus(value,suit)=0
      CardStatus(value,suit)=1
      TableCards(card,CardValue)=value
      TableCards(card,CardSuit)=suit
   next card

   `I'm using 0,0 as a flag for telling if the cards have been dealt
   PlayerCardData(0,0)=1

return




ShowTable:

   set text font "Arial"
   set text size 20
   ink rgb(255,255,255),0
   paste image table_pic,0,0
   for player=1 to 8
            if player=1 : string$="    You-"+str$(PlayerChips(player)) : else : string$=str$(PlayerChips(player)) : endif
            center text 320+cos((player-1)*45)*250,240+sin((player-1)*45)*200,string$
            paste image get_card_image(PlayerCardData(player,1,CardValue),PlayerCardData(player,1,CardSuit)),275+cos((player-1)*45)*250,230+sin((player-1)*45)*200
            paste image get_card_image(PlayerCardData(player,2,CardValue),PlayerCardData(player,2,CardSuit)),365+cos((player-1)*45)*250,230+sin((player-1)*45)*200
   next player
   TableCards(0,0)=TableCards(0,0)+1
   if TableCards(0,0)>0
         paste image get_card_image(TableCards(1,1),TableCards(1,2)),270,215
         paste image get_card_image(TableCards(2,1),TableCards(2,2)),295,215
         paste image get_card_image(TableCards(3,1),TableCards(3,2)),320,215
      else
         paste image 199,270,215
         paste image 199,295,215
         paste image 199,320,215
      endif
      if TableCards(0,0)>1
         paste image get_card_image(TableCards(4,1),TableCards(4,2)),345,215
      else
         paste image 199,345,215
      endif
      if TableCards(0,0)>2
         paste image get_card_image(TableCards(5,1),TableCards(5,2)),370,215
      else
         paste image 199,370,215
      endif

      center text 550,450,read_hand_value$(get_hand_value(1))

      repeat
      until mouseclick()=0


return








`------------------------------------------------------------------
`FUNCTIONS
`------------------------------------------------------------------

function get_card_image(value,suit)

   imagenum=199+(4*(value-2))+suit

endfunction imagenum

function card_value$(value)

   if value<11
      value$=str$(value)
   else
      select value
         case 11 : value$="J" : endcase
         case 12 : value$="Q" : endcase
         case 13 : value$="K" : endcase
         case 14 : value$="A" : endcase
      endselect
   endif
   exitfunction value$

endfunction ""


function get_hand_value(player)

   dim suits(4) : dim values(14) : dim cardflags(14,4)
   for suit=1 to 4 : suits(suit)=0 : next suit
   for value=2 to 14 : values(value)=0 : next value
   for value=2 to 14 : for suit=1 to 4 : cardflags(value,suit)=0 : next suit : next value

   a1=0 : a2=0 : b1=0 : b2=0 : c1=0 : c2=0 : d1=0 : d2=0 : e1=0 : e2=0 : f1=0 : f2=0 : g1=0 : g2=0

   a1=PlayerCardData(player,1,1) : a2=PlayerCardData(player,1,2)
   b1=PlayerCardData(player,2,1) : b2=PlayerCardData(player,2,2)

   if TableCards(0,0)>0
      c1=TableCards(1,1) : c2=TableCards(1,2)
      d1=TableCards(2,1) : d2=TableCards(2,2)
      e1=TableCards(3,1) : e2=TableCards(3,2)
   endif
   if TableCards(0,0)>1
      f1=TableCards(4,1) : f2=TableCards(4,2)
   endif
   if TableCards(0,0)>2
      g1=TableCards(5,1) : g2=TableCards(5,2)
   endif

   for value=2 to 14
      number=0
      if a1=value then inc number
      if b1=value then inc number
      if c1=value then inc number
      if d1=value then inc number
      if e1=value then inc number
      if f1=value then inc number
      if g1=value then inc number
      values(value)=number
   next value

   for suit=1 to 4
      number=0
      if a2=suit then inc number
      if b2=suit then inc number
      if c2=suit then inc number
      if d2=suit then inc number
      if e2=suit then inc number
      if f2=suit then inc number
      if g2=suit then inc number
      suits(suit)=number
   next suit

   cardflags(a1,a2)=1
   cardflags(b1,b2)=1
   cardflags(c1,c2)=1
   cardflags(d1,d2)=1
   cardflags(e1,e2)=1
   cardflags(f1,f2)=1
   cardflags(g1,g2)=1

   `check for straight flush:

      for suit=1 to 4
         for lowvalue=2 to 10
            if cardflags(lowvalue,suit)=1
               if cardflags(lowvalue+1,suit)=1
                  if cardflags(lowvalue+2,suit)=1
                     if cardflags(lowvalue+3,suit)=1
                        if cardflags(lowvalue+4,suit)=1
                           exitfunction 9000+lowvalue
                        endif
                     endif
                  endif
               endif
            endif
         next lowvalue
      next suit

   `check for four of a kind

      for value=2 to 14
         if values(value)=4 then exitfunction 8000+value
      next value

   `check for full house

      for value1=14 to 2 step -1
         if values(value1)=3
            for value2=14 to 2 step -1
               if value2<>value1
                  if values(value2)=2
                     if value1<value2
                        exitvalue=7000+(20*value2)+value1
                        exitfunction exitvalue
                     else
                        exitvalue=7000+(20*value2)+value1
                        exitfunction exitvalue
                     endif
                  endif
               endif
            next value2
         endif
      next value1

   `check for flush

      for suit=1 to 4
         if suits(suit)>=5
            for highcard=14 to 6 step -1
               if cardflags(highcard,suit)=1
                  exitfunction 6000+highcard
               endif
            next highcard
         endif
      next suit

   `check for straight

      for highcard=14 to 5 step -1
         if highcard>5
            if values(highcard)>0
               if values(highcard-1)>0
                  if values(highcard-2)>0
                     if values(highcard-3)>0
                        if values(highcard-4)>0
                           exitfunction 5000+highcard
                        endif
                     endif
                  endif
               endif
            endif
         else
            if values(highcard)>0
               if values(highcard-1)>0
                  if values(highcard-2)>0
                     if values(highcard-3)>0
                        if values(14)>0
                           exitfunction 5000+highcard
                        endif
                     endif
                  endif
               endif
            endif
         endif
      next highcard

   `check for trips

      for value=14 to 2 step -2
         if values(value)=3
            exitfunction 4000+value
         endif
      next value

   `check for two pair

      for value1=14 to 2 step -1
         if values(value1)=3
            for value2=14 to 2 step -1
               if value2<>value1
                  if values(value2)=2
                     if value1<value2
                        exitvalue=3000+(20*value2)+value1
                        exitfunction exitvalue
                     else
                        exitvalue=3000+(20*value2)+value1
                        exitfunction exitvalue
                     endif
                  endif
               endif
            next value2
         endif
      next value1

   `check for pair

      for value=14 to 2 step -1
         if values(value)=2
            exitfunction 2000+value
         endif
      next value

   `check for high card

      for value=14 to 2 step -1
         if values(value)>0
            exitfunction 1000+value
         endif
      next value

endfunction 0

function read_hand_value$(handvalue)

   if handvalue>9000
      if handvalue=9010
         exitfunction "Royal Flush!"
      else
         exit$="Straight Flush, "+card_value$(handvalue-9000+4)+" high"
         exitfunction exit$
      endif
   endif

   if handvalue>8000 and handvalue<9000
      exit$="Four of A Kind, "+card_value$(handvalue-8000)+"s"
      exitfunction exit$
   endif

   if handvalue>7000 and handvalue<8000
      if handvalue>7020 and handvalue<7040
         value$ = "Full House, 3s over "+card_value$(handvalue-7020)+"s"
      endif
      if handvalue>7040 and handvalue<7060
         value$ = "Full House, 4s over "+card_value$(handvalue-7040)+"s"
      endif
      if handvalue>7060 and handvalue<7080
         value$ = "Full House, 5s over "+card_value$(handvalue-7060)+"s"
      endif
      if handvalue>7080 and handvalue<7100
         value$ = "Full House, 6s over "+card_value$(handvalue-7080)+"s"
      endif
      if handvalue>7100 and handvalue<7120
         value$ = "Full House, 7s over "+card_value$(handvalue-7100)+"s"
      endif
      if handvalue>7120 and handvalue<7140
         value$ = "Full House, 8s over "+card_value$(handvalue-7120)+"s"
      endif
      if handvalue>7140 and handvalue<7160
         value$ = "Full House, 9s over "+card_value$(handvalue-7140)+"s"
      endif
      if handvalue>7160 and handvalue<7180
         value$ = "Full House, 10s over "+card_value$(handvalue-7160)+"s"
      endif
      if handvalue>7180 and handvalue<7200
         value$ = "Full House, Js over "+card_value$(handvalue-7180)+"s"
      endif
      if handvalue>7200 and handvalue<7220
         value$ = "Full House, Qs over "+card_value$(handvalue-7200)+"s"
      endif
      if handvalue>7220 and handvalue<7240
         value$ = "Full House, Ks over "+card_value$(handvalue-7220)+"s"
      endif
      if handvalue>7240 and handvalue<7260
         value$ = "Full House, As over "+card_value$(handvalue-7240)+"s"
      endif
      exitfunction value$
   endif

   if handvalue>6000 and handvalue<7000
      exit$="Flush, "+card_value$(handvalue-6000)+" high"
      exitfunction exit$
   endif

   if handvalue>5000 and handvalue<6000
      exit$="Straight, "+card_value$(handvalue-5000)+" high"
      exitfunction exit$
   endif

   if handvalue>4000 and handvalue<5000
   exit$="Trip "+card_value$(handvalue-4000)+"s"
      exitfunction exit$
   endif

   if handvalue>3000 and handvalue<4000
      if handvalue>3020 and handvalue<3040
         value$ = "Two Pair, 3s and "+card_value$(handvalue-3020)+"s"
      endif
      if handvalue>3040 and handvalue<3060
         value$ = "Two Pair, 4s and "+card_value$(handvalue-3040)+"s"
      endif
      if handvalue>3060 and handvalue<3080
         value$ = "Two Pair, 5s and "+card_value$(handvalue-3060)+"s"
      endif
      if handvalue>3080 and handvalue<3100
         value$ = "Two Pair, 6s and "+card_value$(handvalue-3080)+"s"
      endif
      if handvalue>3100 and handvalue<3120
         value$ = "Two Pair, 7s and "+card_value$(handvalue-3100)+"s"
      endif
      if handvalue>3120 and handvalue<3140
         value$ = "Two Pair, 8s and "+card_value$(handvalue-3120)+"s"
      endif
      if handvalue>3140 and handvalue<3160
         value$ = "Two Pair, 9s and "+card_value$(handvalue-3140)+"s"
      endif
      if handvalue>3160 and handvalue<3180
         value$ = "Two Pair, 10s and "+card_value$(handvalue-3160)+"s"
      endif
      if handvalue>3180 and handvalue<3200
         value$ = "Two Pair, Js and "+card_value$(handvalue-3180)+"s"
      endif
      if handvalue>3200 and handvalue<3220
         value$ = "Two Pair, Qs and "+card_value$(handvalue-3200)+"s"
      endif
      if handvalue>3220 and handvalue<3240
         value$ = "Two Pair, Ks and "+card_value$(handvalue-3220)+"s"
      endif
      if handvalue>3240 and handvalue<3260
         value$ = "Two Pair, As and "+card_value$(handvalue-3240)+"s"
      endif
      exitfunction value$
   endif

   if handvalue>2000 and handvalue<3000
      for value=2 to 14
            exit$="Pair of "+card_value$(handvalue-2000)+"s"
            exitfunction exit$
      next value
   endif

   if handvalue<2000
      exit$="High Card "+card_value$(handvalue-1000)
      exitfunction exit$
   endif

endfunction ""

choice=rnd(100)
if choice<(fold value) then fold
if choice>(fold value) and choice<(all in value) then (bet amount based on choice)
if choice>=(all in value) then (all in)

         for yrad=200 to 0 step -1
            ellipse 320,240,yrad+50,yrad
            ellipse 320,241,yrad+50,yrad
         next yrad

sync on : hide mouse

gosub init_stuff

`------------------------------------------------------
`MAIN LOOP
`------------------------------------------------------
do

    `I'm using 0,0 as a flag for telling if the cards have been dealt
    if PlayerCardData(0,0)=0
       gosub DealCards
       gosub ShowTable
    else
         if mouseclick()=1 then gosub ShowTable
    endif

 sync

loop







`------------------------------------------------------
`SUBROUTINES
`------------------------------------------------------

init_stuff:

   `make table image
         table_pic=100
         ink rgb(0,255,0),0
         for yrad=200 to 0 step -1
            ellipse 320,240,yrad+50,yrad
            ellipse 320,241,yrad+50,yrad
         next yrad
         get image table_pic,0,0,640,480
         cls

   `make cards
         set text font "Symbol",2
         set text size 15
         cls rgb(255,255,255)
         imagenum=200
         for number=2 to 14
            if number<11
               value$=" " + str$(number)
            else
               select number
                  case 11 : value$=" J" : endcase
                  case 12 : value$=" Q" : endcase
                  case 13 : value$=" K" : endcase
                  case 14 : value$=" A" : endcase
               endselect
            endif
            for suit=1 to 4
               if suit>1 and suit<4
                  ink rgb(255,0,0),0
               else
                  ink rgb(0,0,0),0
               endif
               if number=11 or number=12 : set text font "arial",1 : else : set text font "symbol",1 : endif
               print value$
               set text font "symbol",2
               print " " + chr$(166+suit)
               get image imagenum,0,0,20,30
               inc imagenum
               cls rgb(255,255,255)
            next suit
         next number
         ink rgb(255,0,0),0
         set text size 30
         center text 10,2,"?"
         get image 199,0,0,20,30

   `make variables/arrays
         dim PlayerCardData(8,2,2)
            CardValue=1
            CardSuit=2
         dim TableCards(5,2)
            TableCards(0,0)=-1
         dim CardStatus(14,4)
         dim PlayerChips(8)
            for player=1 to 8 : PlayerChips(player)=2000 : next player

return





DealCards:

   for player=1 to 8
      for card=1 to 2
         repeat
            randomize timer()+rnd(100)
            value=rnd(12)+2
            suit=rnd(3)+1
         until CardStatus(value,suit)=0
         CardStatus(value,suit)=1
         PlayerCardData(player,card,CardValue)=value
         PlayerCardData(player,card,CardSuit)=suit
      next card
   next player

   for card=1 to 5
      repeat
         randomize timer()+rnd(100)
         value=rnd(12)+2
         suit=rnd(3)+1
      until CardStatus(value,suit)=0
      CardStatus(value,suit)=1
      TableCards(card,CardValue)=value
      TableCards(card,CardSuit)=suit
   next card

   `I'm using 0,0 as a flag for telling if the cards have been dealt
   PlayerCardData(0,0)=1

return




ShowTable:

   set text font "Arial",1
   set text size 20
   ink rgb(255,255,255),0
   paste image table_pic,0,0
   for player=1 to 8
            if player=1 : string$="    You-"+str$(PlayerChips(player)) : else : string$=str$(PlayerChips(player)) : endif
            center text 320+cos((player-1)*45)*250,240+sin((player-1)*45)*200,string$
            paste image get_card_image(PlayerCardData(player,1,CardValue),PlayerCardData(player,1,CardSuit)),275+cos((player-1)*45)*250,230+sin((player-1)*45)*200
            paste image get_card_image(PlayerCardData(player,2,CardValue),PlayerCardData(player,2,CardSuit)),365+cos((player-1)*45)*250,230+sin((player-1)*45)*200
   next player
   TableCards(0,0)=TableCards(0,0)+1
   if TableCards(0,0)>0
         paste image get_card_image(TableCards(1,1),TableCards(1,2)),270,215
         paste image get_card_image(TableCards(2,1),TableCards(2,2)),295,215
         paste image get_card_image(TableCards(3,1),TableCards(3,2)),320,215
      else
         paste image 199,270,215
         paste image 199,295,215
         paste image 199,320,215
      endif
      if TableCards(0,0)>1
         paste image get_card_image(TableCards(4,1),TableCards(4,2)),345,215
      else
         paste image 199,345,215
      endif
      if TableCards(0,0)>2
         paste image get_card_image(TableCards(5,1),TableCards(5,2)),370,215
      else
         paste image 199,370,215
      endif

      center text 550,450,read_hand_value$(get_hand_value(1))

      repeat
      until mouseclick()=0


return








`------------------------------------------------------------------
`FUNCTIONS
`------------------------------------------------------------------

function get_card_image(value,suit)

   imagenum=199+(4*(value-2))+suit

endfunction imagenum

function card_value$(value)

   if value<11
      value$=str$(value)
   else
      select value
         case 11 : value$="J" : endcase
         case 12 : value$="Q" : endcase
         case 13 : value$="K" : endcase
         case 14 : value$="A" : endcase
      endselect
   endif
   exitfunction value$

endfunction ""


function get_hand_value(player)

   dim suits(4) : dim values(14) : dim cardflags(14,4)
   for suit=1 to 4 : suits(suit)=0 : next suit
   for value=2 to 14 : values(value)=0 : next value
   for value=2 to 14 : for suit=1 to 4 : cardflags(value,suit)=0 : next suit : next value

   a1=0 : a2=0 : b1=0 : b2=0 : c1=0 : c2=0 : d1=0 : d2=0 : e1=0 : e2=0 : f1=0 : f2=0 : g1=0 : g2=0

   a1=PlayerCardData(player,1,1) : a2=PlayerCardData(player,1,2)
   b1=PlayerCardData(player,2,1) : b2=PlayerCardData(player,2,2)

   if TableCards(0,0)>0
      c1=TableCards(1,1) : c2=TableCards(1,2)
      d1=TableCards(2,1) : d2=TableCards(2,2)
      e1=TableCards(3,1) : e2=TableCards(3,2)
   endif
   if TableCards(0,0)>1
      f1=TableCards(4,1) : f2=TableCards(4,2)
   endif
   if TableCards(0,0)>2
      g1=TableCards(5,1) : g2=TableCards(5,2)
   endif

   for value=2 to 14
      number=0
      if a1=value then inc number
      if b1=value then inc number
      if c1=value then inc number
      if d1=value then inc number
      if e1=value then inc number
      if f1=value then inc number
      if g1=value then inc number
      values(value)=number
   next value

   for suit=1 to 4
      number=0
      if a2=suit then inc number
      if b2=suit then inc number
      if c2=suit then inc number
      if d2=suit then inc number
      if e2=suit then inc number
      if f2=suit then inc number
      if g2=suit then inc number
      suits(suit)=number
   next suit

   cardflags(a1,a2)=1
   cardflags(b1,b2)=1
   cardflags(c1,c2)=1
   cardflags(d1,d2)=1
   cardflags(e1,e2)=1
   cardflags(f1,f2)=1
   cardflags(g1,g2)=1

   `check for straight flush:

      for suit=1 to 4
         for lowvalue=2 to 10
            if cardflags(lowvalue,suit)=1
               if cardflags(lowvalue+1,suit)=1
                  if cardflags(lowvalue+2,suit)=1
                     if cardflags(lowvalue+3,suit)=1
                        if cardflags(lowvalue+4,suit)=1
                           exitfunction 9000+lowvalue
                        endif
                     endif
                  endif
               endif
            endif
         next lowvalue
      next suit

   `check for four of a kind

      for value=2 to 14
         if values(value)=4 then exitfunction 8000+value
      next value

   `check for full house

      for value1=14 to 2 step -1
         if values(value1)=3
            for value2=14 to 2 step -1
               if value2<>value1
                  if values(value2)=2
                     if value1<value2
                        exitvalue=7000+(20*value2)+value1
                        exitfunction exitvalue
                     else
                        exitvalue=7000+(20*value2)+value1
                        exitfunction exitvalue
                     endif
                  endif
               endif
            next value2
         endif
      next value1

   `check for flush

      for suit=1 to 4
         if suits(suit)>=5
            for highcard=14 to 6 step -1
               if cardflags(highcard,suit)=1
                  exitfunction 6000+highcard
               endif
            next highcard
         endif
      next suit

   `check for straight

      for highcard=14 to 5 step -1
         if highcard>5
            if values(highcard)>0
               if values(highcard-1)>0
                  if values(highcard-2)>0
                     if values(highcard-3)>0
                        if values(highcard-4)>0
                           exitfunction 5000+highcard
                        endif
                     endif
                  endif
               endif
            endif
         else
            if values(highcard)>0
               if values(highcard-1)>0
                  if values(highcard-2)>0
                     if values(highcard-3)>0
                        if values(14)>0
                           exitfunction 5000+highcard
                        endif
                     endif
                  endif
               endif
            endif
         endif
      next highcard

   `check for trips

      for value=14 to 2 step -2
         if values(value)=3
            exitfunction 4000+value
         endif
      next value

   `check for two pair

      for value1=14 to 2 step -1
         if values(value1)=3
            for value2=14 to 2 step -1
               if value2<>value1
                  if values(value2)=2
                     if value1<value2
                        exitvalue=3000+(20*value2)+value1
                        exitfunction exitvalue
                     else
                        exitvalue=3000+(20*value2)+value1
                        exitfunction exitvalue
                     endif
                  endif
               endif
            next value2
         endif
      next value1

   `check for pair

      for value=14 to 2 step -1
         if values(value)=2
            exitfunction 2000+value
         endif
      next value

   `check for high card

      for value=14 to 2 step -1
         if values(value)>0
            exitfunction 1000+value
         endif
      next value

endfunction 0

function read_hand_value$(handvalue)

   if handvalue>9000
      if handvalue=9010
         exitfunction "Royal Flush!"
      else
         exit$="Straight Flush, "+card_value$(handvalue-9000+4)+" high"
         exitfunction exit$
      endif
   endif

   if handvalue>8000 and handvalue<9000
      exit$="Four of A Kind, "+card_value$(handvalue-8000)+"s"
      exitfunction exit$
   endif

   if handvalue>7000 and handvalue<8000
      if handvalue>7020 and handvalue<7040
         value$ = "Full House, 3s over "+card_value$(handvalue-7020)+"s"
      endif
      if handvalue>7040 and handvalue<7060
         value$ = "Full House, 4s over "+card_value$(handvalue-7040)+"s"
      endif
      if handvalue>7060 and handvalue<7080
         value$ = "Full House, 5s over "+card_value$(handvalue-7060)+"s"
      endif
      if handvalue>7080 and handvalue<7100
         value$ = "Full House, 6s over "+card_value$(handvalue-7080)+"s"
      endif
      if handvalue>7100 and handvalue<7120
         value$ = "Full House, 7s over "+card_value$(handvalue-7100)+"s"
      endif
      if handvalue>7120 and handvalue<7140
         value$ = "Full House, 8s over "+card_value$(handvalue-7120)+"s"
      endif
      if handvalue>7140 and handvalue<7160
         value$ = "Full House, 9s over "+card_value$(handvalue-7140)+"s"
      endif
      if handvalue>7160 and handvalue<7180
         value$ = "Full House, 10s over "+card_value$(handvalue-7160)+"s"
      endif
      if handvalue>7180 and handvalue<7200
         value$ = "Full House, Js over "+card_value$(handvalue-7180)+"s"
      endif
      if handvalue>7200 and handvalue<7220
         value$ = "Full House, Qs over "+card_value$(handvalue-7200)+"s"
      endif
      if handvalue>7220 and handvalue<7240
         value$ = "Full House, Ks over "+card_value$(handvalue-7220)+"s"
      endif
      if handvalue>7240 and handvalue<7260
         value$ = "Full House, As over "+card_value$(handvalue-7240)+"s"
      endif
      exitfunction value$
   endif

   if handvalue>6000 and handvalue<7000
      exit$="Flush, "+card_value$(handvalue-6000)+" high"
      exitfunction exit$
   endif

   if handvalue>5000 and handvalue<6000
      exit$="Straight, "+card_value$(handvalue-5000)+" high"
      exitfunction exit$
   endif

   if handvalue>4000 and handvalue<5000
   exit$="Trip "+card_value$(handvalue-4000)+"s"
      exitfunction exit$
   endif

   if handvalue>3000 and handvalue<4000
      if handvalue>3020 and handvalue<3040
         value$ = "Two Pair, 3s and "+card_value$(handvalue-3020)+"s"
      endif
      if handvalue>3040 and handvalue<3060
         value$ = "Two Pair, 4s and "+card_value$(handvalue-3040)+"s"
      endif
      if handvalue>3060 and handvalue<3080
         value$ = "Two Pair, 5s and "+card_value$(handvalue-3060)+"s"
      endif
      if handvalue>3080 and handvalue<3100
         value$ = "Two Pair, 6s and "+card_value$(handvalue-3080)+"s"
      endif
      if handvalue>3100 and handvalue<3120
         value$ = "Two Pair, 7s and "+card_value$(handvalue-3100)+"s"
      endif
      if handvalue>3120 and handvalue<3140
         value$ = "Two Pair, 8s and "+card_value$(handvalue-3120)+"s"
      endif
      if handvalue>3140 and handvalue<3160
         value$ = "Two Pair, 9s and "+card_value$(handvalue-3140)+"s"
      endif
      if handvalue>3160 and handvalue<3180
         value$ = "Two Pair, 10s and "+card_value$(handvalue-3160)+"s"
      endif
      if handvalue>3180 and handvalue<3200
         value$ = "Two Pair, Js and "+card_value$(handvalue-3180)+"s"
      endif
      if handvalue>3200 and handvalue<3220
         value$ = "Two Pair, Qs and "+card_value$(handvalue-3200)+"s"
      endif
      if handvalue>3220 and handvalue<3240
         value$ = "Two Pair, Ks and "+card_value$(handvalue-3220)+"s"
      endif
      if handvalue>3240 and handvalue<3260
         value$ = "Two Pair, As and "+card_value$(handvalue-3240)+"s"
      endif
      exitfunction value$
   endif

   if handvalue>2000 and handvalue<3000
      for value=2 to 14
            exit$="Pair of "+card_value$(handvalue-2000)+"s"
            exitfunction exit$
      next value
   endif

   if handvalue<2000
      exit$="High Card "+card_value$(handvalue-1000)
      exitfunction exit$
   endif

endfunction ""

remstart
*=CURRENT WORKING PROJECTS............



projects!!
ai : i want to make the ai smarter. (not to fold on there bblind when it is ok to check : i worked on this just need to keep an eye on it).
player chips : still need to be fixed to were you cant beat over the chips that you have.
 *side pots : (new idea with this, add in player(i).hasin, then i can use it  this needs to be set up in the end game so if 2 or more players are all in it calculates there chips from the other and side pots it
blind increases : needs to be done (min bet needs to be added into bblind)
raise increases : this is part of ai (based on bblind)
buttons : there needs to be somthing saying who the blinds are on and dealer.
timer : this needs to be added whenever blind increases are added. look at my marble mayhem timer to include it to the program.


bugs!!
i need to look into the fold thing. all ai slots need to have is raise < a number they need to call or somthing
all players cant fold : nothing has been done check to see if this is an issue or not.
somthing poped up when i was playing with 2 other players and i won, this was when there was only 3 total players in the game, error line 270-280

bug checks!!
keep an eye on player allin with more chips then other and dont get to guess a turn
watch on the new allin codes recently added
player chips

remend



type players
  name as string
  card1 as string
  card2 as string
  value as integer
  suit as integer
  value2 as integer
  suit2 as integer
  chips as integer
  hand as integer
  counter as integer
  s as integer
  f as integer
  turn as integer
  check as integer
  raise as integer
  fold as integer
  bblind as integer
  sblind as integer
  paid as integer
  elim as integer
  allin as integer
  hasin as integer
endtype

type cards
   card as string
   value as integer
   suit as integer
endtype

GLOBAL DIM CARD(52) as cards
GLOBAL DIM NUMBER$(13)
GLOBAL DIM SUIT$(4)
GLOBAL DIM PLAYER(8) as players
global dim b(52)
global dim time(8,13,4)
global dim flop(3)
global dim turn(1)
global dim river(1)
global flopps=0
global turns=0
global rivers=0
global counter=0
global counterr=0
global sblind=10
global bblind=20
global raise=0
global tocall=0
global pot=0
global round=0
global jip=0
global sidepot1=0
global sidepot2=0
global sidepot3=0

INTCARDS()
function main()
do
if player(8).elim=1 then ai()
if player(8).allin=1 then ai()
   rebet:
  tocall=raise-player(8).paid
   text 50,300,"(C)heck / (C)all"
   text 50,315,"(B)et / Raise"
   text 50,330,"(F)old"
   set cursor 50,285:print tocall:set cursor 0,0
   set cursor 200,315:input " ",n$

     if n$="c" or n$="b" or n$="f"

         if n$="c"
         player(8).check=1
         endif

         if n$="b"
            set cursor 200,300:print player(8).chips-tocall:set cursor 0,0
            set cursor 200,315
            input "Amount: ",bet$
            raise=raise+val(bet$)
            player(8).raise=1
            if raise>player(8).chips then text 50,270,"You dont have so many chips.":wait 1000:player(8).raise=0:raise=raise-val(bet$):round=3:refresh():goto rebet
         endif

         if n$="f" then player(8).fold=1
      else
       text 50,270,"This is not a option":wait 1000:round=3:refresh():goto rebet
      endif

ai()
loop
endfunction

function ai()

for i=1 to 8

if player(i).allin=1 and player(i).turn=1 then player(i).check=1:goto fresh
if player(i).elim=1 and player(i).turn=1 then goto fresh

  if i=8 and player(i).turn=1 then goto bottom
    rem player1 AI preflop
    if player(i).turn=1 and flopps=0
    if player(3).turn=1 then player(3).raise=1:raise=1000:goto bottom
          if player(i).bblind=1 and raise<=bblind then player(i).check=1:goto bottom
     if player(i).hand>15 and player(i).hand<1000 and raise<25 then player(i).check=1:goto bottom
    if player(i).hand>1000
        n=rnd(2)+1
        if raise>45 then player(i).check=1:goto bottom
      if n>=2 then player(i).check=1:goto bottom
      if n=1 then raise=raise+rnd(25)+20:player(i).raise=1:goto bottom
    endif
     if player(i).check=0 and player(i).raise=0 and raise>0 then player(i).fold=1:goto bottom
     if raise<=bblind then player(i).check=1:goto bottom
    endif
     rem player1 AI flop
    if player(i).turn=1 and flopps=1 and turns=0
     if player(i).hand>1000 and player(i).hand<3000 and raise<120 then player(i).check=1:goto bottom
    if player(i).hand>3000
        n=rnd(3)+1
        if raise>120 then player(i).check=1:goto bottom
      if n>=2 then player(i).check=1:goto bottom
      if n=1 then raise=raise+rnd(100)+20:player(i).raise=1:goto bottom
    endif
      if player(i).check=0 and player(i).raise=0 and raise>0 then player(i).fold=1:goto bottom
      if raise=0 then player(i).check=1:goto bottom
    endif
     rem player1 AI turn
     if player(i).turn=1 and turns=1
      if player(i).hand>1000 and player(i).hand<3000 and raise<100 then player(i).check=1:goto bottom
     if player(i).hand>5000
        n=rnd(2)+1
      if raise>150 then player(i).check=1:goto bottom
      if n>=2 then player(i).check=1:goto bottom
      if n=1 then raise=raise+rnd(100)+50:player(i).raise=1:goto bottom
     endif
      if player(i).check=0 and player(i).raise=0 and raise>0 then player(i).fold=1:goto bottom
      if raise=0 then player(i).check=1:goto bottom
     endif
    rem player1 AI river
     if player(i).turn=1 and rivers=1
      if player(i).hand>1000 and player(i).hand<3000 and raise<100 then player(i).check=1:goto bottom
     if player(i).hand>5000
         n=rnd(2)+1
      if raise>200 then player(i).check=1:goto bottom
      if n>=2 then player(i).check=1:goto bottom
      if n=1 then raise=raise+rnd(100)+50:player(i).raise=1:goto bottom
     endif
      if player(i).check=0 and player(i).raise=0 and raise>0 then player(i).fold=1:goto bottom
      if raise=0 then player(i).check=1:goto bottom
     endif
    next i
bottom:



if player(i).turn=1 and player(i).check=1

    text 50,270,player(i).name+" calls."
rem if the player has not paid nothing they need to call the blind and the raise
  if player(i).paid=0
    player(i).chips=player(i).chips-raise
    player(i).paid=player(i).paid+raise
    pot=pot+raise
    player(i).hasin=player(i).hasin+raise
        if player(i).chips<0 then pot=pot-abs(player(i).chips):player(i).hasin=player(i).hasin-abs(player(i).chips)
  endif
rem if this is a reraise or a raise after somone called the blinds then there paid will be more then not paying nothing
   if player(i).paid>0 and player(i).paid<raise
     player(i).chips=player(i).chips-(raise-player(i).paid)
     player(i).paid=player(i).paid+(raise-player(i).paid)
     pot=pot+(raise-player(i).paid)
     player(i).hasin=player(i).hasin+(raise-player(i).paid)
              if player(i).chips<0 then pot=pot-abs(player(i).chips):player(i).hasin=player(i).hasin-abs(player(i).chips)
   endif

goto fresh
endif
if player(i).turn=1 and player(i).fold=1
     if player(i).bblind=1 and flopps=0 then player(i).chips=player(i).chips-bblind
     if player(i).sblind=1 and flopps=0 then player(i).chips=player(i).chips-sblind
     text 50,270,player(i).name+" folds this hand."
goto fresh
endif
if player(i).turn=1 and player(i).raise=1
     text 50,270,player(i).name+" raise the pot by.":set cursor 50,300:print raise-player(i).paid:set cursor 0,0
   if player(i).paid=0
     player(i).chips=player(i).chips-raise
     player(i).paid=player(i).paid+raise
     pot=pot+raise
     player(i).hasin=player(i).hasin+raise
         if player(i).chips<0 then pot=pot-abs(player(i).chips):player(i).hasin=player(i).hasin-abs(player(i).chips)
   endif
   if player(i).paid>0 and player(i).paid<raise
     player(i).chips=player(i).chips-(raise-player(i).paid)
     player(i).paid=player(i).paid+(raise-player(i).paid)
     pot=pot+(raise-player(i).paid)
     player(i).hasin=player(i).hasin+(raise-player(i).paid)
          if player(i).chips<=0 then pot=pot-abs(player(i).chips):player(i).hasin=player(i).hasin-abs(player(i).chips)
   endif
goto fresh
endif

fresh:
if player(i).chips<=0 then player(i).chips=0
wait 1000
round=0

 if player(i).raise=1
    player(i).check=1
       for t=1 to 8
         if t=i then player(i).raise=0:goto no
         player(t).check=0
         player(t).raise=0
     no:
       next t
 endif
refresh()
endfunction

function getturn()
for i=1 to 8
if player(i).turn=1 then goto findturn
next i
rem preflop turn
if flopps=0
for i=1 to 8
 if i=8 and player(i).bblind=1 and player(1).fold=0 then player(1).turn=1:goto jump
 if i=8 and player(i).bblind=1 and player(1).fold=1 then player(8).turn=1:goto findturn
 if player(i).bblind=1 then player(i+1).turn=1:goto jump
next i
endif

rem after flop turn
   if flopps=1
for i=1 to 8
break
      if player(i).sblind=1 and player(i).fold=0 then player(i).turn=1:goto jump
   if player(i).sblind=1 and player(i).fold=1
jip=i+1
for t=jip to 9
      if t>=8 and player(8).fold=1 then t=1
      if player(t).fold=0 then player(t).turn=1:goto jump
next t
   endif
next i
   endif
findturn:
jip=i+1
for t=jip to 9

    player(i).turn=0
    if t>8
     if player(8).fold=1 or player(8).check=1 or player(8).allin=1 then t=1:player(8).turn=0
    endif
    if player(t).fold=0
      player(t).turn=1
      if player(t).check=1 then endturn()
      goto jump
    endif
next t
jump:
for i=1 to 8
if player(i).turn=1 then print i
wait 100
next i
  if player(8).turn=1 then main()
ai()
endfunction

function endturn()
for i=1 to 8
player(i).check=0
player(i).raise=0
player(i).paid=0
player(i).turn=0
if player(i).chips<=0 and player(i).elim=0 then player(i).allin=1
if player(i).fold=1 then counter=counter+1
if counter=7 then goto winbyfold
next i

rem this small section lets the player not be able to bet if all ethers are allin
counter=0
counterr=0
for i=1 to 8
if player(i).fold=0 then counter=counter+1
next i
for i=1 to 8
if player(i).allin=1 then counterr=counterr+1
next i
if counter>1 and counter = counterr+1
   for i=1 to 8
   break
   player(i).allin=1
   next i
endif



counter=0
raise=0
round=1
if flopps=0 then flopp()
if flopps=1 and turns=0 then turnn()
if flopps=1 and turns=1 and rivers=0 then riverr()
if rivers=1
for i=1 to 8
 if player(i).fold=1 then goto ni
    d=8
  for t=1 to 8
 if d<>i
    if player(i).hand>player(d).hand and player(d).fold=0 then player(d).fold=1:round=2:refresh()
    if player(i).hand=player(d).hand and player(d).fold=0 then counter=counter+1
 endif
  dec d
  next t
ni:
next i
endif

if counter>=2 then goto split


winbyfold:
for i=1 to 8
if player(i).fold=0
   player(i).chips=player(i).chips+pot
   text 50,270,player(i).name+" wins the pot."
   set cursor 50,300:print pot:set cursor 0,0
   goto finalize
endif
next i

split:
for i=1 to 8
if player(i).fold=0
   text 50,250+t*10,player(i).name+" splits the pot."
   player(i).chips=player(i).chips+(pot/counter)
   set cursor 50,300:print pot/counter:set cursor 0,0
   inc t
endif
next i
goto finalize

finalize:
for i=1 to 8
if player(i).chips<=0 then player(i).elim=1
next i
wait 3000
shuffle()
endfunction

function refresh()
cls

for i=1 to 8
if player(i).elim=1 then player(i).fold=1
next i

set cursor 150,165:print pot:set cursor 200,165:print bblind:set cursor 250,165:print sblind:set cursor 0,0

rem card positions
x=50
y=50
for i=1 to 4
if player(i).fold=1 then player(i).card1="  ":player(i).card2="  "
text x,y,player(i).card1
text x+40,y,player(i).card2
inc x,100
next i
y=200
x=350
for i=5 to 8
if player(i).fold=1 then player(i).card1="  ":player(i).card2="  "
text x,y,player(i).card1
text x+40,y,player(i).card2
dec x,100
next i

rem player name positions
x=50
y=25
for i=1 to 4
if player(i).elim=1 then player(i).name="  ":player(i).chips=0
set cursor x,y-20:print player(i).chips:set cursor 0,0
text x,y,player(i).name
inc x,100
next i
x=350
y=225
for i=5 to 8
if player(i).elim=1 then player(i).name="  ":player(i).chips=0
set cursor x,y+20:print player(i).chips:set cursor 0,0
text x,y,player(i).name
dec x,100
next i

if flopps=1
t=17
for i = 1 to 3
flop(i) = b(t)
inc t
next i
x=100
for i=1 to 3
text x,125,card(flop(i)).card
inc x,50
next i
endif
if turns=1
turn(1)=b(20)
text 250,125,card(turn(1)).card
endif
if rivers=1
river(1)=b(22)
text 300,125,card(river(1)).card
endif

if round=1 then timeline()
if round=0 then getturn()

endfunction


function shuffle()
for i=1 to 8
 if player(i).elim=1 then player(i).fold=1
next i

randomize timer()
for i= 1 to 52
shuf:
b(i)=rnd(51)+1
for n=0 to i-1
if b(i)=b(n) then goto shuf
next n
next i
t=1
for i =1 to 8
player(i).card1 = card(b(t)).card
player(i).value = card(b(t)).value
player(i).suit = card(b(t)).suit
inc t
player(i).card2 = card(b(t)).card
player(i).value2 = card(b(t)).value
player(i).suit2 = card(b(t)).suit
inc t
next i

sidepot1=0
sidepot2=0
sidepot3=0
pot=0
raise=bblind
tocall=raise
flopps=0
turns=0
rivers=0
for i=1 to 8
 player(i).hand=0
 player(i).s=0
 player(i).f=0
 player(i).turn=0
 player(i).check=0
 player(i).fold=0
 player(i).raise=0
 player(i).paid=0
 player(i).allin=0
 player(i).hasin=0
next i

for t=1 to 9
   if t=9 then t=1
if player(t).bblind=1
   player(t).bblind=0
   jip=t+1
for d=jip to 9
   if d=9 then d=1
if player(d).fold=0
   player(d).bblind=1
   goto ti
endif
next d
endif
next t
ti:

for t=1 to 9
   if t=9 then t=1
if player(t).sblind=1
   player(t).sblind=0
   jip=t+1
for d=jip to 9
   if d=9 then d=1
if player(d).fold=0
   player(d).sblind=1
   goto si
endif
next d
endif
next t
si:


round=1
refresh()
endfunction



function timeline()
for i=1 to 8
 for t=1 to 13
 time(i,t)=0
 next t
next i
for i=1 to 8
 for t=1 to 4
 time(i,0,t)=0
 next t
next i
rem hole cards
for i=1 to 8
  time(i,player(i).value)=time(i,player(i).value)+1
  time(i,player(i).value2)=time(i,player(i).value2)+1
  time(i,0,player(i).suit)=time(i,0,player(i).suit)+1
  time(i,0,player(i).suit2)=time(i,0,player(i).suit2)+1
next i
rem flop
if flopps=1
for i=1 to 8
for t=1 to 3
  time(i,card(flop(t)).value)=time(i,card(flop(t)).value)+1
  time(i,0,card(flop(t)).suit)=time(i,0,card(flop(t)).suit)+1
next t
next i
endif
rem turn
if turns=1
for i=1 to 8
  time(i,card(turn(1)).value)=time(i,card(turn(1)).value)+1
  time(i,0,card(turn(1)).suit)=time(i,0,card(turn(1)).suit)+1
next i
endif
rem river
if rivers=1
for i=1 to 8
  time(i,card(river(1)).value)=time(i,card(river(1)).value)+1
  time(i,0,card(river(1)).suit)=time(i,0,card(river(1)).suit)+1
next i
endif
fourkind()
endfunction

function royalflush()
for i=1 to 8
 if player(i).f=1 and player(i).s=13 then player(i).hand=9999999:player(i).counter=0
next i
strflush()
endfunction

function strflush()
for i=1 to 8
 if player(i).f=1 and player(i).s>4 then player(i).hand=90000+player(i).s*100:player(i).counter=0
next i
threekind()
endfunction

function fourkind()
for i=1 to 8
 if player(i).hand >80000 then goto skip10
  d=13
  for t=1 to 13
  if time(i,d)=4 then player(i).hand=d*100:goto gc10
  dec d
  next t
  gc10:
  player(i).counter=1
  skip10:
  next i
  fullhouse()
endfunction

function fullhouse()
for i= 1 to 8
 if player(i).hand > 70000 then goto skip7
 d=13
 for t=1 to 13
 if time(i,d)=3 then a=d : goto skip8
 dec d
 next t
 skip8:
 d=13
 for t=1 to 13
 if time(i,d)=2 then b=d : goto skip9
 dec d
 next t
 skip9:
 if a>=1 and b>=1 then player(i).hand=60000+a*100+b*10
 player(i).counter=0
 a=0
 b=0
 skip7:
 next i
 flush()
endfunction

function flush()
for i= 1 to 8
if player(i).hand > 60000 then goto skip6
  for n=1 to 4
 if time(i,0,n)=5 then player(i).hand=50001:player(i).f=1:goto gc6
  next n
gc6:
player(i).counter=5
skip6:
next i
straight()
endfunction

function straight()
for i=1 to 8
 if player(i).hand > 60000  then goto skip5
 d=13
 for t=0 to 9
  if time(i,13)=1 then time(i,0)=1
  if time(i,d)=1 and time(i,d-1)=1 and time(i,d-2)=1 and time(i,d-3)=1 and time(i,d-4)=1
   player(i).s=d
   if player(i).hand<50000
    player(i).hand=40000+d*100
    player(i).counter=0
   endif
  goto gc5:
  endif
  dec d
  next t
gc5:
time(i,0)=0
skip5:
next i
royalflush()
endfunction

function threekind()
for i= 1 to 8
 if player(i).hand > 40000 then goto skip4
 d=13
 for t=1 to 13
 if time(i,d)=3 then player(i).hand=30000+d*100:goto gc4
 dec d
 next t
 gc4:
 player(i).counter=2
 skip4:
 next i
 twopair()
endfunction

function twopair()
for i=1 to 8
if player(i).hand > 30000 then goto skip3
 d=13
 for t=1 to 13
 if time(i,d)=2 then a=d : goto skip2
 dec d
 next t
skip2:
 d=13
 for t=1 to 13
 if time(i,d)=2 and d<a then b=d : goto gc3
 dec d
 next t
gc3:
 if a>=1 and b>=1 then player(i).hand=20000+a*100+b*10
 player(i).counter = 1
skip3:
a=0
b=0
next i
onepair()
endfunction

function onepair()
for i=1 to 8
if player(i).hand > 20000 then goto skip
 d=13
 for t=1 to 13
 if time(i,d)=2 then player(i).hand=10000+d*100:goto gc
 dec d
 next t
gc:
player(i).counter = 3
skip:
next i
highcard()
endfunction

function highcard()
for i = 1 to 8
if player(i).hand < 10000 then player(i).counter=5

d=13
for t=1 to 13
if counter < player(i).counter
if time(i,d)=1 then counter = counter+1:player(i).hand=player(i).hand+d
dec d
endif
next t

counter=0
next i
getturn()
endfunction


function flopp()

flopps=1
refresh()
endfunction

function turnn()

turns=1
refresh()
endfunction

function riverr()

rivers=1
refresh()
endfunction

function INTCARDS()
rem start screen
for i=1 to 8
 player(i).chips=1000
next i
player(1).bblind=1
player(8).sblind=1
set text size 50
text 100,0,"TEXAS"
text 100,50,"HOLDEM"
text 100,100,"POKER"
set text size 20
set cursor 100,150
input "Please Enter a Name: ",player(8).name
set cursor 0,0
rem start screen end

FOR I=1 TO 13
READ NUMBER$(I)
NEXT I
FOR I=1 TO 4
READ SUIT$(I)
NEXT I
t=1
FOR I=1 TO 13
 FOR B=1 TO 4
 CARD(T).card=NUMBER$(I)+" "+SUIT$(B)
 CARD(T).value=I
 CARD(T).suit=B
 INC T
 NEXT B
NEXT I
for i =1 to 7
read player(i).name
next i
SHUFFLE()

endfunction

data "2","3","4","5","6","7","8","9","10","J","Q","K","A"
data "H","D","S","C"
data "Missy","Pete","Darlene","Roger","Linda","Eli","Kathy"