Runtime broken level generation

2021-03-29 11:27:30 +02:00
parent e0570ed54c
commit c959b7d59c
9 changed files with 356 additions and 369 deletions
@@ -479,21 +479,21 @@ type HitEffect = Particle' -> [(Point2, (Either3 Creature Wall ForceField))] ->

 data Projectile 
    = Projectile    
-        { _ptPos :: Point2
-        , _ptStartPos :: Point2
-        , _ptVel :: Point2
-        , _ptPict :: Picture
-        , _ptID :: Int
-        , _ptUpdate :: World -> World
+        { _pjPos :: Point2
+        , _pjStartPos :: Point2
+        , _pjVel :: Point2
+        , _pjPict :: Picture
+        , _pjID :: Int
+        , _pjUpdate :: World -> World
        }
    | Shell 
-        { _ptPos :: Point2
-        , _ptStartPos :: Point2
-        , _ptVel :: Point2
-        , _ptPict :: Picture
-        , _ptID :: Int
-        , _ptUpdate :: World -> World
-        , _ptExplosion :: Point2-> World -> World
+        { _pjPos :: Point2
+        , _pjStartPos :: Point2
+        , _pjVel :: Point2
+        , _pjPict :: Picture
+        , _pjID :: Int
+        , _pjUpdate :: World -> World
+        , _pjPayload :: Point2-> World -> World
        }

 data DamageType