on *:join:#:{
  if ($nick == $me) { .timer -m 1 1 make.co }
  else {
    if ($nick isreg $chan) { cline 10 $chan $nick }
    if ($nick isvo $chan) { cline 12 $chan $nick }
    if ($nick ishelp $chan) { cline 7 $chan $nick }
    if ($nick isop $chan) { cline 4 $chan $nick }
  }
}
on *:OP:#:{
  cline 4 $chan $opnick 
}
on *:serverOP:#:{
  cline 4 $chan $opnick 
}
on *:DEOP:#:{
  if ($opnick ishelp $chan) { cline 7 $chan $opnick | halt }
  if ($opnick isvo $chan) { cline 12 $chan $opnick | halt }
  cline 10 $chan $opnick 
}
on *:HELP:#:{
  if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
  cline 7 $chan $hnick 
}
on *:DEHELP:#:{
  if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
  if ($hnick isvo $chan) { cline 12 $chan $hnick | halt }
  cline 10 $chan $hnick 
}
on *:VOICE:#:{
  if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
  if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
  cline 12 $chan $vnick 
}
on *:DEVOICE:#:{
  if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
  if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
  cline 10 $chan $vnick 
}
alias make.co {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) {
      if ($nick($chan(%i),%j) isreg $chan(%i)) { cline 10 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isvo $chan(%i)) { cline 12 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline 7 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isop $chan(%i)) { cline 4 $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}