Start implementing sticky grenades

src/Dodge/HeldUse.hs

@@ -321,7 +321,7 @@ useLoadedAmmo itmtree cr (cme, w) (mzid, Just (mz, x, magtree)) = (,) (cme & cme
         MuzzleRLauncher -> createProjectileR itmtree magtree mz cr w
         MuzzleGLauncher ->
             createProjectile
-                (Grenade (GBounce 2))
+                (Grenade (getGrenadeHitEffect itmtree))
                 magtree
                 (getPJStabiliser itmtree)
                 mz
@@ -668,6 +668,14 @@ getPJStabiliser ldt = case lookup ProjectileStabiliserLink (ldt ^. ldtRight) of
         _ -> Nothing
     _ -> Nothing
 
+getGrenadeHitEffect :: LabelDoubleTree ComposeLinkType Item -> GrenadeHitEffect
+getGrenadeHitEffect t = case lookup GrenadeHitEffectLink (t ^. ldtRight) of
+    Just ldt' -> case ldt' ^? ldtValue . itType of
+        Just STICKYMOD -> GStick
+        _ -> GBounce 2
+    _ -> GBounce 2
+    
+
 createProjectile ::
     ProjectileType ->
     LabelDoubleTree ComposeLinkType Item ->