on *:OP:#: set %cchan $chan | nickcolour
on *:DEOP:#: set %cchan $chan | nickcolour
on *:VOICE:#: set %cchan $chan | nickcolour
on *:DEVOICE:#: set %cchan $chan | nickcolour
on *:HELP:#: set %cchan $chan | nickcolour
on *:DEHELP:#: set %cchan $chan | nickcolour
alias nickcolour {
set %y 1
goto colouring
:colouring
if ($nick(%cchan,%y) isop %cchan) cline %op %cchan $nick(%cchan,%y)
if (($nick(%cchan,%y) ishop %cchan) && ($nick(%cchan,%y) !isop %cchan)) cline %ho %cchan $nick(%cchan,%y)
if (($nick(%cchan,%y) isvoice %cchan) && ($nick(%cchan,%y) !isop %cchan) && ($nick(%cchan,%y) !ishop %cchan)) cline %vo %cchan $nick(%cchan,%y)
if ($nick(%cchan,%y) isreg %cchan) cline %no %cchan $nick(%cchan,%y)
inc %y
if ($nick(%cchan,0) < %y) halt
goto colouring
}