//////////////////////////////////////////////////////////////// // // COLORED SPEECH : // // This file manage commands "say" "sayteam" and add colors. // Use the keys "T" "Y" and "`" or "/" // New function : rainbowiz $text ; Return rainbowized string. // // //////////////////////////////////////////////////////////////// // // Made by [Fr]enchBadPunk - 2011 - Public Domain // //////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////// strsentence_uninstall = [ bind T "saycommand" bind Y "sayteamcommand" bind BACKQUOTE "saycommand /" bind SLASH "saycommand /" sayteamcommand = [inputcommand "" [sayteam $commandbuf] "[team]"] say_command = say_atall = say_toteam = strsentence = _sentence = rainbowiz = _rainbowiz_count = _rainbowiz_result = strsentence_uninstall = ] //////////////////////////////////////////////////////////////// bind BACKQUOTE "say_command" bind SLASH "say_command" bind T "say_atall" bind Y "say_toteam" say_command = [ inputcommand "/" (saycommand $commandbuf) "^f2Execute:" ] say_atall = [ inputcommand "^f0" [say (strsentence $commandbuf)] (? (=s (getname) "unnamed") "Say to all :" (format "%1%2" (getname) ":")) ] say_toteam = [ if (!=s (getteam) "") [ inputcommand "^f1" [sayteam (strsentence $commandbuf)] ( if (=s (getname) "unnamed") [ format "^f1Say at all my team ^"%1^" :" (getteam) ] [ format "^f1[%1]" (getteam) ] ) ] ] rainbowiz = [ if (> $numargs 0) [ _rainbowiz_result = "" loop _rainbowiz_count (strlen $arg1) [ _rainbowiz_result = (format "%1^f%2%3" $_rainbowiz_result (mod $_rainbowiz_count 8) (substr $arg1 $_rainbowiz_count 1)) ] result $_rainbowiz_result ( _rainbowiz_count = _rainbowiz_result = ) ] [ result "" ] ] strsentence = [ // $arg1 : the string to correct // Return the corrected string // Initialize : _sentence = $arg1 // Replacements of words : _sentence = (strreplace $_sentence "noob" "beginner") _sentence = (strreplace $_sentence "Noob" "beginner") _sentence = (strreplace $_sentence "NooB" "beginner") _sentence = (strreplace $_sentence "NOOB" "beginner") _sentence = (strreplace $_sentence "newbe" "beginner") _sentence = (strreplace $_sentence "Newbe" "beginner") _sentence = (strreplace $_sentence "NEWBE" "beginner") _sentence = (strreplace $_sentence "newbie" "beginner") _sentence = (strreplace $_sentence "Newbie" "beginner") _sentence = (strreplace $_sentence "NEWBIE" "beginner") _sentence = (strreplace $_sentence "newbi" "beginner") _sentence = (strreplace $_sentence "Newbi" "beginner") _sentence = (strreplace $_sentence "sry" "Sorry") _sentence = (strreplace $_sentence "Sry" "Sorry") _sentence = (strreplace $_sentence "SRY" "SORRY") _sentence = (strreplace $_sentence "gay" "heterosexual") _sentence = (strreplace $_sentence "Gay" "heterosexual") _sentence = (strreplace $_sentence "GAY" "heterosexual") _sentence = (strreplace $_sentence "su " "You have the right to speak. ") _sentence = (strreplace $_sentence "SU" "You have the right to speak.") _sentence = (strreplace $_sentence "stfu" "I don't listen you more.") _sentence = (strreplace $_sentence "Stfu" "I don't listen you more.") _sentence = (strreplace $_sentence "STFU" "I don't listen you more.") _sentence = (strreplace $_sentence "fuck" "love") _sentence = (strreplace $_sentence "Fuck" "love") _sentence = (strreplace $_sentence "FUCK" "love") _sentence = (strreplace $_sentence "F**k" "love") _sentence = (strreplace $_sentence "F***k" "love") _sentence = (strreplace $_sentence "f**k" "love") _sentence = (strreplace $_sentence "f***k" "love") _sentence = (strreplace $_sentence "F**K" "love") _sentence = (strreplace $_sentence "F***K" "love") _sentence = (strreplace $_sentence "f***" "love") _sentence = (strreplace $_sentence "F***" "love") _sentence = (strreplace $_sentence "fu" "love you") _sentence = (strreplace $_sentence "loveer" "lover") _sentence = (strreplace $_sentence "loveing" "loving") _sentence = (strreplace $_sentence "wtf" "What's happened !?") _sentence = (strreplace $_sentence "WTF" "What's happened !") _sentence = (strreplace $_sentence "plz" "please") _sentence = (strreplace $_sentence "Plz" "Please") _sentence = (strreplace $_sentence "PLZ" "Please") _sentence = (strreplace $_sentence " u " " you ") _sentence = (strreplace $_sentence " U " " you ") _sentence = (strreplace $_sentence "kk" "ok") _sentence = (strreplace $_sentence "Kk" "Ok") _sentence = (strreplace $_sentence "kK" "Ok") _sentence = (strreplace $_sentence "KK" "OK") _sentence = (strreplace $_sentence "np" "No problem") _sentence = (strreplace $_sentence "NP" "No problem") _sentence = (strreplace $_sentence "ns" "Nice shot !!!") _sentence = (strreplace $_sentence "NS" "Nice shot !!!") _sentence = (strreplace $_sentence "gg" "Good game") _sentence = (strreplace $_sentence "GG" "Good game") _sentence = (strreplace $_sentence "n1" "Nice one !") _sentence = (strreplace $_sentence "N1" "Nice one !") _sentence = (strreplace $_sentence "bastard" "stateless") _sentence = (strreplace $_sentence "Bastard" "stateless") _sentence = (strreplace $_sentence "BASTARD" "stateless") _sentence = (strreplace $_sentence "yo " "year old ") _sentence = (strreplace $_sentence " i " " I ") _sentence = (strreplace $_sentence "duel?" "do you want to duel with me ?") _sentence = (strreplace $_sentence "Duel?" "Do you want to duel with me ?") _sentence = (strreplace $_sentence "duel ?" "do you want to duel with me ?") _sentence = (strreplace $_sentence "Duel ?" "Do you want to duel with me ?") // Colours : _sentence = (strreplace $_sentence "{red}" "^f3") _sentence = (strreplace $_sentence "{Red}" "^f3") _sentence = (strreplace $_sentence "{RED}" "^f3") _sentence = (strreplace $_sentence "{or}" "^f6") _sentence = (strreplace $_sentence "{Or}" "^f6") _sentence = (strreplace $_sentence "{OR}" "^f6") _sentence = (strreplace $_sentence "{oran}" "^f6") _sentence = (strreplace $_sentence "{orange}" "^f6") _sentence = (strreplace $_sentence "{yel}" "^f2") _sentence = (strreplace $_sentence "{Yel}" "^f2") _sentence = (strreplace $_sentence "{YEL}" "^f2") _sentence = (strreplace $_sentence "{Yell}" "^f2") _sentence = (strreplace $_sentence "{yell}" "^f2") _sentence = (strreplace $_sentence "{yellow}" "^f2") _sentence = (strreplace $_sentence "{green}" "^f0") _sentence = (strreplace $_sentence "{Green}" "^f0") _sentence = (strreplace $_sentence "{GREEN}" "^f0") _sentence = (strreplace $_sentence "{blu}" "^f1") _sentence = (strreplace $_sentence "{blue}" "^f1") _sentence = (strreplace $_sentence "{Blue}" "^f1") _sentence = (strreplace $_sentence "{BLUE}" "^f1") _sentence = (strreplace $_sentence "{vio}" "^f5") _sentence = (strreplace $_sentence "{violet}" "^f5") _sentence = (strreplace $_sentence "{mag}" "^f5") _sentence = (strreplace $_sentence "{Mag}" "^f5") _sentence = (strreplace $_sentence "{maj}" "^f5") _sentence = (strreplace $_sentence "{Maj}" "^f5") _sentence = (strreplace $_sentence "{maganta}" "^f5") _sentence = (strreplace $_sentence "{Maganta}" "^f5") _sentence = (strreplace $_sentence "{magenta}" "^f5") _sentence = (strreplace $_sentence "{Magenta}" "^f5") _sentence = (strreplace $_sentence "{gry}" "^f4") _sentence = (strreplace $_sentence "{Gry}" "^f4") _sentence = (strreplace $_sentence "{GRY}" "^f4") _sentence = (strreplace $_sentence "{grey}" "^f4") _sentence = (strreplace $_sentence "{Grey}" "^f4") _sentence = (strreplace $_sentence "{GREY}" "^f4") _sentence = (strreplace $_sentence "{gray}" "^f4") _sentence = (strreplace $_sentence "{Gray}" "^f4") _sentence = (strreplace $_sentence "{GRAY}" "^f4") _sentence = (strreplace $_sentence "{blk}" "^f4") _sentence = (strreplace $_sentence "{Blk}" "^f4") _sentence = (strreplace $_sentence "{BLK}" "^f4") _sentence = (strreplace $_sentence "{black}" "^f4") _sentence = (strreplace $_sentence "{Black}" "^f4") _sentence = (strreplace $_sentence "{BLACK}" "^f4") _sentence = (strreplace $_sentence "{white}" "^f7") _sentence = (strreplace $_sentence "{White}" "^f7") _sentence = (strreplace $_sentence "{WHITE}" "^f7") _sentence = (strreplace $_sentence "{wh}" "^f7") _sentence = (strreplace $_sentence "{Wh}" "^f7") _sentence = (strreplace $_sentence "{gr}" "^f4") _sentence = (strreplace $_sentence "{gr}" "^f4") _sentence = (strreplace $_sentence "{GR}" "^f4") _sentence = (strreplace $_sentence "{Gr}" "^f4") _sentence = (strreplace $_sentence "{gR}" "^f4") _sentence = (strreplace $_sentence "{-1}" "^f4") _sentence = (strreplace $_sentence "{w}" "^f7") _sentence = (strreplace $_sentence "{W}" "^f7") _sentence = (strreplace $_sentence "{0}" "^f7") _sentence = (strreplace $_sentence "{r}" "^f3") _sentence = (strreplace $_sentence "{R}" "^f3") _sentence = (strreplace $_sentence "{1}" "^f3") _sentence = (strreplace $_sentence "{10}" "^f3") _sentence = (strreplace $_sentence "{1.0}" "^f3") _sentence = (strreplace $_sentence "{g}" "^f0") _sentence = (strreplace $_sentence "{G}" "^f0") _sentence = (strreplace $_sentence "{2}" "^f0") _sentence = (strreplace $_sentence "{b}" "^f1") _sentence = (strreplace $_sentence "{B}" "^f1") _sentence = (strreplace $_sentence "{3}" "^f1") _sentence = (strreplace $_sentence "{m}" "^f5") _sentence = (strreplace $_sentence "{v}" "^f5") _sentence = (strreplace $_sentence "{M}" "^f5") _sentence = (strreplace $_sentence "{V}" "^f5") _sentence = (strreplace $_sentence "{4}" "^f5") _sentence = (strreplace $_sentence "{y}" "^f2") _sentence = (strreplace $_sentence "{Y}" "^f2") _sentence = (strreplace $_sentence "{5}" "^f2") _sentence = (strreplace $_sentence "{12}" "^f2") _sentence = (strreplace $_sentence "{1.2}" "^f2") _sentence = (strreplace $_sentence "{o}" "^f6") _sentence = (strreplace $_sentence "{O}" "^f6") _sentence = (strreplace $_sentence "{6}" "^f6") _sentence = (strreplace $_sentence "{11}" "^f6") _sentence = (strreplace $_sentence "{1.1}" "^f6") // Punctuation : _sentence = (strreplace $_sentence ".." "...") _sentence = (strreplace $_sentence " ." ". ") _sentence = (strreplace $_sentence "!" " ! ") _sentence = (strreplace $_sentence "?" " ? ") _sentence = (strreplace $_sentence ":" " : ") _sentence = (strreplace $_sentence ",," ", ") _sentence = (strreplace $_sentence " ," ", ") _sentence = (strreplace $_sentence "," ", ") _sentence = (strreplace $_sentence ";" " ; ") // Correct mods : _sentence = (strreplace $_sentence " " " ") result $_sentence ]