on *:TEXT:~RollCall*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan)
  set %Rollcall [ $+ [ $2 ] ] True
  //var %a = 1 | while ($nick($active,%a,v)) { var %s = %s $v1 | if ($numtok(%s,32) == $modespl) { mode $active $+(-,$str(v,$v1)) %s | var %s } | inc %a } | if (%s) mode $active $+(-,$str(v,$numtok(%s,32)))
  msg $chan 4 Msg 7 %users 12 In game to be voiced, all who do not pm will be blacklisted!4~
}
}
on *:TEXT:~DeRollCall*:#:{ 
if ($nick isop $chan) || ($nick ishop $chan) {
  mode $chan -b $str($address($2,2) $+ $chr(32),3)
  unset %RollCall [ $+ [ $2 ] ] true
  msg $chan 4~7 $2 12has been deleted from the 4RollCall Blacklist~
}
}