Cleanup

2021-12-05 12:29:01 +00:00
parent 1bb1a06101
commit d9c5cfc26d
22 changed files with 148 additions and 144 deletions
@@ -36,7 +36,7 @@ import qualified Data.IntMap.Strict as IM
 teslaGun :: Item
 teslaGun = defaultGun 
    { _itName = "TESLA"
-    , _itCombineType = TESLAGUN
+    , _itType = TESLAGUN
 --    , _itIdentity = TeslaGun
    , _itConsumption = defaultAmmo
        { _ammoMax = 200
@@ -64,7 +64,7 @@ teslaGunPic _ = noPic $ colorSH blue $
 lasGun :: Item
 lasGun = defaultAutoGun 
    { _itName = "LASGUN ////"
-    , _itCombineType = LASGUN
+    , _itType = LASGUN
    , _itConsumption = defaultAmmo
        { _ammoMax = 200
        , _ammoLoaded = 200
@@ -120,7 +120,7 @@ lasGunPic it =
 tractorGun :: Item
 tractorGun = defaultAutoGun 
    { _itName = "TRACTORGUN"
-    , _itCombineType = TRACTORGUN
+    , _itType = TRACTORGUN
    , _itConsumption = defaultAmmo
        { _ammoMax = 10000
        , _ammoLoaded = 10000