Make creature update an external function

2022-07-20 01:22:17 +01:00
parent db44d5d6ce
commit 1f79fe157f
31 changed files with 562 additions and 462 deletions
@@ -80,7 +80,8 @@ drawCreature cr = case _crType cr of
        , setDepth 0.049 . color (greyN 0.5) $ circleSolid 8
        , color (greyN 0.5) $ circleSolid 8
        ]) cr
-    Lampoid h -> picAtCrPosNoRot1 (lampCrPic h) cr
+    Lampoid{_lampHeight=h} -> picAtCrPosNoRot1 (lampCrPic h) cr
+    Turretoid -> mempty
    NonDrawnCreature -> mempty

 lampCrPic :: Float -> Picture