module Content.CaveKind
(
pattern CAVE_ROGUE, pattern CAVE_ARENA, pattern CAVE_SMOKING, pattern CAVE_LABORATORY, pattern CAVE_NOISE, pattern CAVE_MINE, pattern CAVE_EMPTY, pattern CAVE_SHALLOW_ROGUE, pattern CAVE_OUTERMOST, pattern CAVE_RAID, pattern CAVE_BRAWL, pattern CAVE_SHOOTOUT, pattern CAVE_HUNT, pattern CAVE_FLIGHT, pattern CAVE_ZOO, pattern CAVE_AMBUSH, pattern CAVE_BATTLE, pattern CAVE_SAFARI_1, pattern CAVE_SAFARI_2, pattern CAVE_SAFARI_3
, groupNamesSingleton, groupNames
,
content
) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Data.Ratio
import Game.LambdaHack.Content.CaveKind
import qualified Game.LambdaHack.Content.ItemKind as IK
import Game.LambdaHack.Content.TileKind
import Game.LambdaHack.Core.Dice
import Game.LambdaHack.Definition.Defs
import Game.LambdaHack.Definition.DefsInternal
import Content.ItemKind hiding (content, groupNames, groupNamesSingleton)
import Content.ItemKindActor
import Content.PlaceKind hiding (content, groupNames, groupNamesSingleton)
import Content.TileKind hiding (content, groupNames, groupNamesSingleton)
groupNamesSingleton :: [GroupName CaveKind]
groupNamesSingleton :: [GroupName CaveKind]
groupNamesSingleton = []
groupNames :: [GroupName CaveKind]
groupNames :: [GroupName CaveKind]
groupNames =
[GroupName CaveKind
CAVE_ROGUE, GroupName CaveKind
CAVE_ARENA, GroupName CaveKind
CAVE_SMOKING, GroupName CaveKind
CAVE_LABORATORY, GroupName CaveKind
CAVE_NOISE, GroupName CaveKind
CAVE_MINE, GroupName CaveKind
CAVE_EMPTY, GroupName CaveKind
CAVE_SHALLOW_ROGUE, GroupName CaveKind
CAVE_OUTERMOST, GroupName CaveKind
CAVE_RAID, GroupName CaveKind
CAVE_BRAWL, GroupName CaveKind
CAVE_SHOOTOUT, GroupName CaveKind
CAVE_HUNT, GroupName CaveKind
CAVE_FLIGHT, GroupName CaveKind
CAVE_ZOO, GroupName CaveKind
CAVE_AMBUSH, GroupName CaveKind
CAVE_BATTLE, GroupName CaveKind
CAVE_SAFARI_1, GroupName CaveKind
CAVE_SAFARI_2, GroupName CaveKind
CAVE_SAFARI_3]
pattern CAVE_ROGUE, CAVE_ARENA, CAVE_SMOKING, CAVE_LABORATORY, CAVE_NOISE, CAVE_MINE, CAVE_EMPTY, CAVE_SHALLOW_ROGUE, CAVE_OUTERMOST, CAVE_RAID, CAVE_BRAWL, CAVE_SHOOTOUT, CAVE_HUNT, CAVE_FLIGHT, CAVE_ZOO, CAVE_AMBUSH, CAVE_BATTLE, CAVE_SAFARI_1, CAVE_SAFARI_2, CAVE_SAFARI_3 :: GroupName CaveKind
pattern $mCAVE_ROGUE :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_ROGUE :: GroupName CaveKind
CAVE_ROGUE = GroupName "caveRogue"
pattern $mCAVE_ARENA :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_ARENA :: GroupName CaveKind
CAVE_ARENA = GroupName "caveArena"
pattern $mCAVE_SMOKING :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SMOKING :: GroupName CaveKind
CAVE_SMOKING = GroupName "caveSmoking"
pattern $mCAVE_LABORATORY :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_LABORATORY :: GroupName CaveKind
CAVE_LABORATORY = GroupName "caveLaboratory"
pattern $mCAVE_NOISE :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_NOISE :: GroupName CaveKind
CAVE_NOISE = GroupName "caveNoise"
pattern $mCAVE_MINE :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_MINE :: GroupName CaveKind
CAVE_MINE = GroupName "caveMine"
pattern $mCAVE_EMPTY :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_EMPTY :: GroupName CaveKind
CAVE_EMPTY = GroupName "caveEmpty"
pattern $mCAVE_SHALLOW_ROGUE :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SHALLOW_ROGUE :: GroupName CaveKind
CAVE_SHALLOW_ROGUE = GroupName "caveShallowRogue"
pattern $mCAVE_OUTERMOST :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_OUTERMOST :: GroupName CaveKind
CAVE_OUTERMOST = GroupName "caveOutermost"
pattern $mCAVE_RAID :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_RAID :: GroupName CaveKind
CAVE_RAID = GroupName "caveRaid"
pattern $mCAVE_BRAWL :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_BRAWL :: GroupName CaveKind
CAVE_BRAWL = GroupName "caveBrawl"
pattern $mCAVE_SHOOTOUT :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SHOOTOUT :: GroupName CaveKind
CAVE_SHOOTOUT = GroupName "caveShootout"
pattern $mCAVE_HUNT :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_HUNT :: GroupName CaveKind
CAVE_HUNT = GroupName "caveHunt"
pattern $mCAVE_FLIGHT :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_FLIGHT :: GroupName CaveKind
CAVE_FLIGHT = GroupName "caveFlight"
pattern $mCAVE_ZOO :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_ZOO :: GroupName CaveKind
CAVE_ZOO = GroupName "caveZoo"
pattern $mCAVE_AMBUSH :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_AMBUSH :: GroupName CaveKind
CAVE_AMBUSH = GroupName "caveAmbush"
pattern $mCAVE_BATTLE :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_BATTLE :: GroupName CaveKind
CAVE_BATTLE = GroupName "caveBattle"
pattern $mCAVE_SAFARI_1 :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SAFARI_1 :: GroupName CaveKind
CAVE_SAFARI_1 = GroupName "caveSafari1"
pattern $mCAVE_SAFARI_2 :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SAFARI_2 :: GroupName CaveKind
CAVE_SAFARI_2 = GroupName "caveSafari2"
pattern $mCAVE_SAFARI_3 :: forall {r}. GroupName CaveKind -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAVE_SAFARI_3 :: GroupName CaveKind
CAVE_SAFARI_3 = GroupName "caveSafari3"
content :: [CaveKind]
content :: [CaveKind]
content =
[CaveKind
rogue, CaveKind
arena, CaveKind
smoking, CaveKind
laboratory, CaveKind
noise, CaveKind
mine, CaveKind
empty, CaveKind
outermost, CaveKind
shallowRogue, CaveKind
raid, CaveKind
brawl, CaveKind
shootout, CaveKind
hunt, CaveKind
flight, CaveKind
zoo, CaveKind
ambush, CaveKind
battle, CaveKind
safari1, CaveKind
safari2, CaveKind
safari3]
rogue, arena, smoking, laboratory, noise, mine, empty, outermost, shallowRogue, raid, brawl, shootout, hunt, flight, zoo, ambush, battle, safari1, safari2, safari3 :: CaveKind
rogue :: CaveKind
rogue = CaveKind
{ cname :: Text
cname = Text
"A maze of twisty passages"
, cfreq :: Freqs CaveKind
cfreq = [(GroupName CaveKind
DEFAULT_RANDOM, X
100), (GroupName CaveKind
CAVE_ROGUE, X
1)]
, cXminSize :: X
cXminSize = X
80
, cYminSize :: X
cYminSize = X
21
, ccellSize :: DiceXY
ccellSize = Dice -> Dice -> DiceXY
DiceXY (X
2 X -> X -> Dice
`d` X
4 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ Dice
10) Dice
6
, cminPlaceSize :: DiceXY
cminPlaceSize = Dice -> Dice -> DiceXY
DiceXY (X
2 X -> X -> Dice
`d` X
2 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ Dice
4) Dice
5
, cmaxPlaceSize :: DiceXY
cmaxPlaceSize = Dice -> Dice -> DiceXY
DiceXY Dice
16 Dice
40
, cdarkOdds :: Dice
cdarkOdds = X
1 X -> X -> Dice
`d` X
54 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ X
1 X -> X -> Dice
`dL` X
20
, cnightOdds :: Dice
cnightOdds = Dice
51
, cauxConnects :: Rational
cauxConnects = Integer
1Integer -> Integer -> Rational
forall a. Integral a => a -> a -> Ratio a
%Integer
2
, cmaxVoid :: Rational
cmaxVoid = Integer
1Integer -> Integer -> Rational
forall a. Integral a => a -> a -> Ratio a
%Integer
6
, cdoorChance :: Rational
cdoorChance = Integer
3Integer -> Integer -> Rational
forall a. Integral a => a -> a -> Ratio a
%Integer
4
, copenChance :: Rational
copenChance = Integer
1Integer -> Integer -> Rational
forall a. Integral a => a -> a -> Ratio a
%Integer
5
, chidden :: X
chidden = X
7
, cactorCoeff :: X
cactorCoeff = X
70
, cactorFreq :: Freqs ItemKind
cactorFreq = [(GroupName ItemKind
MONSTER, X
60), (GroupName ItemKind
ANIMAL, X
40)]
, citemNum :: Dice
citemNum = X
6 X -> X -> Dice
`d` X
5 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ Dice
10 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
- X
10 X -> X -> Dice
`dL` X
1
, citemFreq :: Freqs ItemKind
citemFreq = [(GroupName ItemKind
IK.COMMON_ITEM, X
40), (GroupName ItemKind
IK.TREASURE, X
60)]
, cplaceFreq :: Freqs PlaceKind
cplaceFreq = [(GroupName PlaceKind
ROGUE, X
1)]
, cpassable :: Bool
cpassable = Bool
False
, clabyrinth :: Bool
clabyrinth = Bool
False
, cdefTile :: GroupName TileKind
cdefTile = GroupName TileKind
FILLER_WALL
, cdarkCorTile :: GroupName TileKind
cdarkCorTile = GroupName TileKind
FLOOR_CORRIDOR_DARK
, clitCorTile :: GroupName TileKind
clitCorTile = GroupName TileKind
FLOOR_CORRIDOR_LIT
, cwallTile :: GroupName TileKind
cwallTile = GroupName TileKind
FILLER_WALL
, ccornerTile :: GroupName TileKind
ccornerTile = GroupName TileKind
FILLER_WALL
, cfenceTileN :: GroupName TileKind
cfenceTileN = GroupName TileKind
S_BASIC_OUTER_FENCE
, cfenceTileE :: GroupName TileKind
cfenceTileE = GroupName TileKind
S_BASIC_OUTER_FENCE
, cfenceTileS :: GroupName TileKind
cfenceTileS = GroupName TileKind
S_BASIC_OUTER_FENCE
, cfenceTileW :: GroupName TileKind
cfenceTileW = GroupName TileKind
S_BASIC_OUTER_FENCE
, cfenceApart :: Bool
cfenceApart = Bool
False
, cminStairDist :: X
cminStairDist = X
20
, cmaxStairsNum :: Dice
cmaxStairsNum = Dice
1 Dice -> Dice -> Dice
forall a. Num a => a -> a -> a
+ X
1 X -> X -> Dice
`d` X
2
, cescapeFreq :: Freqs PlaceKind
cescapeFreq = []
, cstairFreq :: Freqs PlaceKind
cstairFreq = [ (GroupName PlaceKind
WALLED_STAIRCASE, X
50), (GroupName PlaceKind
OPEN_STAIRCASE, X
50)
, (GroupName PlaceKind
TINY_STAIRCASE, X
1) ]
, cstairAllowed :: Freqs PlaceKind
cstairAllowed = []
, cskip :: [X]
cskip = []
, cinitSleep :: InitSleep
cinitSleep = InitSleep
InitSleepPermitted
, cdesc :: Text
cdesc = Text
"Winding tunnels stretch into the dark."
}
arena :: CaveKind
arena = CaveKind
rogue
{ cname = "Dusty underground library"
, cfreq = [(DEFAULT_RANDOM, 60), (CAVE_ARENA, 1)]
, cXminSize = 50
, cYminSize = 21
, ccellSize = DiceXY (3 `d` 3 + 17) (1 `d` 3 + 4)
, cminPlaceSize = DiceXY (2 `d` 2 + 4) 6
, cmaxPlaceSize = DiceXY 16 12
, cdarkOdds = 49 + 1 `d` 10
, cnightOdds = 0
, cauxConnects = 1
, cmaxVoid = 1%8
, chidden = 0
, cactorCoeff = 70
, cactorFreq = [(MONSTER, 30), (ANIMAL, 70)]
, citemNum = 4 `d` 5
, citemFreq = [ (IK.COMMON_ITEM, 20), (IK.TREASURE, 40)
, (IK.ANY_SCROLL, 40) ]
, cplaceFreq = [(ARENA, 1)]
, cpassable = True
, cdefTile = ARENA_SET_LIT
, cdarkCorTile = TRAIL_LIT
, clitCorTile = TRAIL_LIT
, cminStairDist = 15
, cmaxStairsNum = 1 `d` 2
, cstairFreq = [ (WALLED_STAIRCASE, 20), (CLOSED_STAIRCASE, 80)
, (TINY_STAIRCASE, 1) ]
, cinitSleep = InitSleepAlways
, cdesc = "The shelves groan with dusty books and tattered scrolls. Subtle snoring can be heard from a distance."
}
smoking :: CaveKind
smoking = CaveKind
arena
{ cname = "Smoking rooms"
, cfreq = [(CAVE_SMOKING, 1)]
, cdarkOdds = 41 + 1 `d` 10
, cnightOdds = 51
, citemNum = 6 `d` 5
, citemFreq = [(IK.COMMON_ITEM, 20), (IK.TREASURE, 40), (IK.ANY_GLASS, 40)]
, cdefTile = ARENA_SET_DARK
, cdesc = "Velvet couches exude the strong smell of tobacco."
}
laboratory :: CaveKind
laboratory = CaveKind
rogue
{ cname = "Burnt laboratory"
, cfreq = [(CAVE_LABORATORY, 1)]
, cXminSize = 60
, cYminSize = 21
, ccellSize = DiceXY (1 `d` 2 + 5) 6
, cminPlaceSize = DiceXY 7 5
, cmaxPlaceSize = DiceXY 10 40
, cnightOdds = 0
, cauxConnects = 1%5
, cmaxVoid = 1%10
, cdoorChance = 1
, copenChance = 1%2
, cactorFreq = [(MONSTER, 30), (ANIMAL, 70)]
, citemNum = 6 `d` 5
, citemFreq = [ (IK.COMMON_ITEM, 20), (IK.TREASURE, 40)
, (IK.EXPLOSIVE, 40) ]
, cplaceFreq = [(LABORATORY, 1)]
, cdarkCorTile = LAB_TRAIL_LIT
, clitCorTile = LAB_TRAIL_LIT
, cmaxStairsNum = 2
, cstairFreq = [ (WALLED_STAIRCASE, 50), (OPEN_STAIRCASE, 50)
, (TINY_STAIRCASE, 1) ]
, cdesc = "Shattered glassware and the sharp scent of spilt chemicals show that something terrible happened here."
}
noise :: CaveKind
noise = CaveKind
rogue
{ cname = "Leaky burrowed sediment"
, cfreq = [(DEFAULT_RANDOM, 30), (CAVE_NOISE, 1)]
, cXminSize = 50
, cYminSize = 21
, ccellSize = DiceXY (3 `d` 5 + 12) 6
, cminPlaceSize = DiceXY 8 5
, cmaxPlaceSize = DiceXY 20 20
, cdarkOdds = 51
, cnightOdds = 0
, cauxConnects = 1%10
, cmaxVoid = 1%100
, cdoorChance = 1
, chidden = 0
, cactorCoeff = 100
, cactorFreq = [(MONSTER, 80), (ANIMAL, 20)]
, citemNum = 6 `d` 5
, cpassable = True
, cplaceFreq = [(NOISE, 1)]
, clabyrinth = True
, cdefTile = NOISE_SET_LIT
, cfenceApart = True
, cdarkCorTile = DAMP_FLOOR_DARK
, clitCorTile = DAMP_FLOOR_LIT
, cminStairDist = 15
, cstairFreq = [ (CLOSED_STAIRCASE, 50), (OPEN_STAIRCASE, 50)
, (TINY_STAIRCASE, 1) ]
, cinitSleep = InitSleepBanned
, cdesc = "Soon, these passages will be swallowed up by the mud."
}
mine :: CaveKind
mine = CaveKind
noise
{ cname = "Frozen derelict mine"
, cfreq = [(CAVE_MINE, 1)]
, cnightOdds = 51
, citemNum = 10 `d` 4
, citemFreq = [(IK.COMMON_ITEM, 20), (GEM, 20)]
, cplaceFreq = [(NOISE, 1), (MINE, 99)]
, clabyrinth = True
, cdefTile = POWER_SET_DARK
, cstairFreq = [ (GATED_CLOSED_STAIRCASE, 50)
, (GATED_OPEN_STAIRCASE, 50)
, (GATED_TINY_STAIRCASE, 1) ]
, cinitSleep = InitSleepBanned
, cdesc = "Pillars of shining ice create a frozen labyrinth."
}
empty :: CaveKind
empty = CaveKind
rogue
{ cname = "Tall cavern"
, cfreq = [(CAVE_EMPTY, 1)]
, ccellSize = DiceXY (2 `d` 2 + 11) (1 `d` 2 + 8)
, cminPlaceSize = DiceXY 13 11
, cmaxPlaceSize = DiceXY 37 31
, cdarkOdds = 1 `d` 100 + 1 `dL` 100
, cnightOdds = 0
, cauxConnects = 3%2
, cmaxVoid = 0
, cdoorChance = 0
, copenChance = 0
, chidden = 0
, cactorCoeff = 8
, cactorFreq = [(ANIMAL, 10), (IMMOBILE_ANIMAL, 90)]
, citemNum = 4 `d` 5
, cplaceFreq = [(EMPTY, 1)]
, cpassable = True
, cdefTile = EMPTY_SET_LIT
, cdarkCorTile = FLOOR_ARENA_DARK
, clitCorTile = FLOOR_ARENA_LIT
, cminStairDist = 30
, cmaxStairsNum = 1
, cstairFreq = [ (WALLED_STAIRCASE, 20), (CLOSED_STAIRCASE, 80)
, (TINY_STAIRCASE, 1) ]
, cdesc = "Swirls of warm fog fill the air, the hiss of geysers sounding all around."
}
outermost :: CaveKind
outermost = CaveKind
shallowRogue
{ cname = "Cave entrance"
, cfreq = [(CAVE_OUTERMOST, 100)]
, cXminSize = 40
, cYminSize = 21
, cdarkOdds = 0
, cactorCoeff = 100
, cactorFreq = filter ((/= MONSTER) . fst) $ cactorFreq rogue
, citemNum = 12 `d` 2
, citemFreq = filter ((/= IK.TREASURE) . fst) $ citemFreq rogue
, cminStairDist = 10
, cmaxStairsNum = 1
, cescapeFreq = [(INDOOR_ESCAPE_UP, 1)]
, cdesc = "This close to the surface, the sunlight still illuminates the dungeon."
}
shallowRogue :: CaveKind
shallowRogue = CaveKind
rogue
{ cfreq = [(CAVE_SHALLOW_ROGUE, 100)]
, cXminSize = 60
, cYminSize = 21
, cmaxStairsNum = 1
, cdesc = "The snorts and grunts of savage beasts can be clearly heard."
}
raid :: CaveKind
raid = CaveKind
rogue
{ cname = "Typing den"
, cfreq = [(CAVE_RAID, 1)]
, cXminSize = 50
, cYminSize = 21
, ccellSize = DiceXY (2 `d` 4 + 6) 6
, cminPlaceSize = DiceXY (2 `d` 2 + 4) 5
, cmaxPlaceSize = DiceXY 16 20
, cdarkOdds = 0
, cmaxVoid = 1%10
, cdoorChance = 1
, copenChance = 0
, cactorCoeff = 300
, cactorFreq = [(ANIMAL, 100)]
, citemNum = 18
, citemFreq = [ (IK.COMMON_ITEM, 100), (IK.S_CURRENCY, 500)
, (STARTING_WEAPON, 100) ]
, cmaxStairsNum = 0
, cescapeFreq = [(INDOOR_ESCAPE_UP, 1)]
, cstairFreq = []
, cstairAllowed = []
, cdesc = "Mold spreads across the walls and scuttling sounds can be heard in the distance."
}
brawl :: CaveKind
brawl = CaveKind
rogue
{ cname = "Sunny woodland"
, cfreq = [(CAVE_BRAWL, 1)]
, cXminSize = 60
, cYminSize = 21
, ccellSize = DiceXY (2 `d` 5 + 5) 6
, cminPlaceSize = DiceXY 3 3
, cmaxPlaceSize = DiceXY 7 5
, cdarkOdds = 51
, cnightOdds = 0
, cdoorChance = 1
, copenChance = 0
, chidden = 0
, cactorFreq = []
, citemNum = 4 `d` 6
, citemFreq = [ (IK.COMMON_ITEM, 50), (STARTING_WEAPON, 100)
, (STARTING_ARMOR, 100) ]
, cplaceFreq = [(BRAWL, 1)]
, cpassable = True
, cdefTile = BRAWL_SET_LIT
, cdarkCorTile = DIRT_LIT
, clitCorTile = DIRT_LIT
, cstairFreq = []
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cdesc = "Sunlight falls through the trees and dapples on the ground."
}
shootout :: CaveKind
shootout = CaveKind
rogue
{ cname = "Misty meadow"
, cfreq = [(CAVE_SHOOTOUT, 1)]
, ccellSize = DiceXY (1 `d` 2 + 6) 6
, cminPlaceSize = DiceXY 3 3
, cmaxPlaceSize = DiceXY 4 4
, cdarkOdds = 51
, cnightOdds = 0
, cauxConnects = 1%10
, cdoorChance = 1
, copenChance = 0
, chidden = 0
, cactorFreq = []
, citemNum = 5 `d` 16
, citemFreq = [ (IK.COMMON_ITEM, 30)
, (ANY_ARROW, 400), (HARPOON, 300), (IK.EXPLOSIVE, 50) ]
, cplaceFreq = [(SHOOTOUT, 1)]
, cpassable = True
, cdefTile = SHOOTOUT_SET_LIT
, cdarkCorTile = DIRT_LIT
, clitCorTile = DIRT_LIT
, cstairFreq = []
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cdesc = "The warmth has released fog and the wind brooms it away."
}
hunt :: CaveKind
hunt = CaveKind
rogue
{ cname = "Afternoon swamp"
, cfreq = [(CAVE_HUNT, 1)]
, ccellSize = DiceXY (1 `d` 2 + 6) 6
, cminPlaceSize = DiceXY 3 3
, cmaxPlaceSize = DiceXY 4 4
, cdarkOdds = 51
, cnightOdds = 0
, cauxConnects = 1%10
, cdoorChance = 1
, copenChance = 0
, chidden = 0
, cactorCoeff = 400
, cactorFreq = [(INSECT, 100)]
, citemNum = 5 `d` 10
, citemFreq = [ (IK.COMMON_ITEM, 30)
, (ANY_ARROW, 400), (HARPOON, 300), (IK.EXPLOSIVE, 50) ]
, cplaceFreq = [(BRAWL, 50), (SHOOTOUT, 100)]
, cpassable = True
, cdefTile = SHOOTOUT_SET_LIT
, cdarkCorTile = DIRT_LIT
, clitCorTile = DIRT_LIT
, cstairFreq = []
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cdesc = "Tired after the day's heat, the insects gather strength in their hiding places."
}
flight :: CaveKind
flight = CaveKind
rogue
{ cname = "Metropolitan park at dusk"
, cfreq = [(CAVE_FLIGHT, 1)]
, ccellSize = DiceXY (1 `d` 3 + 7) 6
, cminPlaceSize = DiceXY 5 3
, cmaxPlaceSize = DiceXY 9 9
, cdarkOdds = 51
, cnightOdds = 51
, cauxConnects = 2
, cmaxVoid = 1%100
, chidden = 0
, cactorFreq = []
, citemNum = 6 `d` 8
, citemFreq = [ (IK.COMMON_ITEM, 30), (GEM, 500)
, (WEAK_ARROW, 500), (HARPOON, 400)
, (IK.EXPLOSIVE, 100) ]
, cplaceFreq = [(FLIGHT, 1)]
, cpassable = True
, cdefTile = FLIGHT_SET_DARK
, cdarkCorTile = SAFE_TRAIL_LIT
, clitCorTile = SAFE_TRAIL_LIT
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cescapeFreq = [(OUTDOOR_ESCAPE_DOWN, 1)]
, cstairFreq = []
, cskip = []
, cdesc = "The darkening greyness is settling into silence."
}
zoo :: CaveKind
zoo = CaveKind
rogue
{ cname = "Menagerie in flames"
, cfreq = [(CAVE_ZOO, 1)]
, ccellSize = DiceXY (1 `d` 3 + 7) 6
, cminPlaceSize = DiceXY 4 4
, cmaxPlaceSize = DiceXY 12 5
, cdarkOdds = 51
, cnightOdds = 51
, cauxConnects = 1%4
, cmaxVoid = 1%20
, cdoorChance = 7%10
, copenChance = 9%10
, chidden = 0
, cactorFreq = []
, citemNum = 7 `d` 8
, citemFreq = [ (IK.COMMON_ITEM, 100), (LIGHT_ATTENUATOR, 1000)
, (STARTING_WEAPON, 1000) ]
, cplaceFreq = [(ZOO, 1)]
, cpassable = True
, cdefTile = ZOO_SET_DARK
, cdarkCorTile = SAFE_TRAIL_LIT
, clitCorTile = SAFE_TRAIL_LIT
, cstairFreq = []
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cdesc = "The night is filled with animal calls."
}
ambush :: CaveKind
ambush = CaveKind
rogue
{ cname = "Burning metropolitan park"
, cfreq = [(CAVE_AMBUSH, 1)]
, ccellSize = DiceXY (1 `d` 4 + 7) 6
, cminPlaceSize = DiceXY 5 3
, cmaxPlaceSize = DiceXY 9 9
, cdarkOdds = 51
, cnightOdds = 51
, cauxConnects = 1%10
, chidden = 0
, cactorFreq = []
, citemNum = 5 `d` 8
, citemFreq = [ (IK.COMMON_ITEM, 30)
, (ANY_ARROW, 400), (HARPOON, 300), (IK.EXPLOSIVE, 50) ]
, cplaceFreq = [(AMBUSH, 1)]
, cpassable = True
, cdefTile = AMBUSH_SET_DARK
, cdarkCorTile = TRAIL_LIT
, clitCorTile = TRAIL_LIT
, cstairFreq = []
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cmaxStairsNum = 0
, cdesc = "Fires have reached into the city, glowing in darkness."
}
battle :: CaveKind
battle = CaveKind
rogue
{ cname = "Old battle ground"
, cfreq = [(CAVE_BATTLE, 1)]
, ccellSize = DiceXY (5 `d` 3 + 11) 5
, cminPlaceSize = DiceXY 4 4
, cmaxPlaceSize = DiceXY 9 7
, cdarkOdds = 0
, cnightOdds = 51
, cauxConnects = 1%4
, cmaxVoid = 1%20
, cdoorChance = 2%10
, copenChance = 9%10
, chidden = 0
, cactorFreq = []
, citemNum = 5 `d` 8
, citemFreq = [(IK.COMMON_ITEM, 100), (LIGHT_ATTENUATOR, 200)]
, cplaceFreq = [(BATTLE, 50), (ROGUE, 50)]
, cpassable = True
, cdefTile = BATTLE_SET_DARK
, cdarkCorTile = SAFE_TRAIL_LIT
, clitCorTile = SAFE_TRAIL_LIT
, cfenceTileN = OUTDOOR_OUTER_FENCE
, cfenceTileE = OUTDOOR_OUTER_FENCE
, cfenceTileS = OUTDOOR_OUTER_FENCE
, cfenceTileW = OUTDOOR_OUTER_FENCE
, cfenceApart = True
, cmaxStairsNum = 0
, cstairFreq = []
, cdesc = "Eroded walls, rusted weapons and unidentifiable bones cruch underfoot all alike."
}
safari1 :: CaveKind
safari1 = CaveKind
brawl
{ cname = "Hunam habitat"
, cfreq = [(CAVE_SAFARI_1, 1)]
, cminPlaceSize = DiceXY 5 3
, cmaxStairsNum = 1
, cstairFreq = [ (OUTDOOR_WALLED_STAIRCASE, 20)
, (OUTDOOR_CLOSED_STAIRCASE, 80)
, (OUTDOOR_TINY_STAIRCASE, 1) ]
, cskip = [0]
, cdesc = "\"Act 1. Hunams scavenge in a forest in their usual disgusting way.\""
}
safari2 :: CaveKind
safari2 = CaveKind
flight
{ cname = "Deep into the jungle"
, cfreq = [(CAVE_SAFARI_2, 1)]
, cmaxStairsNum = 1
, cescapeFreq = []
, cstairFreq = [ (OUTDOOR_WALLED_STAIRCASE, 20)
, (OUTDOOR_CLOSED_STAIRCASE, 80)
, (OUTDOOR_TINY_STAIRCASE, 1) ]
, cskip = [0]
, cdesc = "\"Act 2. In the dark pure heart of the jungle noble animals roam freely.\""
}
safari3 :: CaveKind
safari3 = CaveKind
zoo
{ cname = "Jungle in flames"
, cfreq = [(CAVE_SAFARI_3, 1)]
, cminPlaceSize = DiceXY 5 4
, cescapeFreq = [(OUTDOOR_ESCAPE_DOWN, 1)]
, cmaxStairsNum = 1
, cstairFreq = [ (OUTDOOR_WALLED_STAIRCASE, 20)
, (OUTDOOR_CLOSED_STAIRCASE, 80)
, (OUTDOOR_TINY_STAIRCASE, 1) ]
, cdesc = "\"Act 3. Jealous hunams set jungle on fire and flee.\""
}