wizard-wipeout/src-server/Server/Map/Snippets.hs

153 lines
4.5 KiB
Haskell
Raw Normal View History

2023-12-06 05:14:12 +00:00
{-# LANGUAGE LambdaCase #-}
module Server.Map.Snippets where
import qualified Data.Matrix as M
import Library.Types
catalogue :: [Map]
catalogue = convertCatalogue
[ M.fromLists
[ [ ' ', ' ' ]
, [ ' ', ' ' ]
]
, M.fromLists
[ [ ' ', ' ', ' ']
, [ ' ', ' ', ' ']
, [ ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', ' ']
, [ ' ', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
]
2023-12-07 03:47:08 +00:00
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', '#', ' ', ' ']
, [ ' ', ' ', '#', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', '#', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', '#', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', '#', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', '#', '#', ' ', ' ']
, [ ' ', ' ', '#', '#', '#', ' ', ' ']
, [ ' ', ' ', '#', '#', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
2023-12-06 05:14:12 +00:00
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
, M.fromLists
[ [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', '#', '#', ' ', ' ', ' ']
, [ ' ', ' ', ' ', '#', '#', ' ', ' ', ' ']
, [ ' ', ' ', '#', ' ', ' ', '#', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
, [ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ']
]
]
convertCatalogue
:: [ M.Matrix Char ]
-> [ Map ]
convertCatalogue =
map
(fmap
(\case
'#' -> Wall
' ' -> Air
x -> error ("unexpected element: " ++ [x])
)
)