on *:load: { set %BotNick $$?="Botnick?" }
on *:text:!dice:#: { 
  if ($me == %BotNick) {
    if (!%die.*) {
    set %die.object $r(1,6)
    set %playernick $nick
    .timer 1 1 mode $chan +mv $nick
    .timer 1 2 msg $chan Hey $nick $+ , to win the game you much roll a %die.object $+ . Type !roll to roll the die.
    halt
    }
  }
}
on *:text:!roll:#: {
  if ($nick == %playernick) {
    set %die.player $r(1,6)
    .timer 1 1 msg $chan %playernick rolled a %die.player and....
    if (%die.player == %die.object) { .timer 1 2 msg $chan %playernick won! Congrats. | unset %playernick | unset %die.* | mode $chan -mv $nick | halt }
    else {
      .timer 1 2 msg $chan %playernick lost. Oh well, better luck next time!
      mode $chan -mv $nick
      unset %die.*
      unset %playernick
      halt
    }
  }
}

That's how I did mine >_>