ActionPlan refactor

src/Dodge/Data/ActionPlan.hs

@@ -0,0 +1 @@
+module Dodge.Data.ActionPlan where

src/Dodge/Data/CreatureEffect.hs

@@ -0,0 +1,37 @@
+module Dodge.Data.CreatureEffect where
+
+data WdCrCr = NoCreatureEffect
+
+data CrWdImp = NoCrWdImp
+
+data CrWdWd = CrWdWdId
+
+data IntImp = NoIntImp
+
+data CrImp = NoCrImp
+    | TurnTowardCr Float -- turn amount
+
+data P2Imp = P2ImpNo
+
+data WdCrBl = WdCrTrue
+    | WdCrBlfromCrBl CrBl
+    | WdCrNegate WdCrBl
+    | WdCrLOSTarget
+    | WdCrSafeDistFromTarget Float
+
+data CrBl = CrCanShoot
+    | CrIsReloading
+    | CrIsAiming
+
+data MCrAc = MCrNoAction
+
+data CrAc = CrTurnAround
+    | CrFleeFromTarget
+
+data P2Ac = P2NoAction
+
+data MP2Ac = MP2NoAction
+
+data CrWdAc = CrWdBFSThenReturn Int
+    | ChooseMovementSpreadGun
+    | ChooseMovementLtAuto