gf

dialog Poker {
  title "Poker v1.1"
  size -1 -1 235 50
  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
}
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 -mo poker poker
}
on ^1:NOTICE:Your*cards*are*:*:{ did -ra Poker 9 $strip($remove($4-,),bc) }
on *:TEXT:The board is*:#Poker:{ did -ra Poker 11 $strip($remove($4-,),cm) }