Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ############################################################
- ## 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
- }
Add Comment
Please, Sign In to add comment