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

Cleanup

Browse Source
This commit is contained in:
justin
2022-06-05 10:00:35 +01:00
parent e84e5bad01
commit 7398791194
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Action.hs
+7 -10
View File
@@ -177,16 +177,13 @@ blinkActionFail cr w = w
p3 = maybe p1 (mvPointTowardAtSpeed r cpos . fst) p2 p3 = maybe p1 (mvPointTowardAtSpeed r cpos . fst) p2
{- | Teleport a creature to the mouse position -} {- | Teleport a creature to the mouse position -}
blinkAction blinkAction :: Creature -> World -> World
:: Creature blinkAction cr w = w
-> World & soundMultiFrom [TeleSound 0,TeleSound 1] p3 teleS Nothing
-> World & distortions .++~ distortionBulge
blinkAction cr w & creatures . ix cid . crPos .~ p3
= soundMultiFrom [TeleSound 0,TeleSound 1] p3 teleS Nothing & blinkShockwave cid p3
. over distortions (distortionBulge ++) & inverseShockwaveAt cpos 40 2 2
. set (creatures . ix cid . crPos) p3
. blinkShockwave cid p3
$ inverseShockwaveAt cpos 40 2 2 w
where where
distR = 120 distR = 120
distortionBulge = distortionBulge =