Refactor tractor beam

2021-09-26 02:58:38 +01:00
parent 32367b5b2d
commit a823d4c6df
7 changed files with 126 additions and 116 deletions
@@ -480,6 +480,15 @@ data Prop
        , _pjID :: Int
        , _pjUpdate :: Prop -> World -> World
        }
+    | ProjectileTimed
+        { _pjPos :: Point2
+        , _pjStartPos :: Point2
+        , _pjVel :: Point2
+        , _prDraw :: Prop -> SPic
+        , _pjID :: Int
+        , _pjUpdate :: Prop -> World -> World
+        , _pjTime :: Int
+        }
    | Shell 
        { _pjPos :: Point2
        , _pjStartPos :: Point2