Anagram Script For A Bot

on $*:TEXT:/^[~`!@^&.]anagram ./i:*: {
  sockclose Anagram
  set %Anagram# $iif($chan,$chan,$nick)
  set %AnagramURL /anagram/anagram.cgi?anagram= $+ $left($regsubex($2-,/[^a-z]+/ig,),30) $+ &language=english-obscure&source=adv&a=n&l=n&q=n&k=1
  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 (*<br> iswm %Anagram) {
      set %Anagram~ $iif(%Anagram~,%Anagram~ -) $regsubex(%Anagram,/(<.+?>)+/g,)
    }
    elseif (<bottomlinks> isin %Anagram) || (No anagrams found. isin %Anagram) || ($len(%Anagram~) > 500) {
      msg %Anagram# $iif(%Anagram~,$regsubex(%Anagram~,/\./g,. $+ $chr(32)),No Anagrams)
      unset %Anagram*
      sockclose Anagram
      return
    }
    sockread %Anagram
  }
}