19 lines
627 B
Haskell
19 lines
627 B
Haskell
module Dodge.Debug.Terminal
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Creature
|
|
|
|
import Control.Lens
|
|
|
|
applyTerminalString :: String -> Universe -> Universe
|
|
applyTerminalString "NOCLIP" w = w & config . debug_noclip %~ not
|
|
applyTerminalString "LOADME" w = w & uvWorld . creatures . ix 0 . crInv .~ stackedInventory
|
|
& uvWorld . creatures . ix 0 . crInvCapacity .~ 50
|
|
applyTerminalString "LM" w = applyTerminalString "LOADME" w
|
|
applyTerminalString "LT" w = w & uvWorld . creatures . ix 0 . crInv .~ testInventory
|
|
& uvWorld . creatures . ix 0 . crInvCapacity .~ 50
|
|
applyTerminalString _ w = w
|
|
|
|
loadme :: a
|
|
loadme = undefined
|