module Content.ItemKindEmbed
( embeds
) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Game.LambdaHack.Content.ItemKind
import Game.LambdaHack.Core.Dice
import Game.LambdaHack.Definition.Ability
import Game.LambdaHack.Definition.Color
import Game.LambdaHack.Definition.Defs
import Game.LambdaHack.Definition.Flavour
embeds :: [ItemKind]
embeds :: [ItemKind]
embeds =
[ItemKind
scratchOnWall, ItemKind
obscenePictogram, ItemKind
subtleFresco, ItemKind
treasureCache, ItemKind
treasureCacheTrap, ItemKind
signboardExit, ItemKind
signboardEmbed, ItemKind
signboardMerchandise, ItemKind
fireSmall, ItemKind
fireBig, ItemKind
frost, ItemKind
rubble, ItemKind
doorwayTrapTemplate, ItemKind
doorwayTrap1, ItemKind
doorwayTrap2, ItemKind
doorwayTrap3, ItemKind
stairsUp, ItemKind
stairsDown, ItemKind
escape, ItemKind
staircaseTrapUp, ItemKind
staircaseTrapDown, ItemKind
pulpit, ItemKind
shallowWater, ItemKind
straightPath, ItemKind
frozenGround]
scratchOnWall, obscenePictogram, subtleFresco, treasureCache, treasureCacheTrap, signboardExit, signboardEmbed, signboardMerchandise, fireSmall, fireBig, frost, rubble, doorwayTrapTemplate, doorwayTrap1, doorwayTrap2, doorwayTrap3, stairsUp, stairsDown, escape, staircaseTrapUp, staircaseTrapDown, pulpit, shallowWater, straightPath, frozenGround :: ItemKind
scratchOnWall :: ItemKind
scratchOnWall = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '?'
, iname :: Text
iname = "claw mark"
, ifreq :: Freqs ItemKind
ifreq = [("scratch on wall", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrBlack]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "scratch"
, iweight :: Int
iweight = 1000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [ Text -> Effect
VerbMsg "start making sense of the scratches"
, DetectKind -> Int -> Effect
Detect DetectKind
DetectHidden 3 ]
, idesc :: Text
idesc = "A seemingly random series of scratches, carved deep into the wall."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
obscenePictogram :: ItemKind
obscenePictogram = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '*'
, iname :: Text
iname = "obscene pictogram"
, ifreq :: Freqs ItemKind
ifreq = [("obscene pictogram", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrMagenta]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "infuriate"
, iweight :: Int
iweight = 1000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Dice -> Aspect
Timeout 7, Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [ Text -> Effect
VerbMsg "enter destructive rage at the sight of an obscene pictogram"
, Int -> Effect
RefillCalm (-20)
, [Effect] -> Effect
OneOf [ GroupName ItemKind -> Dice -> Effect
toOrganGood "strengthened" (3 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 2)
, CStore -> GroupName ItemKind -> TimerDice -> Effect
CreateItem CStore
CInv "sandstone rock" TimerDice
timerNone ] ]
, idesc :: Text
idesc = "It's not even anatomically possible."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
subtleFresco :: ItemKind
subtleFresco = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '*'
, iname :: Text
iname = "subtle fresco"
, ifreq :: Freqs ItemKind
ifreq = [("subtle fresco", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrGreen]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "sooth"
, iweight :: Int
iweight = 1000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Dice -> Aspect
Timeout 7, Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [ Text -> Effect
VerbMsg "feel refreshed by the subtle fresco"
, GroupName ItemKind -> Dice -> Effect
toOrganGood "far-sighted" (3 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 2)
, GroupName ItemKind -> Dice -> Effect
toOrganGood "keen-smelling" (3 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 2) ]
, idesc :: Text
idesc = "Expensive yet tasteful."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
treasureCache :: ItemKind
treasureCache = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '0'
, iname :: Text
iname = "treasure cache"
, ifreq :: Freqs ItemKind
ifreq = [("treasure cache", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrBlue]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "crash"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [CStore -> GroupName ItemKind -> TimerDice -> Effect
CreateItem CStore
CGround "common item" TimerDice
timerNone]
, idesc :: Text
idesc = "Glittering treasure, just waiting to be taken."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
treasureCacheTrap :: ItemKind
treasureCacheTrap = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '^'
, iname :: Text
iname = "cache trap"
, ifreq :: Freqs ItemKind
ifreq = [("treasure cache trap", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
Red]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "taint"
, iweight :: Int
iweight = 1000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = []
, ieffects :: [Effect]
ieffects = [[Effect] -> Effect
OneOf [ GroupName ItemKind -> Dice -> Effect
toOrganBad "blind" (10 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 10)
, Int -> Effect
RefillCalm (-99)
, GroupName ItemKind -> Effect
Explode "focused concussion"
, Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1) ]]
, idesc :: Text
idesc = "It's a trap!"
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
signboardExit :: ItemKind
signboardExit = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '?'
, iname :: Text
iname = "inscription"
, ifreq :: Freqs ItemKind
ifreq = [("signboard", 50)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrMagenta]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "whack"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [DetectKind -> Int -> Effect
Detect DetectKind
DetectExit 100]
, idesc :: Text
idesc = "Crude big arrows hastily carved by unknown hands."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
signboardEmbed :: ItemKind
signboardEmbed = ItemKind
signboardExit
{ iname :: Text
iname = "notice"
, ifreq :: Freqs ItemKind
ifreq = [("signboard", 50)]
, ieffects :: [Effect]
ieffects = [DetectKind -> Int -> Effect
Detect DetectKind
DetectEmbed 12]
, idesc :: Text
idesc = "The battered poster is untitled and unsigned."
}
signboardMerchandise :: ItemKind
signboardMerchandise = ItemKind
signboardExit
{ iname :: Text
iname = "treasure map"
, ifreq :: Freqs ItemKind
ifreq = [("signboard", 50)]
, ieffects :: [Effect]
ieffects = [DetectKind -> Int -> Effect
Detect DetectKind
DetectLoot 20]
, idesc :: Text
idesc = "In equal parts cryptic and promising."
}
fireSmall :: ItemKind
fireSmall = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '%'
, iname :: Text
iname = "small fire"
, ifreq :: Freqs ItemKind
ifreq = [("small fire", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrRed]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "burn"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [Dice -> Effect
Burn 1, GroupName ItemKind -> Effect
Explode "single spark"]
, idesc :: Text
idesc = "A few small logs, burning brightly."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
fireBig :: ItemKind
fireBig = ItemKind
fireSmall
{ isymbol :: Char
isymbol = '0'
, iname :: Text
iname = "big fire"
, ifreq :: Freqs ItemKind
ifreq = [("big fire", 1)]
, ieffects :: [Effect]
ieffects = [ Dice -> Effect
Burn 2
, CStore -> GroupName ItemKind -> TimerDice -> Effect
CreateItem CStore
CInv "wooden torch" TimerDice
timerNone
, GroupName ItemKind -> Effect
Explode "spark" ]
, idesc :: Text
idesc = "Glowing with light and warmth."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
frost :: ItemKind
frost = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '^'
, iname :: Text
iname = "frost"
, ifreq :: Freqs ItemKind
ifreq = [("frost", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrBlue]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "burn"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [ Dice -> Effect
Burn 1
, Int -> Effect
RefillCalm 20
, ThrowMod -> Effect
PushActor (Int -> Int -> Int -> ThrowMod
ThrowMod 400 10 1) ]
, idesc :: Text
idesc = "Intricate patterns of shining ice."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
rubble :: ItemKind
rubble = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '&'
, iname :: Text
iname = "rubble"
, ifreq :: Freqs ItemKind
ifreq = [("rubble", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrYellow]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "bury"
, iweight :: Int
iweight = 100000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [[Effect] -> Effect
OneOf [ GroupName ItemKind -> Effect
Explode "focused glass hail"
, GroupName ItemKind -> Dice -> Effect
Summon "mobile animal" (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ 1 Int -> Int -> Dice
`dL` 2
, GroupName ItemKind -> Effect
toOrganNoTimer "poisoned"
, CStore -> GroupName ItemKind -> TimerDice -> Effect
CreateItem CStore
CGround "common item" TimerDice
timerNone
, Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1)
, Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1), Int -> Effect
RefillCalm (-1) ]]
, idesc :: Text
idesc = "Broken chunks of rock and glass."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
doorwayTrapTemplate :: ItemKind
doorwayTrapTemplate = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '+'
, iname :: Text
iname = "doorway trap"
, ifreq :: Freqs ItemKind
ifreq = [("doorway trap unknown", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color]
brightCol
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "cripple"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [GroupName ItemKind -> Aspect
HideAs "doorway trap unknown"]
, ieffects :: [Effect]
ieffects = []
, idesc :: Text
idesc = "Just turn the handle..."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
doorwayTrap1 :: ItemKind
doorwayTrap1 = ItemKind
doorwayTrapTemplate
{ ifreq :: Freqs ItemKind
ifreq = [("doorway trap", 50)]
, ieffects :: [Effect]
ieffects = [GroupName ItemKind -> Dice -> Effect
toOrganBad "blind" (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ (1 Int -> Int -> Dice
`dL` 4) Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
* 5]
}
doorwayTrap2 :: ItemKind
doorwayTrap2 = ItemKind
doorwayTrapTemplate
{ ifreq :: Freqs ItemKind
ifreq = [("doorway trap", 25)]
, ieffects :: [Effect]
ieffects = [GroupName ItemKind -> Dice -> Effect
toOrganBad "slowed" (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ (1 Int -> Int -> Dice
`dL` 4) Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
* 10]
}
doorwayTrap3 :: ItemKind
doorwayTrap3 = ItemKind
doorwayTrapTemplate
{ ifreq :: Freqs ItemKind
ifreq = [("doorway trap", 25)]
, ieffects :: [Effect]
ieffects = [GroupName ItemKind -> Dice -> Effect
toOrganBad "weakened" (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ (1 Int -> Int -> Dice
`dL` 4) Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
* 10 ]
}
stairsUp :: ItemKind
stairsUp = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '<'
, iname :: Text
iname = "flight"
, ifreq :: Freqs ItemKind
ifreq = [("staircase up", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrWhite]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "crash"
, iweight :: Int
iweight = 100000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Text -> Aspect
ELabel "of steps", Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [Bool -> Effect
Ascend Bool
True]
, idesc :: Text
idesc = "Stairs that rise towards escape."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
stairsDown :: ItemKind
stairsDown = ItemKind
stairsUp
{ isymbol :: Char
isymbol = '>'
, ifreq :: Freqs ItemKind
ifreq = [("staircase down", 1)]
, ieffects :: [Effect]
ieffects = [Bool -> Effect
Ascend Bool
False]
, idesc :: Text
idesc = ""
}
escape :: ItemKind
escape = ItemKind
stairsUp
{ isymbol :: Char
isymbol = 'E'
, iname :: Text
iname = "way"
, ifreq :: Freqs ItemKind
ifreq = [("escape", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
BrYellow]
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [Effect
Escape]
, idesc :: Text
idesc = "May this nightmare have an end?"
}
staircaseTrapUp :: ItemKind
staircaseTrapUp = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '^'
, iname :: Text
iname = "staircase trap"
, ifreq :: Freqs ItemKind
ifreq = [("staircase trap up", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipPlain [Color
Red]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "buffet"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = []
, ieffects :: [Effect]
ieffects = [ Text -> Effect
VerbMsg "be caught in an updraft"
, Dice -> Effect
Teleport (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ 3 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`dL` 10 ]
, idesc :: Text
idesc = "A hidden spring, to help the unwary soar."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
staircaseTrapDown :: ItemKind
staircaseTrapDown = ItemKind
staircaseTrapUp
{ ifreq :: Freqs ItemKind
ifreq = [("staircase trap down", 1)]
, iverbHit :: Text
iverbHit = "open up under"
, ieffects :: [Effect]
ieffects = [ Text -> Effect
VerbMsg "tumble down the stairwell"
, GroupName ItemKind -> Dice -> Effect
toOrganGood "drunk" (20 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 5) ]
, idesc :: Text
idesc = "A treacherous slab, to teach those who are too proud."
}
pulpit :: ItemKind
pulpit = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '?'
, iname :: Text
iname = "lectern"
, ifreq :: Freqs ItemKind
ifreq = [("pulpit", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipFancy [Color
BrYellow]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "ask"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = []
, ieffects :: [Effect]
ieffects = [ [Effect] -> Effect
OneOf [ CStore -> GroupName ItemKind -> TimerDice -> Effect
CreateItem CStore
CGround "any scroll" TimerDice
timerNone
, DetectKind -> Int -> Effect
Detect DetectKind
DetectAll 20
, GroupName ItemKind -> Dice -> Effect
toOrganBad "defenseless" (Dice -> Effect) -> Dice -> Effect
forall a b. (a -> b) -> a -> b
$ (1 Int -> Int -> Dice
`dL` 6) Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
* 10
, GroupName ItemKind -> Dice -> Effect
toOrganGood "drunk" (20 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ 1 Int -> Int -> Dice
`d` 5) ]
, GroupName ItemKind -> Effect
Explode "PhD defense question" ]
, idesc :: Text
idesc = "A dark wood stand, where strange priests once preached."
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
shallowWater :: ItemKind
shallowWater = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '~'
, iname :: Text
iname = "shallow water"
, ifreq :: Freqs ItemKind
ifreq = [("shallow water", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipFancy [Color
BrCyan]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "impede"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [Dice -> Effect
ParalyzeInWater 2]
, idesc :: Text
idesc = ""
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
straightPath :: ItemKind
straightPath = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '.'
, iname :: Text
iname = "straight path"
, ifreq :: Freqs ItemKind
ifreq = [("straight path", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipFancy [Color
BrRed]
, icount :: Dice
icount = 1
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "propel"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Flag -> Aspect
SetFlag Flag
Durable]
, ieffects :: [Effect]
ieffects = [Dice -> Effect
InsertMove 2]
, idesc :: Text
idesc = ""
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}
frozenGround :: ItemKind
frozenGround = $WItemKind :: Char
-> Text
-> Freqs ItemKind
-> [Flavour]
-> Dice
-> Rarity
-> Text
-> Int
-> Dice
-> [Aspect]
-> [Effect]
-> [(GroupName ItemKind, CStore)]
-> Text
-> ItemKind
ItemKind
{ isymbol :: Char
isymbol = '.'
, iname :: Text
iname = "shade"
, ifreq :: Freqs ItemKind
ifreq = [("frozen ground", 1)]
, iflavour :: [Flavour]
iflavour = [Color] -> [Flavour]
zipFancy [Color
BrBlue]
, icount :: Dice
icount = 50
, irarity :: Rarity
irarity = [(1, 1)]
, iverbHit :: Text
iverbHit = "betray"
, iweight :: Int
iweight = 10000
, idamage :: Dice
idamage = 0
, iaspects :: [Aspect]
iaspects = [Text -> Aspect
ELabel "of ice"]
, ieffects :: [Effect]
ieffects = [ThrowMod -> Effect
PushActor (Int -> Int -> Int -> ThrowMod
ThrowMod 400 10 1)]
, idesc :: Text
idesc = ""
, ikit :: [(GroupName ItemKind, CStore)]
ikit = []
}