Remove reduntant left click item use code

src/Dodge/Data/WorldEffect.hs

@@ -16,9 +16,7 @@ import Dodge.Data.SoundOrigin
 import Geometry.Data
 import Sound.Data
 
-data ItCrWdWd
-    = ItCrWdId
-    | ItCrWdItemEffect
+data ItCrWdWd = ItCrWdItemHeldEffect
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WdWd
@@ -32,7 +30,6 @@ data WdWd
     | MakeStartCloudAt Point3
     | TorqueCr Float Int
     | WdWdNegateTrig Int
-    | WdWdFromItixCrixWdWd Int Int ItCrWdWd
     | WdWdFromItCrixWdWd (LabelDoubleTree ComposeLinkType Item) Int ItCrWdWd
     | MakeTempLight LSParam Int
     --deriving (Eq, Show, Read) --, Generic)