Move towards adding in pulse laser "rifle" (like UT shock rifle)

2025-07-25 09:12:04 +01:00
parent ff3699e6cb
commit 190068737d
17 changed files with 750 additions and 628 deletions
@@ -21,8 +21,11 @@ data PulseBall = PulseBall
    { _pbVel :: Point2
    , _pbPos :: Point2
    , _pbTimer :: Int
+    , _pbID :: Int
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''PulseLaser
+makeLenses ''PulseBall
 deriveJSON defaultOptions ''PulseLaser
+deriveJSON defaultOptions ''PulseBall