Add basic booster

2021-05-24 13:59:51 +02:00
parent cda035b1d1
commit 968273bf25
20 changed files with 276 additions and 324 deletions
@@ -384,7 +384,7 @@ data Projectile
        { _pjPos :: Point2
        , _pjStartPos :: Point2
        , _pjVel :: Point2
-        , _pjPict :: Picture
+        , _pjDraw :: Picture
        , _pjID :: Int
        , _pjUpdate :: World -> World
        }
@@ -397,6 +397,12 @@ data Projectile
        , _pjUpdate :: World -> World
        , _pjPayload :: Point2-> World -> World
        }
+    | BoostShockwave
+        { _pjID :: Int
+        , _pjPict :: Picture
+        , _pjUpdate :: World -> World
+        , _pjPoints :: [Point2]
+        }
 data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
 data Wall 
    = Wall