#include <std.h>
inherit "/d/common/obj/armour/shield";

void create() {
   ::create();
   set_name("shaped stone shield");
   set_id(({ "shield","medium shield","sone shield","shaped shield","shaped stone shield"}));
   set_short("%^CYAN%^Tecqumin %^ORANGE%^shield of%^RESET%^ stone");
   set_obvious_short("%^ORANGE%^A %^RESET%^stone %^RESET%^shield");
   set_long("This round shield is shaped from stone. It is thick and rugged and looks like"
     +" it should be too heavy to lift, but the powerful enchantments cast upon it make it"
     +" light enough to wield. Staps of leather serve to hold it on the wearer's arm.");
   set_value(22950);
   while((int)TO->query_property("enchantment") != 6) {
     TO->remove_property("enchantment");
     TO->set_property("enchantment",6);
   }
   set_item_bonus("damage resistance",5);
   set_item_bonus("shieldMiss",20);
   set_wear((:TO,"wear_it":));
  set_property("quest required", "%^GREEN%^Sealed the %^BLUE%^U%^MAGENTA%^nf"
    +"%^BLUE%^e%^MAGENTA%^tt%^BLUE%^e%^MAGENTA%^r%^BLUE%^e%^MAGENTA%^d"
    +" %^GREEN%^back into the %^BLUE%^v%^BOLD%^%^BLACK%^o%^RESET%^i%^BLUE%^d");
}

int wear_it(){
   if((int)ETO->query_level() < 41{
     tell_object(ETO,"You can't seem to settle the shield properly on your arm.");
     return 0;
   }
   write("The shield settles comfortably onto your arm");
   tell_room(environment(ETO),""+ETO->query_cap_name()+" wears the heavy looking stone shield lightly.",ETO);
   return 1;
}

