LambdaHack-0.6.0.0: A game engine library for roguelike dungeon crawlers

Safe HaskellNone
LanguageHaskell2010

Game.LambdaHack.Common.Request

Description

Abstract syntax of server commands. See https://github.com/LambdaHack/LambdaHack/wiki/Client-server-architecture.

Synopsis

Documentation

type RequestAI = (ReqAI, Maybe ActorId) Source #

data ReqAI Source #

Client-server requests sent by AI clients.

Constructors

ReqAITimed RequestAnyAbility 
ReqAINop 

Instances

type RequestUI = (ReqUI, Maybe ActorId) Source #

data ReqUI Source #

Client-server requests sent by UI clients.

Constructors

ReqUINop 
ReqUITimed RequestAnyAbility 
ReqUIGameRestart !(GroupName ModeKind) !Challenge 
ReqUIGameExit 
ReqUIGameSave 
ReqUITactic !Tactic 
ReqUIAutomate 

Instances

data RequestTimed :: Ability -> * where Source #

Client-server requests that take game time. Sent by both AI and UI clients.

Constructors

ReqMove :: !Vector -> RequestTimed AbMove 
ReqMelee :: !ActorId -> !ItemId -> !CStore -> RequestTimed AbMelee 
ReqDisplace :: !ActorId -> RequestTimed AbDisplace 
ReqAlter :: !Point -> RequestTimed AbAlter 
ReqWait :: RequestTimed AbWait 
ReqWait10 :: RequestTimed AbWait 
ReqMoveItems :: ![(ItemId, Int, CStore, CStore)] -> RequestTimed AbMoveItem 
ReqProject :: !Point -> !Int -> !ItemId -> !CStore -> RequestTimed AbProject 
ReqApply :: !ItemId -> !CStore -> RequestTimed AbApply 

Instances

data RequestAnyAbility Source #

Constructors

RequestAnyAbility !(RequestTimed a) 

Instances

data ReqFailure Source #

Constructors

MoveNothing 
MeleeSelf 
MeleeDistant 
DisplaceDistant 
DisplaceAccess 
DisplaceProjectiles 
DisplaceDying 
DisplaceBraced 
DisplaceImmobile 
DisplaceSupported 
AlterUnskilled 
AlterUnwalked 
AlterDistant 
AlterBlockActor 
AlterBlockItem 
AlterNothing 
EqpOverfull 
EqpStackFull 
ApplyUnskilled 
ApplyRead 
ApplyOutOfReach 
ApplyCharging 
ApplyNoEffects 
ItemNothing 
ItemNotCalm 
NotCalmPrecious 
ProjectUnskilled 
ProjectAimOnself 
ProjectBlockTerrain 
ProjectBlockActor 
ProjectLobable 
ProjectOutOfReach 
TriggerNothing 
NoChangeDunLeader 

Instances

Eq ReqFailure Source # 
Show ReqFailure Source # 
Generic ReqFailure Source # 

Associated Types

type Rep ReqFailure :: * -> * #

Methods

from :: ReqFailure -> Rep ReqFailure x #

to :: Rep ReqFailure x -> ReqFailure #

Binary ReqFailure Source # 
type Rep ReqFailure Source # 
type Rep ReqFailure = D1 (MetaData "ReqFailure" "Game.LambdaHack.Common.Request" "LambdaHack-0.6.0.0-KKqNxYnoEMa5Wo2qfudFog" False) ((:+:) ((:+:) ((:+:) ((:+:) ((:+:) (C1 (MetaCons "MoveNothing" PrefixI False) U1) (C1 (MetaCons "MeleeSelf" PrefixI False) U1)) ((:+:) (C1 (MetaCons "MeleeDistant" PrefixI False) U1) (C1 (MetaCons "DisplaceDistant" PrefixI False) U1))) ((:+:) ((:+:) (C1 (MetaCons "DisplaceAccess" PrefixI False) U1) (C1 (MetaCons "DisplaceProjectiles" PrefixI False) U1)) ((:+:) (C1 (MetaCons "DisplaceDying" PrefixI False) U1) (C1 (MetaCons "DisplaceBraced" PrefixI False) U1)))) ((:+:) ((:+:) ((:+:) (C1 (MetaCons "DisplaceImmobile" PrefixI False) U1) (C1 (MetaCons "DisplaceSupported" PrefixI False) U1)) ((:+:) (C1 (MetaCons "AlterUnskilled" PrefixI False) U1) (C1 (MetaCons "AlterUnwalked" PrefixI False) U1))) ((:+:) ((:+:) (C1 (MetaCons "AlterDistant" PrefixI False) U1) (C1 (MetaCons "AlterBlockActor" PrefixI False) U1)) ((:+:) (C1 (MetaCons "AlterBlockItem" PrefixI False) U1) ((:+:) (C1 (MetaCons "AlterNothing" PrefixI False) U1) (C1 (MetaCons "EqpOverfull" PrefixI False) U1)))))) ((:+:) ((:+:) ((:+:) ((:+:) (C1 (MetaCons "EqpStackFull" PrefixI False) U1) (C1 (MetaCons "ApplyUnskilled" PrefixI False) U1)) ((:+:) (C1 (MetaCons "ApplyRead" PrefixI False) U1) (C1 (MetaCons "ApplyOutOfReach" PrefixI False) U1))) ((:+:) ((:+:) (C1 (MetaCons "ApplyCharging" PrefixI False) U1) (C1 (MetaCons "ApplyNoEffects" PrefixI False) U1)) ((:+:) (C1 (MetaCons "ItemNothing" PrefixI False) U1) (C1 (MetaCons "ItemNotCalm" PrefixI False) U1)))) ((:+:) ((:+:) ((:+:) (C1 (MetaCons "NotCalmPrecious" PrefixI False) U1) (C1 (MetaCons "ProjectUnskilled" PrefixI False) U1)) ((:+:) (C1 (MetaCons "ProjectAimOnself" PrefixI False) U1) (C1 (MetaCons "ProjectBlockTerrain" PrefixI False) U1))) ((:+:) ((:+:) (C1 (MetaCons "ProjectBlockActor" PrefixI False) U1) (C1 (MetaCons "ProjectLobable" PrefixI False) U1)) ((:+:) (C1 (MetaCons "ProjectOutOfReach" PrefixI False) U1) ((:+:) (C1 (MetaCons "TriggerNothing" PrefixI False) U1) (C1 (MetaCons "NoChangeDunLeader" PrefixI False) U1)))))))

impossibleReqFailure :: ReqFailure -> Bool Source #

showReqFailure :: ReqFailure -> Text Source #

timedToUI :: RequestTimed a -> ReqUI Source #

permittedPrecious :: Bool -> Bool -> ItemFull -> Either ReqFailure Bool Source #

permittedProject :: Bool -> Int -> Bool -> [Char] -> ItemFull -> Either ReqFailure Bool Source #

permittedProjectAI :: Int -> Bool -> ItemFull -> Bool Source #

permittedApply :: Time -> Int -> Bool -> [Char] -> ItemFull -> Either ReqFailure Bool Source #