petowner.c

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

#include <ansi.h>
inherit NPC;
int check_legal_name(string arg);
int check_legal_id(string arg);

void create()
{
        set_name("火鹰", ({ "hawk" }) );
       set("title",HIR"大漠飞鹰"NOR); 
	set("gender", "男性" );
        set("no_get",1);
        set("age", 22);
        set("long","他长着一个高高的鼻梁，身材高大威武，他身边有个箩筐，如果你有兴趣，你可以向他养（ｙａｎｇ）宠物\n");
        set("combat_exp", 5000000);
  	 set("str",1000);
	
        set("attitude", "friendly");
        setup();
        carry_object("/clone/cloth/cloth")->wear();

}

void init()
{	
        object ob;
        ::init();
	if (interactive(ob = this_player()))
{
        if( interactive(ob = this_player()) && !is_fighting() ) {
                remove_call_out("greeting");
                call_out("greeting", 0, ob);
        }
}
        add_action("do_yang", "yang");
	add_action("do_return","return");

}

void greeting(object ob)
{
        if( !ob || environment(ob) != environment() ) return;
        switch( random(5) ) {
                case 0:
                        say( "火鹰说道：这位" + RANK_D->query_respect(ob)
                                + "，要买宠物么？\n");
                        break;
                case 1:
                        say( "火鹰说道：这位" + RANK_D->query_respect(ob)
                                + "，你太凶了，离我的宝贝们远点。\n");
                        break;
        }
}

int do_yang(string arg)
{
	string ctype, cname, ccolor, cid;
	object ob, me, gold;
	string id,filename;
	object newpet;
        me = this_player();
	id = me->query("id");
        if(!arg || sscanf(arg,"%s %s %s %s",ctype,ccolor,cname,cid ) != 4)
        return notify_fail("指令格式：yang <type> <color> <name> <english name>\n");
	if(me->is_busy())
	return notify_fail("你上一个动作还没有完成。\n");
	if(me->query("marks/pet") > 0)
	return notify_fail("你已经拥有你心爱的宠物了。\n");
	gold = present("gold", this_player());
        if(!gold) return notify_fail("你身上没有金子。\n");
        if((int) gold->query_amount() < 200)
        return notify_fail("你身上没有那麽多金子。\n");
	if((int)me->query("score") < 100)
	return notify_fail("你的评价不够。\n");
	if( !check_legal_name(cname))
	return notify_fail("");
        if( !check_legal_id(cid))
        return notify_fail("");

	if( ccolor != "$BLK$" && 
	    ccolor != "$NOR$" &&
            ccolor != "$RED$" &&
            ccolor != "$GRN$" &&
            ccolor != "$YEL$" &&
            ccolor != "$BLU$" &&
            ccolor != "$MAG$" &&
            ccolor != "$CYN$" &&
            ccolor != "$WHT$" &&
            ccolor != "$NOR$" &&
            ccolor != "$HIR$" &&
            ccolor != "$HIG$" &&
            ccolor != "$HIY$" &&
            ccolor != "$HIB$" &&
            ccolor != "$HIM$" &&
            ccolor != "$HIC$" &&
            ccolor != "$HIW$" 
	)
	return notify_fail("不知你要什么颜色．\n");
	cname = ccolor + cname;
        cname = replace_string(cname, "$BLK$", BLK);
        cname = replace_string(cname, "$RED$", RED);
        cname = replace_string(cname, "$GRN$", GRN);
        cname = replace_string(cname, "$YEL$", YEL);
        cname = replace_string(cname, "$BLU$", BLU);
        cname = replace_string(cname, "$MAG$", MAG);
        cname = replace_string(cname, "$CYN$", CYN);
        cname = replace_string(cname, "$WHT$", WHT);
        cname = replace_string(cname, "$HIR$", HIR);
        cname = replace_string(cname, "$HIG$", HIG);
        cname = replace_string(cname, "$HIY$", HIY);
        cname = replace_string(cname, "$HIB$", HIB);
        cname = replace_string(cname, "$HIM$", HIM);
        cname = replace_string(cname, "$HIC$", HIC);
        cname = replace_string(cname, "$HIW$", HIW);
        cname = replace_string(cname, "$NOR$", NOR);
        cname += NOR;
	seteuid(ROOT_UID);
	newpet = new("/clone/npc/pet");	
	switch( ctype ) {
                 case "dog":
			newpet->set("title","小狗");
			newpet->set("int",5+random(10));
                        break;
                case "cat":
		        newpet->set("title","小猫");
                        newpet->set("per",5+random(10));
                        break;
                case "pig":
                        newpet->set("title","小猪");
                        newpet->set("str",5+random(10));
                        break;
                case "monkey":
                        newpet->set("title","小猴");
                        newpet->set("kar",5+random(10));
                        break;
                case "hen":
                        newpet->set("title","小鸡");
                        newpet->set("con",5+random(10));
                        break;
                case "hawk":
                        newpet->set("title","小鹰");
                        newpet->set("dex",5+random(10));
                        break;
		default:
			return notify_fail("这里不没有你要的东西．\n");
	}
	newpet->set("owner",me->query("id"));
	newpet->set("possessed",me);
	newpet->set("name",cname);
	newpet->set("id","pet "+cid);
	newpet->save();
	destruct(newpet);
	gold->add_amount(-200);
	me->add("score",-100);
        me->start_busy(1);
	me->set("marks/pet",1);
	command("say 你试着吹一声口哨（ｗｈｉｓｔｌｅ），你的小宝宝就会跑过来的！\n");
        seteuid(getuid());
	return 1;
}
int check_legal_name(string name)
{
        int i;
        i = strlen(name);
        if( (strlen(name) < 2) || (strlen(name) > 40 ) ) {
                write("对不起，中文名字必须是一到二十个中文字。\n");
                return 0;
        }
        while(i--) {
                if( name[i]<=' ' ) {
                        write("对不起，中文名字不能用控制字元。\n");
                        return 0;
                }
                if( i%2==0 && !is_chinese(name[i..<0]) ) {
                        write("对不起，名字必需是中文。\n");
                        return 0;
                }
        }
        return 1;
}

int check_legal_id(string name)
{
        int i;
        i = strlen(name);
        if( (strlen(name) < 3) || (strlen(name) > 20 ) ) {
                write("对不起，英文名字必须是三到二十个字。\n");
                return 0;
        }

	return 1;
}
int do_return()
{object me;string file;
me=this_player();
	if(me->is_busy())
	return notify_fail("你上一个动作还没有完成。\n");
	//if(me->query("marks/pet") < 1)
	//return notify_fail("你没有自己的宠物了。\n");
	me->delete("marks/pet");
	seteuid(ROOT_UID);
	file = "/data/user/t/tiandi.pet.o";
	rm(file);
	seteuid(getuid());
	 write("ＯＫ\n");
return 1;
}	
void unconcious()
{
    die();
}