Cleanup

2022-04-07 20:54:00 +01:00
parent 591cff68ff
commit 9d4b1d5d70
3 changed files with 45 additions and 63 deletions
@@ -67,8 +67,7 @@ spawnerCrit = defaultCreature
 miniGunCrit :: Creature
 miniGunCrit = defaultCreature
    { _crPict = basicCrPict red
-    , _crUpdate = defaultImpulsive $
-        [sentinelFireType (const shootTillEmpty)]
+    , _crUpdate = defaultImpulsive [sentinelFireType (const shootTillEmpty)]
    , _crActionPlan = ActionPlan
        { _crImpulse    = []
        , _crAction     = []
@@ -88,7 +87,7 @@ longCrit :: Creature
 longCrit = defaultCreature
    { _crPict = basicCrPict red
 --    , _crUpdate = stateUpdate sniperAI
-    , _crUpdate = defaultImpulsive $ [sentinelFireType $ const shootTillEmpty]
+    , _crUpdate = defaultImpulsive [sentinelFireType $ const shootTillEmpty]
    , _crActionPlan = ActionPlan
        { _crImpulse    = []
        , _crAction     = []
@@ -108,7 +107,7 @@ multGunCrit = defaultCreature
    , _crInvSel = 0
    , _crRad = 10
    , _crHP = 300
-    , _crUpdate = defaultImpulsive $ [sentinelExtraWatchUpdate
+    , _crUpdate = defaultImpulsive [sentinelExtraWatchUpdate
            [ ( const $ not . crHasAmmo
              , \_ _ -> StrategyActions Reload reloadActions
              )
@@ -150,7 +149,7 @@ startCr = defaultCreature
    , _crMvDir  = pi/2
    , _crID = 0
    , _crPict = basicCrPict black
-    , _crUpdate = stateUpdate' yourControl'
+    , _crUpdate = stateUpdate' yourControl
    , _crRad = 10
    , _crMass = 10
    , _crHP = 1000