jeena/cnb
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

added sanitazion of words

Browse source
This commit is contained in:
Jeena Paradies 2011-06-28 13:56:41 +02:00
parent 5ec9540d3c
commit 0a3308487b
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
cnb.hs
View file

@ -2,6 +2,7 @@ import Network
import System.IO import System.IO
import Text.Printf import Text.Printf
import Data.List import Data.List
import Data.Char
import System.Exit import System.Exit
import Control.Monad.State import Control.Monad.State
import Text.Regex.Posix import Text.Regex.Posix
@ -153,7 +154,13 @@ action "cleanup" (Message n _ _) = cleanup n
action s (Message n _ _) = do action s (Message n _ _) = do
case (length s) of case (length s) of
0 -> privmsg "What?!" 0 -> privmsg "What?!"
_ -> privmsg ("Fuck you " ++ n ++ "! " ++ s ++ " your self!") _ -> privmsg ("Fuck you " ++ n ++ "! " ++
sanit (capitalize s) ++ " yourself!")
where
capitalize (x:xs) = toUpper x : xs
sanit xs = case [(last xs)] `isInfixOf` ".:!?" of
True -> take (length xs - 1) xs
False -> xs
rest :: String -> String -> String rest :: String -> String -> String
rest k s = drop (length k + 1) s rest k s = drop (length k + 1) s
@ -234,7 +241,7 @@ startStore = [
("^jump$", "The quick brown clynx jumps over the lazy oak."), ("^jump$", "The quick brown clynx jumps over the lazy oak."),
("^ok$", "ok"), ("^ok$", "ok"),
("(J|j)eena,? arbeitest du", "Jeena, sag doch mal."), ("(J|j)eena,? arbeitest du", "Jeena, sag doch mal."),
(nick, "Keine ungefragten queries!"), -- (nick, "Keine ungefragten queries!"),
("(php|PHP)", "'PHP' <- Ha ha!</nelson>"), ("(php|PHP)", "'PHP' <- Ha ha!</nelson>"),
("(E|e)rlang", "Oh yeah!"), ("(E|e)rlang", "Oh yeah!"),
("(H|h)askell", "Ich bin in Haskell geschrieben."), ("(H|h)askell", "Ich bin in Haskell geschrieben."),