diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-13 20:03:24 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-13 20:03:24 +0200 |
| commit | 0c5fe56414a323f49d7b086c0a64a216443a22bb (patch) | |
| tree | eb0fee8a463e09bc2dada338de5f42c5bbb3f552 /src/Sequence/Contact | |
| parent | 1ca2b48b49d559158cda4feffa145bdfded2c1c2 (diff) | |
| download | 2017-01-16_17:13:37-0c5fe56414a323f49d7b086c0a64a216443a22bb.tar 2017-01-16_17:13:37-0c5fe56414a323f49d7b086c0a64a216443a22bb.tar.gz 2017-01-16_17:13:37-0c5fe56414a323f49d7b086c0a64a216443a22bb.tar.bz2 2017-01-16_17:13:37-0c5fe56414a323f49d7b086c0a64a216443a22bb.tar.xz 2017-01-16_17:13:37-0c5fe56414a323f49d7b086c0a64a216443a22bb.zip | |
action log
Diffstat (limited to 'src/Sequence/Contact')
| -rw-r--r-- | src/Sequence/Contact/Archetypes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs index 626104b..1bf2b7e 100644 --- a/src/Sequence/Contact/Archetypes.hs +++ b/src/Sequence/Contact/Archetypes.hs | |||
| @@ -50,7 +50,7 @@ archetypes = [ ("Mensch", human) | |||
| 50 | cTable :: Ord v => [(Integer, Integer, v)] -> Table v | 50 | cTable :: Ord v => [(Integer, Integer, v)] -> Table v |
| 51 | cTable = Map.fromList . map (\(from, to, value) -> (value, (abs (to - from) + 1) % 100)) | 51 | cTable = Map.fromList . map (\(from, to, value) -> (value, (abs (to - from) + 1) % 100)) |
| 52 | 52 | ||
| 53 | death :: Hitzone -> FormulaM Stats (Maybe Stats) | 53 | death :: Hitzone -> Effect |
| 54 | death zone = Effect "Tod" . runMaybeT $ do | 54 | death zone = Effect "Tod" . runMaybeT $ do |
| 55 | maxVitality <- (MaybeT . preview $ ctx . sMaxVitality) >>= lift | 55 | maxVitality <- (MaybeT . preview $ ctx . sMaxVitality) >>= lift |
| 56 | currentDmg <- MaybeT . preview $ ctx . sDamage' zone | 56 | currentDmg <- MaybeT . preview $ ctx . sDamage' zone |