/* -*- LPC -*- */ /* * $Locker: $ * $Id: priests.c,v 1.8 2003/02/19 06:54:24 ceres Exp $ */ #include "path.h" inherit PATH + "inside"; string list_deities(); void setup() { set_short( "Priests' Gazebo" ); set_light( 75 ); add_property("no teleport", 1); set_long( "As you enter this blessed and holy gazebo, a warm feeling of " "peace and calmness overwhelms you. You get the feeling that " "this must be what it's like to be a priest. Around the room " "you can see items of priesthood: jars of fluff, holy symbols " "and coloured rods. A small sign with a green aura sits in the " "corner. If you 'read sign' you can get some information " "about the priests.\n" "A small notice, blessed into oblivion, states that this is not " "the place where you actually join the guild.\n" ); set_zone( "Newbie" ); add_item( ({ "jar", "jar of fluff", "jars of fluff", "fluff", "holy symbol", "coloured rod", "relic", "symbol", "rod" }), "There are many items around the room, but their function is " "beyond you for the most part." ); add_item( "notice", "This blessed notice rests peacefully against a holy relic." ); add_sign( "The sign is covered in a soothing green aura, and sits " "in the corner of the room.\n", FOYER->format_sign("This holy guild, and its many " "gods, is based at the Temple of Small Gods in Ankh-Morpork. " "You may learn how to heal and resurrect, shield with the " "power of your faith, and many other holy powers. Some gods " "shun healing almost completely, preferring to concentrate on " "causing strife and mayhem among the citizens of Discworld. Ask" " some of the other priests in the city about finding a god " "that will suit your needs, and help back you up.\n" "The following gods are desirous of priests: " + list_deities() + ". Many gods require particular alignments. Use 'finger " "<deity>' to find out a particular deities alignment " "requirements and visit the alignment room to get yours " "adjusted if you wish.\n"), 0, 0, "general"); /* Make it so you cannot godmother out of here */ add_property("no godmother", 1); add_exit( "garden", PATH +"guilds_foyer", "gate" ); } string list_deities() { string *deities; int i; deities = unguarded((: get_dir("/save/deities/") :)); deities -= ({ ".", ".." }); for(i=0; i<sizeof(deities); i++) { deities[i] = replace(deities[i], ".o", ""); deities[i] = replace(deities[i], ".gz", ""); } deities = map (filter(deities, (: "/obj/handlers/deity_handler"->query_want_priests($1) :)), (: capitalize ($1) :)); return query_multiple_short(deities); }