on *:JOIN:#rspc:{ .whois $nick | .enable #whois }
#whois off
raw *:*:{
  if ($istok(301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671,$numeric,124)) haltdef
  if ($numeric == 319) {
    var %channels $3-
    var %a $numtok(%channels,32)
    var %b 1
    while (%b <= %a) {
      var %channels2 %channels2 $iif(PC isin $gettok(%channels,%b,32) && !$istok(#rspc-staff #rspc #thepc,$iif($left($gettok(%channels,%b,32),1) == $chr(35),$gettok(%channels,%b,32),$right($gettok(%channels,%b,32),-1)),32),07,03) $+ $gettok(%channels,%b,32)
      inc %b
    }
    msg #rspc-staff 06 $+ $2 is on: %channels2
  }
  elseif ($numeric == 318) .disable #whois
}
#whois end