alias -l solve { if (!$sock(anagram)) { sockopen anagram www.ssynth.co.uk 80 | sockmark anagram $replace($1-,$chr(32),$chr(43)) } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }
dialog anagram {
  title "Anagram Solver"
  size -1 -1 100 122
  option dbu
  edit "", 1, 10 11 79 10, autohs
  box "Anagram:", 2, 6 4 87 20
  list 3, 12 34 75 61, size
  box "Possible Words:", 4, 6 26 87 75
  button "Solve!", 5, 12 106 37 12
  button "Close", 6, 52 106 37 12
}
alias anagram dialog $iif($dialog(anagram),-v,-m) anagram anagram
menu * {
  Anagram Solver : anagram
}
on *:dialog:anagram:*:*: { if ($devent == sclick) { if ($did == 5) { did -b $dname 5 | solve $did(1) } | if ($did == 6) { dialog -x $dname $dname | unset %anagram* } } | if ($devent == edit) && ($did == 1) { did $iif($did(1).text,-e,-b) $dname 5 | did -r $dname 3 } }
on *:sockopen:anagram: { sockwrite -n $sockname GET http://www.ssynth.co.uk/~gay/cgi-bin/nph-an?line= $+ $sock($sockname).mark $+ &words=1&dict=antworth&doai=on HTTP/1.0 | sockwrite -n $sockname Host: www.ssynth.co.uk $+ $crlf $+ $crlf }
on *:sockread:anagram: { if ($sockerr) { echo -a * There was a problem retrieving data from the website. Please try again. } | else { window -h @anahide | sockread %anagram | if (<pre> isin %anagram) { while (</pre> !isin %anagram) { didtok anagram 3 32 $htmlfree(%anagram) | echo @anahide $htmlfree(%anagram) | sockread %anagram } } } | window -C @anahide }
on *:sockclose:anagram: { if ($dialog(anagram)) { did -e anagram 1 } }

Commenting Options