Add generic item placement rooms

2022-03-03 22:13:15 +00:00
parent fd622b4b80
commit 2a3c001a53
8 changed files with 64 additions and 56 deletions
@@ -1,5 +1,6 @@
 module Dodge.Item.Weapon.BatteryGuns
    ( lasGun
+    , sparkGun
    , teslaGun
    , tractorGun
    , lasRayAt
@@ -31,6 +32,10 @@ import LensHelp
 import System.Random
 --import Data.Tuple
 import qualified Data.IntMap.Strict as IM
+sparkGun :: Item
+sparkGun = teslaGun
+    & itName .~ "SPARKGUN"
+    & itType .~ SPARKGUN
 teslaGun :: Item
 teslaGun = defaultGun 
    { _itName = "TESLA"