tracer/src/Object.hs

218 lines
6 KiB
Haskell
Raw Normal View History

{-# LANGUAGE MultiParamTypeClasses #-}
2018-08-10 06:58:26 +00:00
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
module Object where
2018-08-10 20:45:32 +00:00
import Affection as A
2018-08-10 06:58:26 +00:00
import Control.Monad (when)
import Data.Ecstasy
2018-08-11 09:51:20 +00:00
import Data.Maybe
import Linear
import Types
2018-08-10 06:58:26 +00:00
instance ObjectAction ObjType ObjState where
objectAction dt t@ObjCopier s@"copying" ent = do
emap (anEnt ent) $ do
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
2018-09-01 16:26:55 +00:00
liftIO $ logIO Verbose ("Copier " ++ show ent ++ ": copying!")
2018-08-10 06:58:26 +00:00
return unchanged
{ objStateTime = Set (actionTime t s)
, objState = Set "copying"
}
Just ttl -> do
return unchanged
{ objStateTime = Set (ttl - dt)
}
[trans] <- efor (anEnt ent) $ do
mttl <- queryMaybe objStateTime
case mttl of
Nothing -> return False
Just ttl -> return (ttl < 0)
when trans (setEntity ent =<< objectTransition t s False ent)
2018-08-10 06:58:26 +00:00
2018-08-12 04:28:31 +00:00
objectAction dt t@ObjComputer s@"on" ent = do
2018-08-18 03:01:52 +00:00
[vl] <- efor allEnts $ do
2018-08-12 04:28:31 +00:00
with player
with vel
query vel
emap (anEnt ent) $ do
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
2018-09-01 16:26:55 +00:00
liftIO $ logIO Verbose ("Computer " ++ show ent ++ ": on!")
2018-08-12 04:28:31 +00:00
let dur = actionTime t s
return unchanged
{ objStateTime = Set dur
}
Just ttl -> do
return unchanged
{ objStateTime = Set (ttl - dt)
}
trans <- efor (anEnt ent) $ do
mttl <- queryMaybe objStateTime
case mttl of
Nothing -> return Nothing
Just ttl -> do
pa <- query objPlayerActivated
if (ttl < 0)
then do
return (Just pa)
2018-08-18 03:01:52 +00:00
else if (pa && vl `dot` vl > 0)
2018-08-12 04:28:31 +00:00
then return (Just pa)
else return Nothing
maybe
(return ())
(\tpa -> setEntity ent =<< objectTransition t s tpa ent)
(head trans)
2018-08-11 09:51:20 +00:00
objectAction dt t@ObjComputer s@"hack" ent = do
2018-08-18 03:01:52 +00:00
[vl] <- efor allEnts $ do
2018-08-11 09:51:20 +00:00
with player
with vel
query vel
emap (anEnt ent) $ do
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
2018-09-01 16:26:55 +00:00
liftIO $ logIO Verbose ("Computer " ++ show ent ++ ": hacking!")
2018-08-11 09:51:20 +00:00
return unchanged
{ objStateTime = Set (actionTime t s)
}
Just ttl -> do
return unchanged
{ objStateTime = Set (ttl - dt)
}
[trans] <- efor (anEnt ent) $ do
mttl <- queryMaybe objStateTime
case mttl of
Nothing -> return Nothing
Just ttl -> do
2018-08-18 03:01:52 +00:00
if (ttl < 0) || vl `dot` vl > 0
2018-08-11 09:51:20 +00:00
then do
tpa <- query objPlayerActivated
return (Just tpa)
else return Nothing
maybe
(return ())
(\tpa -> setEntity ent =<< objectTransition t s tpa ent)
trans
2018-08-10 06:58:26 +00:00
objectAction _ _ _ _ = return ()
objectTransition ObjCopier "idle" playerActivated ent = do
2018-08-10 06:58:26 +00:00
[e] <- efor (anEnt ent) $ do
let nstat = AnimState
(AnimId "copier" "copy" N)
0
0
return unchanged
{ objState = Set "copying"
, objPlayerActivated = Set playerActivated
, anim = Set nstat
2018-08-10 06:58:26 +00:00
}
return e
objectTransition ObjCopier "copying" _ ent = do
2018-08-10 06:58:26 +00:00
[e] <- efor (anEnt ent) $ do
2018-08-11 09:51:20 +00:00
ttl <- query objStateTime
if ttl < 0
then do
let nstat = AnimState
(AnimId "copier" "open" N)
0
0
return unchanged
{ anim = Set nstat
, objState = Set "idle"
, objStateTime = Unset
, objPlayerActivated = Unset
}
else return unchanged
return e
objectTransition ObjComputer "off" pa ent = do
[e] <- efor (anEnt ent) $ do
solved <- queryMaybe objSolved
2018-08-12 04:28:31 +00:00
if pa
then if not (fromMaybe False solved)
then do
let nstat = AnimState
(AnimId "computer" "hack" N)
0
0
return unchanged
{ anim = Set nstat
, objState = Set "hack"
, objPlayerActivated = Set True
}
else do
let nstat = AnimState
(AnimId "computer" "on" N)
0
0
return unchanged
{ anim = Set nstat
, objState = Set "on"
, objPlayerActivated = Set True
}
else do
2018-08-11 09:51:20 +00:00
let nstat = AnimState
2018-08-12 04:28:31 +00:00
(AnimId "computer" "on" N)
2018-08-11 09:51:20 +00:00
0
0
return unchanged
2018-08-12 04:28:31 +00:00
{ anim = Set nstat
, objState = Set "on"
, objPlayerActivated = Set False
}
return e
objectTransition ObjComputer "on" _ ent = do
[e] <- efor (anEnt ent) $ do
let nstat = AnimState
(AnimId "computer" "off" N)
0
0
return unchanged
{ anim = Set nstat
, objState = Set "off"
, objPlayerActivated = Unset
, objStateTime = Unset
}
2018-08-11 09:51:20 +00:00
return e
2018-09-01 16:27:18 +00:00
objectTransition ObjComputer "hack" pa ent =
if pa
then do
[e] <- efor (anEnt ent) $ do
let nstat = AnimState
(AnimId "computer" "off" N)
0
0
ost <- query objStateTime
return unchanged
{ anim = Set nstat
, objState = Set "off"
, objPlayerActivated = Unset
, objStateTime = Unset
, objSolved = if pa then Set (ost < 0) else Keep
}
return e
else return unchanged
2018-08-10 06:58:26 +00:00
objectTransition _ _ _ _ = return unchanged
2018-08-10 06:58:26 +00:00
instance ActionTime ObjType ObjState where
actionTime ObjCopier "copying" = 5
2018-08-11 09:51:20 +00:00
actionTime ObjComputer "off" = 0
2018-08-12 04:28:31 +00:00
actionTime ObjComputer "on" = 20
2018-08-11 09:51:20 +00:00
actionTime ObjComputer "hack" = 20
2018-07-30 13:34:45 +00:00
2018-08-12 04:28:31 +00:00
actionTime o s = A.log Error (show o ++ ": " ++ s ++ ": has not a time") 0