|
|
各位大神你们好，我的情况是这样的：
我站有一个扬州赌场，赌场内有一个斗鸡室可供玩家押金下注 。那个bug 的问题就是当一只鸡杀死另一只鸡的时候，就卡死stop啦～！斗鸡室内评判不懂cleanup 鸡的尸体，也不会发回玩家下注的金，更不会开始下一回合的斗鸡 。
我站的巫师试过不同的方法，可是也没法修好。他说原作者的源码callout function 写的很复杂， 他也不知怎改好，所以发出来希望各大神可以帮帮忙，万分感激～！
斗鸡室的源码是xkx100 2005的，在此附上源码：
// Room: /d/city/doujiroom.c
// Last modified by winder 2002.11.11
inherit ROOM;
int room_status = 0;
object hg_ji = 0;
object lw_ji = 0;
mapping jis = ([
"hg" : "红冠鸡",
"lw" : "绿尾鸡",
]);
int random2 (int i)
{
return (random(i)+uptime()) % i;
}
void create()
{
set("short", "斗鸡房");
set("long", @LONG
斗鸡房里一左一右放着两个青竹鸡笼，一个鸡笼里关着一群红冠鸡，
另一个鸡笼里关着一群绿尾鸡。屋子正中是七尺见方的斗鸡场，由一圈
低低的青玉栏杆围成。一位白髯鸡仙正在张罗着斗鸡。在他的后面墙上
有一个牌子(paizi)。
LONG);
set("item_desc",([
"paizi" : "押红冠鸡： dou hg <amount> <money>\n押绿尾鸡： dou lw <amount> <money>\n",
]));
set("objects", ([ /* sizeof() == 1 */
__DIR__"npc/jixian" : 1,
]));
set("exits", ([ /* sizeof() == 1 */
"east" : __DIR__"youxiting",
]));
set("no_ansuan", 1);
set("no_guard", 1);
set("coor/x", -5030);
set("coor/y", 1020);
set("coor/z", 10);
setup();
}
void init ()
{
add_action ("do_dou","dou");
add_action ("do_bian","bian");
add_action ("do_fight","fight");
add_action ("do_fight","hit");
add_action ("do_steal","steal");
add_action ("do_kill","kill");
add_action ("do_ji","ji");
add_action ("do_exert","exert");
add_action ("do_perform","perform");
if (room_status > 0) return;
remove_call_out ("gamble_prepare");
remove_call_out ("gamble_start");
remove_call_out ("gamble_perform");
remove_call_out ("gamble_finish");
call_out ("gamble_prepare",2);
room_status = 1;
}
int do_dou (string arg)
{
object ob, me = this_player();
string what, money;
int amount;
if (! arg || sscanf (arg,"%s %d %s",what,amount,money) != 3)
return notify_fail("请使用： dou <押鸡种类> <数目> <货币>\n");
if (what != "hg" && what != "lw")
return notify_fail("你要押什么样的鸡？\n");
ob = present(money+"_money", me);
if (! ob) return notify_fail("你身上没有这种货币。\n");
if (amount < 1) return notify_fail("请多押一些钱。\n");
if (amount > ob->query_amount())
return notify_fail("你身上的钱不够押。\n");
if (amount * (ob->query("base_value")) > 10000 )
return notify_fail("你想豪赌啊，拜托！官兵就上来了。\n");
if (me->query_temp ("gamble_ji/amount") > 0)
return notify_fail("你已经押过了。\n");
if (room_status > 1)
return notify_fail("现在正在斗鸡呢，稍等片刻。\n");
me->set_temp("gamble_ji/kind",what);
me->set_temp("gamble_ji/amount",amount);
me->set_temp("gamble_ji/money",money);
message_vision (sprintf("$N拿出%s%s%s往青玉栏杆上一放，押在%s上。\n",
chinese_number(amount), ob->query("base_unit"),
ob->query("name"), jis[what]), me);
if (amount == ob->query_amount()) destruct (ob);
else ob->add_amount(-amount);
return 1;
}
int valid_leave(object me, string dir)
{
if (dir == "south")
{
if (me->query_temp ("gamble_ji/amount") > 0)
message_vision ("$N扔下押鸡的钱不要了。\n",me);
me->delete_temp("gamble_ji");
}
return ::valid_leave(me,dir);
}
void gamble_prepare ()
{
object room = this_object();
int i;
object *obs;
int sta;
obs = all_inventory(room);
sta = 0;
for (i=0;i<sizeof(obs);i++)
{
if (userp(obs))
{
sta = 1;
break;
}
}
if (sta == 0 )
{
room_status = 0;
return ;
}
tell_room (room,"白髯鸡仙从左右鸡笼里各拿出一只红冠鸡和一只绿尾鸡。\n");
hg_ji = new("/d/changan/npc/douji");
hg_ji->set("name","红冠鸡");
hg_ji->move(room);
lw_ji = new("/d/changan/npc/douji");
lw_ji->set("name","绿尾鸡");
lw_ji->move(room);
tell_room (room,"白髯鸡仙说：好，可以押钱了，一赢二。\n");
room_status = 1;
call_out ("gamble_start",20);
}
void gamble_start ()
{
object room = this_object();
tell_room (room,"白髯鸡仙说声：停押，斗鸡。\n");
tell_room (room,"然后将两只鸡抱起，拿出铁啄熟练地安上，把鸡放进栏内。\n");
room_status = 2;
hg_ji->kill_ob(lw_ji);
lw_ji->kill_ob(hg_ji);
call_out ("gamble_perform",1);
}
object present_ji (object room)
{
object *list = all_inventory(room);
int i;
i = sizeof(list);
while (i--)
{
if (userp(list)) continue;
// if (list->id("ji")) return list;
if (list->is_douji()) return list;
}
}
void gamble_perform ()
{
object ji, room = this_object();
if (! living(hg_ji)) hg_ji->die();
if (! living(lw_ji)) lw_ji->die();
ji = present_ji (room);
// 这样判断对两只鸡不公平
// 鸡甲只需要打鸡乙到15气以下就能赢
// 鸡乙必须把鸡甲打死才行
if (ji && ji->is_fighting())
{
remove_call_out ("gamble_perform");
call_out ("gamble_perform",1);
return;
}
if (ji->query("qi")<15)
{
ji->unconcious();
ji->die();
}
call_out ("gamble_finish",1);
}
void player_wins (object who, int total)
{
object money = new ("/clone/money/"+who->query_temp("gamble_ji/money"));
int amount = who->query_temp("gamble_ji/amount");
total = total * amount;
money->set_amount(total);
message_vision (sprintf("$N赢了%s%s%s！\n",
chinese_number(total), money->query("base_unit"),
money->query("name")), who);
money->move(who);
}
void player_loses (object who, int total)
{
object money = new("/clone/money/"+who->query_temp("gamble_ji/money"));
total = who->query_temp("gamble_ji/amount");
message_vision (sprintf("白髯鸡仙将$N留在玉栏上的%s%s%s收走。\n",
chinese_number(total), money->query("base_unit"),
money->query("name")), who);
destruct (money);
}
void clean_ji ()
{
object ji, room = this_object();
int i;
for (i=0;i<3;i++)
{
ji = present_ji (room);
if (ji)
{
tell_room (room,"白髯鸡仙将"+ji->query("name")+"递到屋内。\n");
destruct (ji);
}
ji = present("corpse",room);
if (ji)
{
tell_room(room,"白髯鸡仙拎起"+ji->query("name")+"回头一扔。\n");
destruct (ji);
}
}
}
void gamble_finish ()
{
string win;
int total, i;
object room = this_object(), ji = present_ji (room), *list = all_inventory(room);
if (! ji)
{
total = 0;
win = "none of them";
}
else if (ji->query("name")=="红冠鸡")
{
total = 2;
win = "hg";
}
else if (ji->query("name")=="绿尾鸡")
{
total = 2;
win = "lw";
}
else
{
total = 0;
win = "none of them";
}
if (total > 0) tell_room (room,"白髯鸡仙说道："+jis[win]+"获胜！\n");
else tell_room (room,"白髯鸡仙叹息道：双败陪本！\n");
i = sizeof(list);
while (i--)
{
if (!userp(list)) continue;
if (list->query_temp("gamble_ji/kind") == win)
player_wins(list,total);
else
if (list->query_temp("gamble_ji/kind"))
player_loses(list,total);
list->delete_temp("gamble_ji");
}
tell_room (room,"\n");
call_out ("clean_ji",8);
call_out ("gamble_prepare",10+random(3));
}
int do_bian (string arg)
{
object ob, who = this_player(), room = this_object();
if (!arg) return 0;
ob = present(arg,room);
if (ob == hg_ji || ob == lw_ji)
{
message_vision ("$N头往鸡肚下一钻，想变成鸡。\n",who);
message_vision ("白髯鸡仙对$N说道：是看鸡呢还是看你？\n",who);
return 1;
}
return 0;
}
int do_fight (string arg)
{
object ob, who = this_player(), room = this_object();
if (!arg) return 0;
ob = present(arg,room);
if (ob == hg_ji || ob == lw_ji)
{
message_vision ("$N向鸡提出挑战。\n",who);
message_vision ("白髯鸡仙对$N说道：是看鸡斗鸡呢还是人斗鸡？\n",who);
return 1;
}
return 0;
}
int do_steal (string arg)
{
object who = this_player(), room = this_object();
message_vision ("$N偷偷摸摸地伸出手。\n",who);
message_vision ("白髯鸡仙对$N说道：你真的要偷鸡摸狗不成？\n",who);
return 1;
}
int do_kill (string arg)
{
object ob, who = this_player(), room = this_object();
if (!arg) return 0;
ob = present(arg,room);
if (ob == hg_ji || ob == lw_ji)
{
message_vision ("$N恶狠狠地想杀鸡。\n",who);
message_vision ("白髯鸡仙对$N说道：想吃鸡自个上馆子去。\n",who);
return 1;
}
return 0;
}
int do_ji (string arg)
{
object who = this_player(), room = this_object();
message_vision("$N鸡头鸡脑地想要祭什么。\n",who);
message_vision("白髯鸡仙对$N说道：鸡又不是祖宗，对鸡祭什么祭。\n",who);
return 1;
}
int do_exert (string arg)
{
object who = this_player(), room = this_object();
message_vision ("$N想施内功。\n",who);
message_vision ("白髯鸡仙对$N说道：别在这里练功，练出鸡胸怎办？\n",who);
return 1;
}
int do_perform (string arg)
{
object who = this_player(), room = this_object();
message_vision ("$N想施外功。\n",who);
message_vision ("白髯鸡仙对$N说道：别在这里练功，练出鸡胸怎办？\n",who);
return 1;
}
|
|
发表于 2012-2-2 23:04
楼主