Anonymous

on *:SOCKREAD:spelling.*: {
  var %d, %link, %info
  sockread %d
  if (%d == $null) { return }
  if (<h2 style="margin-bottom: 2em;">*entr*found for <i>*</i>.</h2> iswm %d) { 
    if ($gettok($gettok(%d,3,32),2,62) isnum) {
      msg %spell.chan " $+ $remove($sockname,spelling.) $+ " is spelled Correctly 
    }
    elseif ($gettok($gettok(%d,3,32),2,62) == No) { 
      if (<p>Did you mean <a href="*">*</a>?</p>* iswm %d) if ($regex(%d,/Did\syou\smean\s\<a[^\>]*\>([^\<]*)\<\/a\>/))  msg %spell.chan " $+ $remove($sockname,spelling.) $+ " is spelled Incorrectly.  Did you mean: $regml(1) $+ ?
      else {
        msg %spell.chan " $+ $remove($sockname,spelling.) $+ " is spelled Incorrectly.
      }
    }
  }
}