Refactor ai

2021-05-12 14:24:31 +02:00
parent 86faf9fd01
commit ead87af3c1
25 changed files with 718 additions and 453 deletions
@@ -355,6 +355,14 @@ advanceStepCounter speed cr = over (crStance . carriage) f cr
 creatureTurn :: Float -> Creature -> Creature
 creatureTurn a = crDir +~ a

+creatureTurnTo :: Point2 -> Creature -> Creature
+creatureTurnTo p cr 
+    | vToTarg == (0,0)  = cr -- this should deal with the angleVV error
+    | otherwise         = cr & crDir .~ dirToTarget
+  where
+    vToTarg = p -.- _crPos cr
+    dirToTarget = argV vToTarg
+
 creatureTurnToward :: Point2 -> Float -> Creature -> Creature
 creatureTurnToward p turnSpeed cr 
    | vToTarg == (0,0) = cr -- this should deal with the angleVV error