Add file, fix lamp doDamage space leak

src/Dodge/Data.hs

@@ -478,6 +478,8 @@ data Impulse
     | AddGoal Goal
     | ArbitraryCreatureImpulse (World -> Creature -> Creature) 
 --  deriving (Eq,Ord,Show)
+infixr 9 `WaitThen`
+infixr 9 `DoActionThen`
 data Action
     = Attack 
         {_attackTargetID :: Int}
@@ -560,6 +562,9 @@ data Action
         }
     | NoAction
     | StartSentinelPost
+    | UseTargetCID
+        {_useTargetCID :: Int -> Action
+        }
   deriving (Generic)
 --  deriving (Eq,Ord,Show)
 data Strategy
@@ -570,9 +575,10 @@ data Strategy
     | ShootAt Int
     | FollowImpulses
     | WatchAndWait
-    | StrategyActions [Action] Strategy
+    | StrategyActions Strategy [Action]
     | GetTo Point2
     | Reload
+    | Flee
   deriving (Generic)
 --  deriving (Eq,Ord,Show)
 data Goal