Partially implement grenades down chasms

src/Dodge/Data/Projectile.hs

@@ -16,13 +16,13 @@ import Dodge.Data.Payload
 
 data Projectile = Shell
     { _pjPos :: Point2
+    , _pjZ :: Float
     , _pjVel :: Point2
     , _pjDir :: Float
     , _pjSpin :: Float
     , _pjID :: Int
     , _pjPayload :: Payload
     , _pjTimer :: Int
-    , _pjZ :: Float
     , _pjZVel :: Float
     , _pjBarrelSpin :: Maybe (Int, Float)
     , _pjType :: ProjectileType
@@ -49,7 +49,7 @@ data RocketHoming
 data GrenadeHitEffect
     = GBounce {_bounceTolerance :: Float}
     | GStick
-    | GStuckCreature {_stuckCrID :: Int, _stuckCrOffset :: Point2, _stuckCrRot :: Float}
+    | GStuckCreature {_stuckCrID :: Int, _stuckCrOffset :: Point3, _stuckCrRot :: Float}
     | GStuckWall {_stuckWlID :: WallStructure}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)