Untitled

alias c1 { return 12 $+( $1-,) }
alias c2 { return 4 $+( $1-,) }

on $*:TEXT:/^[!@]news/Si:#:{


  inc %ID
  if ($len($2-) > 12) {
    $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
    cleanup %ID
    halt
  }
  elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
  else set $+(%,stats.rsn.,%ID) $nick

  set $+(%,stats.style.,%ID) %style
  set $+(%,stats.skill.,%ID) %skill
  set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen $+(stats.,%ID) http://www.runescape.com/css/main/title-3.css 80
}


}}
cleanup %id
}}

alias -l cleanup {
  unset $+(%,News.*.,$1)
  sockclose $+(News.,$1)
  .remove $+(News.,$1)
}




alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
elseif ($ == ) || ($regex($1,/^at(t|k|tack)$/Si)) return NEWS FOR $DATE IS $2
}}