From 195713ebddb53339c7cf8e8bbd0b2aaee6a61459 Mon Sep 17 00:00:00 2001 From: Jeena Paradies Date: Mon, 27 Jun 2011 23:12:40 +0200 Subject: [PATCH] added implode and explode --- cnb.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cnb.hs b/cnb.hs index e0f866d..a01276b 100644 --- a/cnb.hs +++ b/cnb.hs @@ -144,6 +144,10 @@ action "list" (Message n _ _) = do return () action "leave" (Message n _ _) = do leave ("Fuck you " ++ n ++ ", I'm quitting!") +action "implode" (Message n _ _) = do + leave ("whoooooooshhhhh ...") +action "explode" (Message n _ _) = do + leave ("KaaboooOOOOOooooommm ...") action "help" (Message n _ _) = help n action s (Message n _ _) = do case (length s) of @@ -151,7 +155,6 @@ action s (Message n _ _) = do _ -> privmsg (n ++ " is boooring! What the fuck do you want me to do with " ++ (show s) ++ "?") - rest :: String -> String -> String rest k s = drop (length k + 1) s