on *:TEXT:!dice*:#: {
  var %dice = $rand(1,6)
  if (%dice == 1) (
  %set %roll [ $+ [ $nick ] ] 1
  msg $chan $nick rolled a 1 and has been set as his roll!
}
if (%dice == 2) (
%set %roll [ $+ [ $nick ] ] 2
msg $chan $nick rolled a 2 and has been set as his roll!
}
if (%dice == 3) (
%set %roll [ $+ [ $nick ] ] 3
msg $chan $nick rolled a 3 and has been set as his roll!
}
if (%dice == 4) (
%set %roll [ $+ [ $nick ] ] 4
msg $chan $nick rolled a 4 and has been set as his roll!
}
if (%dice == 5) (
%set %roll [ $+ [ $nick ] ] 5
msg $chan $nick rolled a 5 and has been set as his roll!
}
if (%dice == 6) (
%set %roll [ $+ [ $nick ] ] 6
msg $chan $nick rolled a 6 and has been set as his roll!
}

on *:TEXT:!score*:#: {
.msg $chan $2 has rolled a %roll [ $+ [ $2 ] ] 6
}