From 1e348a0ad2093411b30d89b243cdabb36a4843ab Mon Sep 17 00:00:00 2001 From: Julien Dessaux Date: Sun, 15 May 2011 13:49:28 +0200 Subject: Removed the most ugly ducks. --- Hsbot/Plugin/Duck.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'Hsbot/Plugin/Duck.hs') diff --git a/Hsbot/Plugin/Duck.hs b/Hsbot/Plugin/Duck.hs index 0cdb85c..7001465 100644 --- a/Hsbot/Plugin/Duck.hs +++ b/Hsbot/Plugin/Duck.hs @@ -147,13 +147,11 @@ someRandomDuck = do -- | There are many ways to hide as a duck, this function tries to cover most of them ducks :: [String] -ducks = [ x : y : z | x <- nose, y <- face, z <- ["__/", "_/", "/"] ] - ++ [ L.reverse $ x : y : z | x <- nose, y <- face, z <- ["__\\", "_\\", "\\"] ] +ducks = [ x : y : z | x <- ">=", y <- face, z <- ["__/", "_/"] ] + ++ [ L.reverse $ x : y : z | x <- "<=", y <- face, z <- ["__\\", "_\\"] ] where - nose :: String - nose = "<>=" face :: String - face = "oO°@©®ð*òôóø" + face = "oO°@©®ð*òôóø⊕Ω" -- | Weapons can have different noises bangs :: [String] -- cgit v1.2.3