Allow grenades to stick to creatures

src/Dodge/Data/Projectile.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Projectile where
 
+import Dodge.Data.Wall.Structure
 import Dodge.Data.Item.Location
 import NewInt
 import Control.Lens
@@ -51,8 +52,8 @@ data RocketHoming
 data GrenadeHitEffect 
     = GBounce {_bounceTolerance :: Float}
     | GStick
-    | GStuckCreature {_stuckCrID :: Int, _stuckCrOffset :: Point2}
-    | GStuckWall {_stuckWlID :: Int}
+    | GStuckCreature {_stuckCrID :: Int, _stuckCrOffset :: Point2, _stuckCrRot :: Float}
+    | GStuckWall {_stuckWlID :: WallStructure}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data RocketSmoke