Safe Haskell	Safe
Language	Haskell2010

Tile

Description

Module regarding graphic tiles. This module is meant to be used qualified. |

Synopsis

data Filepath = Filepath {
- root :: String
- fpX :: Int
- fpY :: Int
}
default24Filepath :: Filepath
default16Filepath :: Filepath
filepathToString :: Filepath -> String
data Tile
- = Abomination
- | Arrow
- | Assassin
- | AxeOfRage
- | BannerFeather
- | Bear
- | BeastmenDefender
- | BeastmenMinotaur
- | BeastmenSpearman
- | Beholder
- | BirdWhite
- | BlackAppears0
- | BlackAppears1
- | BlackAppears2
- | BlackAppears3
- | Blood0
- | Blood1
- | Blood2
- | Blood3
- | BloodDrop
- | Bones0
- | Bones1
- | Bones2
- | Bones3
- | Bones4
- | Bones5
- | Bones6
- | BowOfGaia
- | BowOfStrength
- | Chest
- | CloakOfGaia
- | Crown
- | CrushingMace
- | Daemon
- | DropBlue
- | EvilKnight
- | EvilTroll
- | EvilPriest
- | EvilSpearman
- | Explosion
- | FlailOfTheDamned
- | GreenPotion
- | Heart
- | HeartBroken
- | HumanArcher
- | HumanChurch
- | HumanGeneral
- | HumanKnight
- | HumanSpearman
- | HumanSwordsman
- | HuntingHorn
- | Loupe
- | Man
- | Ogre
- | Pandemonium
- | RedPotion
- | Shield
- | SkBanner
- | SkullRedEyes
- | SpikyMace
- | Squire
- | StrengthPot
- | Sword1
- | Sword2
- | Sword3
- | SylvanArcher
- | SylvanFalcon
- | SylvanFalconer
- | SylvanGuardian
- | SylvanPriest
- | SylvanSpearwoman
- | SylvanRanger
- | SylvanWorm
- | SwordOfBlood
- | Trebuchet
- | Tree
- | Troll
- | UndeadArcher
- | UndeadGhost
- | UndeadMummy
- | UndeadNecromancer
- | UndeadShade
- | UndeadSkeleton
- | UndeadSpecter
- | UndeadVampire
- | UndeadWarrior
- | WhiteAppears0
- | WhiteAppears1
- | WhiteAppears2
- | WhiteAppears3
- | WhiteAppears4
- | Wings
- | ZCaptain
- | ZKing
- | ZKnight
- | ZPriest
- | ZVeteran
all :: [Tile]
data TileUI = TileUI {
- filepath :: Filepath
- tile :: Tile
}
data Size
- = Sixteen
- | TwentyFour
sizeToNat :: Size -> Nat

Documentation

data Filepath #

Constructors

Filepath
Fields root :: String fpX :: Int fpY :: Int

Instances

Eq Filepath #
Instance details Defined in Tile Methods (==) :: Filepath -> Filepath -> Bool # (/=) :: Filepath -> Filepath -> Bool #
Ord Filepath #
Instance details Defined in Tile Methods compare :: Filepath -> Filepath -> Ordering # (<) :: Filepath -> Filepath -> Bool # (<=) :: Filepath -> Filepath -> Bool # (>) :: Filepath -> Filepath -> Bool # (>=) :: Filepath -> Filepath -> Bool # max :: Filepath -> Filepath -> Filepath # min :: Filepath -> Filepath -> Filepath #
Show Filepath #
Instance details Defined in Tile Methods showsPrec :: Int -> Filepath -> ShowS # show :: Filepath -> String # showList :: [Filepath] -> ShowS #
Generic Filepath #
Instance details Defined in Tile Associated Types type Rep Filepath :: Type -> Type # Methods from :: Filepath -> Rep Filepath x # to :: Rep Filepath x -> Filepath #
FromJSON Filepath #
Instance details Defined in Json Methods parseJSON :: Value -> Parser Filepath # parseJSONList :: Value -> Parser [Filepath] #
type Rep Filepath #
Instance details Defined in Tile type Rep Filepath = D1 (MetaData "Filepath" "Tile" "main" False) (C1 (MetaCons "Filepath" PrefixI True) (S1 (MetaSel (Just "root") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :: (S1 (MetaSel (Just "fpX") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int) :: S1 (MetaSel (Just "fpY") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int))))

default24Filepath :: Filepath #

The default 24x24 asset shown when an asset is not found. | This makes creatureToFilepath total.

default16Filepath :: Filepath #

The default 16x16 asset shown when an asset is not found. | This makes creatureToFilepath total.

filepathToString :: Filepath -> String #

data Tile #

Constructors

Abomination
Arrow
Assassin
AxeOfRage
BannerFeather
Bear
BeastmenDefender
BeastmenMinotaur
BeastmenSpearman
Beholder
BirdWhite
BlackAppears0
BlackAppears1
BlackAppears2
BlackAppears3
Blood0
Blood1
Blood2
Blood3
BloodDrop
Bones0
Bones1
Bones2
Bones3
Bones4
Bones5
Bones6
BowOfGaia
BowOfStrength
Chest
CloakOfGaia
Crown
CrushingMace
Daemon
DropBlue
EvilKnight
EvilTroll
EvilPriest
EvilSpearman
Explosion
FlailOfTheDamned
GreenPotion
Heart
HeartBroken
HumanArcher
HumanChurch
HumanGeneral
HumanKnight
HumanSpearman
HumanSwordsman
HuntingHorn
Loupe
Man
Ogre
Pandemonium
RedPotion
Shield
SkBanner
SkullRedEyes
SpikyMace
Squire
StrengthPot
Sword1
Sword2
Sword3
SylvanArcher
SylvanFalcon
SylvanFalconer
SylvanGuardian
SylvanPriest
SylvanSpearwoman
SylvanRanger
SylvanWorm
SwordOfBlood
Trebuchet
Tree
Troll
UndeadArcher
UndeadGhost
UndeadMummy
UndeadNecromancer
UndeadShade
UndeadSkeleton
UndeadSpecter
UndeadVampire
UndeadWarrior
WhiteAppears0
WhiteAppears1
WhiteAppears2
WhiteAppears3
WhiteAppears4
Wings
ZCaptain
ZKing
ZKnight
ZPriest
ZVeteran

Instances

Bounded Tile #
Instance details Defined in Tile Methods minBound :: Tile # maxBound :: Tile #
Enum Tile #
Instance details Defined in Tile Methods succ :: Tile -> Tile # pred :: Tile -> Tile # toEnum :: Int -> Tile # fromEnum :: Tile -> Int # enumFrom :: Tile -> [Tile] # enumFromThen :: Tile -> Tile -> [Tile] # enumFromTo :: Tile -> Tile -> [Tile] # enumFromThenTo :: Tile -> Tile -> Tile -> [Tile] #
Eq Tile #
Instance details Defined in Tile Methods (==) :: Tile -> Tile -> Bool # (/=) :: Tile -> Tile -> Bool #
Ord Tile #
Instance details Defined in Tile Methods compare :: Tile -> Tile -> Ordering # (<) :: Tile -> Tile -> Bool # (<=) :: Tile -> Tile -> Bool # (>) :: Tile -> Tile -> Bool # (>=) :: Tile -> Tile -> Bool # max :: Tile -> Tile -> Tile # min :: Tile -> Tile -> Tile #
Show Tile #
Instance details Defined in Tile Methods showsPrec :: Int -> Tile -> ShowS # show :: Tile -> String # showList :: [Tile] -> ShowS #
Generic Tile #
Instance details Defined in Tile Associated Types type Rep Tile :: Type -> Type # Methods from :: Tile -> Rep Tile x # to :: Rep Tile x -> Tile #
FromJSON Tile #
Instance details Defined in Json Methods parseJSON :: Value -> Parser Tile # parseJSONList :: Value -> Parser [Tile] #
type Rep Tile #
Instance details Defined in Tile type Rep Tile = D1 (MetaData "Tile" "Tile" "main" False) ((((((C1 (MetaCons "Abomination" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Arrow" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Assassin" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "AxeOfRage" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BannerFeather" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Bear" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "BeastmenDefender" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BeastmenMinotaur" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "BeastmenSpearman" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Beholder" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BirdWhite" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "BlackAppears0" PrefixI False) (U1 :: Type -> Type))))) :+: (((C1 (MetaCons "BlackAppears1" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BlackAppears2" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "BlackAppears3" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Blood0" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Blood1" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Blood2" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "Blood3" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BloodDrop" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Bones0" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Bones1" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Bones2" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Bones3" PrefixI False) (U1 :: Type -> Type)))))) :+: ((((C1 (MetaCons "Bones4" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Bones5" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Bones6" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "BowOfGaia" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "BowOfStrength" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Chest" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "CloakOfGaia" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Crown" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "CrushingMace" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Daemon" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "DropBlue" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "EvilKnight" PrefixI False) (U1 :: Type -> Type))))) :+: (((C1 (MetaCons "EvilTroll" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "EvilPriest" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "EvilSpearman" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Explosion" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "FlailOfTheDamned" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "GreenPotion" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "Heart" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "HeartBroken" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "HumanArcher" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "HumanChurch" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "HumanGeneral" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "HumanKnight" PrefixI False) (U1 :: Type -> Type))))))) :+: (((((C1 (MetaCons "HumanSpearman" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "HumanSwordsman" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "HuntingHorn" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Loupe" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Man" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Ogre" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "Pandemonium" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "RedPotion" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Shield" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "SkBanner" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "SkullRedEyes" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SpikyMace" PrefixI False) (U1 :: Type -> Type))))) :+: (((C1 (MetaCons "Squire" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "StrengthPot" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Sword1" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Sword2" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Sword3" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SylvanArcher" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "SylvanFalcon" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "SylvanFalconer" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SylvanGuardian" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "SylvanPriest" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "SylvanSpearwoman" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SylvanRanger" PrefixI False) (U1 :: Type -> Type)))))) :+: ((((C1 (MetaCons "SylvanWorm" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "SwordOfBlood" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Trebuchet" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "Tree" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Troll" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "UndeadArcher" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "UndeadGhost" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "UndeadMummy" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "UndeadNecromancer" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "UndeadShade" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "UndeadSkeleton" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "UndeadSpecter" PrefixI False) (U1 :: Type -> Type))))) :+: (((C1 (MetaCons "UndeadVampire" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "UndeadWarrior" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "WhiteAppears0" PrefixI False) (U1 :: Type -> Type))) :+: (C1 (MetaCons "WhiteAppears1" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "WhiteAppears2" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "WhiteAppears3" PrefixI False) (U1 :: Type -> Type)))) :+: ((C1 (MetaCons "WhiteAppears4" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Wings" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "ZCaptain" PrefixI False) (U1 :: Type -> Type))) :+: ((C1 (MetaCons "ZKing" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "ZKnight" PrefixI False) (U1 :: Type -> Type)) :+: (C1 (MetaCons "ZPriest" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "ZVeteran" PrefixI False) (U1 :: Type -> Type))))))))

all :: [Tile] #

All tiles

data TileUI #

Constructors

TileUI
Fields filepath :: Filepath tile :: Tile

Instances

Eq TileUI #
Instance details Defined in Tile Methods (==) :: TileUI -> TileUI -> Bool # (/=) :: TileUI -> TileUI -> Bool #
Show TileUI #
Instance details Defined in Tile Methods showsPrec :: Int -> TileUI -> ShowS # show :: TileUI -> String # showList :: [TileUI] -> ShowS #
Generic TileUI #
Instance details Defined in Tile Associated Types type Rep TileUI :: Type -> Type # Methods from :: TileUI -> Rep TileUI x # to :: Rep TileUI x -> TileUI #
FromJSON TileUI #
Instance details Defined in Json Methods parseJSON :: Value -> Parser TileUI # parseJSONList :: Value -> Parser [TileUI] #
type Rep TileUI #
Instance details Defined in Tile type Rep TileUI = D1 (MetaData "TileUI" "Tile" "main" False) (C1 (MetaCons "TileUI" PrefixI True) (S1 (MetaSel (Just "filepath") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Filepath) :*: S1 (MetaSel (Just "tile") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Tile)))

data Size #

Constructors

Sixteen	Tiles that are 16x16
TwentyFour	Tiles that are 24x24

sizeToNat :: Size -> Nat #

The pixel size of a Size value