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