// dust.c
#include <ansi.h>
inherit ITEM;
void setup()
{}
void create()
{
        set_name(HIC"化尸粉"NOR, ({"dust"}));
        if (clonep())
                set_default_object(__FILE__);
        else {
                set("unit", "顆");
                set("long", "這是一包用毀尸滅跡的化尸粉，只要一丁點就可以化去(dissolve)一具尸體！\n");
                set("value", 50);
        }
        setup();
}

void init()
{
   if( this_player()==environment() )
     add_action("do_dissolve", "dissolve");
}
                                                           
int do_dissolve(string arg)
{
   object ob;

   if( !arg ) return notify_fail("你要用化尸粉溶解什么東西？\n");
   if( !objectp(ob = present(arg, environment(this_player()))) )
     return notify_fail("這里沒有這樣東西。\n");
   if( living(ob) || !ob->id("corpse") )
     return notify_fail("化尸粉只能用來溶解尸體。\n");
   message_vision(
     "$N用指甲挑了一點化尸粉在$n上，只聽見一陣「嗤嗤」聲響帶著\n"
     "一股可怕的惡臭，$n只剩下一灘黃水。\n", this_player(), ob);
   destruct(ob);
   return 1;
}