Miscellany

on *:Join:#CHANNEL: {
  .whois $nick 
  set -u10 %whois. [ $+ [ $nick ] ] $chan
}
alias addchan {
  var %chan = $iif($left($1,1) != $chr(35),$chr(35)) $+ $1
  writeini BadChans.ini Chans %chan %chan
  echo -a 4» %chan added to blacklist.
}
alias addnick {
  echo -a 4» Added $1 $+ $iif($address($1,2),$chr(40) $+ $address($1,2) $+ $chr(41)) to the excepts list.
  writeini BadChans.ini Except $address($1,2) $address($1,2)
}
alias whoisnumerics return 301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671|536
raw *:*: { 
  if (%nickname) halt
  if ($istok($whoisnumerics,$numeric,124)) haltdef
  if ($numeric == 311) {
    set -u10 %nick $2
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 15-----14<15whois14>15---------------------------- 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Nick: $2 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Real Name: $6- 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Hostmask: $3 $+ 4 $+ @ $+ 07 $+ $4
  }
  elseif ($numeric == 301) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Away: Yes: ( $+ $3- $+ ) 
  elseif ($numeric == 307) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Registered Nickname: Yes.
  elseif ($numeric == 310) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1IRC Helper: Yes.
  elseif ($numeric == 312) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Server: $3 
  elseif ($numeric == 313) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Network Functions: $5-9
  elseif ($numeric == 314) {
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 15-----14<15whowas14>15---------------------------- 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Nick: $2 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Name: $6- 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Hostmask: $3 $+ 4 $+ @ $+ $4 
  }
  elseif ($numeric == 317) {
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss) 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Time idle: $duration($3) 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Time online: $duration($calc($ctime - $4)) 
  }
  elseif ($numeric == 318) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 15-----14<15/whois14>15--------------------------- 
  elseif ($numeric == 319) {
    if (%whois. [ $+ [ $2 ] ]) {
      var %nick = $2
      echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Channels: $3-
      if ($readini(BadChans.ini,Except,$address(%nick,2))) {
        echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» %nick is on the 1excepts list.
        halt
      }
      tokenize 32 $remove($3-,@,%,+)
      var %x = 1
      while ($($+($,%x),2)) {
        var %token = $v1
        if ($readini(BadChans.ini,Chans,%token)) {
          ban -k %whois. [ $+ [ %nick ] ] %nick 2 Your not allowed to be on the channel $qt(%token) $+ .
          break
        }
        inc %x
      }
    }
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 
  }
  elseif ($numeric == 320) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Swhois: $2- 
  elseif ($numeric == 330) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Authname: $3 
  elseif ($numeric == 335) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Bot: Yes
  elseif ($numeric == 338) {
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Real Hostmask: $3 
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Real IP: $4 
  }
  elseif ($numeric == 369) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 15-----14<15/whowas14>15--------------------------- 
  elseif ($numeric == 378) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Connecting from: $6-  
  elseif ($numeric == 379) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Modes: $6-
  elseif ($numeric == 401) {
    echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1The nickname " $+ $2 $+ " is 4NOT 4online!
    set %nick no
  }
  elseif ($numeric == 406) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1The nickname " $+ $2 $+ " has 4NOT 4been online recently.
  elseif ($numeric == 671) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Secure Connection: Yes
  elseif ($numeric == 536) echo -mbflirtc norm %whois. [ $+ [ %nick ] ] 4» 1Filtering messages: Yes
}