Mine

on *:TEXT:!setmom*:#: {
if (($nick isop $chan) || ($nick ishop $chan) || ($nick = Epic_Test))  {
set %event $nick($chan,$rand(1,$nick($chan,0))) 
/notice $chan 8,1A new Mom has been set by7 $nick4 type7 !mom4 to see who it is...
}
elseif ($nick isvoice $chan) { notice $nick 8,1Sorry but only ops can reset the mom.
}
}

on *:TEXT:!setmomset*:#: {
if (($nick isop $chan) || ($nick ishop $chan) || ($nick = Epic_Test)) {
set %event $2 
/notice $chan 8,1A new Mom has been set by7 $nick4 type7 !mom4 to see who it is...
}
elseif ($nick isvoice $chan) { notice $nick 8,1Sorry but only ops can reset the mom.
}
}


on *:TEXT:!mom:#: { 
if (%event == $null) notice $nick 8,1WTF It just said i reset the damn thing...ffs newbs....
else {
notice $nick 7,1Todays mom of the day is;71 %event ....which I just 01Skeeted 71 on...
}
}

on *:TEXT:!nomom*:#: {
if (($nick isop $chan) || ($nick ishop $chan) || ($nick = Epic_Test)) {
unset %event
msg $chan 8,1The mom of the day has been cleared by8 $nick
}
else notice $nick 8,1Sorry but only ops can reset the event.
}