noticeblocker

on ^*:NOTICE:*:?: {
  if ($nick == NickServ || $nick == ChanServ || $nick == BotServ) { halt }
  .write notice. $+ $nick $+ .txt $timestamp $+ $nick - $1-
  .ignore $address($nick,1)
  .set %whoising %whoising $nick
  .enable noticeblock
  .whois $nick
}
#noticeblock off
raw *:*: {
  if ($2 !isin %whoising) { halt }
  if ($numeric == 313) {
    .set %whoising $remove(%whoising,$2)
    if (!$window(@notice)) { .window @notice }
    var %a = 1,%nick = $($+(notice.,$2,.txt),2)
    while (%a <= $lines(%nick)) {
      echo @notice $read(%nick,%a)
      inc %a
    }
    .remove %nick
    .ignore -r $address($2,1)
  }
  .disable noticeblock
}
#noticeblock end