Cleanup warnings

src/Dodge/Creature/AutoCrit.hs

@@ -0,0 +1,52 @@
+module Dodge.Creature.AutoCrit
+    ( autoCrit 
+    ) where
+import Dodge.Data
+import Dodge.Default
+import Dodge.Creature.Picture
+import Dodge.Creature.Test
+import Dodge.Creature.ActionRat
+--import Dodge.Creature.ChooseTarget
+import Dodge.Creature.SetTarget
+import Dodge.Creature.Rationality
+import Dodge.Creature.AlertLevel
+import Dodge.Creature.State
+--import Dodge.Creature.State.Data
+import Dodge.Item.Weapon
+import Dodge.Item.Consumable
+--import Geometry
+import Picture
+--import Dodge.RandomHelp
+
+--import Data.Maybe
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+import Control.Monad
+--import System.Random
+
+autoCrit :: Creature
+autoCrit = defaultCreature
+    { _crPict = basicCrPict red
+    , _crUpdate = stateUpdate $ impulsiveAIR $
+        performActionsR
+        >=>  watchUpdateStratR
+          [ (crHasTargetLOS, shootAdvanceStrat 0)
+          , (crAwayFromPost, goToPostStrat)
+          ] 
+        >=> basicPerceptionUpdateR [0]
+        >=> doStrategyActionsR
+        >=> reloadOverrideR
+        >=> targetYouWhenCognizantR
+        >=> (overrideInternalR (onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
+          $ \ _ -> crActionPlan . crStrategy .~ WatchAndWait)
+    , _crActionPlan = ActionPlan
+        { _crImpulse    = []
+        , _crAction     = []
+        , _crStrategy   = StrategyActions WatchAndWait [StartSentinelPost]
+        , _crGoal       = []
+        }
+    , _crInv = IM.fromList [(0,autoGun),(1,medkit 100)]
+    , _crInvSel = 0
+    , _crRad = 10
+    , _crHP = 300
+    }