/* cleric guild */
#include <mudlib.h>
inherit GUILD;
void reset(status arg) {
if(!guild_master) {
guild_master = clone_object("room/city/monst/aleena");
move_object(guild_master,this_object());
}
if(arg) return;
set_short("The High Temple of the All-God");
set_long(
"The inner sanctumn is a place of peace and tranquility, simple \n"+
"in design, yet its power and brilliance over whelms you. Light \n"+
"pours in from every direction; the ceiling, the walls, everywhere; \n"+
"all focussed upon a single object at the end of the room - the \n"+
"great symbol of the Creator God. It stands before you in might and \n"+
"holiness. Here is where all come to worship and seek holy inspiration \n"+
"and guidance. \n");
set_weather(2, 0, 0);
set_no_fight(1);
set_exits(({ "room/city/cleric/garden8", "north" }));
set_guild_name("No"); /* normal guild */
set_classes(({
"general", ({
"climb", "swim",
}),
"primary", ({
"intelligence", "wisdom",
/* can't raise these here....
"dexterity", "strength",
"combat", "constitution", "charisma",
*/
}),
"cleric", ({
"healing sphere", "necromancy sphere", "combat sphere",
"stellar sphere", "protection sphere", "nature sphere",
"divination sphere",
}),
/* these are alternatives....
"fighter", ({
"multi attack", "multi opponent", "two weapon",
"unarmed", "armouring", "weapon smith",
}),
"thief", ({
"stealth", "locks", "steal", "backstab",
"appraisal", "traps",
}),
"mage", ({
"illusion", "charm", "conjuration", "abjuration",
"necromancy", "evocation", "divination", "alteration",
}),
*/
}));
set_exp(({
0, 1014, 1522, 2283, 3425, 5138,
7707, 11561, 17341, 26012, 39018, 58527,
87791, 131687, 197530, 296296, 444444, 666666,
1000000, 1500000, 2000000, 2500000, 3000000, 3500000,
4000000, 4500000, 5000000, 5500000, 6000000, 6500000,
}));
set_skill_exp(({
30, 50, 75, 100, 175, 250,
400, 600, 900, 1200, 2000, 3000,
4500, 6500, 10000, 15000, 20000, 30000,
50000, 75000, 100000, 125000, 150000, 175000,
200000, 225000, 250000, 275000, 300000, 325000,
}));
set_titles(({
/* neuter titles */
({ }),
/* male titles */
({
"the Utter Newbie",
"the Humble Acolyte",
"the Devout Acolyte",
"the Humble Decon",
"the Devout Decon",
"the Humble Servant",
"the Devout Servant",
"the Humble Disciple",
"the Devout Disciple",
"the Humble Adept",
"the Devout Adept",
"the Humble Curate",
"the Devout Curate",
"the Humble Canon",
"the Devout Canon",
"the Humble Preceptor",
"the Devout Preceptor",
"the Humble Priest",
"the Devout Priest",
"the Humble Patriarch",
"the Devout Patriarch",
"the Humble Clerist",
"the Devout Clerist",
"the Humble High Clerist",
"the Devout High Clerist",
"the Humble High Priest",
"the Devout High Priest",
"the Humble Prophet",
"the Devout Prophet",
}),
/* female titles */
({
}),
}));
/*** get a new pretitle one in four levels after 30 ***/
set_pretitles(({
({}), /* no neuter pretitles */
/* male pretitles */
({
"Captain",
"Major",
"Colonel",
"General",
"Marshall",
"Knight Marshall",
"Sir",
"Lord",
"Baronet",
"Baron",
"Viscount",
"Count",
"Marquis",
"Duke",
"Grand Duke",
"Archduke",
"Prince",
"Crown Prince",
"King",
"Emperor",
"Overlord",
}),
/* female pretitles */
({
"Captain",
"Major",
"Colonel",
"General",
"Marshall",
"Knight Marshall",
"Madame",
"Lady",
"Baronet",
"Baroness",
"Viscountess",
"Countess",
"Marquise",
"Duchess",
"Grand Duchess",
"Archduchess",
"Princess",
"Crown Princess",
"Queen",
"Empress",
"Overlady",
}),
}));
}
void init() {
add_action("pray", "pray");
if(guild_master) {
object attacker;
if((attacker = (object)guild_master->query_primary_attack())) {
if(present(attacker, this_object())) {
call_out("no_guild_mess",1,this_player());
return;
}
}
}
::init();
}
void no_guild_mess(object ob) {
if(!ob) return;
tell_object(ob, guild_master->query_name() +" is busy defending "+
guild_master->query_possessive() +"self.\n");
tell_object(ob,capitalize((string)guild_master->query_possessive()) +
" is too busy to train anybody.\n");
}
status pray() {
this_player()->toggle_ghost();
return 1;
}
int query_no_fight() { return 1; }