summaryrefslogtreecommitdiff
path: root/Hsbot
diff options
context:
space:
mode:
authorJulien Dessaux2011-05-15 13:49:28 +0200
committerJulien Dessaux2011-05-15 13:49:28 +0200
commit1e348a0ad2093411b30d89b243cdabb36a4843ab (patch)
tree6d73a11403db955b562a6b8862e34638606a8ebf /Hsbot
parentAllow to change ducks' spawning frequency. (diff)
downloadhsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.tar.gz
hsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.tar.bz2
hsbot-1e348a0ad2093411b30d89b243cdabb36a4843ab.zip
Removed the most ugly ducks.
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Duck.hs8
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]