Permalink
Browse files

say which hero selected, instead of the boring fixed message

  • Loading branch information...
1 parent 088a0a5 commit e1914e0db05a5ae716811072b2d130e9e2442cf4 @Mikolaj Mikolaj committed Feb 5, 2011
Showing with 4 additions and 2 deletions.
  1. +2 −2 src/Actions.hs
  2. +2 −0 src/Grammar.hs
View
@@ -318,7 +318,7 @@ cycleHero =
modify (updateLevel (updateHeroes del))
modify (updatePlayer (const np))
modify (updateLook (const (Just $ look { returnLn = nln })))
- messageAdd "A hero selected."
+ messageAdd $ "Hero number " ++ show ni ++ " selected."
_ ->
let i = heroNumber player
(lt, gt) = IM.split i hs
@@ -327,7 +327,7 @@ cycleHero =
(ni, np) : _ ->
do
swapCurrentHero (ni, np)
- messageAdd "Next hero selected."
+ messageAdd $ "Hero number " ++ show ni ++ " selected."
swapCurrentHero :: (Int, Hero) -> Action ()
swapCurrentHero (ni, np) =
View
@@ -9,6 +9,8 @@ import ItemState
-- | How to refer to a monster in object position of a sentence.
objectMonster :: MonsterType -> String
+-- Hard to make it compatible with 1-hero mode and sounds strange, anyway.
+-- objectMonster (Hero n) = "hero " ++ show n
objectMonster (Hero _) = "you"
objectMonster Eye = "the reducible eye"
objectMonster FastEye = "the super-fast eye"

0 comments on commit e1914e0

Please sign in to comment.