inherit "/std/races/reptile_base";
void setup() {
    set_name("snake");
    set_long("Snake, Serpent, Legless thingy that crawls on its belly all "
        "day long.\n");
    set_height( 5 );
    set_weight( 60 );
    set_desc("a serpent, the type with no legs but with scales.");
    // throw away reptilian bits and replace totally.
    bits = ({
        "head", "head", ({ 0, 50, 0,
           "left eye", "right eye", "poison sac", "tongue", "skull" }),
        "left eye", "eye", ({ "head", 5, 0 }),
        "right eye", "eye", ({ "head", 5, 0 }),
        "poison sac", "sac", ({ "head", 10, 0 }),
        "skull", "skull", ({ "head", 40, 0, "tooth", "brain" }),
        "tooth", "tooth", ({ "skull", 5, ({"/std/bit", 2}) }),
        "brain", "brain", ({ "skull", 10, 0 }),
        "torso", "torso", ({ 0, 600, 0,
           "heart", "liver", "left kidney", "right kidney", "spleen",
           "bladder", "intestine" }),
        "heart", "heart", ({ "torso", 20, 0 }),
        "liver", "liver", ({ "torso", 20, 0 }),
        "left lung", "lung", ({ "torso", 20, 0 }),
        "right lung", "lung", ({ "torso", 20, 0 }),
        "left kidney", "kidney", ({ "torso", 10, 0 }),
        "right kidney", "kidney", ({ "torso", 10, 0 }),
        "spleen", "spleen", ({ "torso", 10, 0 }),
        "bladder", "bladder", ({ "torso", 10, 0 }),
        "intestine", "gut", ({ "torso", 100, 0 }),
        "genitals", "genitals", ({ 0, 5, 0 }),
        "tail", "tail", ({ 0, 500, 0 }),
        "skin", "skin", ({ 0, 175, 0 })
    });
    inedible = ({"poison sac", "tooth"});
    unrottable = ({"tooth"});
    add_ac("blunt", "blunt", 40 );
    add_ac("sharp", "sharp", 20 );
    add_ac("pierce", "pierce", 10 );
    set_stats( ({ 0, 0, -4, 4, -4 }) );
    reset_attackable_areas();
    add_attackable_area("head", "head");
    add_attackable_area("neck", "neck");
    add_attackable_area("back", "back");
    add_attackable_area("chest", ({"left side", "right side"}) );
} /* setup() */
void set_unarmed_attacks( object thing ) {
    int number;
    number = (int)thing->query_skill_bonus("fighting.combat.melee.unarmed");
    number = sqrt( number );
    thing->remove_attack("hands");
    thing->remove_attack("feet");
    thing->remove_attack("bite");
    thing->remove_attack("crush");
    thing->add_attack( "bite", 75, ({ (3 * number ) / 2, 5, number * 2 }),
        "pierce", "unarmed", 0 );
    thing->add_attack( "crush", 50, ({ 3 * number, 2, number }),
        "blunt", "unarmed", 0 );
    thing->set_combat_response("dodge");
} /* set_unarmed_attacks() */