make copying not abortable

src/Object.hs

@@ -50,16 +50,20 @@ instance ObjectAction ObjType ObjState where
 
   objectTransition ObjCopier "copying" _ ent = do
     [e] <- efor (anEnt ent) $ do
-        let nstat = AnimState
+        ttl <- query objStateTime
-              (AnimId "copier" "open" N)
+        if ttl < 0
-              0
+        then do
-              0
+          let nstat = AnimState
-        return unchanged
+                (AnimId "copier" "open" N)
-          { anim               = Set nstat
+                0
-          , objState           = Set "idle"
+                0
-          , objStateTime       = Unset
+          return unchanged
-          , objPlayerActivated = Unset
+            { anim               = Set nstat
-          }
+            , objState           = Set "idle"
+            , objStateTime       = Unset
+            , objPlayerActivated = Unset
+            }
+        else return unchanged
     return e
 
   objectTransition _ _ _ _ = return unchanged