piggy2.c

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

/*  <SecCrypt CPL V3R05>  */
 
/******************************************************************************/
//  piggy  room,  test,  by  pickle.
//  1-17-98
/******************************************************************************/
//  inherit  and  include

#include  <ansi.h>
inherit  ROOM;

/******************************************************************************/
//  declare  global  variables.

//  cards  are  each  a  mapping  variable,  with  name,  status  (played?
//  in  hand?  on  table?  collected?),  worth,  misc  (pig?  sheep?  
//  blood?  doubler?).

mapping  *CARDS=({
([]),
([  "name":  HIB  "黑桃Ａ"  NOR,
	"suit":  "spade",
	"rank":  14,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃Ｋ"  NOR,
	"suit":  "spade",
	"rank":  13,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃Ｑ"  NOR,
	"suit":  "spade",
	"rank":  12,
	"status":  "undealt",
	"worth":  -10000,
	"misc":  "pig",
	]),
([  "name":  HIB  "黑桃Ｊ"  NOR,
	"suit":  "spade",
	"rank":  11,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃Ｔ"  NOR,
	"suit":  "spade",
	"rank":  10,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃９"  NOR,
	"suit":  "spade",
	"rank":  9,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃８"  NOR,
	"suit":  "spade",
	"rank":  8,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃７"  NOR,
	"suit":  "spade",
	"rank":  7,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃６"  NOR,
	"suit":  "spade",
	"rank":  6,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃５"  NOR,
	"suit":  "spade",
	"rank":  5,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃４"  NOR,
	"suit":  "spade",
	"rank":  4,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃３"  NOR,
	"suit":  "spade",
	"rank":  3,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "黑桃２"  NOR,
	"suit":  "spade",
	"rank":  2,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "红桃Ａ"  NOR,
	"suit":  "heart",
	"rank":  14,
	"status":  "undealt",
	"worth":  -5000,
	"misc":  "blood",
	]),
([  "name":  HIR  "红桃Ｋ"  NOR,
	"suit":  "heart",
	"rank":  13,
	"status":  "undealt",
	"worth":  -4000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃Ｑ"  NOR,
	"suit":  "heart",
	"rank":  12,
	"status":  "undealt",
	"worth":  -3000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃Ｊ"  NOR,
	"suit":  "heart",
	"rank":  11,
	"status":  "undealt",
	"worth":  -2000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃Ｔ"  NOR,
	"suit":  "heart",
	"rank":  10,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃９"  NOR,
	"suit":  "heart",
	"rank":  9,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃８"  NOR,
	"suit":  "heart",
	"rank":  8,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃７"  NOR,
	"suit":  "heart",
	"rank":  7,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃６"  NOR,
	"suit":  "heart",
	"rank":  6,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃５"  NOR,
	"suit":  "heart",
	"rank":  5,
	"status":  "undealt",
	"worth":  -1000,
	"misc":  "",
	]),
([  "name":  HIR  "红桃４"  NOR,
	"suit":  "heart",
	"rank":  4,
	"status":  "undealt",
	"worth":  -1,
	"misc":  "",
	]),
([  "name":  HIR  "红桃３"  NOR,
	"suit":  "heart",
	"rank":  3,
	"status":  "undealt",
	"worth":  -1,
	"misc":  "",
	]),
([  "name":  HIR  "红桃２"  NOR,
	"suit":  "heart",
	"rank":  2,
	"status":  "undealt",
	"worth":  -1,
	"misc":  "",
	]),
([  "name":  HIR  "方片Ａ"  NOR,
	"suit":  "diamond",
	"rank":  14,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片Ｋ"  NOR,
	"suit":  "diamond",
	"rank":  13,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片Ｑ"  NOR,
	"suit":  "diamond",
	"rank":  12,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片Ｊ"  NOR,
	"suit":  "diamond",
	"rank":  11,
	"status":  "undealt",
	"worth":  10000,
	"misc":  "sheep",
	]),
([  "name":  HIR  "方片Ｔ"  NOR,
	"suit":  "diamond",
	"rank":  10,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片９"  NOR,
	"suit":  "diamond",
	"rank":  9,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片８"  NOR,
	"suit":  "diamond",
	"rank":  8,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片７"  NOR,
	"suit":  "diamond",
	"rank":  7,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片６"  NOR,
	"suit":  "diamond",
	"rank":  6,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片５"  NOR,
	"suit":  "diamond",
	"rank":  5,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片４"  NOR,
	"suit":  "diamond",
	"rank":  4,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片３"  NOR,
	"suit":  "diamond",
	"rank":  3,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIR  "方片２"  NOR,
	"suit":  "diamond",
	"rank":  2,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花Ａ"  NOR,
	"suit":  "club",
	"rank":  14,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花Ｋ"  NOR,
	"suit":  "club",
	"rank":  13,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花Ｑ"  NOR,
	"suit":  "club",
	"rank":  12,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花Ｊ"  NOR,
	"suit":  "club",
	"rank":  11,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花Ｔ"  NOR,
	"suit":  "club",
	"rank":  10,
	"status":  "undealt",
	"worth":  5000,
	"misc":  "doubler",
	]),
([  "name":  HIB  "草花９"  NOR,
	"suit":  "club",
	"rank":  9,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花８"  NOR,
	"suit":  "club",
	"rank":  8,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花７"  NOR,
	"suit":  "club",
	"rank":  7,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花６"  NOR,
	"suit":  "club",
	"rank":  6,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花５"  NOR,
	"suit":  "club",
	"rank":  5,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花４"  NOR,
	"suit":  "club",
	"rank":  4,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花３"  NOR,
	"suit":  "club",
	"rank":  3,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
([  "name":  HIB  "草花２"  NOR,
	"suit":  "club",
	"rank":  2,
	"status":  "undealt",
	"worth":  0,
	"misc":  "",
	]),
});

int  CARDNO=sizeof(CARDS)-1;

//  these  two  are  for  updating  the  table  when  players  play  cards.
//  if  they  want  to  see  the  whole  thing,  show  FULL,  otherwise  show
//  SHORT,  difference  being  short  is  only  cards  on  table,  and  full
//  is  those  sold  and  those  played.

string  COLLECT_STATE  =  "
%s

　　　　　　　　　"+HIC+"%|12s"+NOR+"
　　　　　　　┌────────┐
　　　　　　　│　　　　　│
　　　　　　　│　　　　　　　　│
　　　　　　　│　　　　　　　　│
　"+HIC+"%+12s"+NOR+"│　　│"+HIC+"%-12s"+NOR+"
　　　　　　　│　　　　　　　　│
　　　　　　　│　　　　　　　　│
　　　　　　　│　　　　　│
　　　　　　　└────────┘
　　　　　　　　　"+HIC+"%|12s"+NOR+"

";

string  PIGSTATE_FULL  =  "
%s

　　　　　　　　　　"+HIC+"%|12s"+NOR+"
　　　　　　　　┌────────┐
　　　　　　　　│%s│
　　　　　　┌─┼────────┼─┐
　　　　　　│%2s│　　  %6s  　　│%2s│
　　　　　　│　│　　　　　　　　│　│
　　　　　　│%2s│　　　　　　　　│%2s│
"+HIC+"%+12s"+NOR+"│　│%6s　　%6s│　│"+HIC+"%-12s"+NOR+"
　　　　　　│%2s│　　　　　　　　│%2s│
　　　　　　│　│　　　　　　　　│　│
　　　　　　│%2s│　　  %6s  　　│%2s│
　　　　　　└─┼────────┼─┘
　　　　　　　　│%s│
　　　　　　　　└────────┘
　　　　　　　　　　"+HIC+"%|12s"+NOR+"

";

string  PIGSTATE_SHORT  =  "
%s

　　　　　　　　　"+HIC+"%|12s"+NOR+"
　　　　　　　┌────────┐
　　　　　　　│　　  %6s  　　│
　　　　　　　│　　　　　　　　│
　　　　　　　│　　　　　　　　│
　"+HIC+"%+12s"+NOR+"│%6s　　%6s│"+HIC+"%-12s"+NOR+"
　　　　　　　│　　　　　　　　│
　　　　　　　│　　　　　　　　│
　　　　　　　│　　  %6s  　　│
　　　　　　　└────────┘
　　　　　　　　　"+HIC+"%|12s"+NOR+"

";

string*  DIR=({  "east",  "north",  "west",  "south",});
string*  SUIT=({"spade",  "heart",  "diamond",  "club",});
int  LIMIT  =  -5000;
mapping  CSUIT=([
"spade":  HIB"黑桃"NOR,
"heart":  HIR"红桃"NOR,
"diamond":  HIR"方片"NOR,
"club":  HIB"草花"NOR,
]);

mapping  CDIR  =  ([
"east"  :  "东",
"north":  "北",
"west"  :  "西",
"south":  "南",
]);

mapping  SCARD=([
"pig":  HIB,
"blood":  HIR,
"sheep":  HIR,
"doubler":  HIB,
]);
mapping  NCARD=([
"pig":  3,
"blood":  14,
"sheep":  30,
"doubler":  44,
]);
mapping  CCARD=([
"pig":  "猪（"+HIB+"黑桃Ｑ"+NOR+"）",
"sheep":  "羊（"+HIR+"方片Ｊ"+NOR+"）",
"doubler":  "变压器（"+HIB+"草花Ｔ"+NOR+"）",  
"blood":  "血（"+HIR+"红桃Ａ"+NOR+"）",
]);

string  *CNUM  =  ({"？",  "１",  "２",  "３",  "４",  "５",  "６",
"７",  "８",  "９",  "Ｔ",  "Ｊ",  "Ｑ",  "Ｋ",  "Ａ",  });

int  NUM  =  4;
/******************************************************************************/
//  following  will  change.

//  game  info...

mapping  GAMEINFO=([
"round":  0,
"rlead":"",
"next":"",
"suit":"",
"spade":  0,
"heart":  0,
"diamond":  0,
"club":  0,
]);

string  PIG_OWNER="";

mapping  SCORING=([
"sitting":  ([      "east":  0,
		"west":  0,
		"south":  0,
		"north":  0,  ]),
"hand"      :  ([      "east":  0,
		"west":  0,
		"south":  0,
		"north":  0,  ]),