Refactor bullet particles

src/Dodge/Creature/Rationality.hs

@@ -125,9 +125,6 @@ performAction
     -> Action
     -> ( [Impulse] , Maybe Action )
 performAction cr w ac = case ac of
-    ShootTillEmpty -> case cr ^? crInv . ix (_crInvSel cr) . wpReloadState of
-        Just x | x == 0  -> ( [UseItem] , Just ShootTillEmpty )
-        _                -> ( []        , Just (WaitThen 20 HolsterWeapon) )
     AimAtCloseSlow tcid p speed slowSpeed a
         | canSee (_crID cr) tcid w && safeAngleVV (unitVectorAtAngle cdir) (tpos -.- cpos) < a 
             -> ([TurnToward tpos slowSpeed] , Just $ AimAtCloseSlow tcid tpos speed slowSpeed a)
@@ -143,8 +140,6 @@ performAction cr w ac = case ac of
     ImpulsesList (xs:xss) -> (xs, Just $ ImpulsesList xss)
     ImpulsesList _  -> ([], Nothing)
     DoImpulses imps -> (imps, Nothing)
-    DrawWeapon -> ([ChangePosture Aiming, MakeSound pickUpSound] , Nothing)
-    HolsterWeapon -> ([ChangePosture AtEase, MakeSound putDownSound] , Nothing)
     DoActionThen fsta afta -> case performAction cr w fsta of
         (imps , Just nxta) -> (imps, Just (DoActionThen nxta afta))
         (imps , Nothing  ) -> (imps, Just afta)
@@ -175,12 +170,10 @@ performAction cr w ac = case ac of
     LeadTarget p -> case cr ^? crTarget . _Just of
         Just tcr -> ([TurnTo (_crPos tcr +.+ rotateV (_crDir tcr) p)], Nothing)
         _  -> ([], Nothing)
-    FleeFrom cid -> case w ^? creatures . ix cid of
-        Just tcr -> ([MoveForward 3, TurnToward ((2 *.* _crPos cr) -.- _crPos tcr) (pi/4)], Nothing)
-        _ -> ([], Nothing)
     UseTargetCID f -> case cr ^? crTarget . _Just of
         Just tcr -> performAction cr w (f $ _crID tcr)
         _ -> ([],Nothing)
+    UseTarget f -> performAction cr w $ f $ cr ^? crTarget . _Just
     UseAheadPos f -> performAction cr w (f (_crPos cr +.+ 20 *.* unitVectorAtAngle (_crDir cr)))
     ArbitraryAction f -> performAction cr w (f cr w)
     DoImpulsesAlongside sideImp mainAc -> case performAction cr w mainAc of