Hehe couldn't resist:

on *:text:/^!d([1-9]\d?|100)$/:#: msg # $nick rolls a $r(1,$regml(1))