/* This monster is a mage  */
/* Author : Zilanthius     */

inherit "inherit/monster";

void reset(status arg) {
  ::reset(arg);
  if(!present("bone")) {
    object bone; /* a spell component */

    bone = clone_object("inherit/treasure");
    bone->set_name("bone");
    bone->set_short("Bone");
    bone->set_long("An old white bone.\n");
    bone->set_weight(1);
    bone->set_value(5);
    move_object(bone,this_object());
  }
  if(arg) return;
  set_name("magius");
  set_alt_name("mage");
  set_level(15);
  set_short("Magius the Mage");
  set_long(
    "This is Magius. He looks like a very powerful mage.\n");
  set_alignment(100);
  set_race("elf");
  load_chat(5, ({
    "Magius studies intently.\n",
    "Magius reads a small note.\n",
    "Magius prepares some spell components.\n",
  }));
  add_spell_immunity("fire");
  add_class("mage");   /* allow monster use mage spell bin */
  load_spells(25, ({   /* some spells from mage spell bin  */
    "fire shield", "resist magic", "stoneskin", "burning hands",
    "coc", "animate skeleton", "comet", "chain lightning",
    "minor malison", "mks", "hold person", "fire ball",
  }));
}