#include "log.h"

#define KILL_NEUTRAL_ALIGNMENT          10
#define ADJ_ALIGNMENT(al)               ((-al - KILL_NEUTRAL_ALIGNMENT)/4)
#define NAME_OF_GHOST                   "some mist"

/*
 * If you are going to copy this file, in the purpose of changing
 * it a little to your own need, beware:
 *
 * First try one of the following:
 *
 * 1. Do clone_object(), and then configur it. This object is specially
 *    prepared for configuration.
 *
 * 2. If you still is not pleased with that, create a new empty
 *    object, and make an inheritance of this objet on the first line.
 *    This will automatically copy all variables and functions from the
 *    original object. Then, add the functions you want to change. The
 *    original function can still be accessed with '::' prepended on the name.
 *
 * The maintainer of this LPmud might become sad with you if you fail
 * to do any of the above. Ask other wizards if you are doubtful.
 *
 * The reason of this, is that the above saves a lot of memory.
 */

/*
 * Include this file in objects that "lives".
 * The following variables are defined here:
 *
 */

int time_to_heal;       /* Count down variable. */
int money;              /* Amount of money on player. */
string name;            /* Name of object. */
string msgin, msgout;   /* Messages when entering or leaving a room. */
int is_npc, brief;      /* Flags. */
int level;              /* Level of monster. */
static int armour_class;        /* What armour class of monster. */
int hit_point;          /* Number of hit points of monster. */
int max_hp, max_sp;
int experience;         /* Experience points of monster. */
string mmsgout;         /* Message when leaving magically. */
string mmsgin;          /* Message when arriving magically. */
static object attacker_ob;      /* Name of player attacking us. */
static object alt_attacker_ob;  /* Name of other player also attacking us. */
static int weapon_class;        /* How good weapon. Used to calculate damage. */
static object name_of_weapon;   /* To see if we are wielding a weapon. */
static object head_armour;      /* What armour we have. */
int ghost;              /* Used for monsters that can leave a ghost. */
static int local_weight;        /* weight of items */
static object hunted, hunter;   /* used in the hunt mode */
static int hunting_time;        /* How long we will stay in hunting mode. */
static string cap_name; /* Capital version of "name". */
int spell_points;       /* Current spell points. */
static string spell_name;
static int spell_cost, spell_dam;
int age;                /* Number of heart beats of this character. */
int is_invis;           /* True when player is invisible */
int frog;               /* If the player is a frog */
int whimpy;             /* Automatically run when low on HP */
string auto_load;       /* Special automatically loaded objects. */
int dead;               /* Are we alive or dead? */
string flags;           /* Bit field of flags */

/*
 * All characters have an aligment, depending on how good or chaotic
 * they are.
 * This value is updated when killing other players.
 */
int alignment;
int gender;     /* 0 means neuter ("it"), 1 male ("he"),  2 female ("she") */

/*
 * Character stat variables.
 */
int Str, Int, Con, Dex;

/*
 * The following routines are defined for usage:
 * stop_fight           Stop a fight. Good for scroll of taming etc.
 * hit_player           Called when fighting.
 * transfer_all_to:     Transfer all objects to dest.
 * move_player:         Called by the object that moves the monster.
 * query_name:          Gives the name to external objects.
 * attacked_by          Tells us who are attacking us.
 * show_stats           Dump local status.
 * stop_wielding        Called when we drop a weapon.
 * stop_wearing         Called when we drop an armour.
 * query_level          Give our level to external objects.
 * query_value          Always return 0. Can't sell this object.
 * query_npc            Return 1 if npc otherwise 0.
 * get                  Always return 0. Can't take this object.
 * attack               Should be called from heart_beat. Will maintain attack.
 * query_attack
 * drop_all_money       Used when the object dies.
 * wield                Called by weapons.
 * wear                 Called by armour.
 * add_weight           Used when picking up things.
 * heal_self            Enable wizards to heal this object.
 * can_put_and_get      Can look at inventory, but not take things from it.
 * attack_object        Called when starting to attack an object.
 * test_if_any_here     For monsters. Call this one if you suspect no enemy
 *                      is here any more.
 *                      Return 1 if anyone there, 0 if none.
 * force_us             Force us to do a command.
 * query_spell_points   Return how much spell points the character has.
 * reduce_hit_point     Reduce hit points, but not below 0.
 */

/*
 * This routine is called from objects that moves the player.
 * Special: direction "X" means teleport.
 * The argument is "how#where".
 * The second optional argument is an object to move the player to.
 * If the second argument exists, then the first argument is taken
 * as the movement message only.
 */
varargs move_player(dir_dest, optional_dest_ob)
{
    string dir, dest;
    object ob;
    int is_light, i;

    if (!optional_dest_ob) {
        if (sscanf(dir_dest, "%s#%s", dir, dest) != 2) {
            tell_object(this_object(), "Move to bad dir/dest\n");
            return;
        }
    } else {
        dir = dir_dest;
        dest = optional_dest_ob;
    }
    hunting_time -= 1;
    if (hunting_time == 0) {
        if (hunter)
            call_other(hunter, "stop_hunter");
        hunter = 0;
        hunted = 0;
    }
    if (attacker_ob && present(attacker_ob)) {
        hunting_time = 10;
        if (!hunter)
            tell_object(this_object(), "You are now hunted by " +
                        call_other(attacker_ob, "query_name", 0) + ".\n");
        hunter = attacker_ob;
    }
    is_light = set_light(0);
    if(is_light < 0)
        is_light = 0;
    if(is_light) {
        if (!msgout)
            msgout = "leaves";
        if (ghost)
            say(NAME_OF_GHOST + " " + msgout + " " + dir + ".\n");
        else if (dir == "X" && !is_invis)
            say(cap_name + " " + mmsgout + ".\n");
        else if (!is_invis)
            say(cap_name + " " + msgout + " " + dir + ".\n");
    }
    move_object(this_object(), dest);
    is_light = set_light(0);
    if(is_light < 0)
        is_light = 0;
    if (level >= 20) {
        if (!optional_dest_ob)
            tell_object(this_object(), "/" + dest + "\n");
    }
    if(is_light) {
        if (!msgin)
            msgin = "arrives";
        if (ghost)
            say(NAME_OF_GHOST + " " + msgin + ".\n");
        else if (dir == "X" && !is_invis)
            say(cap_name + " " + mmsgin + ".\n");
        else if (!is_invis)
            say(cap_name + " " + msgin + ".\n");
    }
    if (hunted && present(hunted))
        attack_object(hunted);
    if (hunter && present(hunter))
        call_other(hunter, "attack_object", this_object());
    if (is_npc)
        return;
    if (!is_light) {
        write("A dark room.\n");
        return;
    }
    ob = environment(this_object());
    if (brief)
        write(call_other(ob, "short", 0) + ".\n");
    else
        call_other(ob, "long", 0);
    for (i=0, ob=first_inventory(ob); ob; ob = next_inventory(ob)) {
        if (ob != this_object()) {
            string short_str;
            short_str = call_other(ob, "short");
            if (short_str)
                write(short_str + ".\n");
        }
        if (i++ > 40) {
            write("*** TRUNCATED\n");
            break;
        }
    }
}

/*
 * This function is called from other players when they want to make
 * damage to us. We return how much damage we received, which will
 * change the attackers score. This routine is probably called from
 * heart_beat() from another player.
 * Compare this function to reduce_hit_point(dam).
 */
hit_player(dam) {
    if (!attacker_ob)
        set_heart_beat(1);
    if (!attacker_ob && this_player() != this_object())
        attacker_ob = this_player();
    else if (!alt_attacker_ob && attacker_ob != this_player() &&
             this_player() != this_object())
        alt_attacker_ob = this_player();
    /* Don't damage wizards too much ! */
    if (level >= 20 && !is_npc && dam >= hit_point) {
        tell_object(this_object(),
                    "Your wizardhood protects you from death.\n");
        return 0;
    }
    if(dead)
        return 0;       /* Or someone who is dead */
    dam -= random(armour_class + 1);
    if (dam <= 0)
        return 0;
    if (dam > hit_point+1)
        dam = hit_point+1;
    hit_point = hit_point - dam;
    if (hit_point<0) {
        object corpse;
        /* We died ! */

        if (!is_npc && !query_ip_number(this_object())) {
            /* This player is linkdead. */
            write(cap_name + " is not here. You cannot kill a player who is not logged in.\n");
            hit_point = 20;
            stop_fight();
            if (this_player())
                this_player()->stop_fight();
            return 0;
        }

        dead = 1;
        if (hunter)
            call_other(hunter, "stop_hunter");
        hunter = 0;
        hunted = 0;
        say(cap_name + " died.\n");
        experience = 2 * experience / 3;        /* Nice, isn't it ? */
        hit_point = 10;
        /* The player killing us will update his alignment ! */
        /* If he exist */
        if(attacker_ob) {
            call_other(attacker_ob, "add_alignment",
                   ADJ_ALIGNMENT(alignment));
            call_other(attacker_ob, "add_exp", experience / 35);
        }
        corpse = clone_object("obj/corpse");
        call_other(corpse, "set_name", name);
        transfer_all_to(corpse);
        move_object(corpse, environment(this_object()));
        if (!call_other(this_object(), "second_life", 0))
            destruct(this_object());
        if (!is_npc)
            catch(save_object("players/" + name));
    }
    return dam;
}

transfer_all_to(dest)
{
    object ob;
    object next_ob;

    ob = first_inventory(this_object());
    while(ob) {
        next_ob = next_inventory(ob);
        /* Beware that drop() might destruct the object. */
        if (!call_other(ob, "drop", 1) && ob)
            move_object(ob, dest);
        ob = next_ob;
    }
    local_weight = 0;
    if (money == 0)
        return;
    ob = clone_object("obj/money");
    call_other(ob, "set_money", money);
    move_object(ob, dest);
    money = 0;
}

query_name() {
    if (ghost)
        return NAME_OF_GHOST;
    return cap_name;
}

query_alignment() {
    return alignment;
}

query_npc() {
    return is_npc;
}

/*
 * This routine is called when we are attacked by a player.
 */
attacked_by(ob) {
    if (!attacker_ob) {
        attacker_ob = ob;
        set_heart_beat(1);
        return;
    }
    if (!alt_attacker_ob) {
        alt_attacker_ob = ob;
        return;
    }
}

show_stats() {
    int i;
    write(short() + "\nlevel:\t" + level +
          "\ncoins:\t" + money +
          "\nhp:\t" + hit_point +
          "\nmax:\t" + max_hp +
          "\nspell\t" + spell_points +
          "\nmax:\t" + max_sp);
    write("\nep:\t"); write(experience);
    write("\nac:\t"); write(armour_class);
    if (head_armour)
        write("\narmour: " + call_other(head_armour, "rec_short", 0));
    write("\nwc:\t"); write(weapon_class);
    if (name_of_weapon)
        write("\nweapon: " + call_other(name_of_weapon, "query_name", 0));
    write("\ncarry:\t" + local_weight);
    if (attacker_ob)
        write("\nattack: " + call_other(attacker_ob, "query_name"));
    if (alt_attacker_ob)
        write("\nalt attack: " + call_other(alt_attacker_ob, "query_name"));
    write("\nalign:\t" + alignment + "\n");
    write("gender:\t" + query_gender_string() + "\n");
    if (i = call_other(this_object(), "query_quests", 0))
        write("Quests:\t" + i + "\n");
    write(query_stats());
    show_age();
}

stop_wielding() {
    if (!name_of_weapon) {
        /* This should not happen ! */
        log_file("wield_bug", "Weapon not wielded !\n");
        write("Bug ! The weapon was marked as wielded ! (fixed)\n");
        return;
    }
    call_other(name_of_weapon, "un_wield", dead);
    name_of_weapon = 0;
    weapon_class = 0;
}

stop_wearing(name) {
    if(!head_armour) {
        /* This should not happen ! */
        log_file("wearing_bug", "armour not worn!\n");
        write("This is a bug, no head_armour\n");
        return;
    }
    head_armour = call_other(head_armour, "remove_link", name);
    if(head_armour && objectp(head_armour))
        armour_class = call_other(head_armour, "tot_ac");
    else {
        armour_class = 0;
        head_armour = 0;
    }
    if (!is_npc)
        if(!dead)
            say(cap_name + " removes " + name + ".\n");
    write("Ok.\n");
}

query_level() {
    return level;
}

/* This object is not worth anything in the shop ! */
query_value() { return 0; }

/* It is never possible to pick up a player ! */
get() { return 0; }

/*
 * Return true if there still is a fight.
 */
attack()
{
    int tmp;
    int whit;
    string name_of_attacker;

    if (!attacker_ob) {
        spell_cost = 0;
        return 0;
    }
    name_of_attacker = call_other(attacker_ob, "query_name", 0);
    if (!name_of_attacker || name_of_attacker == NAME_OF_GHOST ||
        environment(attacker_ob) != environment(this_object())) {
        if (!hunter && name_of_attacker &&
            !call_other(attacker_ob, "query_ghost", 0))
        {
            tell_object(this_object(), "You are now hunting " +
                        call_other(attacker_ob, "query_name", 0) + ".\n");
            hunted = attacker_ob;
            hunting_time = 10;
        }
        attacker_ob = 0;
        if (!alt_attacker_ob)
            return 0;
        attacker_ob = alt_attacker_ob;
        alt_attacker_ob = 0;
        if (attack()) {
            if (attacker_ob)
                tell_object(this_object(),
                            "You turn to attack " +
                            attacker_ob->query_name() + ".\n");
            return 1;
        }
        return 0;
    }
    if (spell_cost) {
        spell_points -= spell_cost;
        tell_object(attacker_ob, "You are hit by a " + spell_name + ".\n");
        write("You cast a " + spell_name + ".\n");
    }
    if(name_of_weapon) {
        whit = call_other(name_of_weapon,"hit",attacker_ob);
        if (!attacker_ob) {
            tell_object(this_object(), "CRACK!\nYour weapon broke!\n");
            log_file("BAD_SWORD", name_of_weapon->short() + ", " +
                     creator(name_of_weapon) + " XX !\n");
            spell_cost = 0;
            spell_dam = 0;
            destruct(name_of_weapon);
            weapon_class = 0;
            return 1;
        }
    }
    if(whit != "miss") {
        tmp = ((weapon_class + whit) * 2 + Dex) / 3;
        if (tmp == 0)
            tmp = 1;
        tmp = call_other(attacker_ob, "hit_player",
                    random(tmp) + spell_dam);
    } else
        tmp = 0;
    tmp -= spell_dam;
    if (!is_npc && name_of_weapon && tmp > 20 &&
      random(100) < weapon_class - level * 2 / 3 - 14) {
        tell_object(this_object(), "CRACK!\nYour weapon broke!\n");
        tell_object(this_object(),
                    "You are too inexperienced for such a weapon.\n");
        log_file("BAD_SWORD", name_of_weapon->short() + ", " +
                 creator(name_of_weapon) + "\n");
        spell_cost = 0;
        spell_dam = 0;
        destruct(name_of_weapon);
        weapon_class = 0;
        return 1;
    }
    tmp += spell_dam;
    if (tmp == 0) {
        tell_object(this_object(), "You missed.\n");
        say(cap_name + " missed " + name_of_attacker + ".\n");
        spell_cost = 0;
        spell_dam = 0;
        return 1;
    }
    experience += tmp;
    tmp -= spell_dam;
    spell_cost = 0;
    spell_dam = 0;
    /* Does the enemy still live ? */
    if (attacker_ob &&
      call_other(attacker_ob, "query_name", 0) != NAME_OF_GHOST) {
        string how, what;
        how = " to small fragments";
        what = "massacre";
        if (tmp < 30) {
            how = " with a bone crushing sound";
            what = "smash";
        }
        if (tmp < 20) {
            how = " very hard";
            what = "hit";
        }
        if (tmp < 10) {
            how = " hard";
            what = "hit";
        }
        if (tmp < 5) {
            how = "";
            what = "hit";
        }
        if (tmp < 3) {
            how = "";
            what = "grazed";
        }
        if (tmp == 1) {
            how = " in the stomach";
            what = "tickled";
        }
        tell_object(this_object(), "You " + what + " " + name_of_attacker +
                    how + ".\n");
        tell_object(attacker_ob, cap_name + " " + what + " you" + how +
                    ".\n");
        say(cap_name + " " + what + " " + name_of_attacker + how +
                    ".\n", attacker_ob);
        return 1;
    }
    tell_object(this_object(), "You killed " + name_of_attacker + ".\n");
    attacker_ob = alt_attacker_ob;
    alt_attacker_ob = 0;
    if (attacker_ob)
        return 1;
}

query_attack() {
    /* Changed by Herder */
    return attacker_ob;
    /* OLD
    if (attacker_ob)
        return 1;
    return 0;
    */
}

drop_all_money(verbose) {
    object mon;
    if (money == 0)
        return;
    mon = clone_object("obj/money");
    call_other(mon, "set_money", money);
    move_object(mon, environment());
    if (verbose) {
        say(cap_name + " drops " + money + " gold coins.\n");
        tell_object(this_object(), "You drop " + money + " gold coins.\n");
    }
    money = 0;
}

/* Wield a weapon. */
wield(w) {
    if (name_of_weapon)
        stop_wielding();
    name_of_weapon = w;
    weapon_class = call_other(w, "weapon_class", 0);
    say(cap_name + " wields " + call_other(w, "query_name", 0) + ".\n");
    write("Ok.\n");
}

/* Wear some armour. */
wear(a) {
    object old;

    if(head_armour) {
        old = call_other(head_armour, "test_type", call_other(a, "query_type"));
        if(old)
            return old;
        old = head_armour;
        call_other(a, "link", old);
    }
    head_armour = a;
    /* Calculate new ac */
    armour_class = call_other(head_armour, "tot_ac");
    say(cap_name + " wears " + call_other(a, "query_name", 0) + ".\n");
    write("Ok.\n");
    return 0;
}

add_weight(w) {
    if (w + local_weight > Str + 10 && level < 20)
        return 0;
    local_weight += w;
    return 1;
}

heal_self(h) {
    if (h <= 0)
        return;
    hit_point += h;
    if (hit_point > max_hp)
        hit_point = max_hp;
    spell_points += h;
    if (spell_points > max_sp)
        spell_points = max_sp;
}

restore_spell_points(h) {
    spell_points += h;
    if (spell_points > max_sp)
        spell_points = max_sp;
}

can_put_and_get(str)
{
    return str != 0;
}

attack_object(ob)
{
   if (call_other(ob, "query_ghost", 0))
       return;
   set_heart_beat(1);   /* For monsters, start the heart beat */
   if (attacker_ob == ob) {
       attack();
       return;
   }
   if (alt_attacker_ob == ob) {
       alt_attacker_ob = attacker_ob;
       attacker_ob = ob;
       attack();
       return;
   }
   if (!alt_attacker_ob)
       alt_attacker_ob = attacker_ob;
   attacker_ob = ob;
   call_other(attacker_ob, "attacked_by", this_object());
   attack();
}

/* Funny, why are there two attack_object() in this file ? */

/*
attack_object(ob)
{
   if (call_other(ob, "query_ghost", 0))
       return;
   if (attacker_ob == ob) {
       attack();
       return;
   }
   if (alt_attacker_ob == ob) {
       alt_attacker_ob = attacker_ob;
       attacker_ob = ob;
       attack();
       return;
   }
   if (!alt_attacker_ob)
       alt_attacker_ob = attacker_ob;
   attacker_ob = ob;
   attack();
}
*/

query_ghost() { return ghost; }

zap_object(ob)
{
    call_other(ob, "attacked_by", this_object());
    say(cap_name + " summons a flash from the sky.\n");
    write("You summon a flash from the sky.\n");
    experience += call_other(ob, "hit_player", 100000);
    write("There is a big clap of thunder.\n\n");
}

missile_object(ob)
{
    if (spell_points < 10) {
        write("Too low on power.\n");
        return;
    }
    spell_name = "magic missile";
    spell_dam = random(20);
    spell_cost = 10;
    attacker_ob = ob;
}

shock_object(ob)
{
    if (spell_points < 15) {
        write("Too low on power.\n");
        return;
    }
    spell_name = "shock";
    spell_dam = random(30);
    spell_cost = 15;
    attacker_ob = ob;
}

fire_ball_object(ob)
{
    if (spell_points < 20) {
        write("Too low on power.\n");
        return;
    }
    spell_name = "fire ball";
    spell_dam = random(40);
    spell_cost = 20;
    attacker_ob = ob;
}

/*
 * If no one is here (except ourself), then turn off the heart beat.
 */

test_if_any_here()
{
    object ob;
    ob = environment();
    if (!ob)
        return;
    ob = first_inventory(environment());
    while(ob) {
        if (ob != this_object() && living(ob) && !call_other(ob, "query_npc"))
            return 1;
        ob = next_inventory(ob);
    }
    return 0;
}

show_age() {
    int i;

    write("age:\t");
    i = age;
    if (i/43200) {
        write(i/43200 + " days ");
        i = i - (i/43200)*43200;
    }
    if (i/1800) {
        write(i/1800 + " hours ");
        i = i  - (i/1800)*1800;
    }
    if (i/30) {
        write(i/30 + " minutes ");
        i = i - (i/30)*30;
    }
    write(i*2 + " seconds.\n");
}

stop_hunter()
{
    hunter = 0;
    tell_object(this_object(), "You are no longer hunted.\n");
}

/*
 * This function remains only because of compatibility, as command() now
 * can be called with an object as argument.
 */
force_us(cmd) {
    if (!this_player() || this_player()->query_level() <= level ||
        query_ip_number(this_player()) == 0) {
        tell_object(this_object(), this_player()->query_name() +
            " failed to force you to " + cmd + "\n");
        return;
    }
    command(cmd);
}

/* This is used by the shop etc. */
add_money(m) {
#ifdef LOG_EXP
    if (this_player() && this_player() != this_object() &&
      query_ip_number(this_player()) && query_ip_number(this_object()) &&
      level < 20 && m >= ROOM_EXP_LIMIT)
        log_file("EXPERIENCE", ctime(time()) + " " +name + "(" + level +
                ") " + m + " money by " + this_player()->query_real_name() +
                "(" + this_player()->query_level() + ")\n");
#endif
    money = money + m;
    if (level <= 19 && !is_npc)
        add_worth(m);
}

query_money() {
    return money;
}

query_exp() {
    return experience;
}

query_frog() {
    return frog;
}

frog_curse(arg) {
    if (arg) {
        if (frog)
            return 1;
        tell_object(this_object(), "You turn into a frog !\n");
        frog = 1;
        return 1;
    }
    tell_object(this_object(), "You turn HUMAN again.\n");
    frog = 0;
    return 0;
}

run_away() {
    object here;
    int i, j;

    here = environment();
    i = 0;
    j = random(6);
    while(i<6 && here == environment()) {
        i += 1;
        j += 1;
        if (j > 6)
            j = 1;
        if (j == 1) command("east");
        if (j == 2) command("west");
        if (j == 3) command("north");
        if (j == 4) command("south");
        if (j == 5) command("up");
        if (j == 6) command("down");
    }
    if (here == environment()) {
        say(cap_name + " tried, but failed to run away.\n", this_object());
        tell_object(this_object(),
            "Your legs tried to run away, but failed.\n");
    } else {
        tell_object(this_object(), "Your legs run away with you!\n");
    }
}

query_hp() {
    return hit_point;
}

query_wimpy() {
    return whimpy;
}

query_current_room() {
    return file_name(environment(this_object()));
}

query_spell_points() {
    return spell_points;
}

stop_fight() {
    attacker_ob = alt_attacker_ob;
    alt_attacker_ob = 0;
}

query_wc() {
    return weapon_class;
}

query_ac() {
    return armour_class;
}

reduce_hit_point(dam) {
    object o;
    if(this_player()!=this_object()) {
        log_file("REDUCE_HP",query_name()+" by ");
        if(!this_player()) log_file("REDUCE_HP","?\n");
        else {
            log_file("REDUCE_HP",this_player()->query_name());
            o=previous_object();
            if (o)
                log_file("REDUCE_HP", " " + file_name(o) + ", " +
                         o->short() + " (" + creator(o) + ")\n");
            else
                log_file("REDUCE_HP", " ??\n");
        }
    }
    /* this will detect illegal use of reduce_hit_point in weapons */
    hit_point -= dam;
    if (hit_point <= 0)
        hit_point = 1;
    return hit_point;
}

query_age() {
    return age;
}

/*----------- Most of the gender handling here: ------------*/

query_gender() { return gender; }
query_neuter() { return !gender; }
query_male() { return gender == 1; }
query_female() { return gender == 2; }

set_gender(g) {
    if (g == 0 || g == 1 || g == 2)
        gender = g;
}
set_neuter() { gender = 0; }
set_male() { gender = 1; }
set_female() { gender = 2; }

query_gender_string() {
    if (!gender)
        return "neuter";
    else if (gender == 1)
        return "male";
    else
        return "female";
}

query_pronoun() {
    if (!gender)
        return "it";
    else if (gender == 1)
        return "he";
    else
        return "she";
}

query_possessive() {
    if (!gender)
        return "its";
    else if (gender == 1)
        return "his";
    else
        return "her";
}

query_objective() {
    if (!gender)
        return "it";
    else if (gender == 1)
        return "him";
    else
        return "her";
}

/*
 * Flags manipulations. You are not supposed to do this arbitrarily.
 * Every wizard can allocate a few bits from the administrator, which
 * he then may use. If you mainpulate bits that you don't know what they
 * are used for, unexpected things can happen.
 */
set_flag(n) {
    if (flags == 0)
        flags = "";
#ifdef LOG_FLAGS
    log_file("FLAGS", name + " bit " + n + " set\n");
    if (previous_object()) {
        if (this_player() && this_player() != this_object() &&
          query_ip_number(this_player()))
            log_file("FLAGS", "Done by " +
                     this_player()->query_real_name() + " using " +
                     file_name(previous_object()) + ".\n");
    }
#endif
    flags = set_bit(flags, n);
}

test_flag(n) {
    if (flags == 0)
        flags = "";
    return test_bit(flags, n);
}

clear_flag(n) {
    if (flags == 0)
        flags = "";
#ifdef LOG_FLAGS
    log_file("FLAGS", name + " bit " + n + " cleared\n");
    if (previous_object()) {
        if (this_player() && this_player() != this_object() &&
          query_ip_number(this_player()))
            log_file("FLAGS", "Done by " +
                     this_player()->query_real_name() + " using " +
                     file_name(previous_object()) + ".\n");
    }
#endif

    flags = clear_bit(flags, n);
    return 1;
}

query_stats() {
    return "str:\t" + Str +
          "\nint:\t" + Int +
          "\ncon:\t" + Con +
          "\ndex:\t" + Dex + "\n";
}

query_str() { return Str; }
query_int() { return Int; }
query_con() { return Con; }
query_dex() { return Dex; }

/* Note that previous object is 0 if called from ourselves. */
set_str(i) {
    if (i<1 || i > 20)
        return;
    Str = i;
}

set_int(i) {
    if (i<1 || i > 20)
        return;
    Int = i;
    max_sp = 42 + Int * 8;
}

set_con(i) {
    if (i<1 || i > 20)
        return;
    Con = i;
    max_hp = 42 + Con * 8;
}

set_dex(i) {
    if (i<1 || i > 20)
        return;
    Dex = i;
}