added implode and explode

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