海洋2mud游戏源码

//bobing.c -搏饼屋 #include <room.h> #include <ansi.h> inherit ROOM; int Maxperson,minperson; int allow_leave,allow_start; int Max1,Max2,Max3,Max4,Max5,Max6; int Realmode; object* member,leader,dutang1,dutang2,winner; string roomname; int add_member(object ob); int delete_member(object ob); int query_member(object ob); void do_yao(); string getit(object,int,int,string); string checkcolor(int); int countit( int,int,int,int,int,int,int); int pass_token(int,int); int startreal(); int stopreal(); int givegift(); int qianbing(object,int); void create() { Maxperson=10; minperson=2; allow_leave=1; allow_start=0; Max1=32;//一秀的个数 Max2=16;//二举的个数 Max3=8; //四进的个数 Max4=4; //三红的个数 Max5=2; //对堂的个数 Max6=1; //状元的个数 Realmode=0; roomname="搏饼屋"; set("no_fight","1"); set("no_magic","1"); set("no_steal","1"); set("no_beg","1"); set("short","搏饼屋"); set("long", @LONG 这是一间古朴典雅的的搏饼屋。房间的装修充满了盛明时候的风味，满屋子 的琳琅玉石衬着柔和的光线，洋溢着温馨的气氛，真是个温暖而热闹的地方。房 间的四周点着一溜松明子，中间一张楠木桌，大家都席地而坐 (sit)，看着桌面 上一个大海碗，碗里面滴溜溜转着六颗玉制的骰子！南边的墙上贴着一张发黄的 陈纸(paper)。 LONG); set("item_desc", ([ "paper" : "介绍和命令请 help bobing。\n", ])); set("objects",([ __DIR__"npc/dog":1, ])); set("exits", ([ "north" : __DIR__"duchang", ])); set("no_clean_up",1); setup(); } void init() { add_action("fsit","sit"); add_action("fleave","leave"); add_action("fleader","leader"); add_action("fview","view"); add_action("fyao","throw"); add_action("startreal","start"); add_action("stopreal","stop"); } int fleader(string id) { int i; object ob; ob=this_player(); if (ob->query("id") == "java" || ob->query("id") == "solomon") { if (arrayp(member)) { for (i=0;i<sizeof(member);i++) { if (member[i]->query("id")==id) { leader=member[i]; tell_room(environment(leader),"现在轮到"+ leader->query("name")+"掷了。\n"); return 1; } } notify_fail("这个人不在这里搏饼\n"); } else notify_fail("没人在这搏饼\n"); } else return 0; } int startreal() { int i; object ob; object* pl; ob=this_player(); // if (wizardp(ob)) if (ob->query("id") == "java" || ob->query("id") == "solomon") { Realmode=1; pl=users(); message("vision",HIY+ob->query("name")+"宣布："+roomname+ "正式开放，奖品立即兑现！\n"NOR,pl); if (arrayp(member)) { for (i=0;i<sizeof(member);i++) { member[i]->set_temp("bobing/g1",0); member[i]->set_temp("bobing/g2",0); member[i]->set_temp("bobing/g3",0); member[i]->set_temp("bobing/g4",0); member[i]->set_temp("bobing/g5",0); member[i]->set_temp("bobing/g6",0); member[i]->set_temp("bobing/dest",""); member[i]->set_temp("bobing/maxaward",0); member[i]->set_temp("bobing/maxscore",0); } } Max1=32;//一秀的个数 Max2=16;//二举的个数 Max3=8; //四进的个数 Max4=4; //三红的个数 Max5=2; //对堂的个数 Max6=1; //状元的个数 return 1; } return 0; } int stopreal() { int i; object ob; object* pl; ob=this_player(); // if (wizardp(ob)) if (ob->query("id") == "java" || ob->query("id") == "solomon") { pl=users(); Max1=32;//一秀的个数 Max2=16;//二举的个数 Max3=8; //四进的个数 Max4=4; //三红的个数 Max5=2; //对堂的个数 Max6=1; //状元的个数 if (Realmode==1) { message("vision", HIY+ob->query("name")+"宣布："+roomname+ "兑奖已结束，下次努力了！\n"NOR,pl); givegift(); //分饼 Realmode=0; if (arrayp(member)) { for (i=0;i<sizeof(member);i++) { member[i]->set_temp("bobing/g1",0); member[i]->set_temp("bobing/g2",0); member[i]->set_temp("bobing/g3",0); member[i]->set_temp("bobing/g4",0); member[i]->set_temp("bobing/g5",0); member[i]->set_temp("bobing/g6",0); member[i]->set_temp("bobing/dest",""); member[i]->set_temp("bobing/maxaward",0); member[i]->set_temp("bobing/maxscore",0); } } } return 1; } return 0; } int givegift() { object ob; int i; int j; int num; if (!arrayp(member)||sizeof(member)==0) notify_fail("没人在这搏饼，就别分啦。\n"); else { for (i=0;i<sizeof(member);i++) { num=member[i]->query_temp("bobing/g1"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing1"); ob->set_amount(1); ob->move(member[i]); } } num=member[i]->query_temp("bobing/g2"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing2"); ob->set_amount(num); ob->move(member[i]); } } num=member[i]->query_temp("bobing/g3"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing3"); ob->set_amount(num); ob->move(member[i]); } } num=member[i]->query_temp("bobing/g4"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing4"); ob->set_amount(num); ob->move(member[i]); } } num=member[i]->query_temp("bobing/g5"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing5"); ob->set_amount(num); ob->move(member[i]); } } num=member[i]->query_temp("bobing/g6"); if (num>0) { for (j=0;j<num;j++) { ob=new(__DIR__"obj/bing6"); ob->set_amount(num); ob->move(member[i]); } } } return 1; } } int pass_token(int index,int passmode) { int me,i,passok; me=index-1; allow_leave=0; passok=0; if (passmode==0) { for (i=0;i<sizeof(member)-1;i++) { index=index+i; if (index>=sizeof(member)) index=index-sizeof(member); if (interactive(member[index])) { passok=1; leader=member[index]; break; } } if ((!passok)||(sizeof(member)<minperson)) { allow_start=0; tell_room(environment(leader),"陪你玩的人还不够，等人来了吧。\n"); } else tell_room(environment(leader),"现在轮到"+ leader->query("name")+"掷了。\n"); } if (passmode==1) { if (index>=sizeof(member)) index=index-sizeof(member); passok=1; leader=member[index]; } allow_leave=1; } int fyao() { objec