on $*:TEXT:/^[!@]define */Si:#:{
  set %msg $iif(!* iswm $1-,notice $nick,msg $chan)
  set %nick $nick
  set %chan $chan
  sockopen define o-ss.net 80
}

on *:SOCKOPEN:define:{
  sockwrite -n $sockname GET /parsers/define.php?word= $+ $2 HHTP/1.1
  sockwrite -n $sockname Host: o-ss.net $+ $crlf $+ $crlf
}

on *:Sockread:define:{
  if ($sockerr) {
    echo -a Error
    halt
  }
  else {
    var %define
    sockread %define
    if ([DEFINE]*[END]* iswm %define) {
      %msg $htmlfree(%define)
    }
  }
}


alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}