char.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 189 行

// char.c

//#pragma save_binary

#include <action.h>
#include <ansi.h>
#include <command.h>
#include <condition.h>
#include <dbase.h>
#include <move.h>
#include <name.h>
#include <skill.h>
#include <team.h>
#include <user.h>

inherit F_ACTION;
inherit F_ALIAS;
inherit F_APPRENTICE;
inherit F_ATTACK;
inherit F_ATTRIBUTE;
inherit F_COMMAND;
inherit F_CONDITION;
inherit F_DAMAGE;
inherit F_DBASE;
inherit F_EDIT;
inherit F_FINANCE;
inherit F_MESSAGE;
inherit F_MORE;
inherit F_MOVE;
inherit F_NAME;
inherit F_SKILL;
inherit F_TEAM;
//inherit F_COMPETE;

// Use a tick with longer period than heart beat to save cpu's work
static int tick;

void create()
{
	seteuid(0); // so LOGIN_D can export uid to us
}

// Use this function to identify if an object is a character.
int is_character() { return 1; }

// setup: used to configure attributes that aren't known by this_object()
// at create() time such as living_name (and so can't be done in create()).
void setup()
{
	seteuid(getuid(this_object()));

	set_heart_beat(1);
	tick = 5 + random(10);
	enable_player();
	CHAR_D->setup_char( this_object() );
}

void heart_beat()
{
	int t;
        int period;
	int wimpy_ratio, cnd_flag;
	mapping my;
	object ob;
	object me;
	string prompt;
	int is_player;

	me = this_object();
	my = query_entire_dbase();

	// If we are dying because of mortal wounds?
	if( my["eff_qi"] < 0 || my["eff_jing"] < 0) {
		remove_all_enemy();
		die();
		return;
	}

	// If we're dying or falling unconcious?
	if( my["qi"] < 0 || my["jing"] < 0) {
		remove_all_enemy();
		if( !living(this_object()) ) die();
		else unconcious();
		return;
	}

	// Do attack if we are fighting.
		continue_action();
	if( is_busy() ) {
		// halt from healing
		if (query_temp("qi_heal") && is_fighting() && !userp(this_object()))
                    this_object()->interrupt_me();
                    
		// We don't want heart beat be halt eventually, so return here.
		return;
	} else {
		// Is it time to flee?
		if( is_fighting()
		&&	intp(wimpy_ratio = (int)query("env/wimpy"))
		&&	wimpy_ratio > 0
		&&	(	my["qi"] * 100 / my["max_qi"] <= wimpy_ratio
			||	my["jing"] * 100 / my["max_jing"] <= wimpy_ratio) )
			GO_CMD->do_flee(this_object());
		// Do attack or clean up enemy if we have fleed.
		attack();
	}
	if (query("szj/passed") && query("szj/over200") && is_fighting() && !random(3)
	&& (int)query_skill("shenzhao-jing", 1) > 100) {
		if (my["max_neili"] && my["neili"] < my["max_neili"] * 3 / 2
		&& random(2)==0) {
			tell_object(this_object(), MAG"你体内日月之力运转不息，使你感觉内力更充盈！\n"NOR);
			my["neili"] += query_skill("shenzhao-jing", 1) / 2 + random(query_skill("shenzhao-jing", 1));
			if( my["neili"] > my["max_neili"] * 3 / 2) my["neili"] = my["max_neili"] * 3 / 2;
		}
	}

    if (!this_object()) return;
	if( !userp(this_object()) && living(this_object())  ) {
		this_object()->chat();
		// chat() may do anything -- include destruct(this_object())
	}

	if( tick--  ) return;
	else tick = 5 + random(10);

	if( !this_object() ) return;
	cnd_flag = update_condition();
	if( !this_object() ) return;

	// If we are compeletely in peace, turn off heart beat.
	// heal_up() must be called prior to other two to make sure it is called
	// because the && operator is lazy :P
	if( (cnd_flag & CND_NO_HEAL_UP) || !heal_up());
        if (! cnd_flag &&
            ! is_fighting() &&
	    ! is_busy() &&
            ! interactive(this_object()))
        {
                if (environment() && query("chat_msg"))
                {
                        ob = first_inventory(environment());
                        while (ob && ! interactive(ob))
                                ob = next_inventory(ob);
                } else
                        ob = 0;
                if (! ob) set_heart_beat(0);
        }

        if (! me ) return;

	if( !interactive(this_object()) ) return;

	// Make us a bit older. Only player's update_age is defined.
	// Note: update_age() is no need to be called every heart_beat, it
	//       remember how much time has passed since last call.
	this_object()->update_age();

	if(query_idle(this_object()) > IDLE_TIMEOUT)// && !wizardp(this_object()))
		this_object()->user_dump(DUMP_IDLE);
}

int visible(object ob)
{
	int lvl, invis;

// Modified by Doing Lu 1998/11/7
// Optimize for speed
	if (!userp(this_object())) return 1;
// Finish

	if(wizardp(ob))
	{
		lvl = wiz_level(this_object());
		if( lvl > wiz_level(ob) ) return 1;
		invis = (int)ob->query("env/invisibility");
		if( intp(invis) && (invis > lvl) ) return 0;
	}
/*
	if( ob->is_ghost() )
	{
		if( is_ghost() ) return 1;
		if( query_temp("apply/astral_vision") ) return 1;
		return 0;
	}
*/
	return 1;

}