text: // /d/magic/symbols/grumbar_symbol.c
  
  #include <std.h>
  
  inherit "/d/magic/symbols/holy_symbol.c";
  
  #define GEMS ({"%^BOLD%^%^RED%^ruby%^RESET%^","%^RED%^sardonyx%^RESET%^","%^YELLOW%^citirine%^RESET%^"})
  #define METALS ({"%^BOLD%^%^WHITE%^silver","%^YELLOW%^gold","%^ORANGE%^copper","%^YELLOW%^bronze","%^CYAN%^steel","%^BOLD%^%^WHITE%^platinum","%^BOLD%^%^WHITE%^titanium","%^BOLD%^%^CYAN%^mithril","%^BOLD%^%^BLUE%^electrum"})
  #define TYPES ({"bracelet","ring","amulet"})
  
  string gem;
  string jewelry;
  string metal;
  string GOD = "%^RESET%^%^ORANGE%^Grumbar%^RESET%^";
  
  void create(){
     ::create();
     if(!gem)
        gem = GEMS[random(sizeof(GEMS))];
     if(!jewelry)
        jewelry = TYPES[random(sizeof(TYPES))];
     if(!metal)
        metal = METALS[random(sizeof(METALS))];
     set_id(({"holy symbol","symbol","grumbar_holy_symbol",jewelry,gem+" "+jewelry}));
     set_name(gem+" "+jewelry);
     set_short("holy symbol");
     set_long("This is a holy symbol.");
  }
  
  void init(){
     string ldesc,tmp;
     ::init();
     switch(jewelry){
        case "ring": ldesc = "Fashioned from "+metal+"%^RESET%^, this "+
           "ring looks solid and strong.  The band is polished smooth, "+
           "a simple but effective design.  A well-cut "+gem+" is mounted into "+
           "the center of the band.  Within the "+gem+" the holy symbol of "+
           ""+GOD+" has been carved.  A sacred aura almost seems to "+
           "radiate around the ring.\n";
           set_short(""+metal+" ring%^RESET%^");
           add_id("ring");
           set_limbs(({"right hand"}));
           break;
        case "bracelet": ldesc = "Fashioned from "+metal+"%^RESET%^, "+
           "this bracelet looks solid and strong.  The cuff bracelet "+
           "is polished smooth, a simple but effective design.  A "+
           "well-cut "+gem+" is mounted into the center of the bracelet.  "+
           "Within the "+gem+" the holy symbol of "+GOD+" has been "+
           "carved.  A sacred aura almost seems to radiate around "+
           "the bracelet.\n";
           set_short(""+metal+" bracelet%^RESET%^");
           add_id("bracelet");
           set_limbs(({"right arm"}));
           break;
        case "amulet": ldesc = "Fashioned from "+metal+"%^RESET%^, "+
           "this amulet hangs from a chain and looks solid and "+
           "strong.  The amulet is polished smooth, a simple but "+
           "effective design.  A well-cut "+gem+" is mounted into the center "+
           "of the amulet.  Within the "+gem+" the holy symbol of "+
           ""+GOD+" has been carved.  A sacred aura almost seems "+
           "to radiate around the amulet.\n";
           set_short(""+metal+" amulet%^RESET%^");
           add_id("amulet");
           set_limbs(({"neck"}));
           break;
        default: break;
     }
     tmp = "%^RESET%^%^RED%^                     /\\\n"+
  "                    /%^ORANGE%^XX%^RED%^\\\n"+
  "                   /%^ORANGE%^XXXX%^RED%^\\        /\\\n"+
  "                  /%^ORANGE%^XXXXXX%^RED%^\\      /%^ORANGE%^&&%^RED%^\\\n"+
  "            _    /%^ORANGE%^XXXXXXXX%^RED%^\\    /%^ORANGE%^&&&&%^RED%^\\\n"+
  "           /%^ORANGE%^@%^RED%^\\  /%^ORANGE%^XXXXXXXXXX%^RED%^\\  /%^ORANGE%^&&&&&&%^RED%^\\\n"+
  "          /%^ORANGE%^@@@%^RED%^\\/%^ORANGE%^XXXXXXXXXXXX%^RED%^\\/%^ORANGE%^&&&&&&&&%^RED%^\\\n"+
  "         /%^ORANGE%^@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "        /%^ORANGE%^@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "       /%^ORANGE%^@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "      /%^ORANGE%^@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "     /%^ORANGE%^@@@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "    /%^ORANGE%^@@@@@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "   /%^ORANGE%^@@@@@@@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "  /%^ORANGE%^@@@@@@@@@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  " /%^ORANGE%^@@@@@@@@@@@@@@@@@@@@@%^RED%^\\%^ORANGE%^XXXXXXXXXXXXX%^RED%^\\%^ORANGE%^&&&&&&&&&%^RED%^\\\n"+
  "%^ORANGE%^-------------------------------------------------\n";
     set_long(""+ldesc+""+tmp+"");
  }
  
  