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
@@ -37,7 +37,7 @@ import System.Random
 launcher :: Item
 launcher = defaultGun 
    { _itName = "ROCKO"
-    , _itIdentity = Launcher
+    , _itCombineType = LAUNCHER
    , _itConsumption = defaultAmmo 
        { _aoType = defaultShellAmmo 
            { _amPayload = makeExplosionAt
@@ -260,7 +260,7 @@ trySpinByCID cid i pj w = w & props . ix pjid . pjSpin .~ newSpin
 remoteLauncher :: Item
 remoteLauncher = defaultGun 
    { _itName = "ROCKO-REM"
-    , _itIdentity = RemoteLauncher
+    , _itCombineType = LAUNCHER
    , _itConsumption = defaultAmmo 
        { _aoType = defaultShellAmmo 
            { _amPayload = makeExplosionAt