//雷格套裝封包檔
inherit OBJECT;

mixed package=({
"/d/ppl/highelf/happyearth/gamble/uncommon/larm",
"/d/ppl/highelf/happyearth/gamble/uncommon/lbelt",
"/d/ppl/highelf/happyearth/gamble/uncommon/lboots",
"/d/ppl/highelf/happyearth/gamble/uncommon/lbracelet",
"/d/ppl/highelf/happyearth/gamble/uncommon/lcape",
"/d/ppl/highelf/happyearth/gamble/uncommon/lcloth",
"/d/ppl/highelf/happyearth/gamble/uncommon/learring",
"/d/ppl/highelf/happyearth/gamble/uncommon/lgloves",
"/d/ppl/highelf/happyearth/gamble/uncommon/lkneepad",
"/d/ppl/highelf/happyearth/gamble/uncommon/lleg",
"/d/ppl/highelf/happyearth/gamble/uncommon/llring",
"/d/ppl/highelf/happyearth/gamble/uncommon/lmask",
"/d/ppl/highelf/happyearth/gamble/uncommon/lmisc",
"/d/ppl/highelf/happyearth/gamble/uncommon/lnecklace",
"/d/ppl/highelf/happyearth/gamble/uncommon/lpant",
"/d/ppl/highelf/happyearth/gamble/uncommon/lplate",
"/d/ppl/highelf/happyearth/gamble/uncommon/lring",
"/d/ppl/highelf/happyearth/gamble/uncommon/lshield",
"/d/ppl/highelf/happyearth/gamble/uncommon/lsleeves",
"/d/ppl/highelf/happyearth/gamble/uncommon/lsock",
"/d/ppl/highelf/happyearth/gamble/uncommon/lunderwear",
"/d/ppl/highelf/happyearth/gamble/uncommon/lvest",
"/d/ppl/highelf/happyearth/gamble/uncommon/lwristlet",
"/d/ppl/highelf/happyearth/gamble/rare/lhelmet"
});

void create()
{
 seteuid(getuid(this_object()));
 set("id",({"lag's suit package","package"}));
 set("short","雷格套裝封包(Lag's Suit Package)");
 set("long",@LONG
一個封包，裡面裝了全套的雷格裝備

   雷格盔(lag helmet).
   雷格重盾(lag shield).
   雷格衛生衣(lag vest).
   雷格烏帶(lag wristlet).
   雷格內褲(lag underwear).
   雷格脛甲(lag sock).
   雷格護肘(lag sleeves).
   雷格戒(lag ring).
   雷格烏鎧(lag plate).
   雷格長褲(lag pant).
   雷格項鍊(lag necklace).
   雷格護符(lag misc).
   雷格鐵面(lag mask).
   雷格小戒(lag leftring).
   雷格護腳(lag legging).
   雷格護膝(lag kneepad).
   雷格手套(lag gloves).
   雷格耳環(lag earring).
   雷格鎖衣(lag cloth).
   雷格披風(lag cape).
   雷格手鐲(lag bracelet).
   雷格慢跑鞋(lag boots).
   雷格腰帶(lag belt).
   雷格護臂(lag arm).

你可以下 unzip package 指令解開這個封包唷。
LONG
);
 set("mass",10);
 set("value",100);
 set("sdata",({"names"}));
 set("hide",1);
 set("auction_item",1);
 set("save",100);
}

void init()
{
 add_action("unzip_package","unzip");
}

int unzip_package(string str)
{
 object ob,ppl;
 string msg;

 if(!str || str=="")
  return notify_fail("unzip: 你要解開什麼呢?\n");

 ppl=this_player();
 if(!ob=present(str,ppl))
  return notify_fail("unzip: 你身上並沒有叫 "+str+" 的東西喔.\n");
 if(ob!=this_object())
  return notify_fail("unzip: "+str+" 這個東西不能解開喔.\n");

 str=ppl->query("name");
 if(str!=(string)query("names") && !wizardp(ppl))
  return notify_fail("unzip: 這個封包不是你的喔.\n");

 msg=(string)query("short")+" 解封中......\n\n";

 foreach(str in package)
 {
  if(!file_exists(str+".c")) continue;
  ob=clone_object(str);
  msg+="　"+ob->query("short")+" ...... ok\n";
  ob->set("names",(string)ppl->query("name"));
  ob->move_to(ppl);
 }

 msg+="\n解封完畢.\n";

 write(msg);
 this_object()->remove();
 return 1;
}