Miscellany

on ^*:JOIN:#pest-hq:{
  .enable #partcheck
  set %whoisnick $nick
  whois $nick
  haltdef
}
#joincheck on
raw 319:*:{
  msg #pest-hq 1 $+ *4 %whoisnick 12Has Joined 4#Pest-HQ12.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
}