//Cracked by Roath//By haowen  1/15/1999 inherit ITEM;#include <ansi.h>;void create(){        set_name("雪蠶絲", ({"xuecan si", "can si","cansi"}));        set_weight(80);        set_max_encumbrance(10);        if (clonep())                set_default_object(__FILE__);        else {         set("long", "這是一根雪蠶絲，是星宿海旁的雪蠶所吐之絲。雪蠶形體遠較冰蠶為小，也無毒性，吐出來的蠶絲卻韌力大得異乎尋常，一根單絲便已不易拉斷。你可以收(catch)\n");                set("unit", "根");                set("value", 0);                set("busy_source", random(5)+1);        }}void init(){        add_action("do_shou", "shou");        add_action("do_shou", "catch");}int do_shou(string arg){        object  env,*inv,target,ob,me=this_player();	int i;	ob=this_object();	env=environment(me);	inv=all_inventory(env);	for (i=0;i<sizeof(inv);i++){		if (inv[i]==me) continue;		if(!me->visible(inv[i])) continue;		if (inv[i]->query("id")==arg)			target=inv[i];		}if (!me) return notify_fail("你想殺自己嗎？\n");if (!environment(me)) return notify_fail("你想殺自己嗎？\n");if (!arg) return notify_fail("你想收誰？\n");        if( !objectp(target = present(arg, environment(me))) )                return notify_fail("這里沒有這個人。\n");        if( target->query("id")==me->query("id"))                return notify_fail("你想殺自己嗎？\n");	if( !target	||	!target->is_character()	||	!me->is_fighting(target) )                return notify_fail("你必須在戰斗中才能使用雪蠶絲！\n");        if(me->query_skill("feixing-shu",1)<30)		return notify_fail("以你現在的暗器功力恐怕用不了雪蠶絲！\n");	if(me->is_busy())		return notify_fail("你現在無法做任何動作！\n");	if(target->is_busy())		return notify_fail(target->query("name")+"正自顧不暇，放手攻擊吧！\n");           message_vision( HIY "$N狂笑幾聲，手中似乎有什么東西向$n撒去。\n" NOR,me,target);        if(random(me->query_skill("feixing-shu",1)) > random(target->query_skill("dodge",1)))		{		 tell_object(target,HIR "你忽然覺得一條細線纏上全身，手腳都已經不受控制！\n" NOR);		 tell_object(me,HIG "你手中一緊，心中暗喜，看來已經得手了！\n" NOR);		 target->start_busy(ob->query("busy_source"));                }	else {		message_vision(HIY "$n閃身一躍，避開了$N手中的東西！\n" NOR,me,target);                tell_object(me,HIG "你趕緊反手一扣，收回了雪蠶絲。\n" NOR);                me->start_busy(2);	     }			me->add("neili",-50);	return 1;}