on *:TEXT:?spellcheck*:#:{
  inc %y 1
  set %ssearch [ $+ [ %y ] ] $replace($2-,$chr(32),+)
  set -u60 %schan [ $+ [ %y ] ] $chan
  set -u60 %snick [ $+ [ %y ] ] $nick
  set -u60 %smsg [ $+ [ %y ] ] $iif($left($1,1) == @,msg %schan [ $+ [ %y ] ],notice %snick [ $+ [ %y ] ])
  sockopen $+(s,%y) spellcheck.net 80
}

on *:SOCKOPEN:s*:{
  sockwrite -nt $sockname GET /cgi-bin/spell.exe?action=CHECKWORD&string= $+ %ssearch [ $+ [ %y ] ] HTTP/1.1
  sockwrite -nt $sockname Host: spellcheck.net 
  sockwrite -nt $sockname $ctrlf
}

on *:SOCKREAD:s*:{
  var %s.read
  sockread %s.read
  if ($sockerr) %smsg [ $+ [ %y ] ] 14SOCKET ERROR! 
  if (<br> isin %s.read) {
    %k = $replace($remove($htmlfree(%s.read),Enter a single word to SpellCheck:,SpellCheck.net,&copy; MotionNET.com),",')
    %smsg [ $+ [ %y ] ] %k
  } 
}

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