Commit before attempting to allow for non-convex chasm shapes

2025-10-05 15:06:19 +01:00
parent b3924fb8b8
commit 43db5a2ebc
25 changed files with 333 additions and 303 deletions
@@ -12,27 +12,27 @@ import qualified Data.Set as S
 {-# ANN module "HLint: ignore Use camelCase" #-}

 data NumShadowCasters
-    = NumShadowCasters0
-    | NumShadowCasters1
-    | NumShadowCasters2
-    | NumShadowCasters3
-    | NumShadowCasters4
-    | NumShadowCasters5
-    | NumShadowCasters6
-    | NumShadowCasters7
-    | NumShadowCasters8
-    | NumShadowCasters9
-    | NumShadowCasters10
-    | NumShadowCasters11
-    | NumShadowCasters12
-    | NumShadowCasters13
-    | NumShadowCasters14
-    | NumShadowCasters15
-    | NumShadowCasters16
-    | NumShadowCasters17
-    | NumShadowCasters18
-    | NumShadowCasters19
-    | NumShadowCasters20
+    = NumLight0
+    | NumLight1
+    | NumLight2
+    | NumLight3
+    | NumLight4
+    | NumLight5
+    | NumLight6
+    | NumLight7
+    | NumLight8
+    | NumLight9
+    | NumLight10
+    | NumLight11
+    | NumLight12
+    | NumLight13
+    | NumLight14
+    | NumLight15
+    | NumLight16
+    | NumLight17
+    | NumLight18
+    | NumLight19
+    | NumLight20
    deriving (Show,Eq,Bounded,Ord,Enum)

 data Config = Config
@@ -75,7 +75,6 @@ data CraftType
    | AIUNIT
    | CAMERA
    | MINIDISPLAY -- visual display unit
-    | LED
    | NAILBOX
    | IRONBAR
    | LIGHTSENSOR
@@ -173,7 +172,7 @@ data HeldItemType
    | GLAUNCHER
    | POISONSPRAYER
    | SHATTERGUN
-    | TORCH
+    | LED
    | FLATSHIELD
    | KEYCARD Int
    | BLINKER