ironforge 0.1.0.25 → 0.1.0.28

raw patch · 4 files changed

+9/−7 lines, 4 files

Files

• Game/Antisplice/Dungeon/Ironforge.hs +1/−0
• Game/Antisplice/Dungeon/Ironforge/Cambridge.hs +6/−5
• Game/Antisplice/Dungeon/Ironforge/Kinds.hs +1/−1
• ironforge.cabal +1/−1

@@ -104,3 +104,4 @@     setStatM CooldownDuration 1000     addStereo steDef     modifyCurrency money (+2000)+  mputv "prompt" $ Literal "${user} #{health}H \\$#{money/100}.#{money%100}#?{ #{otitle} #{ohealth}H}"

@@ -97,8 +97,9 @@       ctorMob "Karl-Heinz" ["kalle","karl-heinz","teacher"] "Karl-Heinz is an old maths teacher. Strange, but harmless." ["strange","harmless","old"]       ctorRoute [stationC,broeleC,broele1EC,broeleC,broele1WC,broele2WC,broele1WC,broeleC] 10000 -  -- CAMBRIDGE : JAIL+  -- CAMBRIDGE : JAIL : YOUR CELL   cellJ <- constructRoom $ ctorRoom "Your Cell" "This is the cell they assigned to you. Pretty small, but it will suffice."+      -- CAMBRIDGE : SUPERMARKET   cartA <- newAtom@@ -145,7 +146,7 @@           return ()     in Action pq h -  -- CAMBRIDGE : SUPERMARKET PRODUCE SECTION+  -- CAMBRIDGE : SUPERMARKET : PRODUCE SECTION   let regGood :: (MonadAtoms m,MonadVocab m) => [Feature] -> KindId -> NodeId -> String -> String -> [String] -> [String] -> Int -> ObjectT m () -> m (Atom ObjectState)       regGood f k r t d ns as p m = do         a <- newAtom@@ -179,7 +180,7 @@   withRoom produceM $ mapM_ instanciateForm [fCabbage, fCarrot, fCereliac, fLeek, fBeetroot, fPotato, fApple, fBanana]   bipath superMarket produceM West -  -- CAMBRIDGE : SUPERMARKET BEVERAGES SECTION+  -- CAMBRIDGE : SUPERMARKET : BEVERAGES SECTION   beveragesM <- constructRoom $ do     ctorRoom "Beverages Section" "The variety of beverages here is not that large. They offer water, apple juice, orange lemonade, beer and vodka."   fWater <- regGood [Drinkable] kWater beveragesM "a bottle of water" "This water is clear and non-sparkling."@@ -195,7 +196,7 @@   withRoom beveragesM $ mapM_ instanciateForm [fWater,fBeer,fAppleJuice,fVodka,fOrangeLemonade]   bipath superMarket beveragesM North     -  -- CAMBRIDGE : AI LAB ENTRANCE+  -- CAMBRIDGE : AI LAB : ENTRANCE   janA <- newAtom   putAtom janA True   entranceL <- constructRoom $ do@@ -207,7 +208,7 @@   withRoom broele1WC $ addRoomDesc "To the south you see the MIT's AI Lab."   bipath broele1WC entranceL South -  -- CAMBRIDGE : AI LAB MAIN ROOM+  -- CAMBRIDGE : AI LAB : MAIN ROOM   mainRoomL <- constructRoom $ do     ctorRoom "Main Room" "This is the AI Lab's main room."   guardedPath entranceL mainRoomL South $ liftM not $ getAtom janA

@@ -83,6 +83,6 @@  getCurrencies :: Constructor Currencies getCurrencies = do-  money <- registerCurrency "Money" "Money is measured in Iron Dollars. You can pay with this."+  money <- registerCurrency "money" "Money is measured in Iron Dollars. You can pay with this."   return $ Currencies     money

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.0.25+version:             0.1.0.28  -- A short (one-line) description of the package. synopsis:            A technical demo for Antisplice.