bunny_wabbit

dialog Poker {
  title "Poker v1.1"
  size -1 -1 235 65
  option dbu
  button "Call", 1, 10 3 28 10
  button "Raise", 2, 40 3 28 10
  button "Fold", 3, 70 3 28 10
  button "Check", 4, 101 3 28 10
  button "Bet", 5, 132 3 28 10
  box "Your Cards", 6, 10 15 105 30
  button "Bet ALL", 7, 163 3 30 10
  button "Raise ALL", 8, 196 3 30 10
  edit "", 9, 15 27 95 10, read
  box "Flop", 10, 120 15 105 30 
  edit "", 11, 125 27 95 10, read
  text "¡YOUR TURN!", 12, 100 50 40 10
}
on *:dialog:poker:init:0:{ did -h Poker 12 }
on *:dialog:poker:sclick:1:{ msg #poker Call }
on *:dialog:poker:sclick:2:{ msg #poker Raise $$?="Raise how much?" }
on *:dialog:poker:sclick:3:{ msg #poker Fold }
on *:dialog:poker:sclick:4:{ msg #poker Check }
on *:dialog:poker:sclick:5:{ msg #poker Bet $$?="Bet how much?" }
on *:dialog:poker:sclick:7:{ msg #poker Bet 420420 }
on *:dialog:poker:sclick:8:{ msg #poker Raise 420420 }
menu channel { 
  .Poker:dialog -mdie poker poker
}
on ^1:NOTICE:Your*cards*are*:*:{ did -ra Poker 9 $strip($remove($4-,),bc) }
on ^1:NOTICE:*It's your turn*:*:{ did -v Poker 12  }
on *:TEXT:The board is*:#Poker:{ did -ra Poker 11 $strip($remove($4-,),cm) | did -h Poker 12 }