Correct room link position numbering

src/Dodge/Item/Data.hs

@@ -38,6 +38,7 @@ data ItemIdentity
     | RemoteLauncher
     | LightningGun
     | PoisonSprayer
+    | FlatShield
   deriving 
     (Eq,Show,Ord,Enum)
 data AimStance

src/Dodge/Item/Equipment.hs

@@ -54,6 +54,7 @@ flatShield = defaultEquipment
     , _itAimStance = TwoHandFlat
     , _itEffect = effectOnOffEquip createShieldWall removeShieldWall
     , _itName   = "SHIELD"
+    , _itIdentity = FlatShield
     }
 flatShieldEquipSPic :: Item -> SPic
 flatShieldEquipSPic _ = 

src/Dodge/Item/Weapon/Drone.hs

@@ -73,5 +73,5 @@ aDroneWithItemParams it cr w = over props (IM.insert i theShell) w
         , _pjVel = rotateV dir (V2 1 0)
         , _prDraw = _amPjDraw am
         , _pjID = i
-        , _pjUpdate = \_ -> id
+        , _pjUpdate = const id
         }