#include "std.h"
int eyes;
object diamond,shagath;


id(str) {
return str == "diamond" || str =="eye" || str == "eyes" || str=="statue";
        }

#undef EXTRA_INIT
#define EXTRA_INIT add_action("get_diamond"); add_verb("pry");

#undef EXTRA_RESET
#define EXTRA_RESET\
eyes =2;\

#undef EXTRA_LONG
#define EXTRA_LONG\
    if (eyes == 1)\
write("The Statue of Kali looks at you with one diamond eye.\n");\
    if (eyes == 2)\
write("The Statue of Kali looks at you with two burning diamond eyes.\n");\
    if (eyes == 0)\
write("The Statue of Kali looks at you with two empty eye sockets.\n");\

TWO_EXIT("players/kantele/dirty_temple","north",
         "players/kantele/robing_room","west",
         "You are Behind the alter",
         "You are behind the alter, a passage leads west and you can go into\n" +
         "the temple proper to the north. ",1)

get_diamond(arg) {
    if (eyes > 0 && arg =="of eye" || eyes > 0 && arg =="of eyes") {
       eyes = eyes-1;
       write("you pry of a diamond eye.\n");
say(call_other(this_player(), "query_name") + " pryes of a diamond eye.\n");
       diamond  = clone_object("obj/treasure");
       call_other(diamond, "set_id", "diamond");
       call_other(diamond, "set_short", "A huge glittering diamond");
       call_other(diamond, "set_weight", 1);
       call_other(diamond, "set_value", random(2000));
       call_other(diamond, "set_alias", "gem");
       move_object(diamond, this_object());
       if (eyes == random(3)) {
           summon_avatar();
           }
      return 1;
       }
}


summon_avatar() {
    if (!shagath || !living(shagath)) {
	object player;
	player = this_player();	/* Save it. Gets destroyed by some bug */
	tell_room(this_object(),
		"The Whole Temple shakes as you feel the Wreath of Kali !\n");
	tell_room(this_object(),
		"Shagath the avatar of Kali arrives in a puff of smoke !\n");
	shagath  = clone_object("obj/monster");
	call_other(shagath, "set_name", "shagath");
	call_other(shagath, "set_alias", "avatar");
	call_other(shagath, "set_level",19);
	call_other(shagath, "set_al", -300);
	call_other(shagath, "set_short",
		   "Shagath the avatar of Kali is here");
	call_other(shagath, "set_wc",30);
	call_other(shagath, "set_ac",5);
	call_other(shagath, "set_aggressive", 1);
	call_other(shagath, "set_chance",40);
	call_other(shagath, "set_spell_mess1",
		   "Shagath throws Hellfire.");
	call_other(shagath, "set_spell_mess2",
		   "You are hit by the Hellfire");
	call_other(shagath, "set_spell_dam",60);
	move_object(shagath, this_object());
	call_other(shagath, "attack_object", player);
	return 1;
    }
}