From 2911514578bdba286266364c0274e3985b279b6d Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 10 Aug 2018 22:45:32 +0200
Subject: [PATCH] initial state

---
 src/NPC.hs    | 18 +++++++++++-------
 src/Object.hs |  4 ++--
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/src/NPC.hs b/src/NPC.hs
index 28ad51d..c58cdc9 100644
--- a/src/NPC.hs
+++ b/src/NPC.hs
@@ -6,7 +6,7 @@ import Affection as A
 
 import qualified Data.Matrix as M
 import Data.Ecstasy as E
-import Data.Maybe (fromMaybe)
+import Data.Maybe (fromMaybe, fromJust)
 import Data.List (find)
 
 import Control.Monad.IO.Class (MonadIO(..))
@@ -83,7 +83,7 @@ updateNPCs imgmat rp dt = do
     return (e, pos', rot', mdir)
   mapM_ (\(e, pos', rot', mdir) -> do
     accessibles <- getObjects pos'
-    moent <- eover (anEnt e) $ do
+    moent <- runQueryT e $ do
       npcState' <- query npcMoveState
       case npcState' of
         NPCStanding ttl future -> do
@@ -165,21 +165,24 @@ updateNPCs imgmat rp dt = do
                       }
                     }
                   })
-    mapM_ (\smoent -> maybe (return()) (\(oent, npcent) -> do
-      [(t, s)] <- efor (anEnt oent) $ do
+    (\(_, ent) ->
+      setEntity e ent
+      ) (fromJust moent)
+    maybe (return()) (\(oent, npcent) -> do
+      Just (t, s) <- runQueryT oent $ do
         with objType
         with objState
         otyp <- query objType
         ostat <- query objState
         return (otyp, ostat)
       setEntity oent =<< objectTransition t s False oent
-      [(nt, ns)] <- efor (anEnt oent) $ do
+      Just (nt, ns) <- runQueryT oent $ do
         with objType
         with objState
         otyp <- query objType
         ostat <- query objState
         return (otyp, ostat)
-      emap (anEnt npcent) $ do
+      Just npc <- runQueryT npcent $ do
         let ttl = actionTime nt ns
         future <- liftIO $ newEmptyMVar
         _ <- liftIO $ forkIO $
@@ -188,7 +191,8 @@ updateNPCs imgmat rp dt = do
           { npcMoveState = Set $ NPCStanding ttl future
           , vel = Set $ V2 0 0
           }
-      ) smoent) moent
+      setEntity npcent npc
+      ) (fromJust (fst <$> moent))
     ) npcs
 
 getObjects npos = do
diff --git a/src/Object.hs b/src/Object.hs
index e746494..6469c26 100644
--- a/src/Object.hs
+++ b/src/Object.hs
@@ -3,7 +3,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 module Object where
 
-import Affection
+import Affection as A
 
 import Control.Monad (when)
 
@@ -67,4 +67,4 @@ instance ObjectAction ObjType ObjState where
 instance ActionTime ObjType ObjState where
   actionTime ObjCopier "copying" = 5
 
-  actionTime o s = error (show o ++ ": " ++ s ++ ": has not time")
+  actionTime o s = A.log Error (show o ++ ": " ++ s ++ ": has not time") 0