Add various capabilities for generating graphs, fixes to lasgun

src/Dodge/Combine/Data.hs

@@ -72,31 +72,27 @@ data ItemBaseType
     | EFFGUN String
     | AUTOEFFGUN String
     -- Weapons
-    | BANGSTICK Int
+    | BANGSTICK {_xNum :: Int}
     | PISTOL
     | REVOLVER
-    | REVOLVERX Int
+    | REVOLVERX {_xNum :: Int}
     | MACHINEPISTOL
     | AUTOPISTOL
     | SMG
     | BANGCONE
     | BLUNDERBUSS
-    | BIGBLUNDERBUSS
-    | BIGGERBLUNDERBUSS
-    | BIGGESTBLUNDERBUSS
---    | GRAPESHOTCANNON
+    | GRAPECANNON {_xNum :: Int}
 --    | GRENADELAUNCHER Int -- number of chambers that can be reloaded
 --    | MORTARCONE / HANDMORTAR
-    | BANGCANE
 --    | MINIGUN
-    | MINIGUNX Int
-    | BANGCANEX Int
+    | MINIGUNX {_xNum :: Int}
+    | VOLLEYGUN {_xNum :: Int}
     | RIFLE
     | REPEATER
     | AUTORIFLE
     | BURSTRIFLE
-    | FASTBURSTRIFLE
-    | COMPLETEBURSTRIFLE
+--    | FASTBURSTRIFLE
+--    | COMPLETEBURSTRIFLE
     | BANGROD
     | ELEPHANTGUN
     | AMR
@@ -122,7 +118,7 @@ data ItemBaseType
     | SONICGUN
     | TRACTORGUN
     | LAUNCHER
-    | LAUNCHERX Int
+    | LAUNCHERX {_xNum :: Int}
 --    | TRACKINGLAUNCHER
     | REMOTELAUNCHER
     | POISONSPRAYER
@@ -205,3 +201,4 @@ data ModuleSlot
   deriving (Eq,Ord,Show)
 
 makeLenses ''ItemType
+makeLenses ''ItemBaseType