on *:text:!roll*:#:{
var %h = $right($1,-5)
if %h < 0 { msg $chan $nick %h is not a valid entry. }
if %h isletter { msg $chan $nick %h is not a valid entry. }
else { msg $chan $nick rolled a ( $r(1,%h) ). }
}
This should work out for you, hope it helps!
ahhh... I see why/what/how it works now. Thank you for posting this up.