on *:TEXT:*:#battledice:{
  tokenize 32 $strip($1-)
  var %topic = $gettok($strip($chan(#).topic),2,124)
  var %i = 2
  while ($gettok($gettok(%topic,%i,40),1,41) != $null) {
    var %nick = $v1
    if (%nick != $me) { var %batnicks = $addtok(%batnicks,%nick,32) }
    inc %i
  }
  var %nick = $rand(1,$numtok(%batnicks,32))
  if ($numtok(%batnicks,32) > 1) { var %nick = $gettok(%batnicks,%nick,32) }
  else { var %nick = $null }
  if ($nick == BattleDice) {
    if (dice goes to $me $+ . isin $1-) {
      msg # !d 20 %nick
      set %roll 1
    }
    if ($me $+ , please roll isin $1-) && (first !isin $1-) { msg # !d 20 }
    if ($me $+ : please roll next. == $1-) { msg # !d 20 }
    if (You're up first $me isin $1-) { msg # !d 20 %nick | set %roll 1 }
    if (Game ended by isin $1-) { unset %roll }
    if (%roll != $null) {
      if (Player $me missed isin $1-) { unset %roll }
      if (It's a hit isin $1-) { msg # !d 1d8+3 | unset %roll }
      if (CRITICAL MISS isin $1-) { msg # !d 1d8+3 | unset %roll }
      if (CRITICAL!! isin $1-) { msg # !d 2d8+3 | unset %roll }
    }
  }
}
on *:ACTION:*:#battledice:{
  tokenize 32 $strip($1-)
  if ($nick == BattleDice) && (hands the dice to $me isin $1-) { msg # !d 20 | set %roll 1 }
}