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

minor changes to the list

Browse source
This commit is contained in:
Jeena Paradies 2011-06-28 10:10:20 +02:00
parent 5a3f9ae602
commit 5ec9540d3c
1 changed files with 26 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

36
cnb.hs
View file

@ -7,11 +7,11 @@ import Control.Monad.State
import Text.Regex.Posix import Text.Regex.Posix
import Data.Char (isSpace) import Data.Char (isSpace)
server = "irc.freenode.net" server = "irc.epd-me.net"
port = 6667 port = 6667
chan = "#monaden" chan = "#selfhtml"
nick = "cnbot" nick = "anna"
rname = "clynx Nerv-Bot" rname = "Boten Anna"
type Nick = String type Nick = String
data Type = Kick | Invite | Privmsg | Unknown data Type = Kick | Invite | Privmsg | Unknown
@ -100,7 +100,7 @@ listen = forever $ do
if ping s if ping s
then pong s then pong s
else do eval (parse s) else do eval (parse s)
liftIO $ putStrLn s -- liftIO $ putStrLn s
return () return ()
where where
forever a = a >> forever a forever a = a >> forever a
@ -149,11 +149,11 @@ action "implode" (Message n _ _) = do
action "explode" (Message n _ _) = do action "explode" (Message n _ _) = do
leave ("KaaboooOOOOOooooommm ...") leave ("KaaboooOOOOOooooommm ...")
action "help" (Message n _ _) = help n action "help" (Message n _ _) = help n
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 (n ++ " is boooring! What the fuck do you want me to do with " _ -> privmsg ("Fuck you " ++ n ++ "! " ++ s ++ " your self!")
++ (show s) ++ "?")
rest :: String -> String -> String rest :: String -> String -> String
rest k s = drop (length k + 1) s rest k s = drop (length k + 1) s
@ -218,13 +218,29 @@ help n = do
msg (" " ++ nick ++ ": add regex~value -> adds a value for a regex") n msg (" " ++ nick ++ ": add regex~value -> adds a value for a regex") n
msg (" " ++ nick ++ ": delete regex -> deletes the regex-value pair") n msg (" " ++ nick ++ ": delete regex -> deletes the regex-value pair") n
msg (" " ++ nick ++ ": list -> lists all available regex-value pairs") n msg (" " ++ nick ++ ": list -> lists all available regex-value pairs") n
msg (" " ++ nick ++ ": cleanup -> restores the list to the default") n
msg (" " ++ nick ++ ": leave -> bot leaves the chanel") n msg (" " ++ nick ++ ": leave -> bot leaves the chanel") n
msg (" " ++ nick ++ ": explode -> bot leaves the chanel") n msg (" " ++ nick ++ ": explode -> bot leaves the chanel") n
msg (" " ++ nick ++ ": implode -> bot leaves the chanel") n msg (" " ++ nick ++ ": implode -> bot leaves the chanel") n
msg (" /invite " ++ nick ++ " " ++ chan ++ " -> invites the bot back to the chanel") n msg (" /invite " ++ nick ++ " " ++ chan ++ " -> invites the bot back to the chanel") n
cleanup :: Nick -> MyStateM ()
cleanup n = do
putStore startStore
privmsg "Ok, I've cleaned up the bloody list."
startStore :: Store startStore :: Store
startStore = [ startStore = [
("jump", "The quick brown clynx jumps over the lazy oak.") ("^jump$", "The quick brown clynx jumps over the lazy oak."),
] ("^ok$", "ok"),
("(J|j)eena,? arbeitest du", "Jeena, sag doch mal."),
(nick, "Keine ungefragten queries!"),
("(php|PHP)", "'PHP' <- Ha ha!</nelson>"),
("(E|e)rlang", "Oh yeah!"),
("(H|h)askell", "Ich bin in Haskell geschrieben."),
("danke", "np"),
("^np$", "schmück dich nicht mit fremden Federn."),
("^hehe$", "was gibt es da zu lachen?")
]
-- ü