On *:text:!Sixteen:#: {
  if ( $hget(game)) {
    SEnd
  }
  msg $chan Now starting a game of sixteen.  Who wants to play against $nick $+ ?
  set %players $nick
  enable #js
}
#js off
on *:text:join*:#: {
  msg $chan $nick is going to play against $gettok(%players,1,32)
  set %players %players $nick
  bs
}
#js end
alias bS {
  disable #js
  hmake game 10
  hadd game 1 1
  hadd game 2 3
  hadd game 3 5
  hadd game 4 7
  set %turn 1
  enable #st
  board
}
alias board {
  msg $chan Row 1: $str(X,$hget(game,1))
  msg $chan Row 2: $str(X,$hget(game,2))
  msg $chan Row 3: $str(X,$hget(game,3))
  msg $chan Row 4: $str(X,$hget(game,4))
}
#st on
On *:text:take *:#: {
  if ( $2 !isnum ) {
    The row must be a number.
    halt
  }
  if ( $3 !isnum ) {
    The ammount must be a number.
    halt
  }
  if ( $int($3) > $hget(game,$2) ) {
    msg $chan There are not that many X's in that row please chose a differnt row or a different amount.
    halt
  }
  if ( $int($3) <= 0 ) {
    msg $chan Please choose a number greater then 0.
    halt
  }
  if ( $2 > 4 ) || ( $2 <= 0 ) {
    msg $chan That row does not exist please choose a number 1-4
    halt
  }
  else { 
    if ( $nick == $gettok(%players,%turn,32) ) {
      hdec game $2 $int($3)
      if (( $hget(game,1) == 0 ) && ($hget(game,2) == 0 ) && ($hget(game,3) == 0 ) && ($hget(game,4) == 0 )) {
        msg $chan $nick has lost.
        msg $chan Sixteen has ended.  Type !sixteen to start a new game.
        SEnd
      }
      else {
        board
        if ( %turn == 1 ) {
          set %turn 2
        }
        else {
          set %turn 1
        }
        msg $chan It is now $gettok(%players,%turn,32) $+ 's turn.
      }
    }
  }
}
on *:text:!stend:#: {
  if ($istok(%players,$nick,32)) {
    msg $chan Ending Sixteen.  Type !sixteen to start a new game.
    SEnd
  }
}
on *:text:!board:#: {
  if ($istok(%players,$nick,32)) {
    board
  }
}
#st end
alias SEnd {
  disable #st
  hfree game
  unset %turn 
  unset %players
}
on *:text:!sthelp*:#: {
  if ( $2 == !sixteen ) {
    notice $nick Use this command to start the game.
  }
  if ( $2 == join ) {
    notice $nick Use this to join a game after someone has started with !sixteen.
  }
  if ( $2 == take ) {
    notice $nick Use this to remove pieces from the board in the form of Take #(row #) #(amount to take). E.G. take 4 3
  }
  if ( $2 == !stend ) {
    notice $nick Use this command to end the game if your opponent has left.
  }
  if ( $2 == !board ) {
    notice $nick This commands will display the board to the channel.
  }
  else {
    notice $nick The commands for this game are: !sixteen, join, take, !board, !stend.
  }
}