Unfinished Liar's Dice 1

on *:text:.ldstart:#scripting: {
  if (%ld.%ld != on) {
    set %ld.%ld on
    msg # A Liar's Dice game was started by $+($nick,.) To join, type 04.ldjoin.
  }
  else msg # There is already a game going on!
}
on *:text:.ldjoin:#scripting: {
  if (%ld.%ld != on) msg # A game has not started yet! To start a game, type 04.ldstart.
  elseif (!$findtok(%ld.players,$nick,32)) {
    msg # $+(04,$nick,) has joined the game!
    set %ld.players %ld.players $nick
    set %ld.dice [ $+ [ $nick ] ] $r(1,6) $r(1,6) $r(1,6) $r(1,6) $r(1,6)
    notice $nick Your dice rolls are $+(04,%ld.dice [ $+ [ $nick ] ],,.)
    notice $nick To bid, type 04.ldbid <quantity> <face>.
  }
}
on $*:text:/^(\.ldbid \d \d)$/Si:#scripting {
  if (!$findtok(%ld.players,$nick,32) && %!ld.bid) {
    set %ld.bid $2 $3
    set %ld.person $nick
    set %ld.lie $iif($findtok(%ld.dice [ $+ [ $nick ] ],$3,0,32) == $2,true,false)
    msg # $+(04,$nick,) claims they have $+(04,$2,) dice numbered $+(04,$3,,!)
    notice $nick You $iif(%ld.lie == true,told the truth,told a lie) $+ !
  }
}