All pastes #479985 Raw Edit

rafi

public text v1 · immutable
·published 2007-05-10 00:21 UTC
rendered paste body
menu * {
Blackjack:/dialog -m bj bj
}
dialog bj {
  title "BlackJack"
  size -1 -1 150 130
  button "Deal", 1, 17 5 50 20
  button "Hit", 2, 17 30 50 20
  button "Stay", 3, 17 55 50 20
  button "Split", 4, 17 80 50 20
  button "Double", 5, 17 105 50 20
  button "End", 6, 80 5 50 20
  button "Reset", 7, 80 30 50 20
  button "Request", 8, 80 55 50 20
  button "Yes", 9, 80 80 50 20
  button "No", 10, 80 105 50 20

}
on *:dialog:bj:sclick:*: {
  if ($did == 1) { /msg $active !bj deal }
  if ($did == 2) { /msg $active !hit }
  if ($did == 3) { /msg $active !stay }
  if ($did == 4) { /msg $active !split }
  if ($did == 5) { /msg $active !double }
  if ($did == 6) { /msg $active !bj end }
  if ($did == 7) { /msg $active !bj reset }
  if ($did == 8) { /msg $active !blackjack $$?="Name?:" }
  if ($did == 9) { /msg $active !bjack yes }
  if ($did == 10) { /msg $active !bjack no }
}