Start implementing sticky grenades

src/Dodge/Data/Projectile.hs

@@ -51,6 +51,8 @@ data RocketHoming
 data GrenadeHitEffect 
     = GBounce {_bounceTolerance :: Float}
     | GStick
+    | GStuckCreature {_stuckCrID :: Int, _stuckCrOffset :: Point2}
+    | GStuckWall {_stuckWlID :: Int}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data RocketSmoke