Oww My Nose

on *:JOIN:#:{
  if ($me isop $chan || $me ishop $chan || *o* iswm $usermode) && (%justjoined. [ $+ [ $chan ] ] != 1) {
    set -u5 %justjoined. [ $+ [ $chan ] ] 1
    set %joined true
    set %halt.whois true
    set %nick $nick
    set %chan $chan
    whois $nick
  }
}
menu Nicklist {
  -
  $iif($1,owwScript)
  .$iif($1,Channels)
  ..$iif($1,Echo Channels):{
    set %echo true
    set %halt.whois true
    set %nick $1
    set %chan $active
    whois $1
  }
  ..$iif($1,Say Channels):{
    set %message true
    set %halt.whois true
    set %nick $1
    set %chan $active
    whois $1
  }
  -
}
;whois halts
raw 311:*: { if (%halt.whois == true) halt }
raw 379:*: { if (%halt.whois == true) halt }
raw 378:*: { if (%halt.whois == true) halt }
raw 307:*: { if (%halt.whois == true) halt }
raw 312:*: { if (%halt.whois == true) halt }
raw 313:*: { if (%halt.whois == true) halt }
raw 310:*: { if (%halt.whois == true) halt }
raw 671:*: { if (%halt.whois == true) halt }
raw 317:*: { if (%halt.whois == true) halt }
raw 318:*: { if (%halt.whois == true) halt }
raw 311:*: { if (%halt.whois == true) unset %halt.whois | halt }
;end whois halts
raw 319:*: { 
  if (%joined == true || %echo == true || %message == true) {
    var %channels $replace($sorttok($3-,32,c),$chr(64),4 $+ $chr(64) $+ 7,$chr(37),8 $+ $chr(37) $+ 7,$chr(43),10 $+ $chr(43) $+ 7)
    if (%joined == true) {
      if (%justjoined. [ $+ [ %chan ] ] == true || $4 == $null) { unset %nick %channels %nick %joined %echo %message }
      if ($4 == $null) { unset %nick %channels %nick %joined %echo %message | halt }
      echo 12 %chan $timestamp %nick is on the following channels:7 %channels
      unset %channels %nick %joined %echo %message
    }
    if (%echo == true) {
      if ($4 == $null) { echo 12 %chan $timestamp %nick is only on this channel | unset %nick %channels %nick %joined %echo %message | halt }
      echo 12 %chan $timestamp %nick is on the following channels:7 %channels
      unset %channels %nick %joined %echo %message
    }
    if (%message == true) {
      if ($4 == $null) { msg $active %nick is only on this channel | unset %nick %channels %nick %joined %echo %message | halt }
      msg %chan %nick is on the following channels:7 %channels %logo
      unset %channels %nick %joined %echo %message
    }
    halt
  }
}