Could you help me add this function to my warper? IVION

[kevo89]

I really like my warper, and I would like you to help me put the last save to my script, could you help me? THX!!!

Quote

 

-    script    WEfunc    -1,{

OnInit:

// [--------------------------------------------------------]
// [ Configuración:                                         ]
// [========================================================]

    set .@n$,"Warp Mistress";    // Nombre del NPC.
    set $@WEm,2;            // Modo Evolution. (0 = off | 1 = Player | 2 = Account | 3 = Global)
    set .@p,0;            // Guardar Punto de Inicio. (-1 = off | Precio)

// [--------------------------------------------------------]
// [ Final de la configuración.                             ]
// [========================================================]

    set .@a,1;
    while(!setnpcdisplay("WE#"+.@a,.@n$+"#"+.@a)) set .@a,.@a + 1;
    set $@WE$,"^008888"+.@n$+"^000000";
    if($@WEm == 2) set $@WEm$,"#";
    if($@WEm == 3) set $@WEm$,"$";
    if(.@p >= 0) {
        set $@WE,1;
        set $@WEb1$,"Guardar Punto de Inicio.";
        set $@WEc1,.@p;
        set $@WEd0[0],1;
    }

// [--------------------------------------------------------]
// [ Configuración de destinos:                             ]
// [========================================================]

    // Declaración de Grupos de Destinos:
    // callsub Onc0,{"Nombre"},{Precio};
    // Crea un nuevo Grupo de Destinos dentro del menú principal del npc.
    // Los Grupos de Destinos agrupan los diferentes Destinos con un mismo precio.
    // Ejemplo: Ciudades / Mazmorras / Áreas de WoE

    // Declaración de Destinos:
    // callsub Onc1,{Id},{"Nombre"},{"Mapa"},{x},{y},{"Mapa Activación 1"},{"Mapa Activación 2"},{...},{"Mapa Activación #"};
    // Crea un nuevo Destino dentro del último Grupo de Destinos declarado.
    // {Id}: Identificador único del destino. Ponedlo a 0 si queréis desactivar el Modo Evolution.
    // {"Mapa Activación #"}:
    //   En Modo Evolution, cuando un jugador se situe en cualquiera de estos mapas, el destino le quedará desbloqueado.
    //   Esta lista de mapas es también utilizada para hacer el recuento de personas en cada destino.

    // Declaración de Submenús:
    // callsub Onc2,{"Nombre"};
    // Crea un nuevo Submenú dentro del último Grupo de Destinos declarado.
    // Es útil para agrupar diferentes Destinos relacionados, por ejemplo para los niveles de una Dungeon.
    // Para cerrar un submenú, debeis utilizar la misma función sin argumentos.
    // callsub Onc2;

    // Cities:
    callsub Onc0,"Viajar a una Ciudad.",500;
        callsub Onc1,0,"Alberta","alberta",51,241,"alberta";
        callsub Onc1,1,"Al De Baran","aldebaran",139,121,"aldebaran";
        callsub Onc1,2,"Amatsu","amatsu",93,254,"amatsu";
        callsub Onc1,3,"Ayothaya","ayothaya",207,206,"ayothaya";
        callsub Onc1,4,"Comodo","comodo",202,113,"comodo";
        callsub Onc1,5,"Einbech","einbech",70,90,"einbech";
        callsub Onc1,6,"Einbroch","einbroch",69,196,"einbroch";
        callsub Onc1,0,"Geffen","geffen",117,70,"geffen";
        callsub Onc1,7,"Gonryun","gonryun",161,119,"gonryun";
        callsub Onc1,8,"Hugel","hugel",96,127,"hugel";
        callsub Onc1,0,"Izlude","izlude",128,92,"izlude";
        callsub Onc1,21,"Jawaii","jawaii",129,264,"jawaii";
        callsub Onc1,9,"Juno","yuno",158,84,"yuno";
        callsub Onc1,10,"Lighthalzen","lighthalzen",214,93,"lighthalzen";
        callsub Onc1,11,"Louyang","louyang",217,114,"louyang";
        callsub Onc1,12,"Lutie","xmas",148,116,"xmas";
        callsub Onc1,19,"Manuk","manuk",277,137,"manuk";        callsub Onc1,13,"Midgarts Expedition Camp","mid_camp",210,288,"mid_camp";
        callsub Onc1,0,"Morroc","morocc",161,71,"morocc";
        callsub Onc1,14,"Moscovia","moscovia",224,192,"moscovia";
        callsub Onc1,15,"Niflheim","niflheim",194,185,"niflheim";
        callsub Onc1,0,"Payon","payon",158,57,"payon";
        callsub Onc1,0,"Prontera","prontera",156,161,"prontera";
        callsub Onc1,16,"Rachel","rachel",142,139,"rachel";
        callsub Onc1,20,"Splendide","splendide",190,144,"splendide";
        callsub Onc1,17,"Umbala","umbala",122,135,"umbala";
        callsub Onc1,18,"Veins","veins",198,232,"veins";

    // Dungeons:"
    callsub Onc0,"Viajar a una Mazmorra.",1500;
        callsub Onc2,"Abyss Lake Underground Cave";
            callsub Onc1,31,"Abyss Lake Underground Cave F1","abyss_01",263,271,"abyss_01";
            callsub Onc1,91,"Abyss Lake Underground Cave F2","abyss_02",275,270,"abyss_02";
            callsub Onc1,92,"Abyss Lake Underground Cave F3","abyss_03",116,27,"abyss_03";
        callsub Onc2,"Amatsu Dungeon";
            callsub Onc1,32,"Tatami Maze","ama_dun01",230,11,"ama_dun01";
            callsub Onc1,93,"Battle Field in the Underground Forest","ama_dun02",34,41,"ama_dun02";
            callsub Onc1,94,"Amatsu Underground Shrine","ama_dun03",119,14,"ama_dun03";
        callsub Onc2,"Ant Hell";
            callsub Onc1,33,"Ant Hell F1","anthell01",35,262,"anthell01";
            callsub Onc1,95,"Ant Hell F2","anthell02",168,170,"anthell02";
        callsub Onc2,"Ayothaya Ancient Shrine";
            callsub Onc1,34,"Ancient Shrine Maze","ayo_dun01",275,19,"ayo_dun01";
            callsub Onc1,96,"Inside Ancient Shrine","ayo_dun02",24,26,"ayo_dun02";
        callsub Onc2,"Beach Dungeon";
            callsub Onc1,64,"Karu, the West Cave","beach_dun",266,67,"beach_dun";
            callsub Onc1,65,"Ruande, the North Cave","beach_dun2",255,244,"beach_dun2";
            callsub Onc1,66,"Mao, the East Cave","beach_dun3",23,260,"beach_dun3";
        callsub Onc2,"Clock Tower";
            callsub Onc1,97,"Clock Tower B1","alde_dun01",297,25,"alde_dun01";
            callsub Onc1,98,"Clock Tower B2","alde_dun02",127,169,"alde_dun02";
            callsub Onc1,99,"Clock Tower B3","alde_dun03",277,178,"alde_dun03";
            callsub Onc1,100,"Clock Tower B4","alde_dun04",268,74,"alde_dun04";
            callsub Onc1,35,"Clock Tower F1","c_tower1",199,159,"c_tower1";
            callsub Onc1,101,"Clock Tower F2","c_tower2",148,283,"c_tower2";
            callsub Onc1,102,"Clock Tower F3","c_tower3",65,147,"c_tower3";
            callsub Onc1,103,"Clock Tower F4","c_tower4",56,155,"c_tower4";
        callsub Onc2,"Cursed Abbey Dungeon";
            callsub Onc1,36,"Cursed Abbey Dungeon F1","abbey01",51,14,"abbey01";
            callsub Onc1,104,"Cursed Abbey Dungeon F2","abbey02",150,11,"abbey02";
            callsub Onc1,105,"Cursed Abbey Dungeon F3","abbey03",120,10,"abbey03";
        callsub Onc2,"Geffen Dungeon";
            callsub Onc1,37,"Geffen Dungeon F1","gef_dun00",104,97,"gef_dun00";
            callsub Onc1,106,"Geffen Dungeon F2","gef_dun01",115,236,"gef_dun01";
            callsub Onc1,107,"Geffen Dungeon F3","gef_dun02",106,132,"gef_dun02";
            callsub Onc1,108,"Geffenia F1","gefenia01",58,169,"gefenia01";
            callsub Onc1,109,"Geffenia F2","gefenia02",116,115,"gefenia02";
            callsub Onc1,110,"Geffenia F3","gefenia03",130,206,"gefenia03";
            callsub Onc1,111,"Geffenia F4","gefenia04",133,88,"gefenia04";
        callsub Onc2,"Glast Heim";
            callsub Onc1,112,"Glast Heim F1","gl_cas01",199,29,"gl_cas01";
            callsub Onc1,113,"Glast Heim F2","gl_cas02",104,25,"gl_cas02";
            callsub Onc1,114,"Glast Heim Churchyard","gl_chyard",147,15,"gl_chyard";
            callsub Onc1,115,"Glast Heim Culvert F1","gl_sew01",258,255,"gl_sew01";
            callsub Onc1,116,"Glast Heim Culvert F2","gl_sew02",108,291,"gl_sew02";
            callsub Onc1,117,"Glast Heim Culvert F3","gl_sew03",171,283,"gl_sew03";
            callsub Onc1,118,"Glast Heim Culvert F4","gl_sew04",68,277,"gl_sew04";
            callsub Onc1,119,"Glast Heim St. Abbey","gl_church",156,7,"gl_church";
            callsub Onc1,120,"Glast Heim Staircase","gl_step",12,7,"gl_step";
            callsub Onc1,121,"Glast Heim Underprison F1","gl_prison",14,70,"gl_prison";
            callsub Onc1,122,"Glast Heim Underprison F2","gl_prison1",150,14,"gl_prison1";
            callsub Onc1,123,"Inside Glast Heim Chivalry F1","gl_knt01",150,15,"gl_knt01";
            callsub Onc1,124,"Inside Glast Heim Chivalry F2","gl_knt02",157,287,"gl_knt02";
            callsub Onc1,125,"The Lowest Cave in Glast Heim F1","gl_dun01",133,271,"gl_dun01";
            callsub Onc1,126,"The Lowest Cave in Glast Heim F2","gl_dun02",224,274,"gl_dun02";
        callsub Onc2,"Gonryun Ancient Shrine";
            callsub Onc1,39,"Shrine of Gonryun Queen","gon_dun01",153,53,"gon_dun01";
            callsub Onc1,127,"Hermit's Checkers","gon_dun02",28,113,"gon_dun02";
            callsub Onc1,128,"Arcadia","gon_dun03",68,16,"gon_dun03";
        callsub Onc2,"Holy Ground";
            callsub Onc1,40,"Holy Ground F1","ra_san01",140,135,"ra_san01";
            callsub Onc1,129,"Holy Ground F2","ra_san02",32,21,"ra_san02";
            callsub Onc1,130,"Holy Ground F3","ra_san03",10,149,"ra_san03";
            callsub Onc1,131,"Holy Ground F4","ra_san04",204,218,"ra_san04";
            callsub Onc1,132,"Holy Ground F5","ra_san05",150,9,"ra_san05";
        callsub Onc2,"Ice Cave";
            callsub Onc1,41,"Ice Cave F1","ice_dun01",157,14,"ice_dun01";
            callsub Onc1,133,"Ice Cave F2","ice_dun02",151,155,"ice_dun02";
            callsub Onc1,134,"Ice Cave F3","ice_dun03",149,22,"ice_dun03";
        callsub Onc2,"Labyrinth Forest";
            callsub Onc1,42,"Labyrinth Forest F1","prt_maze01",176,7,"prt_maze01";
            callsub Onc1,136,"Labyrinth Forest F2","prt_maze02",93,20,"prt_maze02";
            callsub Onc1,137,"Labyrinth Forest F3","prt_maze03",23,8,"prt_maze03";
        callsub Onc2,"Mine Dungeon";
            callsub Onc1,43,"Mine Dungeon F1","ein_dun01",22,14,"ein_dun01";
            callsub Onc1,138,"Mine Dungeon F2","ein_dun02",292,290,"ein_dun02";
        callsub Onc2,"Mjolnir Dead Pit";
            callsub Onc1,44,"Mjolnir Dead Pit F1","mjo_dun01",52,17,"mjo_dun01";
            callsub Onc1,139,"Mjolnir Dead Pit F2","mjo_dun02",381,343,"mjo_dun02";
            callsub Onc1,140,"Mjolnir Dead Pit F3","mjo_dun03",302,262,"mjo_dun03";
        callsub Onc2,"Moscovia Forest";
            callsub Onc1,45,"Forest","mosk_dun01",189,45,"mosk_dun01";
            callsub Onc1,141,"Deep Forest","mosk_dun02",165,30,"mosk_dun02";
            callsub Onc1,142,"Bottomless Forest","mosk_dun03",32,135,"mosk_dun03";
        callsub Onc2,"Nogg Road";
            callsub Onc1,46,"Nogg Road F1","mag_dun01",126,68,"mag_dun01";
            callsub Onc1,143,"Nogg Road F2","mag_dun02",47,30,"mag_dun02";
        callsub Onc2,"Odin Shrine";
            callsub Onc1,47,"Odin Shrine F1","odin_tem01",98,146,"odin_tem01";
            callsub Onc1,144,"Odin Shrine F2","odin_tem02",28,180,"odin_tem02";
            callsub Onc1,145,"Odin Shrine F3","odin_tem03",120,54,"odin_tem03";
        callsub Onc2,"Orc Dungeon";
            callsub Onc1,48,"Orc Dungeon F1","orcsdun01",32,170,"orcsdun01";
            callsub Onc1,146,"Orc Dungeon F2","orcsdun02",21,185,"orcsdun02";
        callsub Onc2,"Payon Cave";
            callsub Onc1,49,"Payon Cave F1","pay_dun00",21,183,"pay_dun00";
            callsub Onc1,147,"Payon Cave F2","pay_dun01",19,33,"pay_dun01";
            callsub Onc1,148,"Payon Cave F3","pay_dun02",19,63,"pay_dun02";
            callsub Onc1,149,"Payon Cave F4","pay_dun03",155,159,"pay_dun03";
            callsub Onc1,150,"Payon Cave F5","pay_dun04",201,204,"pay_dun04";
        callsub Onc2,"Prontera Culvert";
            callsub Onc1,50,"Prontera Culvert F1","prt_sewb1",125,248,"prt_sewb1";
            callsub Onc1,151,"Prontera Culvert F2","prt_sewb2",19,19,"prt_sewb2";
            callsub Onc1,152,"Prontera Culvert F3","prt_sewb3",180,169,"prt_sewb3";
            callsub Onc1,153,"Prontera Culvert F4","prt_sewb4",100,92,"prt_sewb4";
        callsub Onc2,"Pyramid";
            callsub Onc1,51,"Pyramid F1","moc_pryd01",192,9,"moc_pryd01";
            callsub Onc1,154,"Pyramid F2","moc_pryd02",10,192,"moc_pryd02";
            callsub Onc1,155,"Pyramid F3","moc_pryd03",100,92,"moc_pryd03";
            callsub Onc1,156,"Pyramid F4","moc_pryd04",181,11,"moc_pryd04";
            callsub Onc1,157,"Pyramid B1","moc_pryd05",94,96,"moc_pryd05";
            callsub Onc1,158,"Pyramid B2","moc_pryd06",192,8,"moc_pryd06";
        callsub Onc2,"Robot Factory";
            callsub Onc1,52,"Robot Factory F1","kh_dun01",3,228,"kh_dun01";
            callsub Onc1,159,"Robot Factory F2","kh_dun02",41,198,"kh_dun02";
        callsub Onc2,"Royal Tomb";
            callsub Onc1,53,"The Royal Tomb","lou_dun01",218,196,"lou_dun01";
            callsub Onc1,160,"Inside the Royal Tomb","lou_dun02",282,20,"lou_dun02";
            callsub Onc1,161,"Suei Long Gon","lou_dun03",165,38,"lou_dun03";
        callsub Onc2,"Ruins of Juperos";
            callsub Onc1,54,"Ruins of Juperos F1","juperos_01",53,247,"juperos_01";
            callsub Onc1,162,"Ruins of Juperos F2","juperos_02",37,63,"juperos_02";
            callsub Onc1,163,"Center of Juperos","jupe_core",150,285,"jupe_core";
        callsub Onc2,"Somatology Laboratory";
            callsub Onc1,164,"Somatology Laboratory F1","lhz_dun01",150,288,"lhz_dun01";
            callsub Onc1,55,"Somatology Laboratory F2","lhz_dun02",150,18,"lhz_dun02";
            callsub Onc1,165,"Somatology Laboratory F3","lhz_dun03",140,133,"lhz_dun03";
        callsub Onc2,"Sphinx";
            callsub Onc1,56,"Sphinx F1","in_sphinx1",288,9,"in_sphinx1";
            callsub Onc1,166,"Sphinx F2","in_sphinx2",149,81,"in_sphinx2";
            callsub Onc1,167,"Sphinx F3","in_sphinx3",210,54,"in_sphinx3";
            callsub Onc1,168,"Sphinx F4","in_sphinx4",10,222,"in_sphinx4";
            callsub Onc1,169,"Sphinx F5","in_sphinx5",100,99,"in_sphinx5";
        callsub Onc2,"Sunken Ship";
            callsub Onc1,57,"Sunken Ship F1","treasure01",69,24,"treasure01";
            callsub Onc1,170,"Sunken Ship F2","treasure02",102,27,"treasure02";
        callsub Onc2,"Thanatos Tower";
            callsub Onc1,58,"Thanatos Tower F1","tha_t01",150,39,"tha_t01";
            callsub Onc1,171,"Thanatos Tower F2","tha_t02",150,136,"tha_t02";
            callsub Onc1,172,"Thanatos Tower F3","tha_t03",220,158,"tha_t03";
            callsub Onc1,173,"Thanatos Tower F4","tha_t04",59,143,"tha_t04";
            callsub Onc1,174,"Thanatos Tower F5","tha_t05",62,11,"tha_t05";
            callsub Onc1,175,"Thanatos Tower F6","tha_t06",206,11,"tha_t06";
            callsub Onc1,176,"Thanatos Tower F7","tha_t07",35,166,"tha_t07";
            callsub Onc1,177,"Thanatos Tower F8","tha_t08",28,43,"tha_t08";
            callsub Onc1,178,"Thanatos Tower F9","tha_t09",20,96,"tha_t09";
            callsub Onc1,179,"Thanatos Tower F10","tha_t10",155,100,"tha_t10";
            callsub Onc1,180,"Thanatos Tower F11","tha_t11",49,18,"tha_t11";
            callsub Onc1,181,"Thanatos Tower F12","tha_t12",115,16,"tha_t12";
        callsub Onc2,"Thor Volcano Dungeon";
            callsub Onc1,59,"Thor Volcano Dungeon F1","thor_v01",21,228,"thor_v01";
            callsub Onc1,182,"Thor Volcano Dungeon F2","thor_v02",75,205,"thor_v02";
            callsub Onc1,183,"Thor Volcano Dungeon F3","thor_v03",35,262,"thor_v03";
        callsub Onc2,"Toy Factory";
            callsub Onc1,60,"Toy Factory Warehouse","xmas_dun01",205,15,"xmas_dun01";
            callsub Onc1,184,"Toy Monitoring Room","xmas_dun02",129,133,"xmas_dun02";
        callsub Onc2,"Turtle Island";
            callsub Onc1,61,"Turtle Island","tur_dun01",154,49,"tur_dun01";
            callsub Onc1,185,"Turtle Island Dungeon","tur_dun02",148,261,"tur_dun02";
            callsub Onc1,186,"Good Turtles Village","tur_dun03",132,189,"tur_dun03";
            callsub Onc1,187,"Turtle Palace","tur_dun04",100,192,"tur_dun04";
        callsub Onc2,"Umbala Dungeon";
            callsub Onc1,62,"Carpenter's Shop in the Tree","um_dun01",42,31,"um_dun01";
            callsub Onc1,188,"Passage to a Foreign World","um_dun02",48,30,"um_dun02";
            callsub Onc1,193,"Hvergelmir's Fountain","yggdrasil01",40,63,"yggdrasil01";
        callsub Onc2,"Undersea Tunnel";
            callsub Onc1,63,"Undersea Tunnel F1","iz_dun00",168,168,"iz_dun00";
            callsub Onc1,189,"Undersea Tunnel F2","iz_dun01",253,252,"iz_dun01";
            callsub Onc1,190,"Undersea Tunnel F3","iz_dun02",236,204,"iz_dun02";
            callsub Onc1,191,"Undersea Tunnel F4","iz_dun03",32,63,"iz_dun03";
            callsub Onc1,192,"Undersea Tunnel F5","iz_dun04",26,27,"iz_dun04";

    // WoE Areas:
    callsub Onc0,"Viajar a un Área de WoE.",1500;
        callsub Onc1,0,"Britoniah","gef_fild13",186,242,"gef_fild13","gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05","gld_dun04";
        callsub Onc1,0,"Greenwood Lake","pay_gld",196,165,"pay_gld","payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05","gld_dun01";
        callsub Onc1,0,"Luina","alde_gld",228,153,"alde_gld","aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05","gld_dun02";
        callsub Onc1,0,"Nidhoggur","sch_gld",287,123,"sch_gld","schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05","schg_dun01";
        callsub Onc1,0,"Valfreyja","aru_gld",187,325,"aru_gld","arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05","arug_dun01";
        callsub Onc1,0,"Valkyrie Realm","prt_gld",160,75,"prt_gld","prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05","gld_dun03";

    // Identificadores disponibles: [22,30] U [68,90] U [194,...)

// [--------------------------------------------------------]
// [ Final de la configuración de destinos.                 ]
// [========================================================]

    set $@WE,0;
    set $@WEm,0;
    set $@WEd[0],0;
    set $@WEd[1],0;
    end;

// Declaración del Grupos de Destinos:
// getarg(0): Nombre.
// getarg(1): Precio.
Onc0:
    set $@WE,$@WE + 1;
    set getd("$@WEb"+$@WE+"$"),getarg(0);
    set getd("$@WEc"+$@WE),getarg(1);
    set .@a,getarraysize($@WEd0);
    set $@WEd0[.@a],$@WE;
    set $@WEd[0],$@WE;
    set $@WEd[1],0;
    return;

// Declaración de Destinos:
// getarg(0): Id.
// getarg(1): Nombre.
// getarg(2): Mapa.
// getarg(3): x.
// getarg(4): y.
Onc1:
    if($@WEd[0]) {
        set $@WE,$@WE + 1;
        if($@WEm) set .@a,getarg(0);
        set getd("$@WEa"+$@WE),.@a;
        set getd("$@WEb"+$@WE+"$"),getarg(1);
        set getd("$@WEe"+$@WE+"$"),getarg(2);
        set getd("$@WEf"+$@WE),getarg(3);
        set getd("$@WEg"+$@WE),getarg(4);
        set .@b,5;
        while(getarg(.@b,"") != "") { // Mapas de activación:
            set .@m$,getarg(.@b);
            set getd("$@WEh"+$@WE+"$["+(.@b - 5)+"]"),.@m$;
            if(.@a) {
                setmapflag .@m$,42;
                set getd("$@WE_"+.@m$+"["+getarraysize(getd("$@WE_"+.@m$))+"]"),$@WE;
            }
            set .@b,.@b + 1;
        }
        set .@a,$@WEd[getarraysize($@WEd) - 1];
        set .@b,getarraysize(getd("$@WEd"+.@a));
        set getd("$@WEd"+.@a+"["+.@b+"]"),$@WE;
    }
    return;

// Declaración de Submenús:
// getarg(0): Nombre.
Onc2:
    if($@WEd[0]) {
        if(getarg(0,"") == "") set $@WEd[1],0;
        else {
            set $@WE,$@WE + 1;
            set getd("$@WEb"+$@WE+"$"),getarg(0);
            set .@a,$@WEd[0];
            set .@b,getarraysize(getd("$@WEd"+.@a));
            set getd("$@WEd"+.@a+"["+.@b+"]"),$@WE;
            set $@WEd[1],$@WE;
        }
    }
    return;

// Activación de Destinos:
OnPCLoadMapEvent:
    getmapxy .@m$,.@x,.@y,0;
    set .@a,getarraysize(getd("$@WE_"+.@m$));
    while(.@a > 0) {
        set .@a,.@a - 1;
        set .@b,getd("$@WE_"+.@m$+"["+.@a+"]");
        set .@c,getd("$@WEa"+.@b);
        set .@d,getd($@WEm$+"WE_"+(.@c / 31));
        if(!(.@d & pow(2,.@c % 31))) {
            if($@WEm$ == "$") set .@e,0;
            else set .@e,3;
            announce "Nuevo destino desactivado: "+getd("$@WEb"+.@b+"$")+".",.@e,0x00ccdd;
            set getd($@WEm$+"WE_"+(.@c / 31)),.@d + pow(2,.@c % 31);
        }
    }
    end;
}

// Npcs:
-    script    WE#0::WE    -1,{

    mes $@WE$;
    mes "Hola "+strcharinfo(0)+".";
    mes "¿En que puedo ayudarte?";
    next;
    while(.@a < getarraysize($@WEd0)) {
        set .@b,$@WEd0[.@a];
        set .@a$[.@a],getd("$@WEb"+.@b+"$");
        set .@b,getd("$@WEc"+.@b);
        if(.@b) {
            if(Zeny < .@b) set .@a$[.@a],"^bbbbbb"+.@a$[.@a]+" ^bb0000("+.@b+" z)^000000";
            else set .@a$[.@a],.@a$[.@a]+" ^00bb00("+.@b+" z)^000000";
        }
        set .@a,.@a + 1;
    }
    set .@a,select("^880000Salir^000000",.@a$[0],.@a$[1],.@a$[2],.@a$[3],.@a$[4],.@a$[5],.@a$[6],.@a$[7],.@a$[8],.@a$[9],.@a$[10],.@a$[11],.@a$[12],.@a$[13],.@a$[14],.@a$[15],.@a$[16],.@a$[17],.@a$[18],.@a$[19]);
    if(.@a == 1) {
        mes $@WE$;
        mes "Hasta pronto.";
        emotion 12;
        close;
    }
    set .@a,$@WEd0[.@a - 2];
    set .@b,getd("$@WEc"+.@a);
    callsub Ona0,.@b;
    mes $@WE$;
    if(.@a == 1) {
        getmapxy .@m$,.@x,.@y,0;
        set Zeny,Zeny - .@b;
                mes "Muy bien.";
        mes "A partir de ahora este lugar quedará guardado como tu Punto de Inicio.";
        save .@m$,.@x,.@y;
        specialeffect2 500;
        close2;
        emotion 12;
        end;
    }
    mes "Elige tu Destino.";
    next;
    do {
        cleararray .@a$[0],"",getarraysize(.@a$);
        set .@c,0;
        while(.@c < getarraysize(getd("$@WEd"+.@a))) {
            set .@d,getd("$@WEd"+.@a+"["+.@c+"]");
            set .@e,getd("$@WEa"+.@d);
            set .@b$,"bbbbbb";
            set .@c$,"";
            if(getd("$@WEe"+.@d+"$") == "") {
                set .@g,getarraysize(getd("$@WEd"+.@d));
                set .@f,0;
                while(.@g && !.@f) {
                    set .@g,.@g - 1;
                    set .@e,getd("$@WEa"+getd("$@WEd"+.@d+"["+.@g+"]"));
                    if(!.@e || (getd($@WEm$+"WE_"+(.@e / 31)) & pow(2,.@e % 31))) set .@f,1;
                }
                if(.@f) set .@b$,"000000";
            }
            else if(!.@e || (getd($@WEm$+"WE_"+(.@e / 31)) & pow(2,.@e % 31))) {
                set .@b$,"000000";
                set .@g,0;
                set .@f,getarraysize(getd("$@WEh"+.@d+"$"));
                while(.@f > 0) {
                    set .@f,.@f - 1;
                    set .@g,.@g + getmapusers(getd("$@WEh"+.@d+"$["+.@f+"]"));
                }
                if(.@g) set .@c$,"00bb00";
                else set .@c$,"aaaaaa";
                set .@c$," [^"+.@c$+""+.@g+"^000000]";
            }
            set .@a$[.@c],"^"+.@b$+""+getd("$@WEb"+.@d+"$")+"^000000"+.@c$;
            set .@c,.@c + 1;
        }
        if(.@h) set .@b$,"Atrás";
        else set .@b$,"Salir";
        set .@c,select("^880000"+.@b$+"^000000",.@a$[0],.@a$[1],.@a$[2],.@a$[3],.@a$[4],.@a$[5],.@a$[6],.@a$[7],.@a$[8],.@a$[9],.@a$[10],.@a$[11],.@a$[12],.@a$[13],.@a$[14],.@a$[15],.@a$[16],.@a$[17],.@a$[18],.@a$[19],.@a$[20],.@a$[21],.@a$[22],.@a$[23],.@a$[24],.@a$[25],.@a$[26],.@a$[27],.@a$[28],.@a$[29],.@a$[30],.@a$[31],.@a$[32],.@a$[33],.@a$[34],.@a$[35],.@a$[36],.@a$[37],.@a$[38],.@a$[39],.@a$[40],.@a$[41],.@a$[42],.@a$[43],.@a$[44],.@a$[45],.@a$[46],.@a$[47],.@a$[48],.@a$[49]);
        if(.@c == 1) {
            if(.@h) {
                set .@a,.@h;
                set .@h,0;
            }
            else {
                mes $@WE$;
                mes "Hasta pronto.";
                emotion 12;
                close;
            }
        }
        else {
            set .@c,.@c - 2;
            if(compare(.@a$[.@c],"^bbbbbb")) {
                mes $@WE$;
                mes "Lo siento.";
                mes "Este destino aún no se encuentra disponible.";
                emotion 40;
                close;
            }
            set .@h,.@a;
            set .@a,getd("$@WEd"+.@a+"["+.@c+"]");
        }
    } while(getd("$@WEe"+.@a+"$") == "");
    callsub Ona0,.@b;
    set Zeny,Zeny - .@b;
    mes $@WE$;
    mes "Muy bien.";
    mes "Espera un segundo mientras te abro un portal...";
    close2;
    specialeffect2 71;
    pcblockmove getcharid(3),1;
    sleep2 500;
    specialeffect2 402;
    sleep2 500;
    emotion 12;
    specialeffect2 6;
    sleep2 200;
    specialeffect2 304;
    warp getd("$@WEe"+.@a+"$"),getd("$@WEf"+.@a),getd("$@WEg"+.@a);
    pcblockmove getcharid(3),0;
    end;

Ona0:
    set .@a,getarg(0);
    if(Zeny < .@a) {
        mes $@WE$;
        mes "Lo siento.";
        mes "Para utilizar este servicio deberás pagar ^880000"+.@a+" z^000000.";
        emotion 40;
        close;
    }
    return;
}

alberta,195,142,4    duplicate(WE)    WE#1    671
alberta,47,250,5    duplicate(WE)    WE#2    671
aldebaran,133,120,6    duplicate(WE)    WE#3    671
aldebaran,133,240,6    duplicate(WE)    WE#4    671
alde_gld,234,154,4    duplicate(WE)    WE#5    671
amatsu,244,283,6    duplicate(WE)    WE#6    671
amatsu,103,258,4    duplicate(WE)    WE#7    671
amatsu,207,104,4    duplicate(WE)    WE#8    671
ayothaya,212,208,4    duplicate(WE)    WE#9    671
ayothaya,157,82,4    duplicate(WE)    WE#10    671
comodo,180,333,4    duplicate(WE)    WE#11    671
comodo,205,116,4    duplicate(WE)    WE#12    671
comodo,320,179,4    duplicate(WE)    WE#13    671
comodo,32,219,6    duplicate(WE)    WE#14    671
einbech,67,96,6    duplicate(WE)    WE#15    671
einbech,131,249,6    duplicate(WE)    WE#16    671
einbech,38,201,8    duplicate(WE)    WE#17    671
einbroch,78,187,2    duplicate(WE)    WE#18    671
einbroch,153,317,6    duplicate(WE)    WE#19    671
einbroch,152,53,4    duplicate(WE)    WE#20    671
einbroch,245,239,2    duplicate(WE)    WE#21    671
geffen,123,73,4    duplicate(WE)    WE#22    671
geffen,41,111,6    duplicate(WE)    WE#23    671
geffen,124,181,4    duplicate(WE)    WE#24    671
geffen,167,123,6    duplicate(WE)    WE#25    671
gef_fild13,191,248,4    duplicate(WE)    WE#26    671
gonryun,152,114,6    duplicate(WE)    WE#27    671
gonryun,172,182,2    duplicate(WE)    WE#28    671
gonryun,157,18,6    duplicate(WE)    WE#29    671
hugel,101,134,4    duplicate(WE)    WE#30    671
hugel,176,174,4    duplicate(WE)    WE#31    671
izlude,121,98,6    duplicate(WE)    WE#32    671
jawaii,135,259,4    duplicate(WE)    WE#33    671
yuno,175,93,4    duplicate(WE)    WE#34    671
yuno,64,207,4    duplicate(WE)    WE#35    671
sch_gld,291,127,4    duplicate(WE)    WE#36    671
lighthalzen,209,99,6    duplicate(WE)    WE#37    671
lighthalzen,218,326,4    duplicate(WE)    WE#38    671
lighthalzen,311,303,4    duplicate(WE)    WE#39    671
louyang,207,104,6    duplicate(WE)    WE#40    671
louyang,57,250,4    duplicate(WE)    WE#41    671
xmas,139,310,6    duplicate(WE)    WE#42    671
xmas,157,110,4    duplicate(WE)    WE#43    671
morocc,166,80,4    duplicate(WE)    WE#44    671
morocc,43,174,4    duplicate(WE)    WE#45    671
morocc,166,293,4    duplicate(WE)    WE#46    671
morocc,275,197,8    duplicate(WE)    WE#47    671
morocc,33,294,4    duplicate(WE)    WE#48    671
moscovia,238,194,4    duplicate(WE)    WE#49    671
moscovia,157,64,4    duplicate(WE)    WE#50    671
niflheim,25,156,6    duplicate(WE)    WE#51    671
niflheim,201,184,4    duplicate(WE)    WE#52    671
payon,213,76,6    duplicate(WE)    WE#53    671
payon,164,49,2    duplicate(WE)    WE#54    671
payon,232,320,4    duplicate(WE)    WE#55    671
payon,63,124,6    duplicate(WE)    WE#56    671
pay_gld,201,161,4    duplicate(WE)    WE#57    671
prontera,165,75,4    duplicate(WE)    WE#58    671
prontera,36,212,6    duplicate(WE)    WE#59    671
prontera,152,184,4    duplicate(WE)    WE#60    671
prontera,263,213,4    duplicate(WE)    WE#61    671
prontera,161,316,4    duplicate(WE)    WE#62    671
prt_gld,166,79,4    duplicate(WE)    WE#63    671
rachel,260,136,4    duplicate(WE)    WE#64    671
rachel,150,140,4    duplicate(WE)    WE#65    671
rachel,135,49,4    duplicate(WE)    WE#66    671
rachel,35,131,6    duplicate(WE)    WE#67    671
aru_gld,179,330,6    duplicate(WE)    WE#68    671
umbala,117,130,8    duplicate(WE)    WE#69    671
umbala,163,253,4    duplicate(WE)    WE#70    671
veins,205,236,4    duplicate(WE)    WE#71    671
veins,222,356,4    duplicate(WE)    WE#72    671
veins,153,62,6    duplicate(WE)    WE#73    671
mid_camp,215,287,4    duplicate(WE)    WE#74    671
mid_camp,134,233,6    duplicate(WE)    WE#75    671
mid_camp,256,230,8    duplicate(WE)    WE#76    671
manuk,285,128,2    duplicate(WE)    WE#77    671
manuk,183,181,6    duplicate(WE)    WE#78    671
splendide,181,141,6    duplicate(WE)    WE#79    671
hu_fild05,190,211,5    duplicate(WE)    WE#80    671
ama_dun01,233,14,4    duplicate(WE)    WE#81    671
anthell01,39,263,4    duplicate(WE)    WE#82    671
anthell02,168,173,4    duplicate(WE)    WE#83    671
ayo_fild02,279,153,4    duplicate(WE)    WE#84    671
izlu2dun,103,96,6    duplicate(WE)    WE#85    671
mjolnir_02,84,360,4    duplicate(WE)    WE#86    671
nameless_n,158,179,8    duplicate(WE)    WE#87    671
gef_dun00,107,99,4    duplicate(WE)    WE#88    671
glast_01,371,295,2    duplicate(WE)    WE#89    671
glast_01,191,120,6    duplicate(WE)    WE#90    671
glast_01,65,110,6    duplicate(WE)    WE#91    671
glast_01,195,292,6    duplicate(WE)    WE#92    671
glast_01,65,197,8    duplicate(WE)    WE#93    671
prt_fild01,140,366,4    duplicate(WE)    WE#94    671
mjolnir_12,48,20,2    duplicate(WE)    WE#95    671
ra_san01,143,131,2    duplicate(WE)    WE#96    671
ra_fild01,237,332,4    duplicate(WE)    WE#97    671
jupe_cave,47,55,6    duplicate(WE)    WE#98    671
yuno_fild03,34,135,8    duplicate(WE)    WE#99    671
kh_dun01,5,230,4    duplicate(WE)    WE#100    671
mosk_fild02,194,252,4    duplicate(WE)    WE#101    671
odin_tem01,96,143,8    duplicate(WE)    WE#102    671
gef_fild10,61,334,6    duplicate(WE)    WE#103    671
prt_fild10,219,199,6    duplicate(WE)    WE#104    671
pay_arche,37,127,8    duplicate(WE)    WE#105    671
prt_sewb1,127,252,4    duplicate(WE)    WE#106    671
moc_ruins,55,157,6    duplicate(WE)    WE#107    671
moc_fild19,106,97,8    duplicate(WE)    WE#108    671
alb2trea,74,101,6    duplicate(WE)    WE#109    671
tha_scene01,141,194,2    duplicate(WE)    WE#110    671
ve_fild03,172,238,4    duplicate(WE)    WE#111    671
tur_dun01,147,54,6    duplicate(WE)    WE#112    671
cmd_fild01,31,320,6    duplicate(WE)    WE#113    671
beach_dun2,254,248,4    duplicate(WE)    WE#114    671
order_c,70,62,4    duplicate(WE)    WE#115    671
chaos_c,86,51,4    duplicate(WE)    WE#116    671