Fold aiming parameters into item use datatype

src/Dodge/Item/Weapon/Utility.hs

@@ -60,13 +60,10 @@ shrinkGun = defaultGun
         , _wpLoadedAmmo = 100
         , _wpReloadTime = 20
         }
-    , _itAimStance = TwoHandFlat
     , _itUse = defaultlUse {_lUse = \cr invid -> useShrinkGun (_crInv cr IM.! invid) cr}
     , _wpSpread = 0.05
     , _wpRange = 20
     , _itFloorPict = shrinkGunPic
-    , _itAimingSpeed = 1
-    , _itAimingRange = 0
     , _itAttachment = ItBool True
     }
 
@@ -97,8 +94,6 @@ blinkGun = defaultGun
     , _wpSpread = 0.05
     , _wpRange = 20
     , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2[(-2,-2),(-2,2),(2,2),(2,0),(0,0),(0,-2)]
-    , _itAimingSpeed = 1
-    , _itAimingRange = 0
     }
 
 
@@ -132,8 +127,6 @@ forceFieldGun = defaultGun
     , _wpSpread = 0.02
     , _wpRange = 20
     , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2 [(-4,-4),(-4,4),(4,4),(4,0),(0,0),(0,-4)]
-    , _itAimingSpeed = 0.4
-    , _itAimingRange = 0.5
     }
 -- grapGun = defaultGun 
 --     { _itName = "grapGun"