ES2 MUD LIB :: 東方故事二(ES2) 天朝帝國 mudlib 瀏覽展示

// unwield.c

inherit F_CLEAN_UP;

int main(object me, string arg)
{
object ob;
string equipped, str;

if( !arg ) {
mapping weapons;
string skill;

if( mapp(weapons = me->query_temp("weapon")) && sizeof(weapons) ) {
foreach(skill, ob in weapons) ob->unequip();
write("Ok.\n");
return 1;
} else
return notify_fail("你現在並沒有裝備任何武器。\n");
}

if( !objectp(ob = present(arg, me)) )
return notify_fail("你身上沒有這樣東西。\n");

if( !stringp(equipped = ob->query("equipped"))
|| !sscanf(equipped, "weapon/%*s") )
return notify_fail("你並沒有裝備這樣東西作為武器。\n");

if( ob->unequip() ) {
if( !stringp(str = ob->query("unwield_msg")) )
str = "$N放下手中的$n。\n";
message_vision(str, me, ob);
return 1;
} else
return 0;
}

int help(object me)
{
  write(@HELP
指令格式 : unwield <物品名>
 
這個指令讓你放下手中的武器。
 
HELP
    );
    return 1;
}