33 lines
947 B
Haskell
33 lines
947 B
Haskell
module Dodge.Item.Consumable where
|
|
import Dodge.Data
|
|
--import Dodge.Picture.Layer
|
|
import Dodge.Default
|
|
import Dodge.SoundLogic
|
|
import Shape
|
|
--import ShapePicture
|
|
import Dodge.Item.Draw
|
|
import Picture
|
|
|
|
--import Data.Maybe
|
|
import Control.Lens
|
|
import qualified Data.IntMap.Strict as IM
|
|
|
|
medkit :: Int -> Item
|
|
medkit i = defaultConsumable
|
|
{ _itUse = ConsumeUse
|
|
{_cUse = \_ cr w -> w & creatures . ix (_crID cr) . crHP +~ i
|
|
}
|
|
, _itEquipPict = pictureWeaponAim $ const $ (,) emptySH $ color blue $ circleSolid 3
|
|
, _itID = Nothing
|
|
}
|
|
& itType . iyBase .~ MEDKIT i
|
|
|
|
heal25 :: Int -> World -> Maybe World
|
|
heal25 = heal 25
|
|
heal :: Int -> Int -> World -> Maybe World
|
|
heal hp n w | _crHP (_creatures w IM.! n) >= 10000 = Nothing
|
|
| otherwise = Just $ soundStart (CrSound $ _crID cr) (_crPos cr) healS Nothing w
|
|
& creatures . ix n . crHP %~ min 10000 . (+ hp)
|
|
where
|
|
cr = _creatures w IM.! n
|