Someone

on *:INPUT:*:{ 
  if (%banner.mode [ $+ [ $active ] ] == on) { halt }
  if ($1- == /bm off) { halt }
  if ($regex($left($1,1),/^[.@!]$/Si)) { msg $active $1- | halt }
  if (/* iswm $1) { $($1-,2) | halt }
  if ($1 == xD) || ($1 == o.O) { msg $active $$1- $+ . | halt }
  msg $active $regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($1-,/^(.)/,$upper(\1)),/(.)$/,$iif($regex(\1,/\W/),\1,\1.)),/\b(?:(i)'?(ve|m))\b/ig,$+($upper(\1),',\2)),/(?:([!?\.])\s(\w))/ig,$+(\1,$chr(32),$upper(\2))),/\b(?:(hav)(nt)|(you)(ve|re|ll)|(doesn)(t)|(should)(ve)|(couldn)(t)|(could)(ve)|(can)(t)|(shouldn)(t))\b/ig,\1'\2),/\b(i)\b/g,$upper(\1))
  halt 
}