Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -20,7 +20,7 @@ Sends out pulses that display walls.  -}
 radar :: Item
 radar = defaultGun 
    { _itName = "RADAR"
-    , _itIdentity = Generic
+    , _itCombineType = RADAR
    , _itConsumption = defaultAmmo
        { _ammoMax = 100
        , _ammoLoaded = 100
@@ -40,7 +40,7 @@ Sends out pulses that display creatures.  -}
 sonar :: Item
 sonar = defaultGun 
    { _itName = "SONAR"
-    , _itIdentity = Generic
+    , _itCombineType = RADAR
    , _itConsumption = defaultAmmo
        { _ammoMax = 100
        , _ammoLoaded = 100
@@ -59,7 +59,7 @@ sonar = defaultGun
 Automatically sends out pulses that display creatures.  -}
 autoSonar :: Item
 autoSonar = defaultEquipment
-    { _itIdentity = Generic
+    { _itCombineType = RADAR
    , _itName = "AUTOSONAR"
    , _itMaxStack = 1
    , _itAmount = 1
@@ -73,7 +73,7 @@ autoSonar = defaultEquipment
 Automatically sends out pulses that display walls.  -}
 autoRadar :: Item
 autoRadar = defaultEquipment
-    { _itIdentity = Generic
+    { _itCombineType = RADAR
    , _itName = "AUTORADAR"
    , _itMaxStack = 1
    , _itAmount = 1