Code:
raw 319:*: {
  if (xxx isin $3-) || (porn isin $3-) || (warez isin $3-) || (sex isin $3-) {
    var %t = $comchan($2,0)
    while (%t) {
      if ($me isop $comchan($2,%t)) {
        ban $comchan($2,%t) $2
        kick $comchan($2,%t) $2 I don't like your channels!
      }
      dec %t
    }
    window -e @Whois 50 50 550 226
    whois $2
    halt
  }
}

alias whoisecho { echo $colour(ctcp text) -a 4 $$1  $+ $colour(action text) $$2- }
alias whois {
  unset %whois*
  $chr(46) $+ enable #whois | set %temp.whoisnick $1 | whois $1-
}

#whois off
raw 401:*:set -u10 %nothere Yup | halt
raw 325:*:set -u10 %whoisears $4- | halt 
raw 308:*:set -u10 %whoisagent Yes | halt  
raw 335:*:set -u10 %whoisbot YES | set %whoisbotinf $7- 
raw 311:*:unset %nouser | nc $4 | set -u10 %whoisnick $2 | set -u10 %whoisaddress $3 $+ @ $+ $4 | set -u10 %whoisname $6- | halt
raw 312:*:set -u10 %whoisserver $3 | set %whoisserverinfo $4- | halt 
raw 317:*:set -u10 %whoisidle $duration($3) | halt
raw 301:*:set -u10 %whoisaway $3- | /halt
raw 313:*:set -u10 %whoisircop $5- | /halt 
raw 310:*:set -u10 %whoishelp ( $+ $3- $+ ) | halt 
raw 309:*:set -u10 %whoislang $9 | halt 
raw 327:*:set -u10 %whoisjava $8 | halt 
raw 307:*:set -u10 %whoisreg Yes | halt 
raw 328:*:set -u10 %whoisIP $7- | halt
raw 318:*:{ whoisdisplay }
alias whoisdisplay {
  if (%nothere != Yup) {
    echo -a           12Whois 12on 12 $+ %whoisnick $+ 
    if (%whoisname != $null) { whoisecho Name: %whoisname }
    if (%whoisaddress != $null) { whoisecho Address: %whoisaddress }
    if (%whoisIP != $null) { whoisecho IP $+ $chr(160) $+ Address: %whoisIP }
    if (%whoischannels != $null) { whoisecho Channels: %whoischannels1 }
    else { whoisecho Channels: None }
    whoisecho Origin: %origin
    if (%whoisserver != $null) { whoisecho Server: %whoisserver }
    if (%whoisserverinfo != $null) whoisecho Server $+ $chr(160) $+ Info: %whoisserverinfo
    if (%whoisaway != $null) { whoisecho Away: %whoisaway }
    else { whoisecho Away: User is not away }
    if (%whoisidle != $null) { whoisecho Idletime: %whoisidle }
    if (%whoisircop != $null) { whoisecho Status: %whoisircop %whoishelp $whm }
    elseif (%whoisagent != $null) { whoisecho Status: Conference Room Server Agent (bot) }
    elseif (%whoisbot != $null) { whoisecho Status: Channel Bot on %whoisbotinf }
    else { whoisecho Status: Normal User $whm }
    if (%whoislang != $null) { whoisecho Language: %whoislang }
    if (%whoisjava != $null) { whoisecho Java $+ $chr(160) $+ User: %whoisjava } 
    if (%whoisears != $null) { whoisecho Profanity $+ $chr(160) $+ Filter: ON  }
    if (%whoisreg != $null) { whoisecho Registered $+ $chr(160) $+ Nick: %whoisreg }
    //echo -a 12End of Whois on %whoisnick $+ 4
    disable #whois 
    unset %nothere
    unset %whois*
    unset %origin
    unset %coun
    halt
  }
  else { unset %nothere | disable #whois | halt }
}
#whois end
alias chanfix { 
  set %whoischannels $1- 
  %whoischannels = $replace(%whoischannels,-#,x#)
  %whoischannels = $replace(%whoischannels,-@#,x12@#)
  %whoischannels = $replace(%whoischannels,-+#,x3+#)
  %whoischannels = $replace(%whoischannels,@#,12@#)
  %whoischannels = $replace(%whoischannels,+#,3+#)
}
alias coun {
  if (*.uk iswm $1 ) { set -u10 %coun United Kingdom | goto end }
  if (*.* [ $+  [ $chr(42) ] ] iswm $1 ) { set -u10 %coun Not Available }
  else set -u10 %origin Not Available
  :end
  return %coun
}
alias nc { set -u10 %origin $coun($1) }

I found a little error when whoising yourself. It floods you. I am sure someone can fix it for you. grin