on *:text:*:#: { if (!$($+(%,worddef,.,$nick),2) && $regex($strip($1),/^[!.]d(ef)?$/i) && $2) { set -u4 $+(%,worddef,.,$nick) on | if ($sock(def)) .sockclose def | unset %def.* | set %def.chan $iif($left($strip($1),1) = .,$nick,$chan) | set %def.msg $iif($left($strip($1),1) = .,.notice,msg) | set %def.word $replace($2-,$chr(32),$+(%,2520)) | sockopen def encarta.msn.com 80 } }
alias -l xz { var %b,%p | %p = $regsub($1-,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%b) | %b = $remove(%b,&#63485;,&#63507;,&nbsp;,&#63484;,$chr(9)) | return %b }
on *:SOCKOPEN:def: {
  sockwrite -nt $sockname GET $+(/dictionary_/,%def.word,.html) HTTP/1.1
  sockwrite -nt $sockname Host: encarta.msn.com
  sockwrite -nt $sockname $crlf
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Dictionary 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:SOCKREAD:def: {
  if ($sockerr) {
  .notice napa182 4Socket Error:14 $sockname }
  else {
    var %z
    sockread %z
    if (*<td class="NoResultsTitle">* iswm %z) { %def.msg %def.chan $+($chr(3),4,$chr(32),!!!,$xz(%z),!!!) | unset %def.* | .sockclose def }
    if (*<td align="left"><span class="NoResultsTitle">* iswm %z) { %def.msg %def.chan $+($chr(3),4,$chr(32),$gettok($xz(%z),1-4,32),$chr(32),$chr(3),14,$chr(32),$gettok($xz(%z),5-,32)) | unset %def.* | .sockclose def }
    if (*<td class="ResultBody">* iswm %z) { %def.msg %def.chan $+($chr(3),14,:,$chr(3),4,$chr(32),$replace(%def.word,$+(%,2520),$chr(32)),$chr(32),$chr(3),14,:,$chr(32),$xz(%z)) }
    if (%def.count == 3) { unset %def.* | .sockclose def }
    if (*<td><span class="ResultBodyBlack">* iswm %z) { inc %def.count | %def.msg %def.chan $+($chr(3),4,$chr(32),$gettok($xz(%z),1,32),$chr(3),14,$chr(32),$gettok($xz(%z),2-,32)) } 
  }
}