Part 2 - Barrier-Dominant
To write a barrier-dominant room description:
if the desc of the current room is "":
DM "I'm writing a barrier-dominant room description for [the current room].";
now the desc of the current room is "(Something went wrong with this barrier-dominant room description.)";
if the current landmark is a shrine entrance:
let K be a random number between 1 and 4;
if K is 1:
DM "(type shrine-1).[line break]";
write a barrier sentence;
write a weather sentence;
write a terrain-shrine sentence;
now the desc of the current room is "[the barrier sentence] [the weather sentence] [the terrain-shrine sentence]" in sentence case;
otherwise if K is 2:
DM "(type shrine-2)[line break]";
write a barrier sentence;
write a shrine sentence;
write a weather-terrain sentence;
now the desc of the current room is "[the barrier sentence] [the shrine sentence] [the weather-terrain sentence]" in sentence case;
otherwise if K is 3:
DM "(type shrine-3).[line break]";
write a shrine-barrier sentence;
write a terrain sentence;
write a weather sentence;
now the desc of the current room is "[the shrine-barrier sentence] [the terrain sentence] [the weather sentence]" in sentence case;
otherwise:
DM "(type shrine-4).[line break]";
write a shrine-barrier sentence;
write a weather-terrain sentence;
now the desc of the current room is "[the shrine-barrier sentence] [the weather-terrain sentence]" in sentence case;
otherwise if the current landmark is a significant prop:
let K be a random number between 1 and 8;
if K is 1:
DM "(type prop-1).[line break]";
write a barrier sentence;
write a weather sentence;
write a terrain-prop sentence;
now the desc of the current room is "[the barrier sentence] [the weather sentence] [the terrain-prop sentence]" in sentence case;
otherwise if K is 2:
DM "(type prop-2).[line break]";
write a barrier sentence;
write a weather-prop sentence;
write a terrain sentence;
now the desc of the current room is "[the barrier sentence] [the weather-prop sentence] [the terrain sentence]" in sentence case;
otherwise if K is 3:
DM "(type prop-3).[line break]";
write a barrier sentence;
write a prop sentence;
write a weather-terrain sentence;
now the desc of the current room is "[the barrier sentence] [the prop sentence] [the weather-terrain sentence]" in sentence case;
otherwise if K is 4:
DM "(type prop-4).[line break]";
write a prop-barrier sentence;
write a weather sentence;
write a terrain sentence;
now the desc of the current room is "[the prop-barrier sentence] [the weather sentence] [the terrain sentence]" in sentence case;
otherwise if K is 5:
DM "(type prop-5).[line break]";
write a prop-barrier sentence;
write a weather-terrain sentence;
now the desc of the current room is "[the prop-barrier sentence] [the weather-terrain sentence]" in sentence case;
otherwise if K is 6:
DM "(type prop-6).[line break]";
write a terrain-barrier sentence;
write a prop sentence;
write a weather sentence;
now the desc of the current room is "[the terrain-barrier sentence] [the prop sentence] [the weather sentence]" in sentence case;
otherwise if K is 7:
DM "(type prop-7).[line break]";
write a terrain-barrier sentence;
write a weather sentence;
write a prop sentence;
now the desc of the current room is "[the terrain-barrier sentence] [the weather sentence] [the prop sentence]" in sentence case;
otherwise:
DM "(type prop-8).[line break]";
write a terrain-barrier sentence;
write a weather-prop sentence;
write a prop sentence;
now the desc of the current room is "[the terrain-barrier sentence] [the weather-prop sentence]" in sentence case;
otherwise:
let K be a random number between 1 and 2;
if K is 1:
DM "(type other-1).[line break]";
write a barrier sentence;
write a weather-terrain sentence;
now the desc of the current room is "[the barrier sentence] [the weather-terrain sentence]" in sentence case;
otherwise:
DM "(type other-2).[line break]";
write a terrain-barrier sentence;
write a weather sentence;
now the desc of the current room is "[the terrain-barrier sentence] [the weather sentence]" in sentence case.