on *:text:!dd*:#: {
  set %dd $2 $3 $4
  set %s $nick
  msg $chan 3 $+ [Dice Duel] $+ 10 $2 1 $+ vs $+ 10 $3 $+ 1 - Pot: $+ $+ 3 $4 1 $+ - Roll now! 4 [Hosted by $nick $+ ]
  .timer 1 300 EndDD
}
on *:text:!roll*:#: {
  if (!%dd) { .notice $nick You're not in a duel! }
  var %r $calc($rand(1,2) + $rand(1,2)),  %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32), %p = $gettok(%dd,3,32)
  set %ddr. $+ $nick %r
  msg $chan 3 $+ [Dice Duel] 10 $+ $nick 1 $+ rolled $+ 4 %r 1 $+ on 7 $+ Two Six-sided Dice
  var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
  if (%r1 && %r2) {
    if (%r1 > %r2) { msg $chan 3 $+ $+ [Dice Duel] 10 $+ %d1 1 wins the 3 %p 1 pot with rolls: 4 %r1 $+ - $+ %r2 $+ . 1 Please contact host 10 %s }
    elseif (%r2 > %r1) { msg $chan 3 $+ $+ [Dice Duel] 10 $+ %d2 1 wins the 3 %p 1 pot with rolls: 4 %r1 $+ - $+ %r2 $+ . 1 Please contact host 10 %s }
    else { msg $chan 3 $+ [Dice Duel] 10 $+ %d1 1 $+ and 10 $+ %d2 1 $+ tied on: 4 %r2 1 $+ - Roll again! | unset %ddr.*
    }
    unset %dd
    unset %ddr.*
    .timerDD off
  }
}
alias EndDD {
  msg $chan  The duel ran out of time and has been ended.
  unset %dd
  unset %ddr.*
}
on *:text:!endgame:#: {
  if ($nick == %s) {
    unset %dd
    unset %ddr.*
    msg $chan 4 $nick 1 ended the 3 $+ [Dice Duel]
  }
  else {
    .notice $nick 4 You aren't hosting a Dice Duel.
  }
}