Start implementing sticky grenades

src/Dodge/Data/ComposedItem.hs

@@ -32,6 +32,7 @@ data ComposeLinkType
     | ProjectileStabiliserLink
     | UnderBarrelSlotLink
     | UnderBarrelPlatformLink
+    | GrenadeHitEffectLink
     deriving (Eq, Ord, Show, Read)
 
 data ItemStructuralFunction
@@ -59,6 +60,7 @@ data ItemStructuralFunction
     | FunctionChangeSF
     | MakeAutoSF
     | ProjectileStabiliserSF
+    | GrenadeHitEffectSF
     deriving (Eq, Ord, Show, Read)
 
 type ComposedItem = (Item, ItemStructuralFunction, LinkTest)

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