on *:text:!dd *:#[bot]royaldicing: {
  ; You can remove the first two IF lines if you don't care about checking if the nicks are on the channel.
  if ($2 !ison $chan) { msg $chan $2 is not a valid nick. | halt }
  if ($3 !ison $chan) { msg $chan $3 is not a valid nick. | halt }
  if (!$4) { msg $chan Invalid format.  Use: !dd nick1 nick2 reward | halt }
  set %dd $2 $3 $4
  msg $chan Dice duel between $2 and $3 has begun.
  .timerDD 1 300 EndDD
}
on *:text:!roll:#: {
  if (!%dd) { msg $chan No duel in progress. | halt }
  if (!$istok(%dd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
  if ($($+(%,ddr.,$nick),2)) { msg $chan You have already rolled. | halt }
  var %r = $rand(1,6), %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32), %p = $gettok(%dd,3,32)
  set %ddr. $+ $nick %r
  msg $chan $nick rolled a %r $+ .
  var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
  if (%r1 && %r2) {
    if (%r1 > %r2) { msg $chan %d1 won the %p pot with a %r1 $+ - $+ %r2 $+ . }
    elseif (%r2 > %r1) { msg $chan %d2 won the %p pot with a %r2 $+ - $+ %r1 $+ . }
    else { msg $chan %d1 and %d2 tied with a %r1 $+ - $+ %r2 $+ . }
    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:!60x2*:#: {
  if ($2) && ($3) && ($4) && ($nick !ishop $chan) && ($nick !isop $chan) {
    notice $nick 12You must be a channel (half)operator to use this command.
    halt
  }
  if ($2) && ($3) && ($nick ishop $chan || $nick isop $chan) {
    set %roller1 $2
    set %rollpot $3
    msg # 12 $+ %roller1 %rollpot Pot gl - 1 60 = win. type !dice
  }
}

on *:TEXT:!dice*:#: {
  var %roll1 = $rand(1,100)
  if ($nick == %roller1) {
    msg $chan  12 $nick 1 Rolled The Number 2|12 %roll1 2| 1On a 121-100 percentage dice.
    if (%roll1 < 60) {
      msg $chan 12 %roller1 1 lost the 12 %rollpot pot 1  with the roll: 12 %roll1 .
      unset %*roll*
    }
    elseif (%roll1 > 60) {
      msg $chan 12 %roller1 1 wins the 12 %rollpot pot 1  with the roll: 12 %roll1 .
      unset %*roll*
    }
  }
}