Add objects based on walls, called machines

2021-10-31 22:55:02 +00:00
parent 08fa84c1fd
commit 86fdfd260e
23 changed files with 183 additions and 90 deletions
@@ -62,6 +62,7 @@ defaultCreature = Creature
    , _crGroup   = LoneWolf
    , _crMvType  = defaultAimMvType
    }
+
 defaultCreatureMemory :: MemoryState
 defaultCreatureMemory = MemoryState
    { _soundsToInvestigate = []
@@ -208,6 +209,18 @@ defaultIt = Consumable
    , _itHammer = HammerUp
    , _itAimStance = LeaveHolstered
    }
+defaultMachine :: Machine
+defaultMachine = Machine
+    { _mcID = 0
+    , _mcWallIDs = []
+    , _mcUpdate = const id
+    , _mcDraw = const mempty
+    , _mcPos = V2 0 0
+    , _mcDir = 0
+    , _mcHP = 100
+    , _mcSensor = 0
+    }
+
 defaultDrawButton :: Color -> Button -> SPic
 defaultDrawButton col bt =
    ( translateSHz 15 . colorSH col $ upperPrismPoly 5 buttonGeometry