Safe Haskell	None
Language	Haskell2010

DevUtils

Synopsis

data NewMapInfo = MapInfo {
- enemyBalls :: [EnemyPeg]
- cannonPosition :: Position
- leftWallX :: Float
- rightWallX :: Float
- floorY :: Float
- ceilingY :: Float
- backgroundPictureId :: Int
- backgroundTrackId :: Int
}
saveNewLevel :: FilePath -> NewMapInfo -> IO ()
loadOldLevel :: FilePath -> IO MapInfo
updateVersion :: MapInfo -> NewMapInfo
getLevelPath :: Int -> FilePath
updateMaps :: Int -> Int -> IO ()

Documentation

data NewMapInfo #

Synonym of MapInfo, used for transitioning existing map to new MapInfo format.

Constructors

MapInfo
Fields enemyBalls :: [EnemyPeg] cannonPosition :: Position leftWallX :: Float rightWallX :: Float floorY :: Float ceilingY :: Float backgroundPictureId :: Int backgroundTrackId :: Int

Instances

Instances details

Read NewMapInfo #
Instance details Defined in DevUtils Methods readsPrec :: Int -> ReadS NewMapInfo # readList :: ReadS [NewMapInfo] # readPrec :: ReadPrec NewMapInfo # readListPrec :: ReadPrec [NewMapInfo] #
Show NewMapInfo #
Instance details Defined in DevUtils Methods showsPrec :: Int -> NewMapInfo -> ShowS # show :: NewMapInfo -> String # showList :: [NewMapInfo] -> ShowS #
Generic NewMapInfo #
Instance details Defined in DevUtils Associated Types type Rep NewMapInfo :: Type -> Type # Methods from :: NewMapInfo -> Rep NewMapInfo x # to :: Rep NewMapInfo x -> NewMapInfo #
Binary NewMapInfo #
Instance details Defined in DevUtils Methods put :: NewMapInfo -> Put # get :: Get NewMapInfo # putList :: [NewMapInfo] -> Put #
type Rep NewMapInfo #
Instance details Defined in DevUtils type Rep NewMapInfo = D1 ('MetaData "NewMapInfo" "DevUtils" "main" 'False) (C1 ('MetaCons "MapInfo" 'PrefixI 'True) (((S1 ('MetaSel ('Just "enemyBalls") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [EnemyPeg]) :: S1 ('MetaSel ('Just "cannonPosition") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Position)) :: (S1 ('MetaSel ('Just "leftWallX") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Float) :: S1 ('MetaSel ('Just "rightWallX") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Float))) :: ((S1 ('MetaSel ('Just "floorY") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Float) :: S1 ('MetaSel ('Just "ceilingY") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Float)) :: (S1 ('MetaSel ('Just "backgroundPictureId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "backgroundTrackId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))))

saveNewLevel #

Arguments

:: FilePath	Level path
-> NewMapInfo	NewMapInfo to save
-> IO ()

Save level in new MapInfo format.

loadOldLevel #

Arguments

:: FilePath	Level path
-> IO MapInfo

Load level from old MapInfo format.

updateVersion #

Arguments

:: MapInfo	Old format level
-> NewMapInfo	New format level

Transition old MapInfo format into new MapInfo format.

getLevelPath :: Int -> FilePath #

updateMaps #

Arguments

:: Int	Starting index
-> Int	Index of last map to update
-> IO ()

Update maps from X to Y: transition from MapInfo to NewMapInfo.