Warper town and dungeon only

-   script  Warper  -1,{
function Go; function Disp; function Pick; function Restrict;

menu    "Simpan Posisi",simpan_posisi,
    "Last Warp ^777777["+lastwarp$+"]^000000",-,
    "Storage",L_storage,
    "Warper",warper;

    if (lastwarp$ == "")
        message strcharinfo(0),"You haven't warped anywhere yet.";
    else
        warp lastwarp$,lastwarpx,lastwarpy;
    end;

simpan_posisi:
    atcommand "@save";
    callfunc "F_KafEnd",0,1,".";

L_storage:
mes .@name$;
mes "Would you like to view your storage?";
next;
switch(select("Use Storage:Storage Password Service:Cancel")){
case 1:
    mes "[Cool Event Corp. Staff]";
    if(!callfunc("F_CanOpenStorage")){
        mes "I'm sorry, but you";
        mes "need the Novice's";
        mes "Basic Skill Level 6 to";
        mes "use the Storage Service.";
        close2;
        break;
    }
    if(countitem(7059)){
    delitem 7059,1;
    close2;
    openstorage;
    end;
    }
    if(Zeny < 30){
        mes "I'm sorry, but you don't";
        mes "have enough Zeny to use";
        mes "the Storage Service. Our";
        mes "Storage access fee is 30 Zeny.";
        close2;
        break;
    }
    mes "Let me open your personal";
    mes "storage for you right away.";
    mes "Thanks for supporting Cool";
    mes "Event Corp. by using our";
    mes "services. Have a good day~";
    callfunc("F_CheckKafCode"); //check your storage password, if set
    close2;
    openstorage;
    set Zeny, Zeny - 30;
    end;
case 2:
    callfunc("F_SetKafCode","[Cool Event Corp. Staff]","Cool Event Corp.");
case 3:
default:
    mes "[Cool Event Corp. Staff]";
    mes "Cool Event Corp. is always";
    mes "striving to provide the best";
    mes "services for our customers.";
    mes "Help us become the best by";
    mes "providing us with your opinions";
    mes "and honest feedback. Thank you.";
    close2;
}

warper:
if(countitem(7060)){
    delitem 7060,1;
    goto choose;
    end;
    }
    if(Zeny < 30){
        mes "I'm sorry, but you don't";
        mes "have enough Zeny to use";
        mes "the warp Service. Our";
        mes "Warp services fee is 30 Zeny.";
        end;
    }
    mes "Let me warp you";
    mes "Thanks for supporting Cool";
    mes "Event Corp. by using our";
    mes "services. Have a good day~";
    set Zeny, Zeny - 30;
    goto choose;
    end;
choose:
menu    " ~ Towns",Towns, " ~ Dungeons",Dungeons;

function Go {
    set lastwarp$, getarg(0);
    set lastwarpx, getarg(1,0);
    set lastwarpy, getarg(2,0);
    warp getarg(0),getarg(1,0),getarg(2,0);
    end;
}
function Disp {
    if (getargcount() < 3)
        set @menu$, getarg(0);
    else {
        set @menu$,"";
        for (set .@i,getarg(1); .@i<=getarg(2); set .@i,.@i+1)
            set @menu$, @menu$+getarg(0)+" "+.@i+":";
    }
    return;
}
function Pick {
    set .@warp_block,@warp_block;
    set @warp_block,0;
    set .@select, select(@menu$);
    if (getarg(0) == "") {
        set .@i, .@select;
        set .@map$, getarg(.@i);
    } else {
        set .@i, .@select-getarg(1,0);
        set .@map$, getarg(0)+((.@i<10)?"0":"")+.@i;
    }
    if (.@warp_block & (1<<.@select)) {
        message strcharinfo(0),"This map is not enabled in "+((checkre(0))?"":"Pre-")+"Renewal.";
        end;
    }
    set .@x, @c[.@i*2];
    set .@y, @c[.@i*2+1];
    deletearray @c[0],getarraysize(@c);
    Go(.@map$,.@x,.@y);
}
function Restrict {
    if ((getarg(0) == "RE" && !checkre(0)) || (getarg(0) == "Pre-RE" && checkre(0))) {
        if (getarg(1,0)) {
            set @warp_block,0;
            for (set .@i,1; .@i<getargcount(); set .@i,.@i+1)
                set @warp_block, @warp_block | (1<<getarg(.@i));
        } else {
            message strcharinfo(0),"This map is not enabled in "+((checkre(0))?"":"Pre-")+"Renewal.";
            end;
        }
    }
    return;
}

    Towns:
menu    "Prontera",T1, "Alberta",T2, "Aldebaran",T3, "Amatsu",T4, "Ayothaya",T5,
        "Brasilis",T6, "Comodo",T7, "Dewata",T8, "Eclage",T9, "Einbech",T10,
        "Einbroch",T11, "El Dicastes",T12, "Geffen",T13, "Gonryun",T14, "Hugel",T15,
        "Izlude",T16, "Jawaii",T17, "Lighthalzen",T18, "Louyang",T19, "Lutie",T20,
        "Malangdo",T21, "Malaya",T22, "Manuk",T23, "Midgarts Expedition Camp",T24,
        "Mora",T25, "Morroc",T26, "Moscovia",T27, "Nameless Island",T28,
        "Niflheim",T29, "Payon",T30, "Rachel",T31, "Splendide",T32, "Thor Camp",T33,
        "Umbala",T34, "Veins",T35, "Yuno",T36;

T1: Go("prontera",155,178);
T2: Go("alberta",28,234);
T3: Go("aldebaran",140,131);
T4: Go("amatsu",198,84);
T5: Go("ayothaya",208,166);
T6: Restrict("RE");
    Go("brasilis",196,217);
T7: Go("comodo",209,143);
T8: Restrict("RE");
    Go("dewata",200,180);
T9: Restrict("RE");
    Go("ecl_in01",48,53);
T10: Go("einbech",63,35);
T11: Go("einbroch",64,200);
T12: Restrict("RE");
     Go("dicastes01",198,187);
T13: Go("geffen",119,59);
T14: Go("gonryun",160,120);
T15: Go("hugel",96,145);
T16: Go("izlude",128,(checkre(3)?146:114));
T17: Go("jawaii",251,132);
T18: Go("lighthalzen",158,92);
T19: Go("louyang",217,100);
T20: Go("xmas",147,134);
T21: Restrict("RE");
     Go("malangdo",140,114);
T22: Restrict("RE");
     Go("malaya",231,200);
T23: Go("manuk",282,138);
T24: Go("mid_camp",210,288);
T25: Restrict("RE");
     Go("mora",55,146);
T26: Go("morocc",156,93);
T27: Go("moscovia",223,184);
T28: Go("nameless_n",256,215);
T29: Go("niflheim",202,174);
T30: Go("payon",179,100);
T31: Go("rachel",130,110);
T32: Go("splendide",201,147);
T33: Go("thor_camp",246,68);
T34: Go("umbala",97,153);
T35: Go("veins",216,123);
T36: Go("yuno",157,51);


    Dungeons:
menu    "Abyss Lakes",D1, "Amatsu Dungeon",D2, "Anthell",D3,
        "Ayothaya Dungeon",D4, "Bifrost Tower",D41,
        "Bio Labs",D6, "Brasilis Dungeon",D7, "Byalan Dungeon",D8,
        "Coal Mines",D10, "Culvert",D11, "Cursed Abbey",D12,
        "Glast Heim",D17, "Hidden Dungeon",D19,
        "Ice Dungeon",D20, "Juperos",D21, "Kiel Dungeon",D22,
        "Magma Dungeon",D24, "Orc Dungeon",D29,
        "Payon Dungeon",D30, "Pyramids",D31, "Rachel Sanctuary",D32,
        "Scaraba Hole",D33, "Sphinx",D34, "Sunken Ship",D35, "Thanatos Tower",D36,
        "Thor Volcano",D37;

D1: Go("hu_fild05",167,312);
D2: Go("ama_in02",119,181);
D3: Go("cmd_fild08",328,356);
D4: Go("ayo_fild02",279,150);
D6: Go("lighthalzen",310,302);
D7: Go("bra_in01",11,180);
D8: Go("izlu2dun",108,88);
D10: Go("mjolnir_02",79,363);
D11: Go("prt_fild05",274,208);
D12: Go("ve_fild07",128,133);
D17: Go("glast_01",370,304);
D19: Go("mjolnir_12",44,21);
D20: Go("ra_fild01",233,327);
D21: Go("jupe_cave",32,53);
D22: Go("yuno_fild08",74,174);
D24: Go("yuno_fild03",34,139);
D29: Go("gef_fild10",65,335);
D30: Go("pay_arche",39,131);
D31: Go("moc_ruins",60,161);
D32: Go("ra_temple",119,174);
D33: Restrict("RE");
     Go("dic_fild01",29,78);
D34: Go("moc_fild19",100,99);
D35: Go("alb2trea",85,107);
D36: Go("hu_fild01",141,158);
D37: Go("ve_fild03",168,235);
D41: Restrict("RE");
Go("ecl_fild01",180,86);

alb2trea,57,70,6    duplicate(Warper)   Warper#tre  811
alberta,28,240,4    duplicate(Warper)   Warper#alb  811
aldebaran,145,118,4 duplicate(Warper)   Warper#alde 811
amatsu,203,87,4 duplicate(Warper)   Warper#ama  811
ayothaya,209,169,6  duplicate(Warper)   Warper#ayo  811
comodo,194,158,4    duplicate(Warper)   Warper#com  811
einbech,59,38,6 duplicate(Warper)   Warper#einbe    811
einbroch,69,202,4   duplicate(Warper)   Warper#einbr    811
gef_fild10,71,339,4 duplicate(Warper)   Warper#orc  811
geffen,127,62,4 duplicate(Warper)   Warper#gef  811
glast_01,372,308,4  duplicate(Warper)   Warper#glh  811
gonryun,162,128,4   duplicate(Warper)   Warper#gon  811
hugel,101,151,4 duplicate(Warper)   Warper#hug  811
izlu2dun,110,92,4   duplicate(Warper)   Warper#izd  811
izlude,134,150,4    duplicate(Warper)   Warper#izl  811 //Pre-RE: (132,120)
jawaii,253,138,4    duplicate(Warper)   Warper#jaw  811
lighthalzen,162,102,4   duplicate(Warper)   Warper#lhz  811
louyang,208,103,6   duplicate(Warper)   Warper#lou  811
manuk,274,146,6 duplicate(Warper)   Warper#man  811
mid_camp,216,288,4  duplicate(Warper)   Warper#mid  811
mjolnir_02,85,364,4 duplicate(Warper)   Warper#mjo  811
moc_ruins,64,164,4  duplicate(Warper)   Warper#moc  811
morocc,159,97,4 duplicate(Warper)   Warper#mor  811
moscovia,229,191,4  duplicate(Warper)   Warper#mos  811
nameless_n,259,213,4    duplicate(Warper)   Warper#nam  811
niflheim,205,179,4  duplicate(Warper)   Warper#nif  811
pay_arche,42,134,4  duplicate(Warper)   Warper#arc  811
payon,182,108,4 duplicate(Warper)   Warper#pay  811
prontera,159,183,4  duplicate(Warper)   Warper#prt  811
prt_fild05,279,223,6    duplicate(Warper)   Warper#cul  811
rachel,135,116,4    duplicate(Warper)   Warper#rac  811
splendide,205,153,4 duplicate(Warper)   Warper#spl  811
thor_camp,249,76,4  duplicate(Warper)   Warper#thor 811
umbala,106,150,3    duplicate(Warper)   Warper#umb  811
veins,214,123,4 duplicate(Warper)   Warper#ve   811
xmas,150,136,6  duplicate(Warper)   Warper#xmas 811
yuno,162,47,4   duplicate(Warper)   Warper#yuno 811
brasilis,201,222,4  duplicate(Warper)   Warper#bra  811
dewata,204,186,6    duplicate(Warper)   Warper#dew  811
dicastes01,194,194,6    duplicate(Warper)   Warper#dic  811
ecl_in01,51,60,4    duplicate(Warper)   Warper#ecl  811
malangdo,134,117,6  duplicate(Warper)   Warper#mal  811
malaya,231,204,4    duplicate(Warper)   Warper#ma   811
mora,57,152,4   duplicate(Warper)   Warper#mora 811
moc_para01,32,35,4  duplicate(Warper)   Warper#eden 811