diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-22 16:50:42 +0100 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-22 16:50:42 +0100 |
| commit | 62fe58cb55a279c285980a313d4355d91e93601c (patch) | |
| tree | 7e318f4b62c7f90b0fad5e267ec9c3194fae53c7 /Level.hs | |
| download | htanks-62fe58cb55a279c285980a313d4355d91e93601c.tar htanks-62fe58cb55a279c285980a313d4355d91e93601c.zip | |
Initial commit
Diffstat (limited to 'Level.hs')
| -rw-r--r-- | Level.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Level.hs b/Level.hs new file mode 100644 index 0000000..c18104e --- /dev/null +++ b/Level.hs @@ -0,0 +1,18 @@ +module Level ( Level(..) + , testLevel + ) where + +import Data.List + +data Level = Level + { floorTiles :: ![[Int]] + , objectTiles :: ![[Int]] + } deriving (Show) + + + +testLevel :: Level +testLevel = Level + { floorTiles = replicate 10 $ replicate 10 0 + , objectTiles = replicate 10 $ replicate 10 0 + }
\ No newline at end of file |