http://slupup.100webspace.net/spellchecker.php?spell=tst
on *:TEXT:?Spellcheck *:#:{
  set $+(%,ch,.,$nick,.,dest) $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick))
  set $+(%,ch,.,$nick,.,lookup) $2
  sockopen $+(ch,.,$nick) slupup.100webspace.net 80
}
on *:SOCKOPEN:ch.*:{ 
  sockwrite -n $sockname GET /spellchecker.php?spell= $+ $($+(%,$sockname,.,lookup),2)  HTTP/1.1
  sockwrite -n $sockname Host: slupup.100webspace.net $+ $crlf $+ $crlf
} 
on *:SOCKREAD:ch.*:{ 
  var $+(%,$sockname,.,result) | sockread -f $+(%,$sockname,.,result)
  if ($+(<!-- END RSI BANNER --><b>,",$($+(%,$sockname,.,lookup),2),") is spelled correctly. == $($+(%,$sockname,.,result),2)) {
    $($+(%,$sockname,.,dest),2) " $+ $($+(%,$sockname,.,lookup),2) $+ " is spelled correctly.
    sockclose $sockname
    unset $+(%,$sockname,.,*)
    halt
  }
  if (on == $($+(%,$sockname,.,goahead),2)) { 
    if ($($+(%,$sockname,.,click),2) >= 1) { inc $+(%,$sockname,.,click) 1 | set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $htmlfree($($+(%,$sockname,.,result),2)) } 
  }
  if (*Some Suggestions:* iswm $($+(%,$sockname,.,result),2)) {
    set $+(%,$sockname,.,goahead) on
    set $+(%,$sockname,.,temp) $gettok($htmlfree($($+(%,$sockname,.,result),2)),2,58)
    set $+(%,$sockname,.,click) 1
  }
}
on *:SOCKCLOSE:ch.*:{
  $($+(%,$sockname,.,dest),2) Reccommended Spellings: $($+(%,$sockname,.,temp),2)
  unset $+(%,$sockname,.,*)
}