Cleanup, remove jetpack

src/Dodge/Item/Draw/SPic.hs

@@ -83,7 +83,6 @@ equipItemSPic et _ = case et of
     POWERLEGS -> legsSPic yellow
     SPEEDLEGS -> legsSPic green
     JUMPLEGS -> legsSPic red
-    JETPACK -> noPic $ colorSH yellow backpackShape
     BATTERYPACK -> noPic $ colorSH blue backpackShape
     FUELPACK ->
         noPic $ colorSH yellow $ upperPrismPolyMT 10 $ polyCirc 3 5

src/Dodge/Item/Equipment.hs

@@ -8,7 +8,6 @@ module Dodge.Item.Equipment (
     brainHat,
     frontArmour,
     headLamp,
-    jetPack,
     fuelPack,
     batteryPack,
     bulletBeltPack,
@@ -88,13 +87,6 @@ bulletBeltBracer =
         & itUse . equipEffect . eeUse .~ EAmmoSource 100 100 --BulletSource 
             Nothing
 
-jetPack :: Item
-jetPack =
-    defaultEquipment
-        & itUse . equipEffect . eeSite .~ GoesOnBack
-        & itType .~ EQUIP JETPACK
-        & itUse . equipEffect . eeAttachPos .~ V3 (-8) 0 10
-
 brainHat :: Item
 brainHat =
     defaultEquipment

src/Dodge/Item/Info.hs

@@ -117,7 +117,6 @@ equipInfo eit = case eit of
     POWERLEGS -> "Strength enhancing legs."
     SPEEDLEGS -> "Speed enhancing legs."
     JUMPLEGS -> "Jump enhancing legs."
-    JETPACK -> "A device enabling flight."
     FUELPACK -> "A liquid container with attached hose."
     BULLETBELTPACK -> "A container holding a long belt of bullets."
     BULLETBELTBRACER -> "A container holding a long belt of bullets."

src/Dodge/Item/Orientation.hs

@@ -21,8 +21,8 @@ orientByLink itm lt = case (_itType itm,lt) of
 
 orientAttachment :: Item -> ComposeLinkType -> Item -> Maybe (Point3, Q.Quaternion Float)
 orientAttachment par lnk ch = Just $ case (_itType par,lnk,_itType ch) of
-    (HELD BURSTRIFLE,_,HELD TORCH) -> (V3 20 0 0, Q.qID)
-    (HELD LAUNCHER,_,HELD TORCH) -> (V3 0 20 0, Q.qID)
+--    (HELD BURSTRIFLE,_,HELD TORCH) -> (V3 20 0 0, Q.qID)
+--    (HELD LAUNCHER,_,HELD TORCH) -> (V3 0 20 0, Q.qID)
     _ -> (t1 + Q.rotate q1 t2, q1 * q2)
   where
     (t1,q1) = orientByLink par lnk