Regain health when you gain an item

chendrix · Jul 3, 2015 · 6bf3c03 · 6bf3c03
1 parent e12c5fb
commit 6bf3c03
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Rogue/Update.elm b/src/Rogue/Update.elm
@@ -40,7 +40,10 @@ update input ({gameMap,player,playerLocation} as game) =
 updatePlayer : Cell -> Player -> Player
 updatePlayer cell player =
   case cell of
-    Open {items} -> {player | inventory <- player.inventory `append` items}
+    Open {items} -> { player
+                        | inventory <- player.inventory `append` items
+                        , hp <- player.hp + toFloat (List.length items)
+                    }
     otherwise -> player
 
 updateGameMap : Location -> GameMap -> GameMap