Anonymous user
RCRPG/Inform 7: Difference between revisions
→Code: sledge damage, "sledging with", moved "every turn" rule for equipped items
m (→Code: tabs in directional offset table) |
(→Code: sledge damage, "sledging with", moved "every turn" rule for equipped items) |
||
Line 25:
== Code ==
<lang inform7>"RCRPG"
The story headline is "An implementation of http://rosettacode.org/wiki/RCRPG".
Chapter - Rooms
Section - Prize objects
[Inform objects aren't created dynamically, but we can fake it by predefining
pools of identical objects. These will start out off-stage, and we'll move them
to newly discovered rooms as needed.]
A prize is a kind of thing.
A sledge is a kind of prize. There are 20 sledges.
A gold coin is a kind of prize. There are 70 gold coins.
A ladder is a kind of prize. There are 10 ladders.
Section - Rooms in XYZ space
A room has a number called X position.
A room has a number called Y position.
A room has a number called Z position.
To say room coordinates of (R - room):
say "room ([X position of R],[Y position of R],[Z position of R])".
Section - Dynamically naming rooms
A room has indexed text called the given name.
The given name of a room is usually "The Unnamed Room".
Definition: a room is undubbed if the given name of it is "The Unnamed Room".
The printed name of a room is "[given name]".
Section - Listing exits
The description of a room is "You are in [room coordinates of the item
described], [the item described]. [room exit list]".
Definition: a direction (called D) is accessible rather than inaccessible if
the room D from the location is not nothing.
To say room exit list:
let L be the list of accessible directions;
Line 75:
-- 1: say "There is an exit [entry 1 in L].[run paragraph on]";
-- otherwise: say "There are exits [L].[run paragraph on]";
Rule for printing the name of a direction (called D) while looking:
say exit direction of D.
To say exit direction of (D - up): say "in the ceiling".
To say exit direction of (D - down): say "in the floor".
To say exit direction of (D - a direction): say "to the [printed name of D]".
Section - The recycled room pool
[The room pool is similar to the prize pools, but "off-stage" is meaningless
for rooms, so we define a new either/or property.]
A room can be allocated or unallocated. A room is usually unallocated.
There are 100 unallocated rooms.
[When we run out of unallocated rooms, we'll reclaim rooms that have already
been discovered. We prefer to reclaim rooms that haven't been named, and we'll
never reclaim the current room, a neighboring room, or the two special rooms.]
Definition: a room is reclaimable:
if it is the location, no;
Line 100:
if it is adjacent, no;
yes.
Definition: a prize is reclaimable if it is in a reclaimable room.
To decide which room is a recycled room:
if a room (called R) is unallocated, decide on R;
if there is a reclaimable undubbed room (called R), decide on R;
decide on a random reclaimable room.
[After a room is recycled for use, we need to clear out the traces of its
previous use and fill it with a prize.]
To initialize (R - room):
now R is allocated;
Line 123:
if P is nothing, let P be a random reclaimable prize;
if P is not nothing, move P to R.
To decide which room is a room allocated for position (X - number) /
(Y - number) / (Z - number):
Line 136:
now the Z position of R is Z;
decide on R.
Section - Predefined rooms
The player is in Start Room.
Start Room is an allocated room with given name "Start Room".
In Start room is a sledge.
Prize Room is an allocated room with given name "Prize Room", X position 1,
Y position 1, and Z position 5. In Prize Room are 8 gold coins.
Section - Traveling in XYZ space
[Table syntax can be used to define new objects, or in this case to set the
properties of previously defined ones.]
Some directions are defined by the Table of Directional Offsets.
Table of Directional Offsets
direction X offset Y offset Z offset
Line 162:
south 0 -1 0
west -1 0 0
[Inform also knows about these, but we won't use them for digging...]
[northeast 1 1 0
Line 168:
southwest -1 -1 0
northwest -1 1 0]
Before going up when the location does not contain a ladder and the player
carries a ladder (called L):
say "(first dropping [the L])";
silently try dropping L.
Instead of going up when the location does not contain a ladder, say
"There needs to be a ladder in the room before you can climb."
Report going up for the first time: say "You climb up the ladder."
Report going down to a room that does not contain a ladder for the first time:
say "You jump down, but you'll need to find a ladder before you can get
back up."
[Redirect CLIMB LADDER to GO UP.]
Instead of climbing a ladder, try going up.
[Redirect CLIMB UP/DOWN to GO UP/DOWN.]
Before climbing a direction (called D), try going D instead.
Instead of jumping, say "You jump on the spot, but you can't quite reach
the ceiling."
Section - Equipment
A thing can be equipped or unequipped. A thing is usually unequipped.
[This lets the player refer to equipped objects in commands like "drop
unequipped sledge", and also groups them apart in inventory listings.]
Understand the equipped property as referring to a thing.
After printing the name of something equipped while taking inventory:
say " (equipped)".
Wielding relates a person (called P) to a thing (called T) when P carries T
and T is equipped. The verb to wield (he wields, they wield, he is wielding,
it is wielded) implies the wielding relation.
Every turn:
now everything not carried by a player is unequipped.
Chapter - Actions
Section - Naming
Naming is an action applying to one topic. Understand "name [text]" as naming.
Carry out naming:
now the given name of the location is the topic understood in
title case.
Report naming:
say "OK, [room coordinates of the location] is now [given name of the
location]."
Section - Sledging
Sledging is an action applying to one visible thing. Understand "attack
[direction]" or "sledge [direction]" as sledging. Understand the command "a"
as "attack".
The sledging action has an object called the active sledge (matched as "with").
Setting action variables for sledging:
if the player wields a sledge (called S), now the active sledge is S.
Before sledging with nothing when the player is
say "(first equipping [the S])";
silently try equipping S
if the player wields S, now the active sledge is S.
Check sledging with nothing:
instead say "You won't accomplish anything without a sledge equipped.";
Check sledging an accessible direction:
instead say "You swing your sledge wildly."
Definition: a direction (called D) is bashable rather than unbashable:
if the X offset of D is not 0, yes;
Line 243 ⟶ 251:
if the Z offset of D is not 0, yes;
no.
Check sledging an unbashable direction:
instead say "You can only open exits to the [list of bashable
directions]."
Carry out sledging a direction (called D):
let X be the X position of the location plus the X offset of D;
Line 256 ⟶ 264:
change the (opposite of D) exit of R to the location.
Definition: a thing is accessible if the location of it is a connected room.
Definition: a room is connected if the number of moves from it to the location is not -1.
Carry out sledging when a random chance of 1 in 4 succeeds and an unequipped sledge is accessible:
remove the active sledge from play.
Report sledging a direction (called D):
let destination be the room D of the location;
say "You bash until the surface crumbles, leading a hole [exit
direction of D] you can crawl through
if the active sledge is off-stage, say ". Your sledge shatters
from the impact";
say "."
Section - Equipping
Equipping is an action applying to one carried thing. Understand "equip
[something]" or "wield [something]" as equipping.
Check equipping something which is equipped:
instead say "[The noun] is already equipped."
Carry out equipping:
now the noun is equipped.
Report equipping:
say "You equip [the noun][first time]. Put it to good use[only]."
Section - Unequipping
Unequipping is an action applying to one carried thing. Understand "unequip"
or "unequip [something]" as unequipping.
Rule for supplying a missing noun when unequipping:
if the player is wielding something (called the equipped item), now
the noun is the equipped item.
Check unequipping when the player is not wielding the noun:
instead say "[The noun] is not equipped."
Carry out unequipping:
now the noun is unequipped.
Report unequipping:
say "You unequip [the noun]."</lang>
| |||