Move toward adding infoboxes/better creature information display

2022-04-10 10:16:15 +01:00
parent a6fdd66b9b
commit 901fab762a
16 changed files with 44 additions and 66 deletions
@@ -22,7 +22,6 @@ import Geometry
 import ShapePicture
 import Shape
 import Dodge.Base
-import Dodge.Base.Collide
 import LensHelp
 import qualified IntMapHelp as IM

@@ -107,7 +106,7 @@ updateTurret rotSpeed mc w
    doTurn  
        | seesYou = machines . ix mcid . mcDir %~ turnTo rotSpeed mcpos ypos
        | otherwise = id
-    closeFireAngle = seesYou && angleVV (ypos -.- mcpos) (unitVectorAtAngle mcdir) < 1
+    closeFireAngle = seesYou -- && angleVV (ypos -.- mcpos) (unitVectorAtAngle mcdir) < 1
    updateFiringStatus 
        | closeFireAngle = machines . ix mcid . mcType . tuFireTime .~ 20
        | otherwise      = machines . ix mcid . mcType . tuFireTime %~ (max 0 . subtract 1)