Move machine update into outside function

2022-07-14 21:01:53 +01:00
parent ad33ddd569
commit 5463328d41
13 changed files with 130 additions and 92 deletions
@@ -180,7 +180,7 @@ defaultMachine :: Machine
 defaultMachine = Machine
    { _mcID = 0
    , _mcWallIDs = mempty
-    , _mcUpdate = defaultMachineUpdate
+--    , _mcUpdate = defaultMachineUpdate
    , _mcDraw = const mempty
    , _mcColor = white
    , _mcPos = V2 0 0
@@ -193,6 +193,7 @@ defaultMachine = Machine
    , _mcName = ""
    , _mcMounts = mempty
    , _mcCloseSound = Nothing
+--    , _mcTriggerCond = const True
    }
 defaultMachineUpdate :: Machine -> World -> World
 defaultMachineUpdate mc