//daoju.c 唱戲用的道具
//海洋II（云起云落）
//星星lywin 2000/6/20

#include <ansi.h>
inherit ITEM;

void init()
{
	add_action("do_changxi", "changxi");
}

void create()
{
	set_name("唱戲道具", ({"changxi daoju", "daoju"}));
	if (clonep())
		set_default_object(__FILE__);
	else {
		set("unit", "把");
		set("no_drop","不要亂丟，要賠的！\n");
		set("no_put",1);
		set("long", "這是一套唱戲用的道具，你可以用它來唱戲（changxi）。\n");
		set("value", 0);
	}
	setup();
}

int do_changxi(string arg)
{
        object me=this_player();

        if (me->query_temp("obj/done") >= 1)
        {
          tell_object(me,"你已唱完戲了，回去報告吧。\n");
          return 1;
        }
        else
        if (me->query_temp("obj/changxi") < 1)
        {
          tell_object(me,"現在好像不該你唱戲吧？\n");
          return 1;
        }
        else
        if (me->query_temp("obj/where") != environment(me)->query("outdoors"))
        {
          tell_object(me,"你不該在這兒唱戲吧？\n");
          return 1;
        }
        else
        if (environment(me)->query_temp("changxi") >= 1)
        {
          tell_object(me,"這兒不久前有人來唱過戲，現在再唱只怕沒人會聽了\n");
          return 1;
        }
        else          
        if ((me->query("jing") < 20))
        {  
          tell_object(me,"你的精力不能集中，不可以表演！\n");
          return 1;
        }
        else
        if ((me->query("qi") < 30 ))
        {
          tell_object(me,"你的身體狀態太差，不能表演！\n");
          return 1;
        }
        else          
	if (environment(me)->query_temp("changxi") >= 1)
        {
        tell_object(me,"剛剛才有人來這兒唱過戲了，人們都不想再看戲。\n"NOR,me);
       	return 1;
      	}
      	else
        if (!arg || arg == "" )
        { 
          tell_object(me,"你要進行哪種表演？
          唱曲（changqu），碎磚（suizhuan），走繩索（zhou）？\n");
          return 1;
        }
        else
        if ( arg == "changqu" )
        {
          if ((me->query("neili") < 30))
            return notify_fail("唱曲講究的是內息悠長，你的內力不足，唱不出好曲。\n");
           
          message_vision(HIW"$N清了清噪子，悠悠的唱起曲兒來。\n"NOR,me);          
          me->start_busy(8); 
          call_out("changqu",8,me);
          return 1;
       	}
       	else
        if ( arg == "suizhuan" )
        {
          if ((me->query_skill("unarmed") < 30))
            return notify_fail("你的拳腳功夫不足，哪里打得動大石？\n");
            
          message_vision(HIW"$N運功于臂，用力向一塊磚頭劈去。\n"NOR,me);          
          me->start_busy(8); 
       	  call_out("changqu",8,me);
       	  return 1;
       	}
       	else
        if ( arg == "zhou" )
        {
          if ((me->query_skill("dodge") < 30))
            return notify_fail("以你這樣的輕功也想去走繩？怕不一下子就掉了下來。\n");

          message_vision(HIW"$N跳上了一根橫掛的繩索，從這頭向那頭走去。\n"NOR,me);          
          me->start_busy(8); 
       	  call_out("changqu",8,me);
       	  return 1;
       	}
}

int changqu(object me)
{
        message_vision(HIY"$N一曲唱畢，旁邊的人鼓起了掌。\n"NOR,me);
        me->set_temp("obj/done",1);
        environment(me)->set_temp("changxi",1);        
        return 1;
}

int suizhuan(object me)
{
        message_vision(HIY"$N只見好大的塊磚頭應聲而碎，旁人看得張大口說不出話來。\n"NOR,me);
        me->set_temp("obj/done",1);
        environment(me)->set_temp("changxi",1); 
        return 1;
} 

int zhou(object me)
{
        message_vision(HIY"$N從繩索上輕輕的走了過去，晃也沒晃一下，旁人都看得目瞪口呆。\n"NOR,me);
        me->set_temp("obj/done",1);
        environment(me)->set_temp("changxi",1); 
        return 1;
}