adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Removed the most ugly ducks.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-15 13:49:28 +02:00
parent 352887b330
commit 1e348a0ad2
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Hsbot/Plugin/Duck.hs
View file

@ -147,13 +147,11 @@ someRandomDuck = do
-- | There are many ways to hide as a duck, this function tries to cover most of them -- | There are many ways to hide as a duck, this function tries to cover most of them
ducks :: [String] ducks :: [String]
ducks = [ x : y : z | x <- nose, y <- face, z <- ["__/", "_/", "/"] ] ducks = [ x : y : z | x <- ">=", y <- face, z <- ["__/", "_/"] ]
++ [ L.reverse $ x : y : z | x <- nose, y <- face, z <- ["__\\", "_\\", "\\"] ] ++ [ L.reverse $ x : y : z | x <- "<=", y <- face, z <- ["__\\", "_\\"] ]
where where
nose :: String
nose = "<>="
face :: String face :: String
face = "oO°@©®ð*òôóø" face = "oO°@©®ð*òôóø⊕Ω"
-- | Weapons can have different noises -- | Weapons can have different noises
bangs :: [String] bangs :: [String]