on $*:TEXT:/^[!@](spell|check)/Si:#:{ 
  if (!$2) { notice $nick I need something to spell first! | halt }
  if (*$* iswm $1-) { notice $nick "$" is an invalid letter. | halt }
  inc %spell
  set $+(%,spelloutput,%spell) $iif($left($1,1) = @, msg $chan, notice $nick) 
  set $+(%,spellsearch,%spell) $2
  sockopen $+(spell.,%spell) www.o-ss.net 80
}
on *:SOCKOPEN:spell.*:{ 
  sockwrite -nt $sockname GET /parsers/spell.php?word= $+ $eval($+(%,spellsearch,$Gettok($sockname,2,46)),2) HTTP/1.1 
  sockwrite -nt $sockname Host: www.o-ss.net 
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:spell.*:{
  var %spellread
  sockread %spellread
  if (*no suggestions* iswm %spellread) {
    $eval($+(%,spelloutput,$gettok($sockname,2,46)),2) 14Word not found.
    unset $+(%,spell*,$gettok($sockname,2,46))
    sockclose $sockname
    halt
  }
  if (*[SPELL]* iswm %spellread) {
    tokenize 32 %spellread
    if (*word is correct* iswm $1-) {
      $eval($+(%,spelloutput,$gettok($sockname,2,46)),2) 14The word7 $eval($+(%,spellsearch,$Gettok($sockname,2,46)),2) 14is spelled correctly!
      unset $+(%,spell*,$Gettok($sockname,2,46))
      sockclose $sockname
      halt
    }
    else {
      set %spellvar [ $+ [ $gettok($sockname,2,46) ] ] %spellvar [ $+ [ $gettok($sockname,2,46) ] ] $remove(%spellread,[SPELL])
      $eval($+(%,spelloutput,$gettok($sockname,2,46)),2) 14The word7 $eval($+(%,spellsearch,$Gettok($sockname,2,46)),2) 14is spelled wrong! Suggestion:7 %spellvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset $+(%,spell*,$gettok($sockname,2,46)) 
      sockclose $sockname
    }
  }
}