Implement pulse rifle with explodable pulse balls

2025-07-27 11:10:30 +01:00
parent 68a4bc7aab
commit f1fb0ee768
19 changed files with 190 additions and 108 deletions
@@ -61,16 +61,16 @@ updateRadarSweep w pt

 findBlips :: ObjectType -> Point2 -> Float -> World -> ([Point2], S.Set (Point2, Point2))
 findBlips ob = case ob of
-    ObCreature -> crBlips
-    ObItem -> itemBlips
-    ObWall -> wallBlips
+    OTCreature -> crBlips
+    OTItem -> itemBlips
+    OTWall -> wallBlips
    _ -> undefined

 makeBlip :: ObjectType -> Point2 -> RadarBlip
 makeBlip ob = case ob of
-    ObCreature -> blipAt 8 (withAlpha 0.2 green) 50
-    ObWall -> blipAt 2 red 50
-    ObItem -> blipAt 6 blue 50
+    OTCreature -> blipAt 8 (withAlpha 0.2 green) 50
+    OTWall -> blipAt 2 red 50
+    OTItem -> blipAt 6 blue 50
    _ -> undefined

 -- | Radar blip at a point.