justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Generalise weapon character modes

Browse Source
This commit is contained in:
justin
2021-04-29 23:13:41 +02:00
parent 6a38950501
commit 619756dd73
8 changed files with 129 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature.hs
+13 -9
View File
@@ -264,7 +264,9 @@ Items you start with.
-} -}
startInventory = IM.fromList (zip [0..20] startInventory = IM.fromList (zip [0..20]
( (
[pistol [lasGun
,autoGun
,bezierGun
--,blinkGun --,blinkGun
--,spawnGun lamp --,spawnGun lamp
--,poisonSprayer --,poisonSprayer
@@ -295,16 +297,18 @@ sizeEnemy col cr
| mod pdam 2 == 1 = color white $ circleSolid $ _crRad cr | mod pdam 2 == 1 = color white $ circleSolid $ _crRad cr
| otherwise = pictures [color col $ circleSolid $ _crRad cr | otherwise = pictures [color col $ circleSolid $ _crRad cr
, circLine $ _crRad cr ] , circLine $ _crRad cr ]
where pdam = _crPastDamage $ _crState cr where
pdam = _crPastDamage $ _crState cr
sizeColEnemy r col = pictures [color col $ circleSolid r, circLine r] sizeColEnemy r col = pictures [color col $ circleSolid r, circLine r]
basicCrPict :: Color -> Creature -> Picture basicCrPict :: Color -> Creature -> Picture
basicCrPict col cr = pictures [ onLayer CrLayer naked , drawEquipment cr] basicCrPict col cr = pictures [ onLayer CrLayer naked , drawEquipment cr]
where naked | pdam > 200 = color red $ circleSolid $ _crRad cr where
| pdam > 100 = color white $ circleSolid $ _crRad cr naked | pdam > 200 = color red $ circleSolid $ _crRad cr
| mod pdam 2 == 1 = color white $ circleSolid $ _crRad cr | pdam > 100 = color white $ circleSolid $ _crRad cr
-- | crDam > _crHP cr && odd (crDam - _crHP cr) | mod pdam 2 == 1 = color white $ circleSolid $ _crRad cr
-- = [color white $ circleSolid $ _crRad cr] -- | crDam > _crHP cr && odd (crDam - _crHP cr)
| otherwise = pictures [color col $ circleSolid $ _crRad cr, circLine $ _crRad cr] -- = [color white $ circleSolid $ _crRad cr]
pdam = _crPastDamage $ _crState cr | otherwise = pictures [color col $ circleSolid $ _crRad cr, circLine $ _crRad cr]
pdam = _crPastDamage $ _crState cr
src/Dodge/Creature/Action/UseItem.hs
+4 -9
View File
@@ -10,13 +10,7 @@ import Control.Lens
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
useItem :: Int -> World -> World useItem :: Int -> World -> World
useItem n w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of useItem n w = equippedItemEffect n w
Just HammerUp -> equippedItemEffect n $ setHammerDown w
Just NoHammer -> equippedItemEffect n w
_ -> setHammerDown w
where
cr = _creatures w IM.! n
setHammerDown = creatures . ix n . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
tryUseItem :: Int -> World -> World tryUseItem :: Int -> World -> World
tryUseItem cid w = case w ^? creatures . ix cid of tryUseItem cid w = case w ^? creatures . ix cid of
@@ -25,8 +19,9 @@ tryUseItem cid w = case w ^? creatures . ix cid of
equippedItemEffect :: Int -> World -> World equippedItemEffect :: Int -> World -> World
equippedItemEffect n w = itemEffect n it w equippedItemEffect n w = itemEffect n it w
where c = (_creatures w IM.! n) where
it = _crInv c IM.! _crInvSel c c = (_creatures w IM.! n)
it = _crInv c IM.! _crInvSel c
itemEffect :: Int -> Item -> World -> World itemEffect :: Int -> Item -> World -> World
itemEffect n (Consumable {_cnEffect=eff }) w = fromMaybe w $ fmap (rmSelectedInvItem n) $ eff n w itemEffect n (Consumable {_cnEffect=eff }) w = fromMaybe w $ fmap (rmSelectedInvItem n) $ eff n w
src/Dodge/Event.hs
+7 -5
View File
@@ -88,14 +88,16 @@ handlePressedMouseButton but w
wheelUpEvent :: World -> World wheelUpEvent :: World -> World
wheelUpEvent w = case _carteDisplay w of wheelUpEvent w = case _carteDisplay w of
True | rbDown -> w & carteZoom .~ min 0.75 (z+(0.1*z)) True
| otherwise -> w & selLocation %~ (`mod` numLocs) . (\i -> i - 1) | rbDown -> w & carteZoom .~ min 0.75 (z+(0.1*z))
_ | rbDown -> fromMaybe (closeObjScrollUp w) | otherwise -> w & selLocation %~ (`mod` numLocs) . (\i -> i - 1)
_
| rbDown -> fromMaybe (closeObjScrollUp w)
$ (yourItem w ^? itScrollUp) $ (yourItem w ^? itScrollUp)
<*> pure (_crInvSel (you w)) <*> pure (_crInvSel (you w))
<*> pure w <*> pure w
| lbDown -> w & cameraZoom +~ 0.1 | lbDown -> w & cameraZoom +~ 0.1
| otherwise -> upInvPos w | otherwise -> upInvPos w
where where
rbDown = ButtonRight `S.member` _mouseButtons w rbDown = ButtonRight `S.member` _mouseButtons w
lbDown = ButtonLeft `S.member` _mouseButtons w lbDown = ButtonLeft `S.member` _mouseButtons w
src/Dodge/Item/Attachment.hs
+40
View File
@@ -1,2 +1,42 @@
module Dodge.Item.Attachment module Dodge.Item.Attachment
where where
import Dodge.Data
import Dodge.Item.Attachment.Data
import Control.Lens hiding ((|>),(<|))
import Data.Sequence
import Data.Maybe (fromJust)
import qualified Data.IntMap.Strict as IM
incCharMode' :: ItAttachment -> ItAttachment
incCharMode' = itCharMode %~ cycleL
where
cycleL (x :<| xs) = xs |> x
cycleL xs = xs
decCharMode' :: ItAttachment -> ItAttachment
decCharMode' = itCharMode %~ cycleR
where
cycleR (xs :|> x) = x <| xs
cycleR xs = xs
incCharMode
:: Int -- ^ Inventory selection
-> World
-> World
incCharMode i = creatures . ix 0 . crInv . ix i . itAttachment . _Just %~ incCharMode'
decCharMode
:: Int -- ^ Inventory selection
-> World
-> World
decCharMode i = creatures . ix 0 . crInv . ix i . itAttachment . _Just %~ decCharMode'
charFiringStrat
:: [(Char, Int -> World -> World)] -- ^ Different firing effects for different characters
-> Int -- ^ Creature id
-> World
-> World
charFiringStrat strats cid w =
let Just (c :<| _) = w ^? creatures . ix cid . crInv
. ix (_crInvSel $ _creatures w IM.! cid) . itAttachment
. _Just . itCharMode
in fromJust (Prelude.lookup c strats) cid w
src/Dodge/Item/Attachment/Data.hs
+2 -5
View File
@@ -5,6 +5,7 @@ module Dodge.Item.Attachment.Data
import Geometry.Data import Geometry.Data
import Control.Lens import Control.Lens
import qualified Data.Sequence as Seq
data ItAttachment data ItAttachment
= ItScope = ItScope
@@ -16,11 +17,7 @@ data ItAttachment
| ItFuse {_itFuseTime :: Int} | ItFuse {_itFuseTime :: Int}
| ItPhaseV {_itPhaseV :: Float} | ItPhaseV {_itPhaseV :: Float}
| ItMode {_itMode :: Int} | ItMode {_itMode :: Int}
| ItCharMode | ItCharMode {_itCharMode :: Seq.Seq Char }
{_itCharMode :: Char
,_itUpChar :: Char -> Char
,_itDownChar :: Char -> Char
}
| ItTargetPos { _itTargetPos :: Point2 } | ItTargetPos { _itTargetPos :: Point2 }
makeLenses ''ItAttachment makeLenses ''ItAttachment
src/Dodge/Item/Weapon.hs
+42 -82
View File
@@ -13,8 +13,6 @@ import Dodge.SoundLogic
import Dodge.Creature.Action import Dodge.Creature.Action
import Dodge.RandomHelp import Dodge.RandomHelp
import Dodge.WorldEvent import Dodge.WorldEvent
import Dodge.Debug
import Dodge.WallCreatureCollisions
import Dodge.Default import Dodge.Default
import Dodge.Item.Draw import Dodge.Item.Draw
import Dodge.Item.Weapon.Bullet import Dodge.Item.Weapon.Bullet
@@ -22,6 +20,7 @@ import Dodge.Item.Weapon.InventoryDisplay
import Dodge.Item.Weapon.TriggerType import Dodge.Item.Weapon.TriggerType
import Dodge.Item.Weapon.Recock import Dodge.Item.Weapon.Recock
import Dodge.Item.Attachment.Data import Dodge.Item.Attachment.Data
import Dodge.Item.Attachment
import Geometry import Geometry
import Picture import Picture
@@ -30,11 +29,12 @@ import Data.Char
import Data.Maybe import Data.Maybe
import Data.Function import Data.Function
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.Sequence as Seq
import Control.Lens import Control.Lens
import Control.Applicative import Control.Applicative
import Control.Monad.State import Control.Monad.State
import Control.Monad import Control.Monad
import qualified SDL as SDL import qualified SDL
import System.Random import System.Random
import qualified Data.Set as S import qualified Data.Set as S
import qualified Data.IntMap.Strict as IM import qualified Data.IntMap.Strict as IM
@@ -56,11 +56,13 @@ pistol = Weapon
, _wpReloadState = 0 , _wpReloadState = 0
, _wpFireRate = 8 , _wpFireRate = 8
, _wpFireState = 0 , _wpFireState = 0
, _wpFire = shootWithSound 0 , _wpFire =
. withRandomDir 0.1 hammerCheck
. withMuzFlare . shootWithSound 0
. withVelWthHiteff (30,0) 2 . withRandomDir 0.1
$ destroyOnImpact bulHitCr' bulHitWall' bulHitFF' . withMuzFlare
. withVelWthHiteff (30,0) 2
$ destroyOnImpact bulHitCr' bulHitWall' bulHitFF'
, _wpSpread = 0.02 , _wpSpread = 0.02
, _wpRange = 20 , _wpRange = 20
, _itHammer = HammerUp , _itHammer = HammerUp
@@ -81,8 +83,11 @@ pistol = Weapon
} }
defaultGun = pistol defaultGun = pistol
defaultAutoGun = autoGun {_itScrollUp = const id defaultAutoGun = autoGun
, _itScrollDown = const id, _itInvDisplay = basicWeaponDisplay} { _itScrollUp = const id
, _itScrollDown = const id
, _itInvDisplay = basicWeaponDisplay
}
effectGun :: String -> (Int -> World -> World) -> Item effectGun :: String -> (Int -> World -> World) -> Item
effectGun name eff = defaultGun effectGun name eff = defaultGun
{ _itName = name ++ "Gun" { _itName = name ++ "Gun"
@@ -103,11 +108,13 @@ autoGun = defaultGun
, _wpReloadState = 0 , _wpReloadState = 0
, _wpFireRate = 6 , _wpFireRate = 6
, _wpFireState = 0 , _wpFireState = 0
, _wpFire = autoFireMode , _wpFire = charFiringStrat
[('M',autoFireMode)
,('S',singleFireMode)
]
, _wpSpread = autogunSpread , _wpSpread = autogunSpread
, _wpRange = 20 , _wpRange = 20
, _itHammer = NoHammer , _itHammer = HammerUp
-- , _itHammer = HammerUp
, _itFloorPict = onLayer FlItLayer $ color red $ pictures [polygon [(-4,-4),(-4,4),(4,4),(4,-4)]] , _itFloorPict = onLayer FlItLayer $ color red $ pictures [polygon [(-4,-4),(-4,4),(4,4),(4,-4)]]
, _itAmount = 1 , _itAmount = 1
, _itMaxStack = 1 , _itMaxStack = 1
@@ -115,17 +122,17 @@ autoGun = defaultGun
, _itAimingRange = 1 , _itAimingRange = 1
, _itZoom = defaultItZoom {_itAimZoomFac = 1.5} , _itZoom = defaultItZoom {_itAimZoomFac = 1.5}
, _itEquipPict = drawWeapon $ color red $ polygon $ rectNESW 4 4 (-4) (-4) , _itEquipPict = drawWeapon $ color red $ polygon $ rectNESW 4 4 (-4) (-4)
, _itEffect = NoItEffect , _itEffect = wpRecock
, _itAttachment = Just $ ItMode 0 , _itAttachment = Just $ ItCharMode $ Seq.fromList "MS"
, _itScrollUp = incMode , _itScrollUp = incCharMode
, _itScrollDown = incMode , _itScrollDown = decCharMode
, _itInvDisplay = displayAutoGun , _itInvDisplay = basicWeaponDisplay
} }
autoFireMode = shootWithSound (fromIntegral autoGunSound) autoFireMode = shootWithSound (fromIntegral autoGunSound)
. torqueBefore 0.05 . torqueBefore 0.05
$ autoGunNonTwistEff $ autoGunNonTwistEff
singleFireMode = shootWithSound (fromIntegral autoGunSound) singleFireMode = hammerCheck $ shootWithSound (fromIntegral autoGunSound)
. torqueAfter 0.03 -- . torqueAfter 0.03
$ autoGunNonTwistEff $ autoGunNonTwistEff
autoGunNonTwistEff = withRecoil 40 autoGunNonTwistEff = withRecoil 40
. withRandomDir (autogunSpread/2) . withRandomDir (autogunSpread/2)
@@ -133,33 +140,6 @@ autoGunNonTwistEff = withRecoil 40
. withVelWthHiteff (50,0) 3 . withVelWthHiteff (50,0) 3
$ destroyOnImpact bulHitCr' bulHitWall' bulHitFF' $ destroyOnImpact bulHitCr' bulHitWall' bulHitFF'
incMode :: Int -> World -> World
incMode _ w
= case newMode of
0 -> w & creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itMode .~ 0
& creatures . ix 0 . crInv . ix itRef . itHammer .~ NoHammer
& creatures . ix 0 . crInv . ix itRef . itEffect .~ NoItEffect
& creatures . ix 0 . crInv . ix itRef . wpFire .~ autoFireMode
1 -> w & creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itMode .~ 1
& creatures . ix 0 . crInv . ix itRef . itHammer .~ HammerUp
& creatures . ix 0 . crInv . ix itRef . itEffect .~ wpRecock
& creatures . ix 0 . crInv . ix itRef . wpFire .~ singleFireMode
where itRef = fromMaybe (-2) $ w ^? creatures . ix 0 . crInvSel
oldMode = w ^? creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itMode
newMode = fromMaybe 1 $ fmap f oldMode
f x = mod (x+1) 2
decMode :: Int -> World -> World
decMode _ w = w & creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itMode %~ f
& creatures . ix 0 . crInv . ix itRef . itName .~ "AUTOGUN" ++ g newMode
where itRef = fromMaybe (-2) $ w ^? creatures . ix 0 . crInvSel
oldMode = w ^? creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itMode
newMode = fromMaybe 1 $ fmap f oldMode
f x = mod (x-1) 2
g 1 = "-S"
g 2 = "-B"
g 0 = "-A"
rezGun = defaultGun rezGun = defaultGun
{ _itName = "REANIMATOR" { _itName = "REANIMATOR"
, _wpMaxAmmo = 50 , _wpMaxAmmo = 50
@@ -224,32 +204,11 @@ lasGun = defaultAutoGun
, _itAimingSpeed = 0.4 , _itAimingSpeed = 0.4
, _itAimingRange = 1 , _itAimingRange = 1
, _itEquipPict = drawWeapon $ color blue $ polygon $ rectNESW 3 3 (-3) (-3) , _itEquipPict = drawWeapon $ color blue $ polygon $ rectNESW 3 3 (-3) (-3)
, _itAttachment = Just $ ItPhaseV 1 , _itAttachment = Just $ ItCharMode $ Seq.fromList "/VZ"
, _itScrollUp = incPhaseV , _itScrollUp = incCharMode
, _itScrollDown = decPhaseV , _itScrollDown = decCharMode
, _itInvDisplay = displayLasGun , _itInvDisplay = basicWeaponDisplay
} }
incPhaseV :: Int -> World -> World
incPhaseV _ w = w & creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itPhaseV %~ f
where itRef = fromMaybe (-2) $ w ^? creatures . ix 0 . crInvSel
oldPhaseV = w ^? creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itPhaseV
newPhaseV = fromMaybe 1 $ fmap f oldPhaseV
f 0.2 = 1
--f 0.5 = 1
f 1 = 5
--f 2 = 5
f 5 = 5
decPhaseV :: Int -> World -> World
decPhaseV _ w = w & creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itPhaseV %~ f
where itRef = fromMaybe (-2) $ w ^? creatures . ix 0 . crInvSel
oldPhaseV = w ^? creatures . ix 0 . crInv . ix itRef . itAttachment . _Just . itPhaseV
newPhaseV = fromMaybe 1 $ fmap f oldPhaseV
f 0.2 = 0.2
--f 0.5 = 0.2
f 1 = 0.2
--f 2 = 1
f 5 = 1
forceFieldGun = defaultGun forceFieldGun = defaultGun
{ _itName = "FORCEFIELD" { _itName = "FORCEFIELD"
, _itIdentity = ForceFieldGun , _itIdentity = ForceFieldGun
@@ -344,11 +303,12 @@ teslaLauncher = launcher
bezierGun = defaultAutoGun bezierGun = defaultAutoGun
{ _itName = "B-GUN" { _itName = "B-GUN"
, _wpFire = maybeSetTarget $ \p -> shootWithSound 0 , _wpFire = maybeSetTarget $ \p ->
. withMuzFlare shootWithSound 0
. withRecoil 40 . withMuzFlare
. torqueBefore 0.05 -- I believe that this doesn't affect . withRecoil 40
$ shootBezier p -- <- the start point . torqueBefore 0.05 -- I believe that this doesn't affect
$ shootBezier p -- <- the start point
, _itAttachment = Nothing , _itAttachment = Nothing
, _itScrollUp = removeItAttachment 0 , _itScrollUp = removeItAttachment 0
, _itScrollDown = removeItAttachment 0 , _itScrollDown = removeItAttachment 0
@@ -600,8 +560,6 @@ startZoomInLongGun _ w = w & creatures . ix 0 . crInv . ix (_crInvSel (_creatur
startZoomOutLongGun :: Int -> World -> World startZoomOutLongGun :: Int -> World -> World
startZoomOutLongGun _ w = w & creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0)) startZoomOutLongGun _ w = w & creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0))
. itAttachment . _Just . scopeZoomChange %~ \x -> min (-5) (x-5) . itAttachment . _Just . scopeZoomChange %~ \x -> min (-5) (x-5)
-- (\x -> - 10)
poisonSprayer = defaultAutoGun poisonSprayer = defaultAutoGun
{ _itName = "POISON" { _itName = "POISON"
@@ -640,8 +598,6 @@ flamer = defaultAutoGun
, _itAmount = 1 , _itAmount = 1
, _itMaxStack = 1 , _itMaxStack = 1
, _itAimingSpeed = 0.5 , _itAimingSpeed = 0.5
-- , _itAimingSpeed = 1
-- , _itAimingSpeed = 0.2
, _itAimingRange = 0 , _itAimingRange = 0
, _itZoom = defaultItZoom {_itAimZoomMax = 5, _itAimZoomMin = 1.5} , _itZoom = defaultItZoom {_itAimZoomMax = 5, _itAimZoomMin = 1.5}
, _itEquipPict = drawWeapon $ color yellow $ polygon $ rectNESW 4 4 (-4) (-4) , _itEquipPict = drawWeapon $ color yellow $ polygon $ rectNESW 4 4 (-4) (-4)
@@ -694,9 +650,13 @@ aLaser cid w = over particles ((makeLaserAt phaseV pos dir (Just cid)) : )
i = newProjectileKey w i = newProjectileKey w
pos = _crPos cr +.+ ((_crRad cr +3) *.* unitVectorAtAngle dir) pos = _crPos cr +.+ ((_crRad cr +3) *.* unitVectorAtAngle dir)
dir = _crDir cr dir = _crDir cr
phaseV = fromMaybe 1 $ cr ^? crInv . ix j . itAttachment . _Just . itPhaseV phaseV = charToPhaseV $ fromMaybe '/' $ Seq.lookup 0 =<< cr ^? crInv . ix j . itAttachment . _Just . itCharMode
j = _crInvSel cr j = _crInvSel cr
charToPhaseV 'V' = 0.2
charToPhaseV '/' = 1
charToPhaseV 'Z' = 5
aTractorBeam :: Int -> Int -> World -> World aTractorBeam :: Int -> Int -> World -> World
aTractorBeam col cid w aTractorBeam col cid w
= set (creatures . ix cid . crInv . ix itRef . wpFire) = set (creatures . ix cid . crInv . ix itRef . wpFire)
src/Dodge/Item/Weapon/InventoryDisplay.hs
+6 -16
View File
@@ -7,31 +7,21 @@ import Dodge.Data
import Dodge.Base import Dodge.Base
import Dodge.Item.Attachment.Data import Dodge.Item.Attachment.Data
import Data.Sequence
import Control.Lens import Control.Lens
import Control.Monad import Control.Monad
-- MODES SHOULD BE MADE UNIFORM -- not sure if this is in the right place...
basicWeaponDisplay :: Item -> String basicWeaponDisplay :: Item -> String
basicWeaponDisplay it = case it ^? itAttachment . _Just . itCharMode of basicWeaponDisplay it = case it ^? itAttachment . _Just . itCharMode of
Just c -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) ++ [' ',c] Just (c :<| _) -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) ++ [' ',c]
otherwise -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded) _ -> midPadL 10 ' ' (_itName it) (' ' : aIfLoaded)
where where
availableAmmo = show $ _wpMaxAmmo it availableAmmo = show $ _wpMaxAmmo it
aIfLoaded = case (_wpReloadState it) of aIfLoaded = case (_wpReloadState it) of
0 -> show $ _wpLoadedAmmo it 0 -> show $ _wpLoadedAmmo it
x -> "R" ++ show x x -> "R" ++ show x
displayAutoGun :: Item -> String
displayAutoGun it@(Weapon {_itAttachment = mayMode})
= midPadL 10 ' ' "AUTOGUN" (' ':aIfLoaded) ++ (' ':phaseS)
where aIfLoaded = case (_wpReloadState it) of
0 -> show $ _wpLoadedAmmo it
x -> "R" ++ show x
phaseS = case mayMode of
Just (ItMode 0) -> "M"
Just (ItMode 1) -> "S"
Just (ItMode 2) -> "B"
displayLasGun :: Item -> String displayLasGun :: Item -> String
displayLasGun it@(Weapon {_itAttachment = mayPhase}) displayLasGun it@(Weapon {_itAttachment = mayPhase})
src/Dodge/Item/Weapon/TriggerType.hs
+15 -1
View File
@@ -134,12 +134,26 @@ shootWithSound soundid f cid w
&& _wpFireState item == 0 && _wpFireState item == 0
&& _wpLoadedAmmo item > 0 && _wpLoadedAmmo item > 0
reloadCondition = _wpLoadedAmmo item == 0 reloadCondition = _wpLoadedAmmo item == 0
{- | Applies a world effect after a hammer position check. -}
hammerCheck
:: (Int -> World -> World) -- ^ Underlying effect
-> Int -- ^ Creature id
-> World
-> World
hammerCheck f cid w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of
Just HammerUp -> f cid $ setHammerDown w
_ -> setHammerDown w
where
cr = _creatures w IM.! cid
setHammerDown = creatures . ix cid . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
{- | Applies a world effect after an ammo check. -} {- | Applies a world effect after an ammo check. -}
shoot shoot
:: (Int -> World -> World) :: (Int -> World -> World)
-- ^ Underlying effect, takes creature id as input -- ^ Underlying effect, takes creature id as input
-> Int -- ^ Creature id -> Int -- ^ Creature id
-> World -> World -> World
-> World
shoot f cid w shoot f cid w
| fireCondition = over (pointerToItem . wpLoadedAmmo) (\ammo -> ammo-1) | fireCondition = over (pointerToItem . wpLoadedAmmo) (\ammo -> ammo-1)
$ set (pointerToItem . wpFireState) (_wpFireRate item) $ set (pointerToItem . wpFireState) (_wpFireRate item)