Fantasy (#1250)(an instance of Generic Litter made by Marcus)     A Fantasy is a magnificent sailing ship,       sails aloft oceans of sky... Go to location of this object, Entry.       THE PIRATES' PLANET      Now their journey was nearing its happy end,       for the Air Sprite pointed out to them,       through an opportune gap in the encircling stars,       the tiny Orb that was the Wonder World of Mars;       and he named them the planets as they journeyed.       There the sinister cruel world of Chinese legend,       and beyond that the beautiful Star of DreamsComeTrue,       till for curiosity they landed on the Pirates Planet,      which is very famed amongst all the outer worlds.       (... the fantasy continues ...)      There they saw the hardy spirits of all the Buccaneers       and Pirates who sailed the fabled mains.      Their ships were there also, and on the curving beach       fronting the sunny seas they buried again       their gleaming treasures.       (... the fantasy continues ...)      And the sea was filled with the glory of their ships,      and the land with the splendour of their jewels;      and they fought their ancient and dishonourable battles over again.      But harmless were these joys,      for nothing here was real,      and all was dim and mystic,      and not more clear than the romantic memory that our Earth holds       of all those desperate men.       [William Timlin, THE SHIP THAT SAILED TO MARS, 1923] VERB SOURCE CODE: sail:
if (!this:is_readable_by(valid(caller_perms()) ? caller_perms() | player))
player:tell(this.not_play_msg);
else
player:tell(this.play_msg);
count = 1;
this:look_self();
suspend(this.pause);
for l in [1..length(this.stanzas_msg)]
lines = tonum(this.stanzas_msg[l]) - 1;
stanza = this:text()[count..count + lines];
player:tell_lines(stanza);
count = (count + lines) + 1;
suspend(this.pause);
endfor
player:tell(this.end_play_msg);
endif
.
read: this:look_self(); player:tell_lines(this.read); . PROPERTY DATA:       stanzas_msg       not_play_msg       play_msg       end_play_msg       pause       read |