alias hlit {
var %i 1
while (%i <= $nick($chan,0)) {
if ($nick($chan,%i) isop $chan) var %pre @
if ($nick($chan,%i) isvoice $chan) var %pre +
if ($nick($chan,%i) isreg $chan) var %pre $null
if ($len(%k) < 300) { var %k = %k $+ $chr(44) $+(%pre,$nick($chan,%i)) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
inc %i
}
if (%k) { msg $chan $right(%k,-1) }
}