By Kirby on Dec 22, 2008Another little dialog for solving scrambled text.
To launch it, either type in /anagram or right-click a window and hit 'Anagram Solver'.
Type in a word (as shown below) into the edit box, and hit 'Solve!' to unscramble the text.
All possible results will be listed in the list box.
Scrambled text can be left separated, for example, T A E, instead of TAE.
Here's a picture:
Enjoy! :D
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, ) | 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 } }
