Improve detector equipment, various cleanup

2022-05-27 18:49:54 +01:00
parent 60fc2d44e8
commit 79b3a86520
15 changed files with 180 additions and 138 deletions
@@ -61,12 +61,14 @@ basicCrShape
    :: Color    -- ^ Creature color
    -> Creature 
    -> Shape
-basicCrShape col cr = tr . scaleSH (V3 crsize crsize crsize) $ mconcat
-    [ --rotdir . _spShape $ drawEquipment cr
-     rotdir . dm . translateSHz 20 $ scalp cr
-    , rotdir . dm $ upperBody col cr
-    , dm . rotmdir $ feet cr
-    ]
+basicCrShape col cr 
+    | _crCamouflage cr == Invisible = mempty
+    | otherwise = tr . scaleSH (V3 crsize crsize crsize) $ mconcat
+        [ --rotdir . _spShape $ drawEquipment cr
+         rotdir . dm . translateSHz 20 $ scalp cr
+        , rotdir . dm $ upperBody col cr
+        , dm . rotmdir $ feet cr
+        ]
  where 
    crsize = 0.1 * _crRad cr
    dm = damageModSH cr