Miscellany

on ^*:JOIN:#pest-hq:{
  if (%whois. [ $+ [ $chan ] ] == off) { HALT }  
  .enable #partcheck
  set %whoisnick $nick
  whois $nick
  haltdef
}
#joincheck on
raw 319:*:{
  msg #hqstaff 1 $+ 4 %whoisnick 12Is On4 %remove($3- ,+,%,@) $+ 
}
#joincheck end
alias rainbow {
  var %text = $1-
  var %text = $replace(%text,$chr(32),$chr(95))
  var %len = $len($1-)
  var %color.pos = 1
  var %pos = 1
  while (%len != 0) {
    if (%color.pos == 7) { var %color.pos = 1 }
    if (%color.pos == 1) { var %color = 4 }
    if (%color.pos == 2) { var %color = 7 }
    if (%color.pos == 3) { var %color = 8 }
    if (%color.pos == 4) { var %color = 3 }
    if (%color.pos == 5) { var %color = 2 }
    if (%color.pos == 6) { var %color = 6 }
    var %return = %return $+  $+ %color $+ $mid($1-,%pos,1) $+ 
    inc %color.pos 1 | dec %len 1 | inc %pos 1 | var %color $null
  }
  var %return = $replace(%return,$chr(95),$chr(32))
  var %return =  $+ %return $+ 
  return %return
  ;echo $active %return 
  ;msg $active %return
}
on *:text:!whoison*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %whois. $+ $chan on 
    msg $chan 10»15]|[ 12Whois For4 $chan 12Is Now On 15]|[10«
  } 
}
on *:text:!whoisoff*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %whois. $+ $chan off 
    msg $chan 10»15]|[ 12Whois For4 $chan 12Is Now Off 15]|[10«
  } 
}