Reorganise weapons, start work on drones

2021-11-22 00:37:27 +00:00
parent 1aa797ddef
commit 213f573011
19 changed files with 559 additions and 403 deletions
@@ -80,3 +80,50 @@ aSelf = blinkAction

 aSelfL :: Creature -> Int -> World -> World
 aSelfL cr _ = blinkAction cr
+
+effectGun :: String -> (Creature -> World -> World) -> Item
+effectGun name eff = defaultGun
+    { _itName = name ++ "Gun"
+    , _itUse = const eff
+    }
+autoEffectGun :: String -> (Creature -> World -> World) -> Item
+autoEffectGun name eff = defaultAutoGun
+    { _itName = name ++ "Gun"
+    , _itUse = const eff
+    }
+forceFieldGun :: Item
+forceFieldGun = defaultGun 
+    { _itName = "FORCEFIELD"
+    , _itIdentity = ForceFieldGun
+    , _wpMaxAmmo = 100
+    , _wpLoadedAmmo = 100
+    , _wpReloadTime = 40
+    , _wpReloadState = 0
+    , _itUseRate = 10
+    , _itUseTime = 0
+    , _itUse = undefined
+    , _wpSpread = 0.02
+    , _wpRange = 20
+    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2 [(-4,-4),(-4,4),(4,4),(4,0),(0,0),(0,-4)]
+    , _itAimingSpeed = 0.4
+    , _itAimingRange = 0.5
+    }
+-- grapGun = defaultGun 
+--     { _itName = "grapGun"
+--     , _itIdentity = GrapGun
+--     , _wpMaxAmmo = 1
+--     , _wpLoadedAmmo = 1
+--     , _wpReloadTime = 40
+--     , _wpReloadState = 0
+--     , _itUseRate = 10
+--     , _itUseTime = 0
+--     , _itUse = grapFire
+--     , _wpSpread = 0.002
+--     , _wpRange = 20
+--     , _wpIsAuto = False
+--     , _itFloorPict = onLayer FlItLayer $ polygon [(-4,-4),(-4,4),(4,4),(4,0),(0,0),(0,-4)]
+--     , _itAmount = 1
+--     , _itMaxStack = 1
+--     , _itAimingSpeed = 1
+--     , _itAimingRange = 0.5
+--     }