matou.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// Room: /guiyun/matou.c
// Date: Nov.18 1998 by Winder
#include <ansi.h>
inherit ROOM;

void check_trigger();
void on_board();
void arrive();
void close_passage();
int do_yell(string arg);
void reset();

void create()
{
	set("short", "码头");
	set("long", @LONG
这是一个在江南水乡极常见的码头，由粗糙的大青条石搭成。
北面似乎有一个极大的庄院。靠岸停有一艘大渔船(ship)，大篷斜
挂，风帆大张，看那样子不是为了出湖，倒象是征战用的。
LONG );
        set("outdoors", "guiyun");
//	set("no_clean_up", 0);
	set("item_desc", ([
		"ship" : "这是太湖水盗劫富济贫的战船。上去(shang ship)就出发。\n",
	]));
	set("exits", ([
		"north"     : __DIR__"damen",
	]));
	setup();
}
void init()
{
	add_action("do_yell", "yell");
	add_action("do_shang", "shang");
}

/*在此付钱摆渡或买鱼吃*/
/*（等）渡船靠了岸，付了钱，船家一声吆喝，客人们一涌
 * 而入，小小渡船片刻间便越过波澜涛涛的汉江，靠上北岸
 */

void check_trigger()
{
    object room;

    if(!query("exits/enter") ) {
        if( !(room = find_object(__DIR__"duchuan")) )
            room = load_object(__DIR__"duchuan");
        if( room = find_object(__DIR__"duchuan") ) {
            if((int)room->query("yell_trigger")==0 ) {
                room->set("yell_trigger", 1);
                set("exits/enter", __DIR__"duchuan");
                room->set("exits/out", __FILE__);
                message("vision", "一叶扁舟缓缓地驶了过来，艄公将一块踏脚"
                    "板搭上堤岸，以便乘客\n上下。\n", this_object() );
                message("vision", "艄公将一块踏脚板搭上堤岸，形成一个向上"
                    "的阶梯。\n", room);
                remove_call_out("on_board");
                call_out("on_board", 15);
            }
            else
                message("vision", "只听得湖面上隐隐传来：“别急嘛，"
                    "这儿正忙着呐……”\n",this_object() );
        }
        else
            message("vision", "ERROR: boat not found\n", this_object() );
    }
    else 
        message("vision", "岸边一只渡船上的老艄公说道：正等着你呢，上来吧。\n",
            this_object() );
}


void on_board()
{
    object room;

    if( !query("exits/enter") ) return;

    message("vision", "艄公把踏脚板收了起来，竹篙一点，扁舟向湖心驶去。\n",
        this_object() );

    if( room = find_object(__DIR__"duchuan") )
    {
        room->delete("exits/out");
        message("vision", "艄公把踏脚板收起来，说了一声“坐稳喽”，"
            "竹篙一点，扁舟向\n湖心驶去。\n", room );
    }
    delete("exits/enter");

    remove_call_out("arrive");
    call_out("arrive", 20);
}

void arrive()
{
    object room;
    if( room = find_object(__DIR__"duchuan") )
    {
        room->set("exits/out", __DIR__"taihu");
        message("vision", "艄公说“到啦，上岸吧”，随即把一块踏脚板"
            "搭上堤岸。\n",room );
    }
    remove_call_out("close_passage");
    call_out("close_passage", 20);
}

void close_passage()
{
    object room;
    if( room = find_object(__DIR__"duchuan") ) {
        room->delete("exits/out");
        message("vision","艄公把踏脚板收起来，把扁舟驶向湖心。\n", room);
        room->delete("yell_trigger"); 
    }
}

int do_yell(string arg)
{
    string dir;

    if( !arg || arg=="" ) return 0;

    if( arg=="boat" ) arg = "船家";
    if( (int)this_player()->query("age") < 16 )
        message_vision("$N使出吃奶的力气喊了一声：“" + arg + "”\n",
            this_player());
    else if( (int)this_player()->query("neili") > 500 )
        message_vision("$N吸了口气，一声“" + arg + "”，声音中正平和地远远传"
            "了出去。\n", this_player());
    else
        message_vision("$N鼓足中气，长啸一声：“" + arg + "！”\n",
            this_player());
    if( arg=="船家")
    {
        check_trigger();
        return 1;
    }
    else
        message_vision("湖面上远远传来一阵回声：“" + arg +
            "～～～”\n", this_player());
    return 1;
}

void reset()
{
    object room;

    ::reset();
    if( room = find_object(__DIR__"duchuan") )
        room->delete("yell_trigger"); 
}

int do_shang ( string arg )
{
    object ob ;
    string dir;
    if( !arg || arg !="ship" ) 
    {
         tell_object(this_player() , "你要 enter 哪儿？\n" ) ;
         return 1 ;
    }
    ob = this_player () ;
    message_vision("船上群盗一见$N上船，忙叫了一声：首领来了，开船喽！杀金狗去！\n", ob);
    message_vision("船上升起帆，船就向湖中航行。\n", ob);
    ob ->move("/d/guiyun/ship") ;
    tell_object(ob, CYN "你率船在湖上破浪前行，战旗猎猎.......\n" NOR ) ;
    call_out("rjinbing", 10 , ob );
    return 1 ;
}
void rjinbing( object ob )
{
    object ship, jinship,guan;
    if(!( ship = find_object("/d/guiyun/ship")) )
          ship = load_object("/d/guiyun/ship");
    if(!( jinship = find_object("/d/guiyun/jinship")) )
          jinship = load_object("/d/guiyun/jinship");
    if(!( guan = find_object("/d/guiyun/guan")) )
          guan = load_object("/d/guiyun/guan");

    tell_object(ob , "战船在一阵阵喊杀声中撞上了另一艘大船。\n" ) ;
    ship->set("exits/out", "/d/guiyun/jinship" );
    jinship->set("exits/out", "/d/guiyun/ship" );
    if (ob->query("taohuajob") == 1) {
    ship->set("exits/out", "/d/guiyun/guan" );
    guan->set("exits/out", "/d/guiyun/ship" );
    }
}