Add bee pheremones

2026-04-23 10:30:43 +01:00
parent f6e257464d
commit d06660fd06
8 changed files with 212 additions and 167 deletions
@@ -42,9 +42,16 @@ data Gas = Gas
 data GasType = PoisonGas
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

+data BeePheremone = BPheremone
+    { _bpPos :: Point2
+    , _bpTimer :: Int
+    }
+
 makeLenses ''Cloud
+makeLenses ''BeePheremone
 deriveJSON defaultOptions ''CloudType
 deriveJSON defaultOptions ''Cloud
+deriveJSON defaultOptions ''BeePheremone
 makeLenses ''Dust
 deriveJSON defaultOptions ''Dust
 makeLenses ''Gas