Refactor bullet particles

2021-05-19 13:46:19 +02:00
parent 44f239c673
commit 4463dc7716
29 changed files with 637 additions and 535 deletions
@@ -509,9 +509,6 @@ data Action
    | PathTo 
        {_pathToPoint :: Point2
        }
-    | FleeFrom 
-        {_fleeFromCID :: Int
-        }
    | HealSelf
    | DefendSelf
    | Protect 
@@ -524,15 +521,12 @@ data Action
    | PickupItem 
        {_pickupItemID :: Int
        }
-    | ShootTillEmpty
    | ImpulsesList 
        {_impulsesListList :: [[Impulse]]
        }
    | DoImpulses 
        {_doImpulsesList :: [Impulse]
        }
-    | DrawWeapon
-    | HolsterWeapon
    | WaitThen 
        {_waitThenTimer :: Int 
        ,_waitThenAction :: Action
@@ -587,9 +581,15 @@ data Action
        }
    | NoAction
    | StartSentinelPost
+    | UseTarget
+        {_useTarget :: Maybe Creature -> Action
+        }
    | UseTargetCID
        {_useTargetCID :: Int -> Action
        }
+    | UseSelf
+        {_useSelf :: Creature -> Action
+        }
    | UseAheadPos
        {_useAheadPos :: Point2 -> Action
        }