Make bezierGun set target on right click

2021-05-23 20:32:15 +02:00
parent b337fbdab9
commit 3ae454acf4
7 changed files with 76 additions and 19 deletions
@@ -106,6 +106,14 @@ creaturesNearPoint p w =  IM.unions [f b $ f a $ _creaturesZone w | a<-[x-1,x,x+
        Just val -> val
        _        -> IM.empty

+creaturesNearPointI :: Int -> Point2 -> World -> IM.IntMap Creature
+creaturesNearPointI n p w =  IM.unions [f b $ f a $ _creaturesZone w | a<-[x-n..x+n] , b<-[y-n..y+n]]
+  where 
+    (x,y) = crZoneOfPoint p
+    f i m = case IM.lookup i m of 
+        Just val -> val
+        _        -> IM.empty
+
 cloudsNearPoint :: Point2 -> World -> IM.IntMap Cloud
 cloudsNearPoint p w =  IM.unions [f b $ f a $ _cloudsZone w | a<-[x-1,x,x+1] , b<-[y-1,y,y+1]]
  where