inherit "/std/races/standard";
#include "living.h"

void    setup()
{
    set_name( "dwarf" );
    set_main_plural( "dwarves" );
    set_long( "The dwarves are often considered as short humans, " +
	      "but this is not so. Their many generations of mining have " +
	      "made them more rugged then men, and many have better " +
	      "constitutions. While not stupid, dwarves are not especially " +
	      "suited to magic or dexterous tasks.\n" );
    reset_get();
}				/* setup() */


string  query_desc( object ob )
{
    switch( (int)ob->query_gender() )
    {
	case GENDER_NEUTER:
	    return "A dwarish creature.\n";
	case GENDER_MALE:
	    return "A dwarvish man.\n";
	case GENDER_FEMALE:
	    return "A dwarvish woman.\n";
    }
}				/* query_desc() */


void    set_stats( object ob )
{
    ob->set_bonus_str( 2 );
    ob->set_bonus_dex( -2 );
    ob->set_bonus_con( 1 );
    ob->set_bonus_int( -1 );
    set_max_light( 200 );
    set_min_light( 0 );
}				/* set_stats() */