Add test tileset textures

2021-06-11 13:51:06 +02:00
parent 02511afa80
commit a9aa2ca2cb
18 changed files with 75 additions and 38 deletions
@@ -56,7 +56,7 @@ itemLaserScopeEffect :: ItEffect
 itemLaserScopeEffect 
    = ItInvEffect {_itInvEffect = f ,_itEffectCounter = 0 }
  where 
-    moveHammerUp !HammerDown = HammerReleased
+    moveHammerUp HammerDown = HammerReleased
    moveHammerUp !_          = HammerUp
    f _ cr invid w 
        | invid == _crInvSel cr && crIsAiming' cr = w