Add objects based on walls, called machines

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -189,7 +189,7 @@ moveLaser phaseV pos dir w pt
     f :: [Wall] -> Point2 -> Point2 -> (Maybe (Point2,Either Creature Wall),[Point2])
     f seenWs x y = case find (h' seenWs) $ thingsHitExceptCrLongLine Nothing x y w of
         Just (p,Right wl) 
-            | _wlIsSeeThrough wl -> f' p $ f (wl:seenWs) p (h x y wl p)
+            | _wlOpacity wl == SeeThrough -> f' p $ f (wl:seenWs) p (h x y wl p)
             | otherwise -> (Just (p,Right wl), [p])
         Just (p,obj) -> (Just (p,obj), [p])
         Nothing -> (Nothing, [y])

src/Dodge/Item/Weapon/BulletGuns.hs

@@ -267,7 +267,7 @@ miniGun = defaultAutoGun
     , _itAimingRange = 1
     , _itEquipPict = pictureWeaponAim miniGunPictItem
     , _wpAmmo = basicBullet
-    }
+    } & itDimension . muzzleLength .~ 15
   where
     recoilAmount = 5
     [vm1,vm2,vm3,vm4] =