/* Cleric of the All-God
 * Angel, October 1993.
 */

object robe, symb;

inherit "inherit/monster";

reset(arg) {
  ::reset(arg);
  if(arg) return;

  set_name("cleric");
  set_short("A cleric of the All-God");
  set_long("This is a devout follower of the All-God.\n");
  set_gender(random(2) + 1);
  set_level(5);
  set_wc(9);
  set_ac(5);
  set_hp(100);
  set_al(300 + random(200));
  load_chat(9, ({ "Cleric asks: Do you know the one true way, my friend?\n",
     "Cleric asks: Who do you seek, my child?\n",
     "Cleric smiles peacefully.\n",
     "Cleric prays a silent prayer.\n",
     "Cleric looks toward the heavens for spiritual guidance.\n"
  }));
  load_a_chat(10, ({ "Cleric exclaims: How dare you!\n",
     "Cleric says: This is blasphemy.\n",
     "Cleric prays a silent prayer.\n",
     "Cleric cries out in pain.\n",
     "Cleric calls for divine aid.\n",
  }));

  load_spells(2, ({ "clw"}));
  set_race("human");

  robe = clone_object("inherit/clothing");
  robe -> set_name("robe");
  robe -> set_alias("robes");
  robe -> set_short("white clerical robes");
  robe -> set_long("The bear the symbol of the All-God upon them.\n");
  robe -> set_value(50);
  robe -> set_sell_destruct(1);
  robe -> set_weight(1);
  move_object(robe, this_object());
  init_command("wear robe");

  symb = clone_object("inherit/clothing");
  symb -> set_name("holy symbol");
  symb -> set_alias("symbol");
  symb -> set_short("A platinum holy symbol");
  symb -> set_weight(1);
  symb -> set_sell_destruct(1);
  symb -> set_value(20 + random(100));
  symb -> set_long(
     "This holy symbol bears silver dragons looped in a figure eight, each\n"+
     "chasing the others tail. This is the symbol of the All-God that his \n"+
     "clerical follers wear. It appears to be made of platinum.\n");
  move_object(symb, this_object());
  init_command("wear symbol");
}