############################################################
##      Anagram Solver Script           ##
##       Version: 1.0              ##
##       By: manish               ##
##       irc.lunarirc.net   #LunarIRC     Talk with me : User - manish    ##
############################################################


alias anagram {
  set %nick $me 
  set %ana 0
  sockclose Anagram
  set %hi 0
  set %a The possible results of your anagram are:-
  set %AnagramURL /anagram/anagram.cgi?anagram= $+ $1 $+ &t=1000&a=n
  sockopen Anagram www.wordsmith.org 80
}
on *:SOCKOPEN:Anagram: {
  sockwrite -n Anagram GET %AnagramURL HTTP/1.1
  sockwrite -n Anagram Host: www.wordsmith.org
  sockwrite Anagram $crlf
}
on *:SOCKREAD:Anagram: {
  sockread %Anagram
  while ($sockbr) {
    if (Displaying isin %Anagram) {
      set %hi 1
    }
    elseif (No anagrams found. isin %Anagram) { 
    notice %nick 14No anagrams found! }
    elseif ( %hi > 0 ) && ( %hi <= 15 ) && (<br> isin %Anagram) {
      if (<p><br> isin %anagram) { 
        notice %nick 7 Showing $numtok(%a,47) possible answers.
        notice %nick 9 %a
        notice %nick An Anagram script by manish...
      }
      if (<a href="contribute.html">Contribute</a> isin %anagram) {
      return }
      if ( %hi == 1 ) { 
        set %wor $mid(%anagram,9)
        set %word $left(%wor,-4)
        %a = $addtok(%a,%word,32) 

      }
      elseif ( %hi > 1) {
        set %word $left(%anagram,-4)
        %a = $addtok(%a,%word,47) 
      }
      inc %hi
    }
    elseif ( %hi == 16 ) { 
      notice %nick 7 Showing $numtok(%a,47) (limit on answers is 15 ) possible answers of the anagram...
      notice %nick 9 %a
      inc %hi
    }
    sockread %Anagram
  }
}
on $*:TEXT:/^!anagram (\S+)$/i:#: {

   set %ana 0
  sockclose Anagram
  set %nick $nick
  set %hi 0
  set %a The possible results of your anagram are:-
  set %AnagramURL /anagram/anagram.cgi?anagram= $+ $regml(1)$+ &t=1000&a=n
  sockopen Anagram www.wordsmith.org 80
}