Something I've been working on for a while and works just like the TV game show. To load, copy & paste to a new remote file (ALT-R -> File -> New)

Take time to look/check the settings. You have to choose the channel for this to work on.

Right-click on any window -> select DOND -> Settings.

Default settings are set upon loading the script. Before you can start the script, enable it first thru the popup menu. You can start the game remotely or using the popup menu.

Remember: This is just beta version. I'm open for comments & suggestions to improve it. Enjoy! =)

;================================================
;  DOND (Deal or No Deal)
;  Version 0.18.3 BETA
;  Written by: xDaeMoN
;  Email: xdaemon@xdaemon.us
;  
;================================================

;############ EVENTS #############

On *:LOAD: dond.settings 1

ON *:START: { 
  if ( !$hget($_table) ) hmake $_table 10
  if ( !$hget($_players) ) hmake $_players 10
  if ( $isfile($_data) ) hload $_table $_data
  if ( $isfile($_playdata) ) hload $_players $_playdata
  dond.settings
}

On *:EXIT: dond.save
On *:DISCONNECT: dond.save

On *!:NICK: {
  if ( !$readini($_ini,config,enable) ) return
  if ( $hget($_players,$+($network,:,$dondchan,:,$nick)) ) { 
    hdel $_players $+($network,:,$dondchan,:,$nick)
    hadd $_players $+($network,:,$dondchan,:,$newnick) 1
  }
  elseif ( $nick == %dond.player ) set %dond.player $newnick 
}

On *!:QUIT: { 
  if ( !$readini($_ini,config,enable) ) return
  if ( $hget($_players,$+($network,:,$dondchan,:,$nick)) ) hdel $_players $+($network,:,$dondchan,:,$nick)
  elseif ( $nick == %dond.player ) {
    unset %dond.player 
    msg $dondchan 10 $+ $nick just quitted. A new player will be picked shortly...
    .timerdond.rpick 1 2 dond.rpick $network $dondchan new
  }
}
On *!:KICK:$($dondchan): {
  if ( !$readini($_ini,config,enable) ) return
  if ( $hget($_players,$+($network,:,#,:,$knick)) ) hdel $_players $+($network,:,#,:,$knick)
  elseif ( $knick == %dond.player ) {
    unset %dond.player 
    msg $dondchan 10 $+ $nick was kicked. A new player will be picked shortly...
    .timerdond.rpick 1 2 dond.rpick $network $chan new
  }
}
On *!:PART:$($dondchan): { 
  if ( !$readini($_ini,config,enable) ) return
  if ( $hget($_players,$+($network,:,#,:,$nick)) ) hdel $_players $+($network,:,#,:,$nick)
  elseif ( $nick == %dond.player ) {
    unset %dond.player 
    msg $dondchan 10 $+ $nick just left the channel. A new player will be picked shortly...
    .timerdond.rpick 1 2 dond.rpick $network $chan new
  }
}

On !*:JOIN:$($dondchan): {
  $+(.timerdondjoinmsg,$cid,$chan,$nick) 1 2 .notice $nick Welcome to $chan $+ , $nick $+ ! $dond.logo v $+ $dond.version is $iif($readini($_ini,config,enable),10ON. Type 03!dond to start the game.,04OFF.)
}

On *:TEXT:!*:$($dondchan): {
  if ( !$readini($_ini,config,enable) ) return
  if ( $istok(!dond !start,$1,32) ) {
    if ( !%dond.status ) {
      if ( !%dond.start ) {
        dond.start $network $chan
      }
      else msg $chan The game is about to start in %dond.start secs. Type 3!join now.
    }
    else {
      if ( %dond.player == $nick ) msg $chan 07You are already playing the game!
      elseif ( %dond.player ) msg $chan 12Please wait after07 %dond.player 12finishes the game.
    }
  }
  elseif ( $1 == !stop ) && ( $nick isop $chan ) dond.end $nick
  elseif ( $1 == !pass ) && ( %dond.player == $nick ) {
    unset %dond.player
    msg $chan 10 $+ $nick has passed playing the game. 12A new player will be picked shortly...
    if ( $me isop $chan ) mode $chan -v $nick
    .timerdond.* off
    .timerdond.rpick 1 2 dond.rpick $network $chan new
  }
  elseif ( $1 == !stats ) {
    var %n = $iif($2,$2,$nick)
    msg $chan $dond.logo stats for12 %n $+ :03 $comma($iif($hget($_table,$+($network,:,$chan,:,%n)),$v1,0)) Total Points
  }
  elseif ( $1 == !join ) {
    if ( %dond.start ) || ( %dond.status == playing ) {
      if ( !$hget($_players,$+($network,:,$chan,:,$nick)) ) { 
        hadd -m $_players $+($network,:,$chan,:,$nick) 1
        msg $chan Thank you for joining,10 $nick $+ . Player will be randomly picked $iif(%dond.start,in07 %dond.start secs.,after10 %dond.player finishes the game.)
      }
      else msg $chan You already joined the game. Please wait for the game to start.
    }
  }
  elseif ( $1 == !confirm ) {
    if ( %dond.status == confirm ) && ( %dond.player.temp == $nick ) { 
      set %dond.status playing
      .timerdond.noconfirm off
      set %dond.player $nick
      unset %dond.player.temp
      msg $chan GOOD! Then let's play $dond.logo $+ !
      if ( $me isop $chan ) && ( $readini($_ini,config,avplayer) ) mode $chan +v $nick
      ;hadd -m $_prevplayers $+($network,:,$chan,:,$nick)
      dond.createboxes
      .timerdond.chooseanybox 1 2  msg $chan There are 26 boxes. Choose any box (from 1 to 26) so we can start playing. Type 3!choose <number>. You have04 $dond.time(randomchoosebox) secs or I will randomly select a box for you. 
      .timerdond.random.choose 1 $calc($dond.time(randomchoosebox) + 2) dond.randomchoosebox
      set %dond.level 0
    }
  }
  elseif ( $istok(!deal !nodeal,$1,32) ) && ( %dond.player == $nick ) && ( %dond.answerdond ) {
    if ( $timer(dond.autoaccept) ) .timerdond.autoaccept off
    if ( $1 == !deal ) {
      unset %dond.player
      tokenize 32 $hget($_table,$+($network,:,$chan,:,$nick))
      hadd -m $_table $+($network,:,$chan,:,$nick) $calc($1 + %dond.bankerdeal) $2 $3
      msg $chan You have accepted the Banker's offer. You get10 $comma(%dond.bankerdeal) points. Your total points is now03 $comma($hget($_table,$+($network,:,$chan,:,$nick))) $+ . Thank you for playing.
      if ( $me isop $chan ) mode $chan -v $nick     
      .timerdond.rpick 1 2 dond.rpick $network $chan new
    }
    else {
      msg $chan You declined the Banker's offer. Let's continue playing!
      inc %dond.level
      var %d = $dond.casesperlevel
      msg $chan Now, $iif( %dond.level == 8,choose from the last box $+(09,$chr(44),01) $+ $gettok(%dond.boxwdamts,1,58) $+  and your chosen box $+(09,$chr(44),01) $+ $gettok(%dond.chosenbox,1,58) $+ , you have to eliminate04 %d boxes.) Type 03!choose $str($+(<number>,$chr(32)),%d) to eliminate the boxes. You have07 $dond.time(timelimit) secs to respond.
      .timerdond.timelimit 1 $dond.time(timelimit) dond.timelimit $network $chan %dond.player
    }
    unset %dond.answerdond %dond.pickednum
  }
  elseif ( $1 == !choose ) {
    if ( %dond.player == $nick ) {
      dond.choose $nick $network $chan $2-
    }
  }
  elseif ( $1 == !commands ) msg $chan $dond.logo commands: !dond !join !confirm !deal !nodeal !stats !pass !stop !top10
  elseif ( $1 == !top10 ) dond.top $network $chan
}

;############ ALIASES #############

alias -l dondchan return $readini($_ini,config,channel)
alias dond.version return 0.18 BETA
alias -l _table return dond.scores
alias -l _players return dond.players
alias -l _prevplayers return dond.prevplayers
alias -l _playdata return $qt($scriptdirdondplayers.dat)
alias -l _data return $qt($scriptdirdondscores.dat)
alias -l _ini return $qt($scriptdirdond.ini)
alias -l dond.logo return 01,08DEALor08,01NODEAL

alias -l dond.rpick {
  if ( $3 == new ) msg $dondchan 12Let's continue the game. Picking a random player now....
  if ( $dond.players($1,$2) ) {
    var %n = $dond.players($1,$2).rand
    set %dond.player.temp $gettok(%n,3,58)
    hdel $_players %n
    .timerdond.newplayer 1 5 msg $dondchan The new player is ->07 %dond.player.temp <- Please type 03!confirm within04 $dond.time(confirmtime) secs, to confirm that you want to play.
    set %dond.status confirm
    .timerdond.noconfirm 1 $dond.time(confirmtime) dond.noconfirm %dond.player.temp %n
  }
  else {
    msg $dondchan 07Seems like the players are inactive.
    dond.end System Console Auto
  }
}

alias -l dond.noconfirm {
  msg $dondchan 10 $+ $1 did not confirm. Too bad, you lose your chance to play. We will pick another player...
  unset %dond.player.temp
  tokenize 58 $2
  dond.rpick $1 $2
}

alias dond.createboxes {
  unset %dond.boxwdamts
  var %amt = .1 1 5 10 25 50 75 100 200 300 400 500 750 1000 5000 10000 25000 50000 75000 100000 200000 300000 400000 500000 750000 1000000
  var %b = 26, %g
  while %b {
    %g = $gettok(%amt,$r(1,$numtok(%amt,32)),32)
    set %dond.boxwdamts $+(%b,:,%g) %dond.boxwdamts
    %amt = $remtok(%amt,%g,1,32)
    dec %b
  }
}

alias -l dond.getboxes {
  if ( %dond.boxwdamts ) {
    var %n = $numtok($v1,32), %o
    while %n {
      tokenize 58 $gettok(%dond.boxwdamts,%n,32)
      %o = 09,01 $+ $iif($1 isnum 1-9,$+(01,009,$1),$1) $+  %o
      dec %n
    }
    return %o
  }
}

alias -l dond.getamts {
  if ( %dond.boxwdamts ) {
    var %n = $numtok($v1,32), %o, %p , %o2
    while %n {
      tokenize 58 $gettok(%dond.boxwdamts,%n,32)
      %o = $2 %o
      dec %n
    }
    %o = $addtok(%o,$gettok(%dond.chosenbox,2,58),32)
    %o = $sorttok(%o,32,n)
    %p = $numtok(%o,32)
    while %p {
      %o2 = 08,01 $+ $comma($gettok(%o,%p,32)) $+  %o2
      dec %p
    }
    return %o2
  }
}

alias -l dond.bankerdeal {
  if ( %dond.boxwdamts ) {
    var %n = $numtok($v1,32), %o, %p = %n, %t = $1 * 2
    while %n {
      tokenize 58 $gettok(%dond.boxwdamts,%n,32)
      inc %o $2
      dec %n
    }
    ;inc %o $calc($gettok(%dond.chosenbox,2,58) * .25)
    inc %o $gettok(%dond.chosenbox,2,58)
    set %dond.bankerdeal $round($calc(%o / %p * %t / 10),2)
    return %dond.bankerdeal
    ; return $calc(%o / 10)
  }
}

alias -l dond.getboxnum return $wildtok(%dond.boxwdamts,$iif($1 isnum 1-9,$remove($1,0),$1) $+ :*,1,32)

alias -l dond.removebox {
  var %c = $dond.getboxnum($1)
  if ( !%dond.chosenbox ) set %dond.chosenbox %c
  set %dond.boxwdamts $remtok(%dond.boxwdamts,%c,1,32)
}

alias -l dond.casesperlevel {
  var %dond.cpl = 6 5 4 3 3 2 1
  set %dond.casesperlevel $gettok(%dond.cpl,%dond.level,32)
  return %dond.casesperlevel
}

alias -l dond.randomchoosebox {
  var %d = %dond.boxwdamts, %c = $iif(%dond.casesperlevel,$v1,1), %r, %o
  while %c {
    %r = $gettok(%d,$r(1,$numtok(%d,32)),32)
    %d = $remtok(%d,%r,1,32)
    %o = $addtok(%o,$gettok(%r,1,58),32)
    dec %c
  }
  echo -a ** %o
  dond.choose dond.random a a %o
}

alias -l dond.start {
  var %os = $dond.time(onstart)
  set %dond.status 1
  msg $dondchan It's time for another game of $dond.logo $+ ! For those who wants to play, type 03!join to join the game. $& 
    The player will be randomly picked from those who joined. 4You have %os seconds to join.
  set -z %dond.start %os
  .timerdond.rpick 1 %os dond.rpick $1-
}

alias -l dond.end {
  if ( %dond.status ) {
    .timerdond.* off
    msg $dondchan $dond.logo 04has been $iif($3,$+($3,-)) $+ stopped by07 $iif($1,$1-2,System Console) $+ . Type03 !dond to start another game.
    unset %dond.*
    if ( $hget($_players) ) hfree $_players
  }
}

alias -l dond.choose {
  if ( %dond.level == 0 ) {
    if ( $4 isnum 1-26 ) {
      .timerdond.* off
      inc %dond.level
      var %cpl = $dond.casesperlevel
      msg $dondchan $iif(dond.random == $1,A Random box has been selected for you $+ :,You have chosen Box) 10 $+ $chr(35) $+ $4 
      dond.removebox $4
      msg $dondchan Here are the Boxes left: $dond.getboxes
      .timerdond.eliminate 1 2 msg $dondchan Now, you have to eliminate %cpl boxes. Type 3!choose $str($+(<number>,$chr(32)),%cpl) to eliminate the boxes. You have07 $dond.time(timelimit) secs to respond.
      .timerdond.timelimit 1 $calc($dond.time(timelimit) + 2) dond.timelimit $2 $3 %dond.player
    }
    else msg $dondchan %dond.player $+ : 12There are only 0426 12boxes.
  }
  elseif ( %dond.level isnum 1-7 ) {
    if ( $4 ) {
      if ( $timer(dond.timelimit) ) .timerdond.timelimit off
      var %d = $dond.casesperlevel, %net = $2, %ch = $3, %nn, %nb, %ae
      if ( !%dond.pickednum ) set %dond.pickednum 0
      if ( %dond.pickednum < %dond.casesperlevel ) {
        var %w = 1, %n, %f = $4-, %eb
        while ( %dond.pickednum < %dond.casesperlevel ) && $gettok(%f,%w,32) {
          %n = $v1
          if ( $dond.getboxnum(%n) ) { 
            tokenize 58 $v1
            %eb = $addtok(%eb,12 $+ $chr(35) $+ $1 10 $+ $comma($2) $+ ,44)
            dond.removebox %n
            inc %dond.pickednum
          }
          elseif ( %n !isnum ) %nn = $addtok(%nn,12 $+ %n $+ ,44)
          elseif ( %n == $gettok(%dond.chosenbox,1,58) ) msg $dondchan Box12 $chr(35) $+ %n is already your chosen box.
          elseif ( %n !isnum 1-26 ) %nb = $addtok(%nb,12 $+ %n $+ ,44)
          else %ae = $addtok(%ae,12 $+ %n $+ ,44)
          inc %w
        }
        if ( %nn ) msg $dondchan %nn $iif($numtok(%nn,44) > 1,are,is) not a number.
        if ( %nb ) msg $dondchan There $iif($numtok(%nb,44) > 1,are,is) no Box $chr(35) $+ $iif($numtok(%nb,44) > 1,s) %nb
        if ( %ae ) msg $dondchan You have already eliminated Box $chr(35) $+ $iif($numtok(%ae,44) > 1,s) %ae
        if ( %eb ) msg $dondchan You have eliminated07 %dond.pickednum of12 %dond.casesperlevel Boxe(s): %eb
        if ( %dond.pickednum < %dond.casesperlevel ) { 
          .timerdond.pickednum 1 3 msg $dondchan 04 $+ $calc(%dond.casesperlevel - %dond.pickednum) more to eliminate.
          .timerdond.timelimit 1 $calc($dond.time(timelimit) + 3) dond.timelimit %net %ch %dond.player
        }
        else {
          .timerdond.getboxes1 1 1 msg $dondchan Here's the rest of the boxes: $!dond.getboxes
          .timerdond.getamts1 1 2 msg $dondchan Here's the remaining amounts: $!dond.getamts
          .timerbanker1 1 5 msg $dondchan 04! B A N K E R !        
          .timerbanker2 1 6 msg $dondchan The Banker's offer is:10 $comma($dond.bankerdeal(2))
          .timerdond.msg.dond 1 7 $({, ) msg $dondchan To accept the offer, type 12!deal. If you don't accept, type 04!nodeal. You have07 $dond.time(autoaccept) secs to respond. $(|, ) set % $+ dond.answerdond 1 $(}, )
          .timerdond.autoaccept 1 $calc($dond.time(autoaccept) + 7) dond.autoacceptoffer %net %ch %dond.player
        }
      }
      else msg $dondchan You have already eliminated %dond.casesperlevel boxes at this time.
    }
    else msg $dondchan Choose %dond.casesperlevel boxes to elimnate from the remaining ones. Type 3!choose $str($+(<number>,$chr(32)),%dond.casesperlevel) $+ .
  }
  elseif ( %dond.level == 8 ) {
    if ( $istok($gettok(%dond.boxwdamts,1,58) $gettok(%dond.chosenbox,1,58),$4,32) ) {
      if ( $timer(dond.timelimit) ) .timerdond.timelimit off
      var %n = $2
      tokenize 58 $iif($4 $+ :* iswm %dond.boxwdamts,$v2,%dond.chosenbox)
      hinc -m $_table $+(%n,:,$dondchan,:,%dond.player) $2
      msg $dondchan Your chose Box12 $chr(35) $+ $1 with10 $comma($2) and will be added to your total points, which is now03 $comma($hget($_table,$+(%n,:,$dondchan,:,%dond.player))) $+ . Thank you for Playing.
      if ( $me isop $dondchan ) mode $dondchan -v %dond.player       
      unset %dond.player
      .timerdond.rpick 1 2 dond.rpick %n $dondchan new
    }
    else msg $dondchan 10 $+ $4 $+  is neither of your chosen box 09,01 $+ $gettok(%dond.chosenbox,1,58) $+  nor the box left 09,01 $+ $gettok(%dond.boxwdamts,1,58) $+ . You have04 $timer(dond.timelimit).secs secs left to respond.
  }
}

alias -l comma {
  ;By Fiberoptics
  var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
  return %a
}

alias -l dond.save {
  hsave -o $_table $_data
  hsave -o $_players $_playdata
}

alias -l dond.players { 
  var %n = $hfind($_players,$+($1,:,$2,:*),0,w)
  if ( $prop == rand ) return $hfind($_players,$+($1,:,$2,:*),$r(1,%n),w)
  return %n
}

alias -l dond.timelimit {
  unset %dond.player
  msg $dondchan  $+ $3 12seems to be inactive. We will now select a new player...
  if ( $me isop $dondchan ) mode $v2 -v $3
  .timerdond.rpick 1 2 dond.rpick $1 $2
}

alias -l dond.autoacceptoffer {
  hinc -m $_table $+($1,:,$2,:,$3) %dond.bankerdeal
  msg $dondchan 12The Banker's offer has been auto-accepted.10 $comma(%dond.bankerdeal) 12will be added to your points. Your new total points:03 $comma($hget($_table,$+($1,:,$2,:,$3))) 
  dond.timelimit $1-
}

alias -l dond.time return $readini($_ini,config,$1)

alias -l dond.settings {
  if ( !$readini($_ini,config,avplayer) ) wini config avplayer 1
  if ( !$readini($_ini,config,onstart) ) wini config onstart 30
  if ( !$readini($_ini,config,timelimit) ) wini config timelimit 45
  if ( !$readini($_ini,config,randomchoosebox) ) wini config randomchoosebox 45
  if ( !$readini($_ini,config,autoaccept) ) wini config autoaccept 45
  if ( $1 ) echo $colour(info) -a ** $dond.logo v $+ $dond.version - Default Settings has been set.
}

alias -l dond.setchan { 
  writeini -n $_ini config channel $1
  unset %dond.*
}

alias -l wini writeini -n $_ini $1-

alias -l dond.top {
  var %h = $hfind(dond.scores,$+($1,:,$2,:*),0,w), %w = @dond.top, %i
  window -hn %w
  clear %w
  while %h {
    %i = $hfind(dond.scores,$+($1,:,$2,:*),%h,w)
    aline %w $gettok(%i,3,58) $hget(dond.scores,%i)
    dec %h
  }
  filter -cteuww 2 32 %w %w
  var %l = $line(%w,0), %a = 1, %o
  while %a <= 10 {
    %o = $addtok(%o,$+(08,$chr(44),01) $+ $chr(35) $+ %a $+ $+(01,$chr(44),15) $iif($line(%w,%a),$gettok($v1,1,32) $comma($gettok($v1,2,32)),*),32) 
    inc %a
  }
  msg $2 $dond.logo TOP10: %o
}

;############ MENU #############

menu * {
  DOND v $+ $dond.version
  .$style(1) $iif($readini($_ini,config,enable),Enabled,Disabled)
  ..$iif($readini($_ini,config,enable),Disable,Enable) game: { 
    wini config enable $iif($readini($_ini,config,enable),0,1)
    if ( !$readini($_ini,config,enable) ) && ( %dond.status ) dond.end System Console
  }
  .-
  .$iif( $readini($_ini,config,enable), Status)
  ..$iif( !%dond.status, Start, Stop) DoND:  { 
    if ( $me ison $dondchan ) $iif( !%dond.status , dond.start $network $dondchan, dond.end System Console) 
    else echo 04 -a $dond.logo Error: I am not on $dondchan $+ .
  }
  .-
  .Settings
  ..Channel ( $+ $dondchan $+ ) 
  ...$iif(( $chan ) && ( $chan != $dondchan ),Set Current $chr(40) $+ $chan $+ $chr(41)) : dond.setchan $chan
  ...Set Other? : dond.setchan #$$?="Enter the Channel name to play DEAL or NODEAL"
  ..-
  ..$iif($readini($_ini,config,avplayer),$style(1)) Auto voice Player
  ...$iif( !$readini($_ini,config,avplayer), Enable, Disable) :  wini config avplayer $iif($readini($_ini,config,avplayer),0,1)
  ..-
  ..Time 
  ...On Start ( $+ $readini($_ini,config,onstart) $+ ) : wini config onstart $$?="Enter time when starting the game (seconds)"
  ...Time to Confirm ( $+ $readini($_ini,config,confirmtime) $+ ) : wini config confirmtime $$?="Enter time for user to confirm before starting the game (seconds)"
  ...Time Limit ( $+ $readini($_ini,config,timelimit) $+ ) : wini config timelimit $$?="Enter time limit for user to respond (seconds)"
  ...Random 1st box ( $+ $readini($_ini,config,randomchoosebox) $+ ) : wini config randomchoosebox $$?="Enter time limit when choosing the 1st box randomly (seconds)" 
  ...Auto Accept Offer ( $+ $readini($_ini,config,autoaccept) $+ ) : wini config autoaccept $$?="Enter time limit for user to respond before offer is auto-accepted (seconds)" 
  ..-
  ..Scores
  ...Save {
    var %w =  $input(Do you really want to set the default settings?,uy,Deal or No Deal)
    if ( $! ) {
      hsave -o $_table $_data
      echo $colour(info) -a $dond.logo v $+ $dond.version - Scores has been saved!
    }
  }
  ...Reset {
    var %w =  $input(Do you really want to reset All the scores?,uy,Deal or No Deal - Confirm Reset)
    if ( $! ) {
      hfree $_table
      hmake $_table 10
    }
  }
  ..-
  ..Reset : {
    var %w =  $input(Do you really want to set the default settings?,uy,Deal or No Deal - Confirm Reset)
    if ( $! ) {
      dond.settings 1
    }
  }
}

;############ EOF #############