/*
 *  Written by: Linley Henzell
 */
#ifndef UNRAND_H
#define UNRAND_H
#include "defines.h"
/*
   List of "unrandom" artefacts. Not the same as "fixed" artefacts, which are
   completely hardcoded (eg Singing Sword, Wrath of Trog).
   note: the order of the list doesn't matter
   Because the list numbering starts at 1, the last entry is the highest value
   which can be given to NO_UNRANDARTS (eg if the list consists of randarts no
   1, 2 or 3, NO_UNRANDARTS must be set to 3 or lower, but probably not to 0).
   Setting it higher could cause nasty problems.
   Okay, so the steps to adding a new unrandart go as follows:
   1) - Fill in a new entry below, using the following guidelines:
   true name: The name which is displayed when the item is id'd
   un-id'd name: obvious
   class: weapon, armour etc
   type: long sword, plate mail etc. Jewellery unrandarts have the powers of
   their base types in addition to anything else.
   plus: For weapons, plus to-hit. For armour, plus. For jewellery, irrelevant.
   But add 100 to make the item stickycursed. Note that the values for
   wpns and armr are +50.
   plus2: For wpns, plus to-dam. Curses are irrelevant here. Mostly unused
   colour: Obvious. Don't use BLACK, use DARKGREY instead.
   * Note * any exact combination of class, type, plus & plus2 must be unique,
   so (for example) you can't have two +5, +5 long swords in the list. Curses
   don't count as distinguishing factors.
   brand: Weapons only. Have a look in enum.h for a list, and look in fight.cc
   and describe.cc for the effects.
   Range of possible values: see enum.h
   +/- to AC, ev, str, int, dex - These are pretty obvious. Be careful - a player
   with a negative str, int or dex dies instantly, so avoid high penalties
   to these stats.
   Range: any, but be careful.
   res fire, res cold: Resists. Can be above 1; multiple sources of fire or cold
   resist *are* cumulative. Can also be -1 (but probably not -2 or below)
   for susceptibility.
   Range: -1 to about 5, after which you'll become almost immune.
   res elec: Resist electricity. Unlike fire and cold, resist electricity
   reduces electrical damage to 0. This makes multiple resists irrelevant.
   Also is no susceptibility, so don't use -1.
   Range: 0 or 1.
   res poison: same as res electricity.
   Range: 0 or 1.
   life prot: Stops energy draining and negative energy attacks. Not cumulative,
   and no susceptibility here either.
   Range: 0 or 1.
   should be set to about 20 - 60.
   Range: 0 to MAXINT probably, but about 100 is a realistic ceiling.
   see invis: Lets you see invisible things, but not submerged water beasts.
   Range: 0 or 1.
   turn invis: Gives you the ability to turn invisible using the 'a' menu.
   levitate, blink, go berserk, sense surroundings: like turn invis.
   Ranges for all these: 0 or 1.
   make noise: Irritate nearby creatures and disrupts rest. Weapons only.
   no spells: Prevents any spellcasting (but not scrolls or wands etc)
   Range: 0 or 1.
   teleport: Every now and then randomly teleports you. *Really* annoying.
   Weapons only.
   Range: 0 to about 15 (higher means more teleporting).
   no teleport: Prevents the player from teleporting, except rarely when they're
   forced to (eg banished to the Abyss).
   Range: 0 or 1.
   force berserk: Every time you attack, you go berserk. Weapons only.
   Range: 0 or 1.
   speed metabolism: Makes you consume food faster. No effect on mummies.
   Range: 0 to about 4. 4 would be horrible; 1 is annoying but tolerable.
   mutate: makes you mutate, sometimes after a long delay. No effect on some
   races (espec undead).
   Range: 0 to about 4.
   +/- to-hit/to-dam: Obvious. Affects both melee and missile. Should be left
   at 0 for weapons, which get +s normally.
   stealth: -100 to 80.  Adds to stealth value.
   Some currently unused properties follow, then:
   If empty, uses the description of the unrandart's base type. Note: the
   base type of a piece of unrandart jewellery is relevant to its function, so
   don't obscure it unnecessarily.
   Then another unused string.
   2) - Add one to the #define NO_UNRANDARTS line in randart.h
   3) - Maybe increase the probability of an unrandart of the appropriate
   type being created; look in dungeon.cc for this (search for "unrand").
   Forget this step if you don't understand it; it's of very little importance.
   Done! Now recompile and wait years for it to turn up.
   Note: changing NO_UNRANDARTS probably makes savefiles incompatible.
 */
/* This is a dummy, but still counts for NO_UNRANDARTS */
/* 1 */
{
    "Dum", "",
/* class, type, plus (to-hit), plus2 (depends on class), colour */
/* Properties, all approx thirty of them: */
    {
/* brand, +/- to AC, +/- to ev, +/- to str, +/- to int, +/- to dex */
        0, 0, 0, 0, 0, 0,
/* res fire, res cold, res elec, res poison, life protection, res magic */
        0, 0, 0, 0, 0, 0,
/* see invis, turn invis, levitate, blink, teleport at will, go berserk */
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
/* force berserk, speed metabolism, mutate, +/- to hit, +/- to dam (not weapons) */
        0, 0, 0, 0, 0,
/* cursed, stealth */
        0, 0
    }
    ,
/* Special description appended to the 'V' description */
        "",
/* Base description of item */
        "",
/* Unused string */
        ""
}
,
/* 2 */
    "long sword \"Bloodbane\"", "blackened long sword",
        OBJ_WEAPONS, WPN_LONG_SWORD, +7, +8, DARKGREY,
    {
        SPWPN_VORPAL, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        1, 0, 0, 0, 0,          // force berserk
        0, -20                  // stealth
    }
    ,
        "",
        "",
        ""
}
,
/* 3 */
    "ring of Shadows", "black ring",
        OBJ_JEWELLERY, RING_INVISIBILITY, 0, 0, DARKGREY,
    {
        0, 0, 4, 0, 0, 0,       // EV
        0, 0, 0, 0, 1, 0,       // life prot
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 0,
        0, 0, 0, -3, 0,         // to hit
    }
    ,
        "",
        "",
        ""
}
,
/* 4 */
{
    {
        SPWPN_FLAMING, 0, 0, 0, 0, 0,
        2, -1, 0, 1, 0, 20,     // res fire, cold, poison, magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 5 */
{
    "shield of Ignorance", "dull large shield",
        OBJ_ARMOUR, ARM_LARGE_SHIELD, +5, 0, BROWN,
    {
        0, 2, 2, 0, -6, 0,      // AC, EV, int
        0, 0, 0, 0, 1, 0,       // life prot
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
    }
    ,
        "",
        "",
        ""
}
,
/* 6 */
{
    {
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
    }
    ,
        "",
        ""
}
,
/* 7 */
{
    "robe of Augmentation", "silk robe",
        OBJ_ARMOUR, ARM_ROBE, +4, 0, LIGHTRED,
    {
        0, 0, 0, 2, 2, 2,       // str, int, dex
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A robe made of the finest silk.",
        ""
}
,
/* 8 */
{
    "mace of Brilliance", "brightly glowing mace",
        OBJ_WEAPONS, WPN_MACE, +5, +5, WHITE,
    {
        0, 0, 0, 0, 1, 0,                       // life prot
        1, 0, 0, 0, 0, 0,                       // see invis
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, -20                                  // stealth
    }
    ,
        "",
        "",
        ""
}
,
/* 9 */
{
    "cloak of the Thief", "tattered cloak",
        OBJ_ARMOUR, ARM_CLOAK, +1, 0, DARKGREY,
    {
        0, 0, 2, 0, 0, 2,       // EV, dex
        0, 0, 0, 0, 0, 0,
        1, 1, 1, 0, 0, 0,       // see invis, turn invis, levitate
        0, 0, 0, 0, 0,
        0, 0, 0, 0, -3,         // to dam
        0, 60                   // stealth
    }
    ,
        "It allows its wearer to excel in the arts of thievery.",
        "",
        ""
}
,
/* 10 */
{
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 11 */
{
    "crown of Dyrovepreva", "jewelled bronze crown",
    {
        0, 0, 0, 0, 2, 0,       // int
        0, 0, 1, 0, 0, 0,       // res elec
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 0,
        0, 1, 0, 0, 0,          // speeds metabolism
        0, 0
    }
    ,
        "",
        "A large crown of dull bronze, set with a dazzling array of gemstones.",
        ""
}
,
/* 12 */
{
    "demon blade \"Leech\"", "runed demon blade",
        OBJ_WEAPONS, WPN_DEMON_BLADE, +13, +4, MAGENTA,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
    }
    ,
        "",
        "",
        ""
}
,
/* 13 */
{
    "amulet of Cekugob", "crystal amulet",
        OBJ_JEWELLERY, AMU_WARDING, +0, 0, LIGHTGREY,
    {
        0, 1, 1, 0, 0, 0,       // AC, EV
        0, 0, 1, 1, 1, 0,       // res elec, poison, life prot
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 1,          // prevent teleport
        0, 2, 0, 0, 0,          // speed metabolism
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 14 */
{
    "robe of Misfortune", "fabulously ornate robe",
        OBJ_ARMOUR, ARM_ROBE, -5, 0, MAGENTA,
    {
        0, 0, -4, -2, -2, -2,   // EV, str, int, dex
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 1, 0,          // prevent spellcasting, cause teleport
        0, 0, 5, 0, 0,          // radiation
        1, -80                  // cursed, stealth
    }
    ,
        "",
        "A splendid flowing robe of fur and silk.",
        ""
}
,
/* 15 */
{
    "dagger of Chilly Death", "sapphire dagger",
    {
        SPWPN_FREEZING, 0, 0, 0, 0, 0,
        -1, 2, 0, 1, 0, 20,     // res fire, cold, poison, magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A dagger made of one huge piece of sapphire.",
        ""
}
,
/* 16 */
{
    "amulet of the Four Winds", "jade amulet",
        OBJ_JEWELLERY, AMU_CLARITY, +0, 0, LIGHTGREEN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 17 */
{
    "dagger \"Morg\"", "rusty dagger",
        OBJ_WEAPONS, WPN_DAGGER, -1, +4, LIGHTRED,
    {
        SPWPN_PAIN, 0, 0, 0, 5, 0,      // int
        0, 0, 0, 0, 0, 30,              // res magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "Boris. He got lost in the Dungeon while seeking the Orb. ",
        "An ugly rusty dagger. ",
        ""
}
,
/* 18 */
{
    "scythe \"Finisher\"", "blackened scythe",
    {
        SPWPN_SPEED, 0, 0, 3, 0, 0,       // str
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
    }
    ,
        "",
        "A long and sharp scythe, specially modified for combat purposes.",
        ""
}
,
/* 19 */
{
    "sling \"Punk\"", "blue sling",
    {
        SPWPN_FROST, 0, 0, 0, 0, 0,
        0, 1, 0, 0, 0, 0,               // res cold
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A sling made of weird blue leather.",
        ""
}
,
/* 20 */
{
    "bow of Krishna \"Sharnga\"", "golden bow",
        OBJ_WEAPONS, WPN_BOW, +8, +8, YELLOW,
    {
        SPWPN_SPEED, 0, 0, 0, 0, 3,       // dex
        0, 0, 0, 0, 0, 0,
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "A wonderful golden bow. ",
        ""
}
,
/* 21 */
{
    "cloak of Flash", "vibrating cloak",
    {
        0, 0, 4, 0, 0, 0,       // EV
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 0, 1, 0,       // levitate, teleport
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A vibrating cloak.",
        ""
}
,
/* 22 */
{
    "giant club \"Skullcrusher\"", "brutal giant club",
        OBJ_WEAPONS, WPN_GIANT_CLUB, +0, +5, BROWN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 23 */
{
    "boots of the Assassin", "soft boots",
        OBJ_ARMOUR, ARM_BOOTS, +2, 0, BROWN,
    {
        0, 0, 0, 0, 0, 3,       // dex
        0, 0, 0, 0, 0, 0,
        0, 1, 0, 0, 0, 0,       // turn invis
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 80                   // stealth
    }
    ,
        "These boots were specially designed by the Assassin's Guild.",
        "Some soft boots.",
        ""
}
,
/* 24 */
{
    "glaive of the Guard", "polished glaive",
        OBJ_WEAPONS, WPN_GLAIVE, +5, +8, LIGHTCYAN,
    {
        0, 0, 0, 0, 0, 0,
        1, 0, 0, 0, 0, 1,       // see invis, go berserk
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "According to legend he was lost somewhere in the Dungeon.",
        "",
        ""
}
,
/* 25 */
{
    "sword of Jihad", "crystal sword",
    {
        SPWPN_HOLY_WRATH, 0, 3, 0, 0, 0,        // EV
        0, 0, 0, 0, 1, 20,                      // life prot, res magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        1, 0, 0, 0, 0,                          // force berserk
        0, -50                                  // stealth (TSO hates backstab)
    }
    ,
        "A long sword made of one huge piece of crystal.",
        ""
}
,
/* 26 */
{
    "Lear's chain mail", "golden chain mail",
        OBJ_ARMOUR, ARM_CHAIN_MAIL, -1, 0, YELLOW,
    {
        0, 0, 0, 0, 0, -3,      // dex
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 0, 0,          // prevent spellcasting
        0, 0, 0, 0, 0,
    }
    ,
        "",
        "A chain mail made of pure gold.",
        ""
}
,
/* 27 */
{
    "skin of Zhor", "smelly skin",
        OBJ_ARMOUR, ARM_ANIMAL_SKIN, +4, 0, BROWN,
    {
        0, 0, 0, 0, 0, 0,
        0, 2, 0, 0, 0, 0,       // res cold
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        ""
}
,
/* 28 */
{
    {
        SPWPN_FLAME, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        ""
}
,
/* 29 */
{
    "salamander hide armour", "red leather armour",
        OBJ_ARMOUR, ARM_LEATHER_ARMOUR, +3, 0, RED,
    {
        0, 0, 0, 0, 0, 0,
        2, 0, 0, 0, 0, 0,       // res fire
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        ""
}
,
/* 30 */
{
    "gauntlets of War", "thick gauntlets",
        OBJ_ARMOUR, ARM_GLOVES, +3, 0, BROWN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 3, 3,          // to hit, to dam
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 31 */
{
    {
        SPWPN_PAIN, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 50,      // res magic
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 0, 0,          // prevent spellcasting
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "An adamantine great sword.",
        ""
}
,
/* 32 */
{
    "shield of Resistance", "bronze shield",
        OBJ_ARMOUR, ARM_SHIELD, +3, 0, LIGHTRED,
    {
        0, 0, 0, 0, 0, 0,
        1, 1, 0, 0, 0, 40,      // res fire, cold, magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A bronze shield.",
        ""
}
,
/* 33 */
{
    "robe of Folly", "dull robe",
    {
        0, 0, 0, 0, -5, 0,      // int
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 0, 0,          // prevent spellcasting
        0, 0, 0, 0, 0,
    }
    ,
        "",
        ""
}
,
/* 34 */
{
    "necklace of Bloodlust", "blood-stained necklace",
        OBJ_JEWELLERY, AMU_RAGE, +0, 0, RED,
    {
        0, 0, 0, 2, -2, 0,      // str, int
        0, 0, 0, 0, 0, 30,      // res magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        1, 0, 0, 0, 3,          // force berserk, to dam
    }
    ,
        "",
        "",
        ""
}
,
/* 35 */
{
    "\"Eos\"", "encrusted morningstar",
        OBJ_WEAPONS, WPN_MORNINGSTAR, +5, +5, LIGHTCYAN,
    {
        SPWPN_ELECTROCUTION, 0, 0, 0, 0, 0,  // morning -> bring light/sparks?
        0, 0, 1, 0, 0, 0,       // res elec
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 1,          // prevent teleportation
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 36 */
{
    "ring of Shaolin", "jade ring",
        OBJ_JEWELLERY, RING_EVASION, +8, 0, LIGHTGREEN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 37 */
{
    "ring of Robustness", "steel ring",
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 38 */
{
        OBJ_ARMOUR, ARM_PLATE_MAIL, +10, 0, LIGHTGREEN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 1, 0, 1,          // prevent spellcasting, prevent teleport
        0, 0, 0, 0, 0,
    }
    ,
        "",
        "A weird-looking armour.",
        ""
}
,
/* 39 */
{
    {
        SPWPN_VAMPIRICISM, 0, 0, 0, 0, 0,
        0, 0, 0, 1, 1, 0,       // res poison, prot life
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, -30                  // stealth
    }
    ,
        "",
        ""
}
,
/* 40 */
{
        OBJ_WEAPONS, WPN_TRIDENT, +10, +4, CYAN,
    {
        SPWPN_VENOM, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        ""
}
,
/* 41 */
{
    "mask of the Dragon", "blue mask",
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 40,      // res magic
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 0,
        0, 0, 0, 2, 2,          // to hit, to dam
        0, 0
    }
    ,
        "",
        "A blue mask.",
        ""
}
,
/* 42 */
{
    "mithril axe \"Arga\"", "mithril axe",
        OBJ_WEAPONS, WPN_WAR_AXE, +10, +6, WHITE,
    {
        SPWPN_SPEED, 0, 0, 2, 0, 0,     // str
        0, 0, 0, 0, 0, 30,              // resist magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A beautiful mithril axe, probably lost by some dwarven hero.",
        ""
}
,
/* 43 */
{
    "Elemental Staff", "black staff",
    {
        SPWPN_PROTECTION, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 1, 0, 0, 0,          // noise
        0, 0
    }
    ,
        "A black glyphic staff.",
        ""
}
,
/* 44 */
{
    "hand crossbow \"Sniper\"", "black crossbow",
    {
        SPWPN_VENOM, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        1, 0, 0, 0, 0, 0,       // see invis
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A hand crossbow made of some black material.",
        ""
}
,
/* 45 */
{
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        ""
}
,
/* 46 */
{
    "robe of Night", "black robe",
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 30,      // res magic
        1, 1, 0, 0, 0, 0,       // see invis, turn invis
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 50                   // stealth
    }
    ,
        "A long black robe made of strange flossy material.",
        ""
}
,
/* 47 */
{
    "plutonium sword", "glowing long sword",
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 6, 0, 0,          // radiation
        1, -20                  // cursed, stealth
    }
    ,
        "",
        "A long sword made of weird glowing metal.",
        ""
}
,
/* 48 */
{
    {
        0, 0, 0, 0, 1, 0,       // life prot
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 49 */
{
    "armour of the Dragon King", "shiny dragon armour",
        OBJ_ARMOUR, ARM_GOLD_DRAGON_ARMOUR, +5, 0, YELLOW,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 50,      // res magic (base gives fire, cold, poison)
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
/* 50 */
{
    "hat of the Alchemist", "dirty hat",
    {
        0, 0, 0, 0, 0, 0,
        1, 1, 1, 0, 0, 30,      // res fire, cold, elec, magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "A dirty hat.",
        ""
}
,
/* 51 */
{
    "Fencer's gloves", "silk gloves",
        OBJ_ARMOUR, ARM_GLOVES, +2, 0, WHITE,
    {
        0, 0, 3, 0, 0, 3,       // EV, dex
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 5, 0,          // to hit
        0, 0
    }
    ,
        "",
        ""
}
,
/* 52 */
{
    "ring of the Mage", "sapphire ring",
        OBJ_JEWELLERY, RING_WIZARDRY, +0, 0, LIGHTBLUE,
    {
        0, 0, 0, 0, 3, 0,       // int
        0, 0, 0, 0, 0, 50,      // res magic
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        ""
}
,
{
    "Dum", "",
/* class, type, plus (to-hit), plus2 (depends on class), colour */
/* Properties, all approx thirty of them: */
    {
/* brand, +/- to AC, +/- to ev, +/- to str, +/- to int, +/- to dex */
        0, 0, 0, 0, 0, 0,
/* res fire, res cold, res elec, res poison, life protection, res magic */
/* see invis, turn invis, levitate, blink, teleport at will, go berserk */
/* force berserk, speed metabolism, mutate, +/- to hit, +/- to dam (not weapons) */
    }
    ,
/* 3 strings for describing the item in the 'V' display. */
        "",
        "",
        ""
}
#endif
        0, 0, 0, 0, 0,
/* cursed, stealth */
        0, 0
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
/* sense surroundings, make noise, no spells, teleport, no teleport */
        0, 0, 0, 0, 0, 0,
        OBJ_UNASSIGNED, 250, 250, 250, BLACK,
/* 53 */
{
    "blowgun of the Assassin", "tiny blowgun",
        OBJ_WEAPONS, WPN_BLOWGUN, +6, +6, WHITE,
    {
        0, 0, 0, 0, 0, 0,
        0, 1, 0, 0, 0, 0,       // turn invisible
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 60                   // stealth
    }
    ,
        "",
        "It is designed for easy concealment, but still packs a nasty punch.",
        ""
}
,
/* 54 */
{
    "Wyrmbane", "scale-covered lance",
    {
        SPWPN_DRAGON_SLAYING, 5, 0, 0, 0, 0, // AC
        1, 0, 0, 1, 0, 0,     // res fire, poison
        0, 0, 0, 0, 0, 1,     // go berserk
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "",
        "",
        "A double-ended whip made from the cured hides of the "
        "Lair of Beasts' deadly grey snakes.",
        ""
},
/* 59 */
{
    // This used to be a fixed artefact but since it has no special
    // properties I decided it more closely fits here. (jpeg)
    "knife of Accuracy", "thin dagger",
        OBJ_WEAPONS, WPN_DAGGER, +27, -1, LIGHTCYAN,
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "It is almost unerringly accurate.",
        "",
        ""
},
/* This is a dummy. */
/* 60 */
{
    // A play on the spell of the same name. 
    // Colour taken from crystal walls.
    "Lehudib's crystal spear", "crystal spear",
        OBJ_WEAPONS, WPN_SPEAR, +6, +6, GREEN,
    {
        SPWPN_RETURNING, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 1, 0, 0, 0,          // noise
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "Presumably this relic led to the invention of the famous spell.",
        "",
        ""
},
/* 61 */
{
    "ratskin cloak", "motley cloak",
        OBJ_ARMOUR, ARM_CLOAK, +1, 0, LIGHTRED,
    {
        0, 0, 0, 0, -1, -1,     // int, dex
        0, 0, 0, 1, 1, 0,       // life prot, pois
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "An enchantress with a magic loom and way too much time on "
        "her hands stitched this cloak from the hides of hundreds "
        "of rats, most of them orange. It's a bit awkward to wear "
        "and looks rather foolish, but it provides excellent protection "
        "from rats of all kinds.",
        "",
        ""
},
        ""
},
/* 55 */
{
    "Spriggan's Knife", "dainty little knife",
    {
        0, 0, 4, 0, 0, 4,  // +EV, +Dex
        0, 0, 0, 0, 0, 20, // +MR
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 50 // +stealth
    }
    ,
        "This knife was made by Spriggans, or for Spriggans, or possibly from "
        "Spriggans. Anyway, it's in some way associated with those fey folk.",
        "A dainty little knife.",
        ""
},
/* 56 */
{
    {
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
    }
    ,
        ""
},
/* 57 */
{
        OBJ_JEWELLERY, AMU_WARDING, 0, 0, LIGHTBLUE,
    {
        0, 4, 4, 0, 0, 0, // +AC, EV
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        "Back in the good old days, every adventurer had one of these handy "
        "devices. That, and a pony.",
        "A shield-shaped amulet.",
        ""
},
/* 58 */
{
    "whip \"Serpent-Scourge\"", "forked whip",
    {
        SPWPN_VENOM, 0, 0, 0, 0, 0,
        0, 0, 0, 1, 0, 0, // rPois
        0, 0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0, 0, 0, 0,
        0, 0
    }
    ,
        OBJ_WEAPONS, WPN_WHIP, +5, +10, DARKGREY,
    "brooch of Shielding", "shield-shaped amulet",
        "A cloak woven of pure light beams.",
        "A phosphorescent cloak.",
        0, -30             // Stealth
        0, 0, 4, 0, 0, 0,  // EV
        0, 1, 1, 0, 0, 0,  // Cold, resElec
    "cloak of Starlight", "phosphorescent cloak",
        OBJ_ARMOUR, ARM_CLOAK, 0, 0, WHITE,
        OBJ_WEAPONS, WPN_KNIFE, +4, +10, LIGHTCYAN,
        "",
        OBJ_WEAPONS, WPN_SPEAR, +9, +6, GREEN,
        0, 0, 0, 0, 0, 0,
        "A pair of gloves made of white silk.",
        OBJ_ARMOUR, ARM_WIZARD_HAT, +2, 0, MAGENTA,
        SPWPN_HOLY_WRATH, 0, 0, 0, 0, 0,
    "great mace \"Undeadhunter\"", "great steel mace",
        OBJ_WEAPONS, WPN_GREAT_MACE, +7, +7, LIGHTGREY,
        OBJ_WEAPONS, WPN_LONG_SWORD, +12, +16, LIGHTGREEN,
        "to one of her followers.",
        "According to legend, this robe was the gift of Ratri the Goddess of the Night "
        OBJ_ARMOUR, ARM_ROBE, +4, 0, DARKGREY,
        "An exceptionally large metal longbow.",
        SPWPN_VORPAL, 0, -2, 0, 0, 0,       // ev
        OBJ_WEAPONS, WPN_LONGBOW, +2, +10, CYAN,
    "longbow \"Piercer\"", "very long metal bow",
        OBJ_WEAPONS, WPN_HAND_CROSSBOW, +10, +0, DARKGREY,
        "This powerful staff used to belong to the leader of "
        "the Guild of Five Elements.",
        0, 2, 0, 0, 0,          // speed metabolism
        2, 2, 0, 0, 0, 60,      // res fire, cold, magic
        OBJ_WEAPONS, WPN_QUARTERSTAFF, +3, +1, DARKGREY,
        OBJ_ARMOUR, ARM_CAP, +0, 0, BLUE,
        "This trident was stolen many years ago from the Octopus King's garden "
        "by a really unimportant and already dead man. But beware of the "
        "Octopus King's wrath!",
        0, 0, 1, 1, 0, 50,              // res elec, res poison, res magic
    "trident of the Octopus King", "mangy trident",
        "A really dark and malign artefact, which no wise man would even touch.",
        0, 1, 0, 0, 0,          // noise
        OBJ_WEAPONS, WPN_SPEAR, +2, +10, DARKGREY,
    // Was "spear of Voo-Doo". In the African origin, there is a distinction
    // between voodoo and bo, the latter dealing with curses, witchcraft and
    // spells designed to do harm. Priests (or rather sorcerors) of bo are
    // called botono.
    "spear of the Botono", "ebony spear",
        -1, 0                   // cursed
    "Maxwell's patent armour", "weird-looking armour",
        OBJ_JEWELLERY, RING_PROTECTION, +8, 0, LIGHTGREY,
        3, -20                  // cursed, stealth
        "A dull grey robe.",
        2, 0                    // cursed
        OBJ_ARMOUR, ARM_ROBE, -1, 0, LIGHTGREY,
    "sword of the Doom Knight", "adamantine great sword",
        OBJ_WEAPONS, WPN_GREAT_SWORD, +13, +13, BLUE,
        "A leather armour made of a salamander's skin.",
        0, 0, 0, 0, 0, 1,       // go berserk
        "A flaming crossbow, forged in the fires of the Hells.",
        2, -1, 0, 0, 0, 40,              // +2 fire, -1 cold, res magic
    "crossbow \"Hellfire\"", "flaming crossbow",
        OBJ_WEAPONS, WPN_CROSSBOW, +6, +9, LIGHTRED,
        "The skin of some strange animal.",
        -1, 0                    // cursed
        "This sword was The Shining One's gift to a worshipper.",
        OBJ_WEAPONS, WPN_LONG_SWORD, +12, +10, WHITE,
        "This weapon once belonged to Gar Dogh, the guard of a king's treasures. "
        SPWPN_ELECTROCUTION, 5, 0, 0, 0, 0,       // AC
        SPWPN_SPEED, 0, 0, 5, 0, 0,       // str
        OBJ_ARMOUR, ARM_CLOAK, +3, 0, RED,
        "It once belonged to a foreign god. It works best with "
        "special arrows which are not generally available.",
        OBJ_WEAPONS, WPN_SLING, +9, +12, LIGHTBLUE,
        -1, 0                    // cursed
        OBJ_WEAPONS, WPN_SCYTHE, +3, +5, DARKGREY,
        "Many years ago it was the property of a powerful mage called "
        0, 0, 0, 0, 1, 100,      // life prot, magic resistance
        OBJ_WEAPONS, WPN_DAGGER, +5, +7, LIGHTBLUE,
        4, 0                                  // cursed
        SPWPN_VAMPIRICISM, 0, -1, -1, -1, -1, // AC, EV, str, int, dex
        0, 0, 0, 0, 1, 0,                     // life prot
        OBJ_ARMOUR, ARM_CAP, +3, 0, BROWN,
        0, 0, -5, 0, 0, 0,      // EV
    "shield \"Bullseye\"", "round shield",
        OBJ_ARMOUR, ARM_SHIELD, +10, 0, RED,
        SPWPN_HOLY_WRATH, 5, 0, 0, 5, 0,        // AC, int
        "A sky-blue amulet.",
        0, 50                   // stealth
        0, 0, 3, 0, 0, 0,       // EV
        0, 0, 1, 0, 0, 0,      // resElec
        0, 0, 1, 0, 0, 0,       // levitate
    "amulet of the Air", "sky-blue amulet",
        OBJ_JEWELLERY, AMU_CONTROLLED_FLIGHT, 0, 0, LIGHTCYAN,
        3, 0                    // cursed
    "scimitar of Flaming Death", "smoking scimitar",
        OBJ_WEAPONS, WPN_SCIMITAR, +7, +5, RED,
        0, 40                   // stealth
{
        0, 0, 0, 0, 0, 1,       // go berserk
{
/* sense surroundings, make noise, no spells, teleport, no teleport */
        OBJ_UNASSIGNED, 250, 250, 250, BLACK,
   Second string: replaces the thing at the start of a description.
   First string: is appended to the unrandart's description when id'd.
   cursed: -1, 0, any positive value.
   Setting this to any value other than 0 will set the item's initial curse
   status as cursed. If the value is greater than zero, the item will also have
   one_chance_in(value) of recursing itself when re-equipped.
   Range: 0 or 1.
   res magic: This is cumulative, but no susceptibility. To be meaningful,
   for armr and totally for rings.
#include "itemprop.h"
 *
 *  Modified for Crawl Reference by $Author$ on $Date$
 *  Summary:    Definitions for unrandom artefacts.
 *  File:       unrand.h

/*
 *  Written by: Linley Henzell
 */
#ifndef RANDART_H
#define RANDART_H
#include "externs.h"
// used in files.cc, newgame.cc, randart.cc {dlb}
// Reserving the upper bits for later expansion/versioning.
#define RANDART_SEED_MASK  0x00ffffff
bool is_random_artefact( const item_def &item );
bool is_unrandom_artefact( const item_def &item );
bool is_fixed_artefact( const item_def &item );
/* ***********************************************************************
 * called from: itemname
 * *********************************************************************** */
/* ***********************************************************************
 * called from: describe
 * *********************************************************************** */
/* ***********************************************************************
 * called from: dungeon
 * *********************************************************************** */
int find_okay_unrandart(unsigned char aclass, unsigned char atype = OBJ_RANDOM);
/* ***********************************************************************
 * called from: describe - fight - it_use2 - item_use - player
 * *********************************************************************** */
void artefact_wpn_learn_prop( item_def &item, artefact_prop_type prop );
bool artefact_wpn_known_prop( const item_def &item, artefact_prop_type prop );
/* ***********************************************************************
 * called from: dungeon
 * *********************************************************************** */
bool make_item_fixed_artefact( item_def &item, bool in_abyss, int which = 0 );
bool make_item_unrandart( item_def &item, int unrand_index );
/* ***********************************************************************
 * called from: files - newgame
 * *********************************************************************** */
/* ***********************************************************************
 * called from: items
 * *********************************************************************** */
#endif
/* ***********************************************************************
 * called from: debug
 * *********************************************************************** */
/* ***********************************************************************
 * called from: mapdef
 * *********************************************************************** */
int get_fixedart_num( const char *name );
void artefact_set_properties( item_def              &item,
                              artefact_properties_t &proprt );
void artefact_set_property( item_def           &item,
                            artefact_prop_type  prop,
                            int                 val );
int find_unrandart_index(const item_def& artefact);
int find_unrandart_index(const item_def &item);
void set_unrandart_exist(int whun, bool is_exist);
/* ***********************************************************************
 * called from: randart - debug
 * *********************************************************************** */
bool randart_is_bad( const item_def &item );
bool randart_is_bad( const item_def &item, artefact_properties_t &proprt );
bool make_item_randart( item_def &item );
bool make_item_blessed_blade( item_def &item );
int artefact_wpn_num_props( const item_def &item );
int artefact_wpn_num_props( const artefact_properties_t &proprt );
int artefact_known_wpn_property( const item_def &item,
                                 artefact_prop_type prop );
int artefact_wpn_property( const item_def &item, artefact_prop_type prop );
int artefact_wpn_property( const item_def &item, artefact_prop_type prop,
                           bool &known );
void artefact_wpn_properties( const item_def &item,
                              artefact_properties_t &proprt );
void artefact_wpn_properties( const item_def &item,
                              artefact_properties_t &proprt,
                              artefact_known_props_t &known );
void artefact_desc_properties( const item_def &item,
                               artefact_properties_t &proprt,
                               artefact_known_props_t &known,
                               bool force_fake_props = false);
typedef FixedVector< int, RA_PROPERTIES >  artefact_properties_t;
typedef FixedVector< bool, RA_PROPERTIES > artefact_known_props_t;
bool does_unrandart_exist(int whun);
const char *unrandart_descrip( int which_descrip, const item_def &item );
 * called from: effects
 * *********************************************************************** */
/* ***********************************************************************
std::string artefact_name( const item_def &item, bool appearance = false );
std::string get_artefact_name( const item_def &item );
/* ***********************************************************************
 * called from: spl-book
 * *********************************************************************** */
void set_artefact_name( item_def &item, const std::string &name );
void set_artefact_appearance( item_def &item, const std::string &appear );
                             unique_item_status_type status );
unique_item_status_type get_unique_item_status( object_class_type base_type,
                                                int type );
void set_unique_item_status( object_class_type base_type, int type,
bool is_known_artefact( const item_def &item );
bool is_artefact( const item_def &item );
#define RA_PROPERTIES ARTP_NUM_PROPERTIES
#define NO_UNRANDARTS 61
 *
 *  Modified for Crawl Reference by $Author$ on $Date$
 *  Summary:    Random and unrandom artefact functions.
 *  File:       randart.h

#include "artefact.h"

#include "randart.h"

    if (is_unrandom_artefact(item) || is_fixed_artefact(item))

    if (is_unrandom_artefact(item))

    if (is_artefact(item) && !is_random_artefact(item))

    if (is_unrandom_artefact(item))

    ASSERT(!is_unrandom_artefact(item) && !is_fixed_artefact(item));

    ASSERT(!is_unrandom_artefact(item));

    else if (is_fixed_artefact(item))

    else if (is_special_unrandom_artefact(item))

    else if (is_fixed_artefact(item))

    else if (is_special_unrandom_artefact(item))

        && you.special_wield != SPWLD_SHADOW

        && you.unrand_reacts != SPWLD_SHADOW

    if (you.special_wield == SPWLD_SHADOW)

    if (you.unrand_reacts == SPWLD_SHADOW)

#!/usr/bin/perl -w
use strict;
my $line_num      = 0;
my @errors        = ();
my @all_artefacts = ();
my %used_names    = ();
my %used_appears  = ();
my %used_enums   = ();
my %field_type = (
    AC       => "num",
    ACC      => "num",
    ANGRY    => "num",
    APPEAR   => "str",
    BERSERK  => "num",
    BLINK    => "num",
    BRAND    => "enum",
    CANTELEP => "num",
    COLD     => "num",
    COLOUR   => "enum",
    CURSED   => "num",
    DAM      => "num",
    DESC     => "str",
    DESC_END => "str",
    DESC_ID  => "str",
    DEX      => "num",
    ELEC     => "num",
    EV       => "num",
    FIRE     => "num",
    INT      => "num",
    INV      => "num",
    LEV      => "num",
    LIFE     => "num",
    MAGIC    => "num",
    MAPPING  => "num",
    METAB    => "num",
    MP       => "num",
    MUTATE   => "num",
    NAME     => "str",
    NOISES   => "num",
    NOSPELL  => "num",
    NOTELEP  => "num",
    POISON   => "num",
    RND_TELE => "num",
    SEEINV   => "num",
    STEALTH  => "num",
    STR      => "num",
    plus      => "num",
    plus2     => "num",
    base_type => "enum",
    sub_type  => "enum"
);
my @field_list = keys(%field_type);
sub error
{
    my ($artefact, $str) = @_;
    my $msg = "";
    my $name = $artefact->{NAME} || $artefact->{APPEAR} || "NAMELESS";
    if ($artefact->{_FINISHING})
    {
        $msg .= "Artefact $name starting at line "
              . $artefact->{_START_LINE} . ": ";
    }
    else
    {
        $msg = "Artefact $name at line $line_num: "
    }
    $msg .= $str;
    $artefact->{_ERRROR} = 1;
    push(@errors, $msg);
}
sub is_number
{
    my ($num) = @_;
    return ($num =~ /^[+-]?\d+$/);
}
sub finish_art
{
    my ($artefact) = @_;
    $artefact->{_FINISHING} = 1;
    my $must;
    foreach $must ("NAME", "APPEAR", "OBJ", "COLOUR")
    {
        if (!defined($artefact->{$must}))
        {
            error($artefact, "Required field '$must' missing");
            $artefact->{$must} = "_MISSING_";
        }
    }
    # Prevent further errors caused by absence of OBJ
    $artefact->{base_type} ||= "";
    $artefact->{sub_type}  ||= "";
    if (!exists($artefact->{BRAND}))
    {
        my $type = $artefact->{base_type} || "";
        if ($type eq "OBJ_WEAPONS")
        {
            $artefact->{BRAND} = "SPWPN_NORMAL";
        }
        elsif($type eq "OBJ_ARMOUR")
        {
            $artefact->{BRAND} = "SPARM_NORMAL";
        }
        else
        {
            $artefact->{BRAND} = "0";
        }
    }
    my $field;
    foreach $field (@field_list)
    {
        if (!exists($artefact->{$field}))
        {
            # Give default values for fields not specified.
            my $type = $field_type{$field} || "";
            if ($type eq "str")
            {
                $artefact->{$field} = "";
            }
            elsif($type eq "num")
            {
                $artefact->{$field} = "0";
            }
            elsif($type eq "enum")
            {
                error($artefact, "No enumeration for field '$field'");
            }
            else
            {
                error($artefact, "Unknown type '$type' for field '$field'");
            }
        }
        elsif (!defined($artefact->{$field}))
        {
            error($artefact, "Field '$field' not defined");
        }
    }
    delete($artefact->{_FINISHING});
    $artefact->{_FINISHED} = 1;
}
sub process_line
{
    my ($artefact, $line) = @_;
    # A line can start with whitespace if it's a continuation of a field
    # with a string value.
    if ($line =~ /^\s/)
    {
        my $prev_field = $artefact->{_PREV_FIELD} || "";
        if ($field_type{$prev_field} eq "str")
        {
            $line =~ s/^\s*//;
            $artefact->{$prev_field} .= " " . $line;
        }
        else
        {
            error($artefact, "line starts with whitespace");
        }
        return;
    }
    $artefact->{_START_LINE} ||= $line_num;
    my ($field, $value) = ($line =~ /([^:]+):\s*(.*)/);
    $field ||= "";
    $value ||= "";
    # Strip leading and trailing white space.
    $field =~ s/^\s*|\s*$//g;
    $value =~ s/^\s*|\s*$//g;
    if ($field eq "")
    {
        error($artefact, "No field");
        return;
    }
    if (defined($artefact->{$field}))
    {
        error($artefact, "Field '$field' already set");
        return;
    }
    if ($value eq "true" && $field_type{$field} eq "num")
    {
        $value = "1";
    }
    $artefact->{_PREV_FIELD} = $field;
    $artefact->{$field}      = $value;
    if ($value eq "")
    {
        error($artefact, "Field '$field' has no value");
        return;
    }
    if ($field eq "OBJ")
    {
        my @parts = split(m!/!, $value);
        if (@parts > 2)
        {
            error($artefact, "Too many parts to OBJ");
            return;
        }
        elsif (@parts == 1)
        {
            error($artefact, "Too few parts to OBJ");
            return;
        }
        if ($parts[0] !~ /^OBJ_/)
        {
            error($artefact, "OBJ base type must start with 'OBJ_'");
            return;
        }
        $artefact->{base_type} = $parts[0];
        $artefact->{sub_type}  = $parts[1];
    }
    elsif($field eq "PLUS")
    {
        my @parts = split(m!/!, $value);
        if (@parts > 2)
        {
            error($artefact, "Too many parts to PLUS");
            return;
        }
        if (!is_number($parts[0]))
        {
            error($artefact, "'$parts[0]' in PLUS is not a number");
            return;
        }
        if (@parts == 2 && !is_number($parts[1]))
        {
            error($artefact, "'$parts[1]' in PLUS is not a number");
            return;
        }
        $artefact->{plus}  = $parts[0];
        $artefact->{plus2} = $parts[1] if (@parts == 2);
    }
    elsif ($field eq "ENUM")
    {
    }
    else
    {
        if (!exists($field_type{$field}) || $field =~ /^[a-z]/)
        {
            error($artefact, "No such field as '$field'");
            return;
        }
        my $num =  is_number($value);
        my $type = $field_type{$field} || "";
        if (($type eq "num" && !$num) || ($type eq "str" && $num))
        {
            error($artefact, "'$value' invalid value type for field '$field'.");
            return;
        }
    }
    my $enum = "";
    if ($field eq "NAME")
    {
        if (exists($used_names{$value}))
        {
            error($artefact, "Name \"$value\" already used at line " .
                             $used_names{$value});
            return;
        }
        $used_names{$value} = $line_num;
        if (!exists($artefact->{_ENUM}))
        {
            $enum = $value;
            $enum =~ s/'//g;
            # If possible, make the enum literal the part of the name between
            # double quotes, or the part of the name after " of " or
            # " of the ".
            if ($enum =~ /"(.*)"/)
            {
                $enum = $1;
            }
            elsif ($enum =~ / of (?:the )?(.*)/)
            {
                $enum = $1;
            }
            $enum = uc($enum);
            $enum =~ s/[ -]/_/g;
        }
    }
    elsif ($field eq "APPEAR")
    {
        if (exists($used_appears{$value}))
        {
            error($artefact, "Name '$value' already used at line " .
                             $used_appears{$value});
            return;
        }
        $used_appears{$value} = $line_num;
    }
    elsif ($field eq "ENUM")
    {
        if (exists($artefact->{NAME}))
        {
            eror($artefact, "ENUM must be before NAME");
            return;
        }
        $enum = "$value";
    }
    if ($enum ne "")
    {
        if (exists($used_enums{$enum}))
        {
            error($artefact, "Enum \"$enum\" already used by artefact " .
                             "\"$used_enums{$enum}\"");
            return;
        }
        $used_enums{$enum} = $value;
        $artefact->{_ENUM} = $enum;
    }
}
my @art_order = (
    "NAME", "APPEAR", "\n",
    "base_type", "sub_type", "plus", "plus2", "COLOUR",
    "{", "BRAND", "AC", "EV", "STR", "INT", "DEX", "\n",
    "FIRE", "COLD", "ELEC", "POISON", "LIFE", "MAGIC", "\n",
    "SEEINV", "INV", "LEV", "BLINK", "CANTELEP", "BERSERK", "\n",
    "MAPPING", "NOISES", "NOSPELL", "RND_TELE", "NOTELEP", "\n",
    "ANGRY", "METAB", "MUTATE", "ACC", "DAM", "\n",
    "CURSED", "STEALTH", "MP", "}",
    "DESC", "\n",
    "DESC_ID", "\n",
    "DESC_END"
);
sub art_to_str
{
    my ($artefact) = @_;
    my $indent = 1;
    my $str = "{\n    ";
    my $part;
    foreach $part (@art_order)
    {
        if (length($part) == 1)
        {
            if ($part eq "{")
            {
                $str .= "\n" . (" " x ($indent * 4)) . "{";
                $indent++;
                $str .= "\n" . (" " x ($indent * 4));
            }
            elsif($part eq "}")
            {
                $indent--;
                $str .= "\n" . (" " x ($indent * 4)) . "},";
                $str .= "\n" . (" " x ($indent * 4));
            }
            else
            {
                $str .= "\n" . (" " x ($indent * 4));
            }
            next;
        }
        if (!defined($field_type{$part}))
        {
            print STDERR "No field type for part '$part'\n";
            next;
        }
        if ($field_type{$part} eq "str")
        {
            my $temp = $artefact->{$part};
            $temp =~ s/"/\\"/g;
            $str .= "\"$temp\"";
        }
        else
        {
            $str .= $artefact->{$part};
        }
        $str .= ", ";
    }
    $str .= "\n},\n\n";
    return ($str);
}
sub write_data
{
    unless (open(HEADER, ">art-data.h"))
    {
        die "Couldn't open 'art-data.h' for writing: $!\n";
    }
    print HEADER <<"ENDofTEXT";
/*
 * File:       art-data.h
 * Summary:    Definitions for unrandom artefacts.
 * Written by: ????
 *
 *  Modified for Crawl Reference by \$Author: dploog \$ on \$Date: 2009-06-17 22:29:07 -0700 (Wed, 17 Jun 2009) \$
 */
/*
 * This file is automatically generated from art-data.txt via
 * util/art-data.pl.  Do not directly edit this file, but rather change
 * art-data.txt.
 *
 * If the unrandart_entry struct is changed or a new artefact property is
 * added to artefact_prop_type, then change art-data.pl so that the
 * art-data.h file it produces matches up with the new structure.
 */
#ifdef ART_DATA_H
#error "art-data.h included twice!"
#endif
#define ART_DATA_H
ENDofTEXT
    my $artefact;
    my $art_num = 1;
    foreach $artefact (@all_artefacts)
    {
        print HEADER "/* $art_num: UNRAND_$artefact->{_ENUM} */\n";
        print HEADER art_to_str($artefact);
        $art_num++;
    }
    close(HEADER);
}
sub write_enums
{
    unless (open(ENUM_IN, "<artefact.h"))
    {
        die "Couldn't open 'artefact.h' for reading: $!";
    }
    my $changed = 0;
    my $out     = "";
    while(<ENUM_IN>)
    {
        last if (/^#define NO_UNRANDARTS/);
        $out .= $_;
    }
    if (!/^#define NO_UNRANDARTS (\d+)/)
    {
        die "Couldn't find NO_UNRANDARTS in artefact.h\n";
    }
    my $orig_num = $1;
    my $new_num  = scalar(@all_artefacts);
    if ($orig_num == $new_num)
    {
        print "Number of unrandarts unchanged.\n";
        $out .= $_;
    }
    else
    {
        print "Number of unrandarts changed from $orig_num to $new_num\n";
        $out .= "#define NO_UNRANDARTS $new_num\n";
        $changed = 1;
    }
    while(<ENUM_IN>)
    {
        $out .= $_;
        last if (/^enum unrand_type/);
    }
    if (!/^enum unrand_type/)
    {
        die "Couldn't find 'enum unrand_type' in artefact.h\n";
    }
    $out .= <ENUM_IN>; # {
    $out .= <ENUM_IN>; #     UNRAND_START = 180,
    my @enum_list = ();
    while(<ENUM_IN>)
    {
        last if (/\bUNRAND_LAST\b/);
        /^\s*(\w+)/;
        push(@enum_list, $1);
    }
    <ENUM_IN>; # discard "};"
    # Suck in rest of file
    undef($/);
    my $remainder = <ENUM_IN>;
    close(ENUM_IN);
    if (@enum_list != @all_artefacts)
    {
        print "Enumeartion list changed.\n";
        $changed = 1;
    }
    else
    {
        my $i;
        for ($i = 0; $i < @enum_list; $i++)
        {
            if ($enum_list[$i] ne "UNRAND_$all_artefacts[$i]->{_ENUM}")
            {
                print "Enumeartion list changed.\n";
                $changed = 1;
                last;
            }
        }
    }
    if (!$changed)
    {
        print "No changes made to artefact.h\n";
        return;
    }
    print "Updating artefact.h...\n";
    unless(open(ENUM_OUT, ">artefact.h"))
    {
        die "Couldn't open 'artefact.h' for writing: $!\n";
    }
    print ENUM_OUT $out;
    my $i;
    my $longest_enum = 0;
    for ($i = 0; $i < @all_artefacts; $i++)
    {
        my $enum = $all_artefacts[$i]->{_ENUM};
        my $len  = length($enum);
        $longest_enum = $len if ($len > $longest_enum);
    }
    my $enum;
    for ($i = 0; $i < @all_artefacts; $i++)
    {
        $enum = $all_artefacts[$i]->{_ENUM};
        print ENUM_OUT "    UNRAND_$enum";
        if ($i == 0)
        {
            print ENUM_OUT " = UNRAND_START,\n";
        }
        else
        {
            print ENUM_OUT ", ";
            print ENUM_OUT " " x ($longest_enum - length($enum));
            print ENUM_OUT "// $all_artefacts[$i]->{NAME}\n";
        }
    }
    print ENUM_OUT "    UNRAND_LAST = UNRAND_$enum\n";
    print ENUM_OUT "};\n";
    print ENUM_OUT $remainder;
    close(ENUM_OUT);
}
###############################################################3
###############################################################3
###############################################################3
chdir("..")     if (-e "../art-data.txt");
chdir("source") if (-e "source/art-data.txt");
die "Couldn't find art-data.txt\n" unless (-e "art-data.txt");
die "Couldn't find artefact.h\n"   unless (-e "artefact.h");
die "Can't read art-data.txt\n"    unless (-r "art-data.txt");
die "Can't read artefact.h\n"      unless (-r "artefact.h");
die "Can't write to artefact.h\n"  unless (-w "artefact.h");
die "Can't write to art-data.h\n"  if (-e "art-data.h" && !-w "art-data.h");
unless(open(INPUT, "<art-data.txt"))
{
    die "Couldn't open art-data.txt for reading: $!\n";
}
my $prev_line = "";
my $curr_art  = {};
while (<INPUT>)
{
    chomp;
    $line_num++;
    # Skip comment-only lines
    next if (/^#/);
    # Strip comments.
    s/#.*//;
    # Strip trailing whitspace; leading whitespace indicates the
    # continuation of a string field.
    s/\s*$//;
    if ($_ =~ /^\s*$/)
    {
        if ($prev_line !~ /^\s*$/)
        {
            finish_art($curr_art);
            push(@all_artefacts, $curr_art);
            $curr_art = {};
        }
    }
    else
    {
        process_line($curr_art, $_);
    }
    $prev_line = $_;
}
close(INPUT);
if (keys(%$curr_art) > 0)
{
    finish_art($curr_art);
    push(@all_artefacts, $curr_art);
}
if (@errors > 0)
{
    print STDERR "Error(s) processing art-data.txt:\n\n";
    my $err;
    foreach $err (@errors)
    {
        print STDERR "$err\n";
    }
    exit (1);
}
write_data();
write_enums();
exit (0);

#include "artefact.h"

#include "randart.h"

#include "artefact.h"

#include "randart.h"

#include "artefact.h"

#include "randart.h"

        if (is_random_artefact(item))

        if (is_artefact(item))

#include "artefact.h"

#include "randart.h"

        if (!is_fixed_artefact(item)
            && get_weapon_brand(item) != SPWPN_NORMAL)
        {

        if (get_weapon_brand(item) != SPWPN_NORMAL)

        }

#include "artefact.h"

#include "randart.h"

static int _tileidx_fixed_artefact(int special)

static int _tileidx_unrand_artefact(int idx)

    switch (special)

    switch (idx)

    }

    return TILE_ERROR;
}
static int _tileidx_unrand_artefact(int idx)
{
    switch (idx)
    {
        case 2: return TILE_URAND_BLOODBANE;
        case 3: return TILE_URAND_SHADOWS;
        case 4: return TILE_URAND_FLAMING_DEATH;
        case 5: return TILE_URAND_IGNORANCE;
        case 6: return TILE_URAND_AIR;
        case 7: return TILE_URAND_AUGMENTATION;
        case 8: return TILE_URAND_BRILLIANCE;
        case 9: return TILE_URAND_THIEF;
        case 10: return TILE_URAND_BULLSEYE;
        case 11: return TILE_URAND_DYROVEPREVA;
        case 12: return TILE_URAND_LEECH;
        case 13: return TILE_URAND_CEKUGOB;
        case 14: return TILE_URAND_MISFORTUNE;
        case 15: return TILE_URAND_CHILLY_DEATH;
        case 16: return TILE_URAND_FOUR_WINDS;
        case 17: return TILE_URAND_MORG;
        case 18: return TILE_URAND_FINISHER;
        case 19: return TILE_URAND_PUNK;
        case 20: return TILE_URAND_KRISHNA;
        case 21: return TILE_URAND_FLASH;
        case 22: return TILE_URAND_SKULLCRUSHER;
        case 23: return TILE_URAND_ASSASSIN;
        case 24: return TILE_URAND_GUARD;
        case 25: return TILE_URAND_JIHAD;
        case 26: return TILE_URAND_LEAR;
        case 27: return TILE_URAND_ZHOR;
        case 28: return TILE_URAND_FIERY_DEVIL;
        case 29: return TILE_URAND_SALAMANDER;
        case 30: return TILE_URAND_WAR;
        case 31: return TILE_URAND_DOOM_KNIGHT;
        case 32: return TILE_URAND_RESISTANCE;
        case 33: return TILE_URAND_FOLLY;
        case 34: return TILE_URAND_BLOODLUST;
        case 35: return TILE_URAND_EOS;
        case 36: return TILE_URAND_SHAOLIN;
        case 37: return TILE_URAND_ROBUSTNESS;
        case 38: return TILE_URAND_MAXWELL;
        case 39: return TILE_URAND_VOO_DOO;
        case 40: return TILE_URAND_OCTOPUS_KING;
        case 41: return TILE_URAND_DRAGONMASK;
        case 42: return TILE_URAND_ARGA;
        case 43: return TILE_URAND_ELEMENTAL;
        case 44: return TILE_URAND_SNIPER;
        case 45: return TILE_URAND_ERCHIDEL;
        case 46: return TILE_URAND_NIGHT;
        case 47: return TILE_URAND_PLUTONIUM;
        case 48: return TILE_URAND_UNDEADHUNTER;
        case 49: return TILE_URAND_DRAGON_KING;
        case 50: return TILE_URAND_ALCHEMIST;
        case 51: return TILE_URAND_FENCER;
        case 52: return TILE_URAND_MAGE;
        case 53: return TILE_URAND_BLOWGUN;
        case 54: return TILE_URAND_WYRMBANE;
        case 55: return TILE_URAND_SPRIGGANS_KNIFE;
        case 56: return TILE_URAND_STARLIGHT;
        case 57: return TILE_URAND_BROOCH_OF_SHIELDING;
        case 58: return TILE_URAND_SERPENT_SCOURGE;
        case 59: return TILE_URAND_KNIFE_OF_ACCURACY;
        default: return TILE_TODO;

    case UNRAND_BLOODBANE:        return TILE_URAND_BLOODBANE;
    case UNRAND_SHADOWS:          return TILE_URAND_SHADOWS;
    case UNRAND_FLAMING_DEATH:    return TILE_URAND_FLAMING_DEATH;
    case UNRAND_IGNORANCE:        return TILE_URAND_IGNORANCE;
    case UNRAND_AIR:              return TILE_URAND_AIR;
    case UNRAND_AUGMENTATION:     return TILE_URAND_AUGMENTATION;
    case UNRAND_BRILLIANCE:       return TILE_URAND_BRILLIANCE;
    case UNRAND_THIEF:            return TILE_URAND_THIEF;
    case UNRAND_BULLSEYE:         return TILE_URAND_BULLSEYE;
    case UNRAND_DYROVEPREVA:      return TILE_URAND_DYROVEPREVA;
    case UNRAND_LEECH:            return TILE_URAND_LEECH;
    case UNRAND_CEKUGOB:          return TILE_URAND_CEKUGOB;
    case UNRAND_MISFORTUNE:       return TILE_URAND_MISFORTUNE;
    case UNRAND_CHILLY_DEATH:     return TILE_URAND_CHILLY_DEATH;
    case UNRAND_FOUR_WINDS:       return TILE_URAND_FOUR_WINDS;
    case UNRAND_MORG:             return TILE_URAND_MORG;
    case UNRAND_FINISHER:         return TILE_URAND_FINISHER;
    case UNRAND_PUNK:             return TILE_URAND_PUNK;
    case UNRAND_KRISHNA:          return TILE_URAND_KRISHNA;
    case UNRAND_FLASH:            return TILE_URAND_FLASH;
    case UNRAND_SKULLCRUSHER:     return TILE_URAND_SKULLCRUSHER;
    case UNRAND_BLOWGUN_ASSASSIN: return TILE_URAND_ASSASSIN;
    case UNRAND_GUARD:            return TILE_URAND_GUARD;
    case UNRAND_JIHAD:            return TILE_URAND_JIHAD;
    case UNRAND_LEAR:             return TILE_URAND_LEAR;
    case UNRAND_ZHOR:             return TILE_URAND_ZHOR;
    case UNRAND_SALAMANDER:       return TILE_URAND_SALAMANDER;
    case UNRAND_WAR:              return TILE_URAND_WAR;
    case UNRAND_DOOM_KNIGHT:      return TILE_URAND_DOOM_KNIGHT;
    case UNRAND_RESISTANCE:       return TILE_URAND_RESISTANCE;
    case UNRAND_FOLLY:            return TILE_URAND_FOLLY;
    case UNRAND_BLOODLUST:        return TILE_URAND_BLOODLUST;
    case UNRAND_EOS:              return TILE_URAND_EOS;
    case UNRAND_SHAOLIN:          return TILE_URAND_SHAOLIN;
    case UNRAND_ROBUSTNESS:       return TILE_URAND_ROBUSTNESS;
    case UNRAND_MAXWELL:          return TILE_URAND_MAXWELL;
    case UNRAND_BOTONO:           return TILE_URAND_VOO_DOO;
    case UNRAND_OCTOPUS_KING:     return TILE_URAND_OCTOPUS_KING;
    case UNRAND_DRAGONMASK:       return TILE_URAND_DRAGONMASK;
    case UNRAND_ARGA:             return TILE_URAND_ARGA;
    case UNRAND_ELEMENTAL_STAFF:  return TILE_URAND_ELEMENTAL;
    case UNRAND_SNIPER:           return TILE_URAND_SNIPER;
    case UNRAND_NIGHT:            return TILE_URAND_NIGHT;
    case UNRAND_PLUTONIUM:        return TILE_URAND_PLUTONIUM;
    case UNRAND_UNDEADHUNTER:     return TILE_URAND_UNDEADHUNTER;
    case UNRAND_DRAGON_KING:      return TILE_URAND_DRAGON_KING;
    case UNRAND_ALCHEMIST:        return TILE_URAND_ALCHEMIST;
    case UNRAND_FENCER:           return TILE_URAND_FENCER;
    case UNRAND_MAGE:             return TILE_URAND_MAGE;
    case UNRAND_BLOWGUN_ASSASSIN: return TILE_URAND_BLOWGUN;
    case UNRAND_WYRMBANE:         return TILE_URAND_WYRMBANE;
    case UNRAND_SPRIGGANS_KNIFE:  return TILE_URAND_SPRIGGANS_KNIFE;
    case UNRAND_STARLIGHT:        return TILE_URAND_STARLIGHT;
    case UNRAND_SHIELDING:        return TILE_URAND_BROOCH_OF_SHIELDING;
    case UNRAND_SERPENT_SCOURGE:  return TILE_URAND_SERPENT_SCOURGE;
    case UNRAND_ACCURACY:         return TILE_URAND_KNIFE_OF_ACCURACY;
    case UNRAND_HELLFIRE:         return TILE_URAND_FIERY_DEVIL;
    //XXX: What happened to this unrand?
    //case UNRAND_ERCHIDEL: return TILE_URAND_ERCHIDEL;
    default: return TILE_TODO;

        if (is_fixed_artefact(item))
            return _tileidx_fixed_artefact(special);
        else if (is_unrandom_artefact( item ))
            return _tileidx_unrand_artefact(find_unrandart_index(item) + 1);

        if (is_unrandom_artefact( item ))
            return _tileidx_unrand_artefact(find_unrandart_index(item));

            return _tileidx_unrand_artefact(find_unrandart_index(item) + 1);

            return _tileidx_unrand_artefact(find_unrandart_index(item));

                return _tileidx_unrand_artefact(find_unrandart_index(item) + 1);

                return _tileidx_unrand_artefact(find_unrandart_index(item));

    if (is_fixed_artefact( item ))

    if (is_unrandom_artefact( item ))

        switch (item.special)

        switch (find_unrandart_index(item))

        }
    }
    if (is_unrandom_artefact( item ))
    {
        switch (find_unrandart_index(item) + 1)
        {

            case 2:  return TILEP_HAND1_BLOODBANE;

            case UNRAND_BLOODBANE:  return TILEP_HAND1_BLOODBANE;

            case 4:  return TILEP_HAND1_FLAMING_DEATH;

            case UNRAND_FLAMING_DEATH:  return TILEP_HAND1_FLAMING_DEATH;

            case 8:  return TILEP_HAND1_MACE_OF_BRILLIANCE;

            case UNRAND_BRILLIANCE:  return TILEP_HAND1_MACE_OF_BRILLIANCE;

            case 12: return TILEP_HAND1_LEECH;

            case UNRAND_LEECH: return TILEP_HAND1_LEECH;

            case 15: return TILEP_HAND1_CHILLY_DEATH;

            case UNRAND_CHILLY_DEATH: return TILEP_HAND1_CHILLY_DEATH;

            case 17: return TILEP_HAND1_MORG;

            case UNRAND_MORG: return TILEP_HAND1_MORG;

            case 18: return TILEP_HAND1_FINISHER;

            case UNRAND_FINISHER: return TILEP_HAND1_FINISHER;

            case 19: return TILEP_HAND1_PUNK;

            case UNRAND_PUNK: return TILEP_HAND1_PUNK;

            case 20: return TILEP_HAND1_KRISHNA;

            case UNRAND_KRISHNA: return TILEP_HAND1_KRISHNA;

            case 22: return TILEP_HAND1_GIANT_CLUB_SLANT;

            case UNRAND_SKULLCRUSHER: return TILEP_HAND1_GIANT_CLUB_SLANT;

            case 24: return TILEP_HAND1_GLAIVE_OF_THE_GUARD;

            case UNRAND_GUARD: return TILEP_HAND1_GLAIVE_OF_THE_GUARD;

            case 25: return TILEP_HAND1_JIHAD;

            case UNRAND_JIHAD: return TILEP_HAND1_JIHAD;

            case 28: return TILEP_HAND1_FIERY_DEVIL;

            case UNRAND_HELLFIRE: return TILEP_HAND1_FIERY_DEVIL;

            case 31: return TILEP_HAND1_DOOM_KNIGHT;

            case UNRAND_DOOM_KNIGHT: return TILEP_HAND1_DOOM_KNIGHT;

            case 35: return TILEP_HAND1_EOS;

            case UNRAND_EOS: return TILEP_HAND1_EOS;

            case 39: return TILEP_HAND1_VOODOO;

            case UNRAND_BOTONO: return TILEP_HAND1_VOODOO;

            case 40: return TILEP_HAND1_TRIDENT_OCTOPUS_KING;

            case UNRAND_OCTOPUS_KING: return TILEP_HAND1_TRIDENT_OCTOPUS_KING;

            case 42: return TILEP_HAND1_ARGA;

            case UNRAND_ARGA: return TILEP_HAND1_ARGA;

            case 43: return TILEP_HAND1_ELEMENTAL_STAFF;

            case UNRAND_ELEMENTAL_STAFF: return TILEP_HAND1_ELEMENTAL_STAFF;

            case 44: return TILEP_HAND1_SNIPER;
            // bow "Erchidel"
            case 45: return TILEP_HAND1_GREAT_BOW;

            case UNRAND_SNIPER: return TILEP_HAND1_SNIPER;

            case 47: return TILEP_HAND1_PLUTONIUM_SWORD;
            // mace "Undeadhunter"
            case 48: return TILEP_HAND1_UNDEADHUNTER;

            case UNRAND_PLUTONIUM: return TILEP_HAND1_PLUTONIUM_SWORD;

            case 53: return TILEP_HAND1_BLOWGUN_ASSASSIN;

            case UNRAND_BLOWGUN_ASSASSIN: return TILEP_HAND1_BLOWGUN_ASSASSIN;

            case 54: return TILEP_HAND1_WYRMBANE;

            case UNRAND_WYRMBANE: return TILEP_HAND1_WYRMBANE;

            case 55: return TILEP_HAND1_SPRIGGANS_KNIFE;

            case UNRAND_SPRIGGANS_KINFE: return TILEP_HAND1_SPRIGGANS_KNIFE;

            case 58: return TILEP_HAND1_SERPENT_SCOURGE;

            case UNRAND_SERPENT_SCOURGE: return TILEP_HAND1_SERPENT_SCOURGE;

            case 59: return TILEP_HAND1_KNIFE_OF_ACCURACY;

            case UNRAND_ACCURACY: return TILEP_HAND1_KNIFE_OF_ACCURACY;
            // bow "Erchidel"
            // XXX: What happened to this unrand?
            //case UNRAND_: return TILEP_HAND1_GREAT_BOW;

    TAG_MAJOR_VERSION = 5

    TAG_MAJOR_VERSION = 6

    TAG_MINOR_VERSION  = 15      // Current version.  (Keep equal to max.)

    TAG_MINOR_ARTEFACT = 16,     // Turned fixed arts into unrandarts.
    TAG_MINOR_VERSION  = 16      // Current version.  (Keep equal to max.)

#include "artefact.h"

#include "randart.h"

    marshallByte(th, you.special_wield);

    marshallShort(th, you.unrand_reacts);

    // how many unrandarts?
    marshallShort(th, NO_UNRANDARTS);
    for (j = 0; j < NO_UNRANDARTS; ++j)
        marshallBoolean(th, does_unrandart_exist(j));

    you.special_wield     = unmarshallByte(th);

    you.unrand_reacts     = unmarshallShort(th);