Game.LambdaHack.Server.LoopM

The main loop of the server, processing human and computer player moves turn by turn.

Documentation

loopSer

Arguments

:: (MonadServerAtomic m, MonadServerReadRequest m)

=> ServerOptions

player-supplied server options

-> (Bool -> FactionId -> ChanServer -> IO ())

function that initializes a client and runs its main loop

-> m ()

Start a game session, including the clients, and then loop, communicating with the clients.

The loop is started in server state that is empty, see emptyStateServer.

Internal operations

factionArena :: MonadStateRead m => Faction -> m (Maybe LevelId)

arenasForLoop :: MonadStateRead m => m [LevelId]

handleFidUpd :: (MonadServerAtomic m, MonadServerReadRequest m) => Bool -> (FactionId -> m ()) -> FactionId -> Faction -> m Bool

loopUpd :: forall m. (MonadServerAtomic m, MonadServerReadRequest m) => m () -> m ()

Handle a clip (the smallest fraction of a game turn for which a frame may potentially be generated). Run the leader and other actors moves. Eventually advance the time and repeat.

endClip :: forall m. MonadServerAtomic m => (FactionId -> m ()) -> m ()

Handle the end of every clip. Do whatever has to be done every fixed number of clips, e.g., monster generation. Advance time. Perform periodic saves, if applicable.

manageCalmAndDomination :: MonadServerAtomic m => ActorId -> Actor -> m ()

Check if the given actor is dominated and update his calm.

applyPeriodicLevel :: MonadServerAtomic m => m ()

Trigger periodic items for all actors on the given level.

handleTrajectories :: MonadServerAtomic m => LevelId -> FactionId -> m ()

hTrajectories :: MonadServerAtomic m => (ActorId, Actor) -> m ()

setTrajectory :: MonadServerAtomic m => ActorId -> m ()

Manage trajectory of a projectile.

Colliding with a wall or actor doesn't take time, because the projectile does not move (the move is blocked). Not advancing time forces dead projectiles to be destroyed ASAP. Otherwise, with some timings, it can stay on the game map dead, blocking path of human-controlled actors and alarming the hapless human.

handleActors :: (MonadServerAtomic m, MonadServerReadRequest m) => LevelId -> FactionId -> m Bool

hActors :: forall m. (MonadServerAtomic m, MonadServerReadRequest m) => FactionId -> [(ActorId, Actor)] -> m Bool

restartGame :: MonadServerAtomic m => m () -> m () -> Maybe (GroupName ModeKind) -> m ()