Cleanup Action datatypes, clear sel set if scroll different section

2026-05-10 23:32:59 +01:00
parent dfb451c450
commit b213525c21
11 changed files with 276 additions and 206 deletions
@@ -2,12 +2,12 @@
 module Dodge.Creature.Volition (
    holsterWeapon,
    drawWeapon,
-    shootTillEmpty,
+--    shootTillEmpty,
    shootFirstMiss,
 ) where

 import Dodge.Data.Creature
-import Dodge.Data.CreatureEffect
+--import Dodge.Data.CreatureEffect
 import Dodge.SoundLogic.LoadSound
 import Geometry

@@ -15,11 +15,11 @@ holsterWeapon, drawWeapon :: Action
 holsterWeapon = DoImpulses [ChangePosture AtEase, MakeSound whiteNoiseFadeOutS]
 drawWeapon = DoImpulses [ChangePosture Aiming, MakeSound whiteNoiseFadeInS]

-shootTillEmpty :: Action
--shootTillEmpty = (crCanShoot `DoActionWhile` DoImpulses [UseItem])
-shootTillEmpty =
-    (WdCrBlfromCrBl CrCanShoot `DoActionWhile` DoImpulses [UseItem])
-        `DoActionThen` 20 `WaitThen` holsterWeapon
+--shootTillEmpty :: Action
+----shootTillEmpty = (crCanShoot `DoActionWhile` DoImpulses [UseItem])
+--shootTillEmpty =
+--    (WdCrBlfromCrBl CrCanShoot `DoActionWhile` DoImpulses [UseItem])
+--        `DoActionThen` 20 `WaitThen` holsterWeapon

 --advanceShoot :: Int -> Action
 --advanceShoot tcid = lostest `DoActionWhile`