================================================================
以前写了很多的游戏房，今年想说游戏房都没在用很浪费就想要放出来
，所以改成使用者可以玩的，但是单纯放出来又不太好玩，所以跟增加
了跟我区域的副本做连结的动作。
================================================================
增加了这个vobjs
副本使用券(物品编号: j806).......目前只有在游戏房会拿的到，
游戏房在黔闇城的左上角那边，其它说明去游戏中心看。
目前只放出游戏房 黑白棋而己，其它的要修改才能放出来。
================================================================
其它有修改的
1.佣兵行会任务改成15个、至少3个G级。
2.佣兵行会任务增加B级副本任务。(j027~j030)
3.找菲辛斯分解成o001~o012吧的能力关掉，
因为己经变了，要修完才能开放。
4.大罗天增加终焉之门。
5.天外天增加vobjs，这样m001~m103应该剩下6个左右没设定。
其它有想到再列上去。
================================================================
其它没放出来的东西
1.诗文殿(/d/ppl/justinj/trace/poem)
应该是写完了，但是这个遗迹的第二层，单独放出来就不好玩，
不过遗迹大概很难继续大概就废了。
黄泉世界预定是第六层外的世界，反正己放在迪菲尔大陆上就不动了。
2.白骨深渊(/u/j/justinj/area/abyss)
应该是缺装备没放吧，BOSS、小兵、地图都做完了，找个时间整理一下
放出来。
3.废弃飞空艇(/u/j/justinj/area/airshop)
写一半，不过应该也废了。
4.岩浆炎龙拉弗(/u/j/justinj/mob/magma.c)
预定放在佣兵任务A or S级。怪物己写好，还没想好其它用途。
5.白泽(/u/j/justinj/mob/shirasawa.c)
因果类的生物，一样还没想好要做什么。
6.八岐大蛇(/u/j/justinj/mob/orochi.c,light.c,thunder.c)
只写2个头，一样还没想好要做什么。
7.陆吾(/d/ppl/justinj/desert/mob/luwu.c)
青鸾(/d/ppl/justinj/forest/mob/argus.c)
我还以为没放出来。
===================================================================
副本的路新增加决定这样做，先写一条正确道路，然后从第6格后开始
随机增加方向。(目前只会写在副本j027之后)
//随机map
varargs int instance_random_exits(string files,object room,string floor)
{
mixed dirs=
({
"east","west","south","north","up","down",
"northeast","northwest","southeast","southwest",
"eastdown","eastup","westup","westdown",
"northdown","northup","southup","southdown",
});
string ppl_name,tmp;
object ob,iroom;
mapping setting_data,idata=([]);
int i,idx,max;
if((int)room->query("instance_flags")) return 1;
room->set("instance_flags",1);
ob=find_object_or_load(INSTANCE_ROOMS);
ppl_name = room->query("instance_player");
setting_data = ob->ppl_instance("query",ppl_name);
max = sizeof(instance_files);
foreach(tmp in instance_files)
{
idx = atoi(tmp[8..10]);
if(idx==max) continue;
if(idx<6) continue;
iroom=setting_data[tmp];
idata=iroom->query_ob_data();
i =random(sizeof(dirs));
if(undefinedp(idata["exits"][dirs[i]]))
{
idata["exits"][dirs[i]] = setting_data[instance_files[random(idx-3)]];
}
i =random(sizeof(dirs));
if(undefinedp(idata["exits"][dirs[i]]))
{
idata["exits"][dirs[i]] = setting_data[instance_files[random(idx-3)]];
}
}
return 1;
}