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

Refector

Browse Source
This commit is contained in:
justin
2021-05-05 17:36:10 +02:00
parent f0e5095b5f
commit 05086d6f4a
29 changed files with 760 additions and 766 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature.hs.orig
+9 -9
View File
@@ -227,15 +227,15 @@ goalPict cr = let r = _crRad cr in case _crState cr of
-- | crDam > _crHP cr -> color white $ circleSolid r
| otherwise -> case head gls of
[] -> sizeColEnemy r white
(MoveToFor p i:_) -> dGoals $ sizeColEnemy r green
(WaitFor x:_) -> dGoals $ sizeColEnemy r yellow
(FireAt p:_) -> dGoals $ sizeColEnemy r red
(Reload:_) -> dGoals $ sizeColEnemy r orange
(PathTo p:_) -> dGoals $ sizeColEnemy r cyan
(SubPathTo p i _:_) -> dGoals $ sizeColEnemy r blue
(Search i:_) -> dGoals $ sizeColEnemy r black
_ -> dGoals $ sizeColEnemy r magenta
where dGoals p = pictures [p, rotate (0 - _crDir cr) $ scale 0.1 0.1 $ color white $ text $ show gls]
(MoveToFor p i:_) -> dImpulses $ sizeColEnemy r green
(WaitFor x:_) -> dImpulses $ sizeColEnemy r yellow
(FireAt p:_) -> dImpulses $ sizeColEnemy r red
(Reload:_) -> dImpulses $ sizeColEnemy r orange
(PathTo p:_) -> dImpulses $ sizeColEnemy r cyan
(SubPathTo p i _:_) -> dImpulses $ sizeColEnemy r blue
(Search i:_) -> dImpulses $ sizeColEnemy r black
_ -> dImpulses $ sizeColEnemy r magenta
where dImpulses p = pictures [p, rotate (0 - _crDir cr) $ scale 0.1 0.1 $ color white $ text $ show gls]
_ -> sizeColEnemy r (light $ dim green)
startCr :: Creature