/************************************************************\
                        LEAthena Script
**************************************************************
【名    称】全能辅助员
【类    型】服务组件
【版    本】1.0
【版权所有】EmuDev
【授权费用】免费
【服 务 端】LEAthena
【制作人员】.L.
\************************************************************/
umbala,118,129,5    script  自由飞翔专员#umba 646,{
percentheal 100,100;
    set @t,getusers(1)*1;
  mes "自由飞翔专员";
    mes "----------------------------";
    mes ">> 尊敬的^ff0000"+strcharinfo(0)+"^000000"+(Sex?"先生":"小姐");
    mes ">> 欢迎您来到^ff6040「自由仙境」^000000";
    mes "----------------------------";
    mes "任何地方我都可以为您传送!";
    mes "那么现在您想传送到哪里呢?";
    switch(select( ">> 传送服务"))
    {
    case 1:
        callfunc "warpall"; end;
        break;
    }
    close;
}
gonryun,166,113,4   duplicate(自由飞翔专员#umba)  自由飞翔专员#gon2 646
rachel,123,112,5    duplicate(自由飞翔专员#umba)  自由飞翔专员#rach 646
moscovia,216,195,5  duplicate(自由飞翔专员#umba)  自由飞翔专员#mosc 646
brasilis,201,306,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#Ba   646
jawaii,224,217,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#ja   646
dicastes01,196,192,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#dic  646
manuk,298,194,5 duplicate(自由飞翔专员#umba)  自由飞翔专员#N0   646
louyang,222,104,4   duplicate(自由飞翔专员#umba)  自由飞翔专员#1    646
prontera,146,92,5   duplicate(自由飞翔专员#umba)  自由飞翔专员#2    646
glast_01,197,338,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#3    646
mid_camp,212,284,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#4    646
morocc,159,97,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#5    646
geffen,124,62,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#6    646
payon,155,234,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#7    646
alberta,28,238,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#8    646
izlude,134,92,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#9    646
aldebaran,146,113,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#10   646
xmas,146,133,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#11   646
comodo,186,157,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#12   646
yuno,160,87,4   duplicate(自由飞翔专员#umba)  自由飞翔专员#13   646
amatsu,207,83,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#14   646
umbala,89,159,4 duplicate(自由飞翔专员#umba)  自由飞翔专员#16   646
niflheim,209,180,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#17   646
louyang,224,70,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#18   646
jawaii,243,145,4    duplicate(自由飞翔专员#umba)  自由飞翔专员#w19  646
ayothaya,212,173,5  duplicate(自由飞翔专员#umba)  自由飞翔专员#20   646
einbroch,156,304,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#21   646
lighthalzen,220,289,4   duplicate(自由飞翔专员#umba)  自由飞翔专员#22   646
hugel,86,138,4  duplicate(自由飞翔专员#umba)  自由飞翔专员#23   646
prontera,159,190,5  duplicate(自由飞翔专员#umba)  自由飞翔专员#24   646
 
function    script  warpall {
    menu @UZ_LAST_WARP$==""?"":"前往【^FF8040上次传送^000000】",Before,"前往【^FF80FF城市传送2000z^000000】",cs,"前往【^FF0080洞穴传送4000z^000000】",mx,"前往【^8000FF练级区传送5000z^000000】",yewai,"前往【^00FFFFBOSS区8000z^000000】",boss,"前往【^0000FF辅助传送^000000】",Renwu;
 
Renwu:
menu "前往★^FF0000 首都复活点 ^000000★",fuhuo,"前往★^0000FF 首都转生处 ^000000★",zhuansheng,"前往★^FF0000 小游戏区  ^000000★",youxi,"前往★^0000FF 装备制作区 ^000000★",zhizuo,"前往★^FF0000 道场区 ^000000★",daochang,"前往★^0000FF 任务副本区 ^000000★",fuben,"前往★^FF0000 PVP ^000000★",daqian,"前往★^0000FF 副职工作区 ^000000★",fuzhi,"前往★^FF0000 结婚教堂 ^000000★",jiehun,"前往★^0000FF 离婚魔屋 ^000000★",lihun;
 
fuhuo:
    warp "prontera",152,90;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,152;
        set @UZ_LAST_Y,90;
    close;
zhuansheng:
    warp "prontera",159,183;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,159;
        set @UZ_LAST_Y,183;
    close;
youxi:
    warp "prontera",181,117;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,181;
        set @UZ_LAST_Y,117;
    close;
zhizuo:
    warp "prontera",171,120;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,171;
        set @UZ_LAST_Y,120;
    close;
daochang:
    warp "prontera",135,121;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,135;
        set @UZ_LAST_Y,121;
    close;
fuben:
    warp "prontera",135,116;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,135;
        set @UZ_LAST_Y,116;
    close;
daqian:     //PVP
    warp "prontera",89,60;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,89;
        set @UZ_LAST_Y,60;
    close;
fuzhi:      //暂定
    warp "prontera",135,116;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,135;
        set @UZ_LAST_Y,116;
    close;
jiehun:
    warp "prt_church",99,103;
        set @UZ_LAST_WARP$,"prt_church";
        set @UZ_LAST_X,99;
        set @UZ_LAST_Y,103;
    close;
lihun:
    warp "nif_in",191,110;
        set @UZ_LAST_WARP$,"nif_in";
        set @UZ_LAST_X,191;
        set @UZ_LAST_Y,110;
    close;
 
 
 
 
 
 
 
 
Before:
    warp @UZ_LAST_WARP$,@UZ_LAST_X,@UZ_LAST_Y;
    close;
 
cs:
    mes "^3884B7[自由飞翔专员]^000000";
    mes "请选择您要去的城市!";
    next;
    menu 
    " - 中央之城 普隆德拉",prontera,
    " - 卫星都市 依斯鲁得岛",izlude,
    " - 魔法之都 吉芬",geffen,
    " - 魔王复活 梦罗克",morocc,
    " - 山岳之都 斐扬",payon,
    " - 港口之都 艾尔贝塔",alberta,
    " - 运河之都 艾尔帕兰",aldebaran,
    " - 海边之都 克魔岛",comodo,
    " - 白雪村落 姜饼城",xmas,
    " - 田园都市 毁葛",hugel,
    " - 钢铁之都 艾音布罗克",einbroch,
    " - 洛阳古都 龙之城",louyang,
    " - 古城 克雷斯特汉姆",klsthm,
    " - 天津 樱花城",amatsu,
    " - 泰国 哎哟泰雅",ayothaya,
    " - 蜜月岛 夏威夷",jawaii,
    " - 神仙之岛 昆仑",gonryun,
    " - 企业之都 里希塔乐镇",lighthalzen,
    " - 雨檀族村落 汶巴拉",umbala,
    " - 修发兹共和国 朱诺",yuno,
    " - 阿鲁娜配兹教国 赫拉",hela,
    " - 俄罗斯 莫斯科比亚",mosco,
    " - 米德加尔特联合驻地",anotherworld,
    " - 矿山村庄 马努克",manuk,
    " - 峡谷村子 伯仁斯",xiagu,
    " - 采矿村落 艾音贝赫",einbech,
    " - 死者国家 尼芙菲姆",niflheim,
    " - 巴西利亚",baxi,
    " - 沙帕首都 埃迪斯特斯",dicastes01,
    "   -   德瓦他岛村",dewata,
    "   -   辉煌领域",splendide,
    "   -   绵绵岛",malangdo,
    "   -   马来亚港口",malaya,
    "   -   草精族穆拉村",mora,
    "   -   布伦贝德约尔希森林",dicastes02,
    "   -   艾卡拉奇",eclage;
dicastes01:
if (zeny<2000)goto no1;
set Zeny,Zeny-2000;
    warp "dicastes01",198,187;
        set @UZ_LAST_WARP$,"dicastes01";
        set @UZ_LAST_X,198;
        set @UZ_LAST_Y,187;
    close;
dewata:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "dewata",232,53;
        set @UZ_LAST_WARP$,"dewata";
        set @UZ_LAST_X,232;
        set @UZ_LAST_Y,53;
    close;
splendide:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "splendide",194,130;
        set @UZ_LAST_WARP$,"splendide";
        set @UZ_LAST_X,194;
        set @UZ_LAST_Y,130;
    close;
malangdo:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "malangdo",211,155;
        set @UZ_LAST_WARP$,"malangdo";
        set @UZ_LAST_X,211;
        set @UZ_LAST_Y,155;
    close;
malaya:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "malaya",216,208;
        set @UZ_LAST_WARP$,"malaya";
        set @UZ_LAST_X,216;
        set @UZ_LAST_Y,208;
    close;
mora:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "mora",115,111;
        set @UZ_LAST_WARP$,"mora";
        set @UZ_LAST_X,115;
        set @UZ_LAST_Y,111;
    close;
dicastes02:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "dicastes02",110,116;
        set @UZ_LAST_WARP$,"dicastes02";
        set @UZ_LAST_X,110;
        set @UZ_LAST_Y,116;
    close;
eclage:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "eclage",174,200;
        set @UZ_LAST_WARP$,"eclage";
        set @UZ_LAST_X,174;
        set @UZ_LAST_Y,200;
    close;
manuk:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "manuk",299,186;
        set @UZ_LAST_WARP$,"manuk";
        set @UZ_LAST_X,299;
        set @UZ_LAST_Y,186;
    close;
anotherworld:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "mid_camp",210,288;
        set @UZ_LAST_WARP$,"mid_camp";
        set @UZ_LAST_X,210;
        set @UZ_LAST_Y,288;
    close;
mosco:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "moscovia",224,192;
        set @UZ_LAST_WARP$,"moscovia";
        set @UZ_LAST_X,224;
        set @UZ_LAST_Y,192;
    close;
prontera:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "prontera",156,110;
        set @UZ_LAST_WARP$,"prontera";
        set @UZ_LAST_X,156;
        set @UZ_LAST_Y,110;
    close;
izlude:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "izlude",128,109;
        set @UZ_LAST_WARP$,"izlude";
        set @UZ_LAST_X,128;
        set @UZ_LAST_Y,109;
    close;
geffen:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "geffen",119,68;
        set @UZ_LAST_WARP$,"geffen";
        set @UZ_LAST_X,119;
        set @UZ_LAST_Y,68;
    close;
morocc:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "morocc",156,94;
        set @UZ_LAST_WARP$,"morocc";
        set @UZ_LAST_X,156;
        set @UZ_LAST_Y,94;
    close;
payon:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "payon",155,230;
        set @UZ_LAST_WARP$,"payon";
        set @UZ_LAST_X,155;
        set @UZ_LAST_Y,230;
    close;
alberta:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "alberta",28,234;
        set @UZ_LAST_WARP$,"alberta";
        set @UZ_LAST_X,28;
        set @UZ_LAST_Y,234;
    close;
aldebaran:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "aldebaran",143,110;
        set @UZ_LAST_WARP$,"aldebaran";
        set @UZ_LAST_X,143;
        set @UZ_LAST_Y,110;
    close;
comodo:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "comodo",188,164;
        set @UZ_LAST_WARP$,"comodo";
        set @UZ_LAST_X,188;
        set @UZ_LAST_Y,164;
    close;
klsthm:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "glast_01",200,336;
        set @UZ_LAST_WARP$,"glast_01";
        set @UZ_LAST_X,200;
        set @UZ_LAST_Y,336;
    close;
xmas:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "xmas",145,132;
        set @UZ_LAST_WARP$,"xmas";
        set @UZ_LAST_X,145;
        set @UZ_LAST_Y,132;
    close;
yuno:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "yuno",158,79;
        set @UZ_LAST_WARP$,"yuno";
        set @UZ_LAST_X,158;
        set @UZ_LAST_Y,79;
    close;
amatsu:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "amatsu",197,78;
        set @UZ_LAST_WARP$,"amatsu";
        set @UZ_LAST_X,197;
        set @UZ_LAST_Y,78;
    close;
gonryun:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "gonryun",159,113;
        set @UZ_LAST_WARP$,"gonryun";
        set @UZ_LAST_X,159;
        set @UZ_LAST_Y,113;
    close;
umbala:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "umbala",126,132;
        set @UZ_LAST_WARP$,"umbala";
        set @UZ_LAST_X,126;
        set @UZ_LAST_Y,132;
    close;
niflheim:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "niflheim",202,177;
        set @UZ_LAST_WARP$,"niflheim";
        set @UZ_LAST_X,202;
        set @UZ_LAST_Y,177;
    close;
hugel:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "hugel",86,134;
        set @UZ_LAST_WARP$,"hugel";
        set @UZ_LAST_X,86;
        set @UZ_LAST_Y,134;
    close;
louyang:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "louyang",214,102;
        set @UZ_LAST_WARP$,"louyang";
        set @UZ_LAST_X,214;
        set @UZ_LAST_Y,102;
    close;
jawaii:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "jawaii",221,215;
        set @UZ_LAST_WARP$,"jawaii";
        set @UZ_LAST_X,221;
        set @UZ_LAST_Y,215;
    close;
ayothaya:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "ayothaya",208,168;
        set @UZ_LAST_WARP$,"ayothaya";
        set @UZ_LAST_X,208;
        set @UZ_LAST_Y,168;
    close;
einbroch:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "einbroch",158,313;
        set @UZ_LAST_WARP$,"einbroch";
        set @UZ_LAST_X,158;
        set @UZ_LAST_Y,313;
    close;
einbech:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "einbech",103,197;
        set @UZ_LAST_WARP$,"einbech";
        set @UZ_LAST_X,103;
        set @UZ_LAST_Y,197;
    close;
lighthalzen:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "lighthalzen",213,290;
        set @UZ_LAST_WARP$,"lighthalzen";
        set @UZ_LAST_X,213;
        set @UZ_LAST_Y,290;
    close;
hela:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "rachel",132,114;
        set @UZ_LAST_WARP$,"rachel";
        set @UZ_LAST_X,132;
        set @UZ_LAST_Y,114;
    close;
xiagu:
if (zeny<2000)goto no1;
set zeny,zeny-2000;
    warp "veins",216,124;
        set @UZ_LAST_WARP$,"veins";
        set @UZ_LAST_X,216;
        set @UZ_LAST_Y,124;
    close;
 
mx:
    mes "^3884B7[自由飞翔专员]^000000";
    mes "那么您要去哪里冒险呢?";
    next;
    menu    " - 迷藏森林",mizang," - 普隆德拉地下水道",pulong," - 海底洞窟",haidi," - 史芬克斯密穴",shifen," - 金字塔迷宫",jinzi," - 蚂蚁地狱密穴",mayi," - 吉芬塔地下密穴",jifen," - 妙勒尼废弃矿场",miaole," - 克雷斯特汉姆古城",kelei," - 兽人地下洞窟",shouren," - 裴扬迷宫",feiyang," - 沉没之船",chenmo," - 艾尔帕兰钟塔",aier," - 龟岛",guidao," - 玩具工厂",wanju," - 诺可罗德溶洞(火洞)",nuoke,"- 樱花城迷宫",yinghua," - 昆仑洞穴",kunlun," - 尼德霍格洞穴（树洞）",nide," - 洛阳古都王陵",luoyang," - 葛帔尼亚",gepi," - 优配擂斯废墟",youpei," - 机械娃娃工厂",jixie," - 达纳托斯之塔",dana," - 矿山洞穴",kuangshan," - 奥丁神殿",aoding," - 生体试验研究所",shengti," - 深渊湖水地下洞穴",shenyuan," - 冰洞穴",bingdong," - 古代神殿迷宫",gudai," - 神殿圣域洞穴",shendian," - 图尔火山洞窟",tuer," - 无名的海岛",wuming," - 地下公会",dixia,"- 巴西洞穴",baxi," - 德瓦他火山洞穴",dewa,"- 绵绵岛洞穴",mianmian," - 甲虫洞",jiachong;
 
mizang:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "prt_maze01",0,0;
        set @UZ_LAST_WARP$,"prt_maze01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
pulong:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "prt_sewb1",0,0;
        set @UZ_LAST_WARP$,"prt_sewb1";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
haidi:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "iz_dun00",0,0;
        set @UZ_LAST_WARP$,"iz_dun00";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
shifen:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "in_sphinx1",0,0;
        set @UZ_LAST_WARP$,"in_sphinx1";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
jinzi:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "moc_pryd01",0,0;
        set @UZ_LAST_WARP$,"moc_pryd01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
mayi:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "anthell01",0,0;
        set @UZ_LAST_WARP$,"anthell01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
jifen:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gef_dun00",0,0;
        set @UZ_LAST_WARP$,"gef_dun00";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
miaole:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "mjo_dun01",0,0;
        set @UZ_LAST_WARP$,"mjo_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
kelei:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "glast_01",0,0;
        set @UZ_LAST_WARP$,"glast_01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
shouren:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "orcsdun01",0,0;
        set @UZ_LAST_WARP$,"orcsdun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
feiyang:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "pay_dun00",0,0;
        set @UZ_LAST_WARP$,"pay_dun00";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
chenmo:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "treasure01",0,0;
        set @UZ_LAST_WARP$,"treasure01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
aier:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "c_tower1",0,0;
        set @UZ_LAST_WARP$,"c_tower1";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
guidao:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "tur_dun01",0,0;
        set @UZ_LAST_WARP$,"tur_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
wanju:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "xmas_dun01",0,0;
        set @UZ_LAST_WARP$,"xmas_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
nuoke:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "mag_dun01",0,0;
        set @UZ_LAST_WARP$,"mag_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
yinghua:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "ama_dun01",229,7;
        set @UZ_LAST_WARP$,"ama_dun01";
        set @UZ_LAST_X,229;
        set @UZ_LAST_Y,7;
    close;
kunlun:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gon_dun01",0,0;
        set @UZ_LAST_WARP$,"gon_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
nide:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "nyd_dun01",0,0;
        set @UZ_LAST_WARP$,"nyd_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
luoyang:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "lou_dun01",0,0;
        set @UZ_LAST_WARP$,"lou_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
gepi:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gefenia01",0,0;
        set @UZ_LAST_WARP$,"gefenia01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
youpei:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "juperos_01",0,0;
        set @UZ_LAST_WARP$,"juperos_01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
jixie:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "kh_dun01",0,0;
        set @UZ_LAST_WARP$,"kh_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;    
dana:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "tha_t01",0,0;
        set @UZ_LAST_WARP$,"tha_t01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;    
kuangshan:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "ein_dun01",0,0;
        set @UZ_LAST_WARP$,"ein_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;    
aoding:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "odin_tem01",0,0;
        set @UZ_LAST_WARP$,"odin_tem01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;    
shengti:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "lhz_dun01",0,0;
        set @UZ_LAST_WARP$,"lhz_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;    
shenyuan:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "abyss_01",0,0;
        set @UZ_LAST_WARP$,"abyss_01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
bingdong:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "ice_dun01",0,0;
        set @UZ_LAST_WARP$,"ice_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
gudai:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "ayo_dun01",0,0;
        set @UZ_LAST_WARP$,"ayo_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
shendian:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "ra_san01",0,0;
        set @UZ_LAST_WARP$,"ra_san01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
tuer:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "thor_v01",0,0;
        set @UZ_LAST_WARP$,"thor_v01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
wuming:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "abbey01",0,0;
        set @UZ_LAST_WARP$,"abbey01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
dixia:
mes "[自由飞翔人员]";
mes "请问要传送至第几层";
next;
    menu "- 斐扬 工会地下迷宫",dixia1,"- 钟楼 工会地下迷宫",dixia2,"- 首都 工会地下迷宫",dixia3,"- 吉芬 工会地下迷宫",dixia4;
dixia1:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gld_dun01",0,0;
        set @UZ_LAST_WARP$,"gld_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
dixia2:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gld_dun02",0,0;
        set @UZ_LAST_WARP$,"gld_dun02";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
dixia3:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gld_dun03",0,0;
        set @UZ_LAST_WARP$,"gld_dun03";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
dixia4:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "gld_dun04",0,0;
        set @UZ_LAST_WARP$,"gld_dun04";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
baxi:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "bra_dun01",0,0;
        set @UZ_LAST_WARP$,"bra_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
dewa:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "dew_dun01",0,0;
        set @UZ_LAST_WARP$,"dew_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
mianmian:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "mal_dun01",0,0;
        set @UZ_LAST_WARP$,"mal_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
jiachong:
if (zeny < 4000)goto no1;
set zeny,zeny-4000;
    warp "dic_dun01",0,0;
        set @UZ_LAST_WARP$,"dic_dun01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
    close;
 
yewai:
    mes "^3884B7[自由飞翔专员]^000000";
    mes "那么您要去哪里练级呢?";
    next;
    menu    " - 蝗虫区(15级)",huangchong," - 波利岛(30级)",boli," - 蜈蚣区(75级)",wugong," - 长老树精区(34级)",zhanglao," - 大脚熊区(29级)",dajiao," - 将军魔碑区(55级)",jiangjun," - 鳄鱼人区(57级)",eyu," - 海豹区(47级)",haibao," - 沙妖区(81级)",shayao," - 毕帝特地龙区(86级)",bidi," - 玩偶熊区(91级)",wanou," - 熔岩波利区(110级)",rongyan," - 邪恶向日葵区(73级)",xiee," - 莫斯科比亚原野(81-87级)",mosi," - 石头波利区(95级)",shitou," - 三叶铁甲虫区(85级)",sanye,"- 犬妖区(100级)",quanyao," - 独角飞马区(115级)",dujiao," - 猪笼草区域(110级)",zhulong," - 彩虹桥南部(130级)",caihong;
 
huangchong:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "prt_fild07",378,239;
        set @UZ_LAST_WARP$,"prt_fild07";
        set @UZ_LAST_X,378;
        set @UZ_LAST_Y,239;
        close;
boli:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "pay_fild04",20,165;
        set @UZ_LAST_WARP$,"pay_fild04";
        set @UZ_LAST_X,20;
        set @UZ_LAST_Y,165;
        close;
wugong:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "mjolnir_11",31,220;
        set @UZ_LAST_WARP$,"mjolnir_11";
        set @UZ_LAST_X,31;
        set @UZ_LAST_Y,220;
        close;
zhanglao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "prt_fild10",263,35;
        set @UZ_LAST_WARP$,"prt_fild10";
        set @UZ_LAST_X,263;
        set @UZ_LAST_Y,35;
        close;      
dajiao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "pay_fild07",280,361;
        set @UZ_LAST_WARP$,"pay_fild07";
        set @UZ_LAST_X,280;
        set @UZ_LAST_Y,361;
        close;      
jiangjun:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "pay_fild10",41,291;
        set @UZ_LAST_WARP$,"pay_fild10";
        set @UZ_LAST_X,41;
        set @UZ_LAST_Y,291;
        close;      
eyu:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "cmd_fild03",32,71;
        set @UZ_LAST_WARP$,"cmd_fild03";
        set @UZ_LAST_X,32;
        set @UZ_LAST_Y,71;
        close;      
haibao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "cmd_fild02",220,365;
        set @UZ_LAST_WARP$,"cmd_fild02";
        set @UZ_LAST_X,220;
        set @UZ_LAST_Y,365;
        close;      
shayao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "yuno_fild06",362,135;
        set @UZ_LAST_WARP$,"yuno_fild06";
        set @UZ_LAST_X,362;
        set @UZ_LAST_Y,135;
        close;
bidi:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "gef_fild06",212,27;
        set @UZ_LAST_WARP$,"gef_fild06";
        set @UZ_LAST_X,212;
        set @UZ_LAST_Y,27;
        close; 
wanou:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "ein_fild03",354,204;
        set @UZ_LAST_WARP$,"ein_fild03";
        set @UZ_LAST_X,354;
        set @UZ_LAST_Y,204;
        close; 
rongyan:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "ve_fild03",178,98;
        set @UZ_LAST_WARP$,"ve_fild03";
        set @UZ_LAST_X,178;
        set @UZ_LAST_Y,98;
        close; 
xiee:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "yuno_fild12",202,370;
        set @UZ_LAST_WARP$,"yuno_fild12";
        set @UZ_LAST_X,202;
        set @UZ_LAST_Y,370;
        close; 
mosi:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "mosk_fild02",190,253;
        set @UZ_LAST_WARP$,"mosk_fild02";
        set @UZ_LAST_X,190;
        set @UZ_LAST_Y,253;
        close; 
shitou:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "ve_fild07",194,199;
        set @UZ_LAST_WARP$,"ve_fild07";
        set @UZ_LAST_X,194;
        set @UZ_LAST_Y,199;
        close; 
sanye:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "ein_fild09",77,349;
        set @UZ_LAST_WARP$,"ein_fild09";
        set @UZ_LAST_X,77;
        set @UZ_LAST_Y,349;
        close;
quanyao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "ra_fild05",341,273;
        set @UZ_LAST_WARP$,"ra_fild05";
        set @UZ_LAST_X,341;
        set @UZ_LAST_Y,273;
        close;
dujiao:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "spl_fild03",307,374;
        set @UZ_LAST_WARP$,"spl_fild03";
        set @UZ_LAST_X,307;
        set @UZ_LAST_Y,374;
        close;
zhulong:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "man_fild01",103,59;
        set @UZ_LAST_WARP$,"man_fild01";
        set @UZ_LAST_X,103;
        set @UZ_LAST_Y,59;
        close;
caihong:
if (zeny < 5000) goto no1;
set zeny,zeny-5000;
            warp "bif_fild01",162,350;
        set @UZ_LAST_WARP$,"bif_fild01";
        set @UZ_LAST_X,162;
        set @UZ_LAST_Y,350;
        close;
 
boss:
    mes "^3884B7[自由飞翔专员]^000000";
    mes "那么您要去哪里冒险呢?";
    next;
    menu    " - 蜂后(78级)",fenghou," - 虎王(65级)",huwang," - 皮里恩(71级)",pili," - 兽人英雄(50级)",yingxiong," - 兽人酋长(55级)",qiuzhang," - 圣天使波利(84级)",tianshi," - 死灵骑士(94级)",siling," - 卡仑(98级)",kalun," - 阿特罗斯(113级)",ate," - 硬石猛玛(137级)",yingshi;
fenghou:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "mjolnir_04",0,0;
        set @UZ_LAST_WARP$,"mjolnir_04";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
huwang:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "pay_fild10",0,0;
        set @UZ_LAST_WARP$,"pay_fild10";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
pili:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "moc_fild17",0,0;
        set @UZ_LAST_WARP$,"moc_fild17";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
yingxiong:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "gef_fild03",0,0;
        set @UZ_LAST_WARP$,"gef_fild03";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
qiuzhang:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "gef_fild10",0,0;
        set @UZ_LAST_WARP$,"gef_fild10";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
tianshi:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "yuno_fild04",0,0;
        set @UZ_LAST_WARP$,"yuno_fild04";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
siling:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "niflheim",0,0;
        set @UZ_LAST_WARP$,"niflheim";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
kalun:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "xmas_fild01",0,0;
        set @UZ_LAST_WARP$,"xmas_fild01";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
ate:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "ra_fild04",0,0;
        set @UZ_LAST_WARP$,"ra_fild04";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;      
yingshi:
if (zeny < 8000) goto no1;
set zeny,zeny-8000;
            warp "man_fild03",0,0;
        set @UZ_LAST_WARP$,"man_fild03";
        set @UZ_LAST_X,0;
        set @UZ_LAST_Y,0;
        close;
no1:
    mes "[自由飞翔专员]";
    mes "你的钱好像不够啊";
close;
end;    
}