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
@@ -1,9 +1,50 @@
 module Dodge.Combine.Data
-    (ItemCombineType (..)
+    (CombineType (..)
    )
    where
-data ItemCombineType
-    = TPipe
+data CombineType
+    = NOTDEFINED
+    -- Weapons
+    | BANGSTICK
+    | BANGCANE
+    | BANGROD
+    | PISTOL
+    | HVAUTOGUN
+    | LTAUTOGUN
+    | MINIGUN
+    | AUTOGUN
+    | SPREADGUN
+    | MULTGUN
+    | LONGGUN
+    | TESLAGUN
+    | LASGUN
+    | TRACTORGUN
+    | LAUNCHER
+    | SPRAYER
+    | SQUIRTER
+    | DRONELAUNCHER
+    | GRENADE
+    | REMOTEBOMB
+    -- Utility items
+    | BOOSTER
+    | REWINDER
+    | BLINKER
+    | FORCEFIELD
+    | SHRINKER
+    -- Equipment
+    | RADAR
+    | MAGSHIELD
+    | FLAMESHIELD
+    | FRONTARMOUR
+    | FLATSHIELD
+    | JETPACK
+    -- Crafting
+    | PIPE
+    | LONGPIPE
+    | VERYLONGPIPE
+    | HARDWARE
+    | SPRING
+    | TPipe
    | NoCombineType
    | TLongPipe
    | TVeryLongPipe