Commit before changing wall drawing

src/Dodge/Data.hs

@@ -721,6 +721,9 @@ data AmmoType
         { _amString    :: String
         , _amCreateGas :: Float -> Point2 -> Float -> Creature -> World -> World
         }
+    | ForceFieldAmmo
+        { _amForceFieldType :: Wall
+        }
     | GenericAmmo
 data ItemTweaks
     = NoTweaks

src/Dodge/Item/Weapon/Utility.hs

@@ -144,6 +144,7 @@ forceFieldGun = defaultGun
         , _ammoLoaded = 100
         , _reloadTime = 40
         , _reloadState = Nothing'
+        , _aoType = ForceFieldAmmo forceField
         }
     , _itUse = ruseInstant useForceFieldGun (HasHammer HammerUp)
         [ hammerCheckI , ammoCheckI , useAmmoAmount 1]

src/Dodge/Placement/Instance/Wall.hs

@@ -121,7 +121,7 @@ baseWindowPane :: Wall
 baseWindowPane = defaultWall
     { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
-    , _wlColor = withAlpha 0.2 cyan
+    , _wlColor = cyan
     , _wlSeen = False
     , _wlOpacity = SeeThrough
     , _wlDraw = True