piggy.c

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

]);

//  indicate  who  collect  all.
string  FULL="";
string  *PIGHEAD=({});

mapping  CLAIM=([
"claimer":  "",
"east":  "no",
"west":  "no",
"north":  "no",
"south":  "no",
]);

//  possible  states:  "等人",  "等发牌",  "等卖牌",  "出牌",  "算分",  

mapping  TABLE=([
"cond":  "等人",
"east":([  "player_name":  "「空」",
	    "player_id":  "no  one",
	    "status":  "empty",
	    "collected":  ({}),
	    "sold":  ({}),
	    "card":  0,  ]),
"north":([  "player_name":  "「空」",
	    "player_id":  "no  one",
	    "status":  "empty",
	    "collected":  ({}),
	    "sold":  ({}),
	    "card":  0,  ]),
"west":([  "player_name":  "「空」",
	    "player_id":  "no  one",
	    "status":  "empty",
	    "collected":  ({}),
	    "sold":  ({}),
	    "card":  0,  ]),
"south":([  "player_name":  "「空」",
	    "player_id":  "no  one",
	    "status":  "empty",
	    "collected":  ({}),
	    "sold":  ({}),
	    "card":  0,  ]),
]);

mapping  SOLD=([
"pig":  ({"not"}),
"blood":  ({"not"}),
"sheep":  ({"not"}),
"doubler":  ({"not"}),
]);


object  HERE=this_object();

/******************************************************************************/
//  declare  functions.

object  find_me(string  dir);

string  treat_sold(string  sold,  int  cnt);
string  sold_display(string  dir,  int  index,  int  flag);
string  display_table(string  cond);
string  look_table();
string  read_rules();
string  look_hand();
string  look_collected();
string  check_collected(string  dir,  string  suit);
string  table_cond();
string  card_suit(string  arg);
string  search_my_dir(object  me);
string  display_suit(string  dir,  string  suit);
string  next_player(string  dir);
string  find_large();
string  display_score();
string  look_note();
string  display_sell();

void  finish_round();
void  renew(string  type);

int  score_player(string  dir);
int  card_numb(string  card);
int  card_rank(string  arg);
int  is_empty(string  dir);
int  is_my_card(object  me,  int  cardno);
int  is_sellable(int  cardno);
int  is_dir(string  dir);
int  is_suit(string  suit);
int  in_table(object  me);
int  is_playable(object  me,  int  cardno);
int  search_suit(object  me,  string  suit);
int  all_have(string  arg);
int  deal_cards(string  dir);
int  display_cards(object  player);

/******************************************************************************/
void  create  ()
{
        set("no_fight",1);
         set("no_steal",1);
         set("pingan",1);
         set("no_beg",1); 	
    set  ("short",  "拱猪房");
    set  ("long",  @LONG
这间房子是专门为了拱猪用而设的，整间屋子都是用不去皮的
松树搭成。一张石桌 (table)周围摆着四个石礅，桌面镶了一块大
理石，摸上去极为光滑。四壁挂着长明灯，把屋子照得有如白昼。
墙角里烧了一炉不知名的香，似乎颇有提神之效。香炉旁边挂着张
告示(gaoshi)，上面写着这里的规矩；桌上有张小纸条(note)，上
面草草的记着拱猪成绩。
LONG);

    set("exits",  ([
	"south":  __DIR__"club3",
    ])  );
    set("item_desc",  ([
	"table":	(:  look_table  :),
	"gaoshi":	(:  read_rules  :),
	"hand":		(:  look_hand  :),
	"collected":	(:  look_collected  :),
	"note":		(:  look_note  :),
    ])  );
    set("no_clean_up",  1);
    set("no_fight",  1);
    set("no_magic",  1);
    set("outdoors",  0);

    setup();
}
/******************************************************************************/
//  init,  add  action.

void  init()
{
        add_action("do_leave",  "leave");
        add_action("do_leave",  "likai");
        add_action("do_leave",  "离开");
        add_action("do_sit",  "sit");
        add_action("do_sit",  "zuo");
        add_action("do_sit",  "坐");
        add_action("do_deal",  "deal");
        add_action("do_deal",  "fapai");
        add_action("do_deal",  "发牌");
        add_action("do_sell",  "sell");
        add_action("do_sell",  "liang");
        add_action("do_sell",  "亮");
        add_action("do_pass",  "pass");
        add_action("do_pass",  "tingmai");
        add_action("do_pass",  "停卖");
        add_action("do_play",  "play");
        add_action("do_play",  "da");
        add_action("do_play",  "打");
        add_action("do_claim",  "claim");
        add_action("do_cast",  "cast");
        add_action("do_exert",  "exert");
        add_action("do_perform",  "perform");
        add_action("do_xiudao",  "xiudao");
        add_action("do_check",  "check");
        add_action("do_find",  "find");
        add_action("do_bian",  "bian");
        add_action("do_get",  "get");
        add_action("do_practice",  "practice");
        add_action("do_read",  "read");
        add_action("do_study",  "study");
        add_action("do_learn",  "learn");
        add_action("do_steal",  "steal");
        add_action("do_fight",  "fight");
        add_action("do_kill",  "kill");
        add_action("do_quit",  "quit");
        add_action("do_exercise",  "exercise");
        add_action("do_meditate",  "meditate");

        return;
}
/******************************************************************************/
int  valid_leave(object  me,  string  dir)
{
        if  (in_table(me))
	return  notify_fail("对不起，你现在在拱猪，就这么走掉不太好吧？\n");
        return  ::valid_leave(me,  dir);
}
int  do_quit(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里离开游戏，谢谢。\n");
        return  1;
}
int  do_steal(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里偷东西，谢谢。\n");
        return  1;
}
int  do_fight(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里打架，谢谢。\n");
        return  1;
}
int  do_kill(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里杀戮，谢谢。\n");
        return  1;
}
int  do_exercise(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里练功，谢谢。\n");
        return  1;
}
int  do_meditate(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里修炼，谢谢。\n");
        return  1;
}
int  do_get(string  arg)
{
        object  ob;
        string  thing,  person;

        sscanf(arg,  "%s  from  %s",  thing,  person);
        if  (!person)  person=arg;
        if  (ob=present(person,  this_object()))
	if(userp(ob))
	{
	        tell_object(this_player(),  "请不要占别人的便宜，谢谢。\n");
	        return  1;
	}
        return  0;
}
int  do_cast(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里施用法术，谢谢。\n");
        return  1;
}
int  do_exert(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里施用内功，谢谢。\n");
        return  1;
}
int  do_perform(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里施用外功，谢谢。\n");
        return  1;
}
int  do_xiudao(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里修道，谢谢。\n");
        return  1;
}
int  do_check(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里查别人的功夫，谢谢。\n");
        return  1;
}
int  do_find(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里查别人的踪迹，谢谢。\n");
        return  1;
}
int  do_bian(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里变来变去，谢谢。\n");
        return  1;
}
int  do_practice(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里练功，谢谢。\n");
        return  1;
}
int  do_read(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里读书，谢谢。\n");
        return  1;
}
int  do_study(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里读书，谢谢。\n");
        return  1;
}
int  do_learn(string  arg)
{
        tell_object(this_player(),  "请不要在拱猪房里学习，谢谢。\n");
        return  1;
}
/******************************************************************************/
int  is_suit(string  suit)
{

        if  (member_array(suit,  SUIT)  ==  -1)
	return  0;
        return  1;
}
int  is_dir(string  dir)
{

        if  (member_array(dir,  DIR)  ==  -1)
	return  0;
        return  1;
}
int  is_empty(string  dir)
{
        if(TABLE[dir]["player_id"]  ==  "no  one")
	return  1;
        if(!present(TABLE[dir]["player_id"],  HERE))
        {
	TABLE[dir]["player_id"]="no  one";
	return  1;
        }
        return  0;
}
int  is_my_card(object  me,  int  cardno)
{
        if(CARDS[cardno]["status"]  !=  search_my_dir(me))
	return  0;
        return  1;
}
object  search_dir(string  dir)
{
        return  present(TABLE[dir]["player_id"],  HERE);
}
string  card_suit(string  arg)
{
        string  card=capitalize(arg);

        switch  ((string)card[0..0])
        {
	case  "S":
	        return  "spade";
	case  "H":
	        return  "heart";
	case  "D":
	        return  "diamond";
	case  "C":
	        return  "club";
	default:
	        return  "花色错误：card_suit。\n";
        }
}
int  card_rank(string  card)
{
        int  i=strlen(card)-1;

        switch  ((string)card[i..i])
        {
	case  "2":
	        return  2;
	case  "3":
	        return  3;
	case  "4":
	        return  4;
	case  "5":
	        return  5;
	case  "6":
	        return  6;
	case  "7":
	        return  7;
	case  "8":
	        return  8;
	case  "9":
	        return  9;
	case  "T":
	case  "t":
	        return  10;
	case  "J":
	case  "j":
	        return  11;
	case  "Q":
	case  "q":
	        return  12;
	case  "K":
	case  "k":
	        return  13;
	case  "A":
	case  "a":
	        return  14;
	default:
	        return  notify_fail("无法理解输入的牌，"+card+"。请重新输入。\n");
        }
}
int  card_numb(string  card)
{
        int  base,  rank;
        string  suit;
        if  (!(suit=card_suit(card))  ||  !(rank=card_rank(card)))
	return  notify_fail("函数错误：card_numb。\n");
        switch  (suit)
        {
	case  "spade":
	        base=1;
	        break;
	case  "heart":
	        base=14;
	        break;
	case  "diamond":
	        base=27;
	        break;
	case  "club":
	        base=40;
	        break;
	default:
	        return  notify_fail("函数错误：card_numb。\n");
        }
        return  (base+15-rank);
}
int  is_sellable(int  cardno)
{
        switch(cardno)
        {
	case  3:
	case  14:
	case  30:
	case  44:
	        return  1;
	default:
	        return  0;
        }
}
/******************************************************************************/

int  is_playable(object  me,  int  cardno)
{
        string  dir=search_my_dir(me),  suit;

        if  (!is_my_card(me,  cardno))
        {
	tell_object(me,  "对不起，"+CARDS[cardno]["name"]+"不在你手里。\n");
	return  0;
        }
        if  (dir==GAMEINFO["rlead"])
	if  (!is_sellable(cardno))
	        return  1;
        suit=CARDS[cardno]["suit"];
        if  (suit  !=  GAMEINFO["suit"]
          &&  search_suit(me,  GAMEINFO["suit"]))
        {
	tell_object(me,  "对不起，你手中还有"+CSUIT[GAMEINFO["suit"]]+"，不能出"+CARDS[cardno]["name"]+"。\n");
	return  0;
        }
        if  (!GAMEINFO[CARDS[cardno]["suit"]]
          &&  is_sellable(cardno))
        {
	if  (SOLD[CARDS[cardno]["misc"]][0]  ==  "m"
                  &&  search_suit(me,  (GAMEINFO["suit"]  ==  ""?CARDS[cardno]["suit"]:GAMEINFO["suit"]))  >  1)
	{
	        tell_object(me,"对不起，明卖了的牌不能在本花色第一轮出。\n");
	        return  0;
	}
        }
        return  1;
}
int  in_table(object  me)
{
        int  i=NUM;
        string  id=me->query("id");

        while(i--)
        {
	if  (id  ==  TABLE[DIR[i]]["player_id"])
	{
	        me->set_temp("piggy/seating",  DIR[i]);
	        return  1;
	}
	continue;
        }
        return  0;
}

string  search_my_dir(object  me)
{
        int  i=NUM;
        string  id=me->query("id");

        while(i--)
        {
	if  (id  ==  TABLE[DIR[i]]["player_id"])
	        return  DIR[i];
	continue;
        }
        return  "none";
}
/******************************************************************************/
//  do_sit,  to  enter  the  table.

int  do_sit(string  dir)
{
        object  me=this_player(),  pl;

        if(!is_dir(dir))
	return  notify_fail("请选择「east、north、south  或  west」。\n");
        if(in_table(me))
	return  notify_fail("你已经在座了。请用「leave」站起来。\n");
        if  (!is_empty(dir))
	return  notify_fail(search_dir(dir)->query("name")+"正在"+CDIR[dir]+"边坐着呢，你还是等空位吧。\n");
        me->set_temp("piggy/seating",  dir);
        TABLE[dir]["player_id"]=me->query("id");
        TABLE[dir]["player_name"]=me->query("name");
        TABLE[dir]["status"]="filled";
        if  (all_have("players"))
	TABLE["cond"]="等发牌";
        message_vision("$N坐入了"+CDIR[dir]+"边的空位。\n",  me);
        return  1;
}
/******************************************************************************/
//  do_leave,  to  leave  the  table.

int  do_leave(string  arg)
{
        string  dir;
        object  me=this_player();

        if  (!in_table(me))
	return  notify_fail("对不起，你并没在拱猪桌边坐着。\n");
        dir  =  search_my_dir(me);
        if  (is_empty(dir)  ||  search_dir(dir)  !=  me)
	return  notify_fail("函数错误：do_leave。请告诉酸黄瓜。\n");
        me->delete_temp("piggy/seating",  dir);
        TABLE[dir]["status"]="empty";
        TABLE[dir]["player_name"]="「空」";