nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

make copying not abortable

Browse source
This commit is contained in:
nek0 2018-08-11 09:11:54 +02:00
parent f78b69b6f0
commit 35337651a0
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Object.hs
View file

@ -50,6 +50,9 @@ instance ObjectAction ObjType ObjState where
objectTransition ObjCopier "copying" _ ent = do
[e] <- efor (anEnt ent) $ do
ttl <- query objStateTime
if ttl < 0
then do
let nstat = AnimState
(AnimId "copier" "open" N)
0
@ -60,6 +63,7 @@ instance ObjectAction ObjType ObjState where
, objStateTime = Unset
, objPlayerActivated = Unset
}
else return unchanged
return e
objectTransition _ _ _ _ = return unchanged