diff options
| author | Julien Dessaux | 2011-05-15 13:49:28 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-15 13:49:28 +0200 |
| commit | 1e348a0ad2093411b30d89b243cdabb36a4843ab (patch) | |
| tree | 6d73a11403db955b562a6b8862e34638606a8ebf | |
| parent | Allow to change ducks' spawning frequency. (diff) | |
| download | hsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.tar.gz hsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.tar.bz2 hsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.zip | |
Removed the most ugly ducks.
| -rw-r--r-- | Hsbot/Plugin/Duck.hs | 8 |
1 files changed, 3 insertions, 5 deletions
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] |