Cleanup: broken pathfinding

2021-11-16 18:05:47 +00:00
parent cb8cbe03a4
commit ebe9ad6b90
42 changed files with 491 additions and 301 deletions
@@ -2,9 +2,12 @@ module Dodge.Debug.Terminal
    where
 import Dodge.Data
 import Dodge.Config.Data
+import Dodge.Creature

 import Control.Lens

 applyTerminalString :: String -> World -> World
 applyTerminalString "NOCLIP" w = w & config . debug_noclip %~ not
+applyTerminalString "LOADME" w = w & creatures . ix 0 . crInv .~ stackedInventory
 applyTerminalString _ w = w
+