25 lines
992 B
Haskell
25 lines
992 B
Haskell
module Dodge.Debug.Terminal
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Creature
|
|
import Dodge.Creature.YourControl
|
|
import Dodge.Creature.State
|
|
|
|
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 "GODON" u = u
|
|
-- & uvWorld . creatures . ix 0 . crUpdate .~ (stateUpdateDamage' clearDamage yourControl)
|
|
--applyTerminalString "GODOFF" u = u & uvWorld . creatures . ix 0 . crUpdate .~ stateUpdate yourControl
|
|
applyTerminalString "LOADTEST" w = w & uvWorld . creatures . ix 0 . crInv .~ testInventory
|
|
& uvWorld . creatures . ix 0 . crInvCapacity .~ 50
|
|
applyTerminalString "LM" w = applyTerminalString "LOADME" w
|
|
applyTerminalString "LT" w = applyTerminalString "LOADTEST" w
|
|
applyTerminalString _ w = w
|
|
|
|
loadme :: a
|
|
loadme = undefined
|