venzone 1.0.0.5 → 1.0.0.6
raw patch · 9 files changed
+22/−19 lines, 9 filesdep ~QuickCheckdep ~megaparsec
Dependency ranges changed: QuickCheck, megaparsec
Files
- NEWS +5/−2
- src/Meeple/Operate.hs +2/−2
- src/Menu.hs +3/−3
- src/Parse.hs +1/−1
- src/Screen/Decide.hs +2/−2
- src/Screen/Move.hs +3/−3
- src/Story.hs +1/−1
- stories/orcolat.vns +1/−1
- venzone.cabal +4/−4
NEWS view
@@ -1,5 +1,8 @@+1.0.0.6+- Made `venzone` build with the last ansi-terminal-game version.+ 1.0.0.5-- Add stack.yaml to .tar.gz+- Added stack.yaml to .tar.gz. 1.0.0.4-- Added changelog per sm request+- Added changelog per sm request.
src/Meeple/Operate.hs view
@@ -165,7 +165,7 @@ isSimilar ma mb = meepleCategory ma == meepleCategory mb isStingy :: Nettle -> Bool-isStingy n = (n ^. draw . to fetchFrame . to paperPlane) == "A\n"+isStingy n = (n ^. draw . to fetchFrame . to planePaper) == "A\n" ------------------ -- CONSTRUCTORS --@@ -183,7 +183,7 @@ creaRef :: MeepRef -> [Meeple] creaRef (MRStone cs) = [s (-1), s 0, s 1] where- s :: Integer -> Meeple+ s :: Int -> Meeple s mh = MStone $ defaultStone (cs & _1 %~ (+1) & _2 %~(+mh)) creaRef (MRSickle cs sp) = [MSickle $ defaultSickle
src/Menu.hs view
@@ -53,7 +53,7 @@ drawSelector :: Width -> Height -> Menu -> Plane drawSelector w h m = blankPlane w h &- (1, 1) % textBox tbt w 3 &+ (1, 1) % textBox w 3 tbt & (4, 2) % mergePlanes (blankPlane w (h-2)) [((r, 1), p) | (r, p) <- zip [1..] ls] where@@ -74,8 +74,8 @@ drawEntry w s sb | not sb = entry | otherwise = blankPlane (w+2) 1 & (1, 1) % entry # bold &- (1, w-2) % textBox " *" 2 1+ (1, w-2) % textBox 2 1 " *" where- entry = makeOpaque $ textBox (L.genericTake w $ s ^. name) w 1+ entry = makeOpaque $ textBox w 1 (L.genericTake w $ s ^. name)
src/Parse.hs view
@@ -86,7 +86,7 @@ return (r, c) <?> "room_size instruction" where- num :: Parser Integer+ num :: Parser Int num = read <$> some digitChar pstartroom :: Parser String
src/Screen/Decide.hs view
@@ -197,13 +197,13 @@ -- projected horizontal speed-projhs :: Cardinal -> Integer+projhs :: Cardinal -> Int projhs E = 1 projhs W = -1 projhs _ = error "Cardinal not valid hs" -- projected horizontal speed-projvs :: Cardinal -> Integer+projvs :: Cardinal -> Int projvs S = 1 projvs N = -1 projvs _ = error "Cardinal not valid vs"
src/Screen/Move.hs view
@@ -46,7 +46,7 @@ -- *non* stepped stuff -gravity :: Integer+gravity :: Int gravity = 1 -- room:: jus for oob check@@ -78,8 +78,8 @@ & speed . _2 %~ im (>=) 1 & speed . _2 %~ im (<=) (-1) where- im :: (Integer -> Integer -> Bool) ->- Integer -> Integer -> Integer+ im :: (Int -> Int -> Bool) ->+ Int -> Int -> Int im o t x = if x `o` t then t else x
src/Story.hs view
@@ -200,7 +200,7 @@ g ws Won = ws & status .~ SWon winAni winAni :: Animation-winAni = creaAnimation [(26, box ' ' 80 24)]+winAni = creaAnimation [(26, box 80 24 ' ')] -- add a star: True = the player collected it
stories/orcolat.vns view
@@ -329,7 +329,7 @@ :::: :: | Pq YYYYY ::: ::: :: -----------|--------------------------------:: :: : | :::- | ®"Trinku kun mi!"® :::+ | ®"Drinku kun mi!"® ::: | ::: CC | ®-Mi nun ne povas,® ::: CCCCCCC = | ® eble poste.- ® ::::
venzone.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.2 name: venzone-version: 1.0.0.5+version: 1.0.0.6 synopsis: ASCII platform-adventure game description: Steal the Earthquake Poleaxe from the Orcolat and save your valley. Binaries and more info in the@@ -65,7 +65,7 @@ filepath >= 1.4.2 && < 1.5, fsnotify >= 0.3.0 && < 0.4, line-drawing >= 0.4.0 && < 0.5,- megaparsec >= 7.0.5 && < 8.0,+ megaparsec >= 7.0.5 && < 8.1, microlens-platform >= 0.4.0 && < 0.5, microlens >= 0.4.11.2 && < 0.5, mtl >= 2.2.2 && < 2.3,@@ -112,14 +112,14 @@ file-embed >= 0.0.11 && < 0.1, filepath >= 1.4.2 && < 1.5, line-drawing >= 0.4.0 && < 0.5,- megaparsec >= 7.0.5 && < 8.0,+ megaparsec >= 7.0.5 && < 8.1, microlens-platform >= 0.4.0 && < 0.5, microlens >= 0.4.11.2 && < 0.5, mtl >= 2.2.2 && < 2.3, utf8-light >= 0.4.2 && < 0.5 -- the above + hspec/quickcheck , hspec >= 2.7.0 && < 2.8,- QuickCheck > 2.13 && < 2.14+ QuickCheck > 2.13 && < 2.15 hs-source-dirs: src, test default-language: Haskell2010 type: exitcode-stdio-1.0