Stuff

on $*:TEXT:$(/^(\Q $+ $me $+ \E,? )?[!@.]define/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    var %i = $rand(10000,99999)
    set -u10 %define.display. $+ %i $&
      $iif($left($iif($remove($1,$chr(44)) == $me,$iif($nick ison $.chan,$2),$1),1) == @,$iif($remove($1,$chr(44)) != $me && $readini(Status2.ini,$network,$chan),.notice $nick,msg $chan),.notice $nick)
    if ($chr(42) !isin $2-) {
      set -u10 %word. $+ %i $+ . $+ 1 $iif($remove($1,$chr(44)) == $me,$3,$2) 
      sockopen define. $+ %i $+ . $+ 1 o-ss.net 80
    }
    Else {
      var %z = 1
      while (%z <= $calc($count($1-,$chr(42)) +1)) {
        if (%z > 3) {
          ;$($+(%,define,.,display,.,%i),2) $c1(Sorry you can only look up a max of) $c2(3) $c1(items at a time)
          var %z = $calc($count($1-,$chr(42)) +2)
        }
        else {
          set -u10 %word. $+ %i $+ . $+ %z $gettok($iif($remove($1,$chr(44)) == $me,$3-,$2-),%z,42)
          sockopen define. $+ %i $+ . $+ %z o-ss.net 80
          inc %z
        }
      }
    }
  }
}
on *:SOCKOPEN:Define*: {
  Sockwrite -nt $sockname GET /parsers/define.php?word= $+ $($+(%,Word,.,$gettok($sockname,2,46),.,$gettok($sockname,3,46)),2) HTTP/1.1 
  Sockwrite -nt $sockname Host: o-ss.net
  Sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Define*: {
  var %sockread
  sockread %sockread
  if (*end* iswm %sockread) {
    $($+(%,define,.,display,.,$gettok($sockname,2,46)),2) $c1(Sorry no results for) $c2($($+(%,Word,.,$gettok($sockname,2,46),.,$gettok($sockname,3,46)),2)) $c1(were found.)
  }
  Elseif (*[DEFINE]* iswm %sockread) {
    $($+(%,define,.,display,.,$gettok($sockname,2,46)),2) $c1(Definition of) $c2($($+(%,Word,.,$gettok($sockname,2,46),.,$gettok($sockname,3,46)),2)) $+ $c1(:) $gettok(%sockread,2-,32)
    sockclose $sockname
  }
}