Please help with this script to 2 the following 2 things:
1- Add a Last Warp function to the Warper menu and place it as the first option to choose.
2- Delete the Exit option from all the menu, I consider that completely unneccesary due to the fact we have cancel buttom.
Very Important:
"Notice that must be this one, because I have never seen another warper with this feature (unlock destinys on it's menu once you visit the place, so you are able to visit them again anytime)".
The script is very old, with confusing arrays and I don't dare to touch anything afraid to ruin it!
Last thing, some explanations of the args inside the script are in spanish nothing to fear inexpert hands.
// [========================================================]
// [=========== Warper Evolution ===========]
// [========================================================]
- script WEfunc -1,{
OnInit:
// [--------------------------------------------------------]
// [ Configuration: ]
// [========================================================]
set .@n$,"Warper Evolution"; //NPC NAME.
set $@WEm,2; // Evolution Mode. (0 = off | 1 = Player | 2 = Account | 3 = Global)
set .@p,0; // Save Respawn Point. (-1 = off | Price)
// [--------------------------------------------------------]
// [ End of the config. ]
// [========================================================]
set .@a,0;
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$,"Save Respawn.";
set $@WEc1,.@p;
set $@WEd0[0],1;
set $@WE,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.
// Submenu:
// callsub Onc2,{"Name"};
// 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,"City Warp.",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,"Warp to Dungeons.",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 Onc1,194,"Somatology Laboratory F4","lhz_dun04",140,133,"lhz_dun04";
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,"Warp to WoE Fields.",1500;
callsub Onc1,0,"Woe Area","prt_are01",149,151;
// Available Ids: [22,30] U [68,90] U [194,...)
// [--------------------------------------------------------]
// [ Final Destiny Conf. ]
// [========================================================]
set $@WE,0;
set $@WEm,0;
set $@WEd[0],0;
set $@WEd[1],0;
end;
// Destiny Groups Declaration:
// getarg(0): Name.
// getarg(1): Price.
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;
// Destiny Declaration:
// getarg(0): Id.
// getarg(1): Name.
// getarg(2): Map.
// 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(.@;
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;
// Submenus Declaration:
// getarg(0): Name.
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;
// Place Unlocking:
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"+.@;
set .@d,getd($@WEm$+"WE_"+(.@c / 31));
if(!(.@d & pow(2,.@c % 31))) {
if($@WEm$ == "$") set .@e,0;
else set .@e,3;
announce "New Place Unlocked: "+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 "Hello "+strcharinfo(0)+".";
mes "¿How can I help you?";
next;
while(.@a < getarraysize($@WEd0)) {
set .@b,$@WEd0[.@a];
set .@a$[.@a],getd("$@WEb"+.@b+"$");
set .@b,getd("$@WEc"+.@;
if(.@ {
if(Zeny < .@ 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("^880000Exit^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 "See you later.";
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 "This will be your respawn pont from now.";
save .@m$,.@x,.@y;
specialeffect2 500;
close;
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$,"Back";
else set .@b$,"Exit";
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 "Come back soon.";
emotion 12;
close;
}
}
else {
set .@c,.@c - 2;
if(compare(.@a$[.@c],"^bbbbbb")) {
mes $@WE$;
mes "Sorry.";
mes "the destiny is not available yet.";
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 "Opening Portal, Wait a second.";
next;
specialeffect2 71;
sleep2 450;
specialeffect2 402;
sleep2 250;
emotion 12;
specialeffect2 6;
sleep2 250;
specialeffect2 304;
warp getd("$@WEe"+.@a+"$"),getd("$@WEf"+.@a),getd("$@WEg"+.@a);
end;
Ona0:
set .@a,getarg(0);
if(Zeny < .@a) {
mes $@WE$;
mes "Sorry.";
mes "You must pay ^880000"+.@a+" z^000000. in order to use the service";
emotion 40;
close;
}
return;
}
alberta,195,142,4 duplicate(WE) WE#1 918
alberta,47,250,5 duplicate(WE) WE#2 918
aldebaran,133,120,6 duplicate(WE) WE#3 918
aldebaran,133,240,6 duplicate(WE) WE#4 918
alde_gld,234,154,4 duplicate(WE) WE#5 918
amatsu,244,283,6 duplicate(WE) WE#6 918
amatsu,103,258,4 duplicate(WE) WE#7 918
amatsu,207,104,4 duplicate(WE) WE#8 918
ayothaya,212,208,4 duplicate(WE) WE#9 918
ayothaya,157,82,4 duplicate(WE) WE#10 918
comodo,180,333,4 duplicate(WE) WE#11 918
comodo,205,116,4 duplicate(WE) WE#12 918
comodo,320,179,4 duplicate(WE) WE#13 918
comodo,32,219,6 duplicate(WE) WE#14 918
einbech,67,96,6 duplicate(WE) WE#15 918
einbech,131,249,6 duplicate(WE) WE#16 918
einbech,38,201,8 duplicate(WE) WE#17 918
einbroch,78,187,2 duplicate(WE) WE#18 918
einbroch,153,317,6 duplicate(WE) WE#19 918
einbroch,152,53,4 duplicate(WE) WE#20 918
einbroch,245,239,2 duplicate(WE) WE#21 918
geffen,123,73,4 duplicate(WE) WE#22 918
geffen,41,111,6 duplicate(WE) WE#23 918
geffen,124,181,4 duplicate(WE) WE#24 918
geffen,167,123,6 duplicate(WE) WE#25 918
gef_fild13,191,248,4 duplicate(WE) WE#26 918
gonryun,152,114,6 duplicate(WE) WE#27 918
gonryun,172,182,2 duplicate(WE) WE#28 918
gonryun,157,18,6 duplicate(WE) WE#29 918
hugel,101,134,4 duplicate(WE) WE#30 918
hugel,176,174,4 duplicate(WE) WE#31 918
izlude,121,98,6 duplicate(WE) WE#32 918
jawaii,135,259,4 duplicate(WE) WE#33 918
yuno,175,93,4 duplicate(WE) WE#34 918
yuno,64,207,4 duplicate(WE) WE#35 918
sch_gld,291,127,4 duplicate(WE) WE#36 918
lighthalzen,209,99,6 duplicate(WE) WE#37 918
lighthalzen,218,326,4 duplicate(WE) WE#38 918
lighthalzen,311,303,4 duplicate(WE) WE#39 918
louyang,207,104,6 duplicate(WE) WE#40 918
louyang,57,250,4 duplicate(WE) WE#41 918
xmas,139,310,6 duplicate(WE) WE#42 918
xmas,157,110,4 duplicate(WE) WE#43 918
morocc,166,80,4 duplicate(WE) WE#44 918
morocc,43,174,4 duplicate(WE) WE#45 918
morocc,166,293,4 duplicate(WE) WE#46 918
morocc,275,197,8 duplicate(WE) WE#47 918
moscovia,238,194,4 duplicate(WE) WE#49 918
moscovia,157,64,4 duplicate(WE) WE#50 918
niflheim,25,156,6 duplicate(WE) WE#51 918
niflheim,201,184,4 duplicate(WE) WE#52 918
payon,213,76,6 duplicate(WE) WE#53 918
payon,164,49,2 duplicate(WE) WE#54 918
payon,232,320,4 duplicate(WE) WE#55 918
payon,63,124,6 duplicate(WE) WE#56 918
pay_gld,201,161,4 duplicate(WE) WE#57 918
prontera,165,75,4 duplicate(WE) WE#58 918
prontera,36,212,6 duplicate(WE) WE#59 918
prontera,161,189,4 duplicate(WE) WE#60 918
prontera,263,213,4 duplicate(WE) WE#61 918
prontera,161,316,4 duplicate(WE) WE#62 918
prt_gld,166,79,4 duplicate(WE) WE#63 918
rachel,260,136,4 duplicate(WE) WE#64 918
rachel,150,140,4 duplicate(WE) WE#65 918
rachel,135,49,4 duplicate(WE) WE#66 918
rachel,35,131,6 duplicate(WE) WE#67 918
aru_gld,179,330,6 duplicate(WE) WE#68 918
umbala,117,130,8 duplicate(WE) WE#69 918
umbala,163,253,4 duplicate(WE) WE#70 918
veins,205,236,4 duplicate(WE) WE#71 918
veins,222,356,4 duplicate(WE) WE#72 918
veins,153,62,6 duplicate(WE) WE#73 918
mid_camp,215,287,4 duplicate(WE) WE#74 918
mid_camp,134,233,6 duplicate(WE) WE#75 918
mid_camp,256,230,8 duplicate(WE) WE#76 918
manuk,285,128,2 duplicate(WE) WE#77 918
manuk,183,181,6 duplicate(WE) WE#78 918
splendide,181,141,6 duplicate(WE) WE#79 918
hu_fild05,190,211,5 duplicate(WE) WE#80 918
ama_dun01,233,14,4 duplicate(WE) WE#81 918
anthell01,39,263,4 duplicate(WE) WE#82 918
anthell02,168,173,4 duplicate(WE) WE#83 918
ayo_fild02,279,153,4 duplicate(WE) WE#84 918
izlu2dun,103,96,6 duplicate(WE) WE#85 918
mjolnir_02,84,360,4 duplicate(WE) WE#86 918
nameless_n,158,179,8 duplicate(WE) WE#87 918
gef_dun00,107,99,4 duplicate(WE) WE#88 918
glast_01,371,295,2 duplicate(WE) WE#89 918
glast_01,191,120,6 duplicate(WE) WE#90 918
glast_01,65,110,6 duplicate(WE) WE#91 918
glast_01,195,292,6 duplicate(WE) WE#92 918
glast_01,65,197,8 duplicate(WE) WE#93 918
prt_fild01,140,366,4 duplicate(WE) WE#94 918
mjolnir_12,48,20,2 duplicate(WE) WE#95 918
ra_san01,143,131,2 duplicate(WE) WE#96 918
ra_fild01,237,332,4 duplicate(WE) WE#97 918
jupe_cave,47,55,6 duplicate(WE) WE#98 918
yuno_fild03,34,135,8 duplicate(WE) WE#99 918
kh_dun01,5,230,4 duplicate(WE) WE#100 918
mosk_fild02,194,252,4 duplicate(WE) WE#101 918
odin_tem01,96,143,8 duplicate(WE) WE#102 918
gef_fild10,61,334,6 duplicate(WE) WE#103 918
prt_fild10,219,199,6 duplicate(WE) WE#104 918
pay_arche,37,127,8 duplicate(WE) WE#105 918
prt_sewb1,127,252,4 duplicate(WE) WE#106 918
moc_ruins,55,157,6 duplicate(WE) WE#107 918
moc_fild19,106,97,8 duplicate(WE) WE#108 918
alb2trea,74,101,6 duplicate(WE) WE#109 918
tha_scene01,141,194,2 duplicate(WE) WE#110 918
ve_fild03,172,238,4 duplicate(WE) WE#111 918
tur_dun01,147,54,6 duplicate(WE) WE#112 918
cmd_fild01,31,320,6 duplicate(WE) WE#113 918
beach_dun2,254,248,4 duplicate(WE) WE#114 918
Question
iraciz
Hello I've got a custom warper, free released years ago but still functional in rAthena latest revisions!
Script attach here: WE.txt
Please help with this script to 2 the following 2 things:
1- Add a Last Warp function to the Warper menu and place it as the first option to choose.
2- Delete the Exit option from all the menu, I consider that completely unneccesary due to the fact we have cancel buttom.
Very Important:
"Notice that must be this one, because I have never seen another warper with this feature (unlock destinys on it's menu once you visit the place, so you are able to visit them again anytime)".
The script is very old, with confusing arrays and I don't dare to touch anything afraid to ruin it!
Last thing, some explanations of the args inside the script are in spanish nothing to fear inexpert hands.
// [========================================================] // [=========== Warper Evolution ===========] // [========================================================] - script WEfunc -1,{ OnInit: // [--------------------------------------------------------] // [ Configuration: ] // [========================================================] set .@n$,"Warper Evolution"; //NPC NAME. set $@WEm,2; // Evolution Mode. (0 = off | 1 = Player | 2 = Account | 3 = Global) set .@p,0; // Save Respawn Point. (-1 = off | Price) // [--------------------------------------------------------] // [ End of the config. ] // [========================================================] set .@a,0; 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$,"Save Respawn."; set $@WEc1,.@p; set $@WEd0[0],1; set $@WE,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. // Submenu: // callsub Onc2,{"Name"}; // 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,"City Warp.",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,"Warp to Dungeons.",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 Onc1,194,"Somatology Laboratory F4","lhz_dun04",140,133,"lhz_dun04"; 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,"Warp to WoE Fields.",1500; callsub Onc1,0,"Woe Area","prt_are01",149,151; // Available Ids: [22,30] U [68,90] U [194,...) // [--------------------------------------------------------] // [ Final Destiny Conf. ] // [========================================================] set $@WE,0; set $@WEm,0; set $@WEd[0],0; set $@WEd[1],0; end; // Destiny Groups Declaration: // getarg(0): Name. // getarg(1): Price. 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; // Destiny Declaration: // getarg(0): Id. // getarg(1): Name. // getarg(2): Map. // 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(.@; 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; // Submenus Declaration: // getarg(0): Name. 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; // Place Unlocking: 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"+.@; set .@d,getd($@WEm$+"WE_"+(.@c / 31)); if(!(.@d & pow(2,.@c % 31))) { if($@WEm$ == "$") set .@e,0; else set .@e,3; announce "New Place Unlocked: "+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 "Hello "+strcharinfo(0)+"."; mes "¿How can I help you?"; next; while(.@a < getarraysize($@WEd0)) { set .@b,$@WEd0[.@a]; set .@a$[.@a],getd("$@WEb"+.@b+"$"); set .@b,getd("$@WEc"+.@; if(.@ { if(Zeny < .@ 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("^880000Exit^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 "See you later."; 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 "This will be your respawn pont from now."; save .@m$,.@x,.@y; specialeffect2 500; close; 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$,"Back"; else set .@b$,"Exit"; 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 "Come back soon."; emotion 12; close; } } else { set .@c,.@c - 2; if(compare(.@a$[.@c],"^bbbbbb")) { mes $@WE$; mes "Sorry."; mes "the destiny is not available yet."; 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 "Opening Portal, Wait a second."; next; specialeffect2 71; sleep2 450; specialeffect2 402; sleep2 250; emotion 12; specialeffect2 6; sleep2 250; specialeffect2 304; warp getd("$@WEe"+.@a+"$"),getd("$@WEf"+.@a),getd("$@WEg"+.@a); end; Ona0: set .@a,getarg(0); if(Zeny < .@a) { mes $@WE$; mes "Sorry."; mes "You must pay ^880000"+.@a+" z^000000. in order to use the service"; emotion 40; close; } return; } alberta,195,142,4 duplicate(WE) WE#1 918 alberta,47,250,5 duplicate(WE) WE#2 918 aldebaran,133,120,6 duplicate(WE) WE#3 918 aldebaran,133,240,6 duplicate(WE) WE#4 918 alde_gld,234,154,4 duplicate(WE) WE#5 918 amatsu,244,283,6 duplicate(WE) WE#6 918 amatsu,103,258,4 duplicate(WE) WE#7 918 amatsu,207,104,4 duplicate(WE) WE#8 918 ayothaya,212,208,4 duplicate(WE) WE#9 918 ayothaya,157,82,4 duplicate(WE) WE#10 918 comodo,180,333,4 duplicate(WE) WE#11 918 comodo,205,116,4 duplicate(WE) WE#12 918 comodo,320,179,4 duplicate(WE) WE#13 918 comodo,32,219,6 duplicate(WE) WE#14 918 einbech,67,96,6 duplicate(WE) WE#15 918 einbech,131,249,6 duplicate(WE) WE#16 918 einbech,38,201,8 duplicate(WE) WE#17 918 einbroch,78,187,2 duplicate(WE) WE#18 918 einbroch,153,317,6 duplicate(WE) WE#19 918 einbroch,152,53,4 duplicate(WE) WE#20 918 einbroch,245,239,2 duplicate(WE) WE#21 918 geffen,123,73,4 duplicate(WE) WE#22 918 geffen,41,111,6 duplicate(WE) WE#23 918 geffen,124,181,4 duplicate(WE) WE#24 918 geffen,167,123,6 duplicate(WE) WE#25 918 gef_fild13,191,248,4 duplicate(WE) WE#26 918 gonryun,152,114,6 duplicate(WE) WE#27 918 gonryun,172,182,2 duplicate(WE) WE#28 918 gonryun,157,18,6 duplicate(WE) WE#29 918 hugel,101,134,4 duplicate(WE) WE#30 918 hugel,176,174,4 duplicate(WE) WE#31 918 izlude,121,98,6 duplicate(WE) WE#32 918 jawaii,135,259,4 duplicate(WE) WE#33 918 yuno,175,93,4 duplicate(WE) WE#34 918 yuno,64,207,4 duplicate(WE) WE#35 918 sch_gld,291,127,4 duplicate(WE) WE#36 918 lighthalzen,209,99,6 duplicate(WE) WE#37 918 lighthalzen,218,326,4 duplicate(WE) WE#38 918 lighthalzen,311,303,4 duplicate(WE) WE#39 918 louyang,207,104,6 duplicate(WE) WE#40 918 louyang,57,250,4 duplicate(WE) WE#41 918 xmas,139,310,6 duplicate(WE) WE#42 918 xmas,157,110,4 duplicate(WE) WE#43 918 morocc,166,80,4 duplicate(WE) WE#44 918 morocc,43,174,4 duplicate(WE) WE#45 918 morocc,166,293,4 duplicate(WE) WE#46 918 morocc,275,197,8 duplicate(WE) WE#47 918 moscovia,238,194,4 duplicate(WE) WE#49 918 moscovia,157,64,4 duplicate(WE) WE#50 918 niflheim,25,156,6 duplicate(WE) WE#51 918 niflheim,201,184,4 duplicate(WE) WE#52 918 payon,213,76,6 duplicate(WE) WE#53 918 payon,164,49,2 duplicate(WE) WE#54 918 payon,232,320,4 duplicate(WE) WE#55 918 payon,63,124,6 duplicate(WE) WE#56 918 pay_gld,201,161,4 duplicate(WE) WE#57 918 prontera,165,75,4 duplicate(WE) WE#58 918 prontera,36,212,6 duplicate(WE) WE#59 918 prontera,161,189,4 duplicate(WE) WE#60 918 prontera,263,213,4 duplicate(WE) WE#61 918 prontera,161,316,4 duplicate(WE) WE#62 918 prt_gld,166,79,4 duplicate(WE) WE#63 918 rachel,260,136,4 duplicate(WE) WE#64 918 rachel,150,140,4 duplicate(WE) WE#65 918 rachel,135,49,4 duplicate(WE) WE#66 918 rachel,35,131,6 duplicate(WE) WE#67 918 aru_gld,179,330,6 duplicate(WE) WE#68 918 umbala,117,130,8 duplicate(WE) WE#69 918 umbala,163,253,4 duplicate(WE) WE#70 918 veins,205,236,4 duplicate(WE) WE#71 918 veins,222,356,4 duplicate(WE) WE#72 918 veins,153,62,6 duplicate(WE) WE#73 918 mid_camp,215,287,4 duplicate(WE) WE#74 918 mid_camp,134,233,6 duplicate(WE) WE#75 918 mid_camp,256,230,8 duplicate(WE) WE#76 918 manuk,285,128,2 duplicate(WE) WE#77 918 manuk,183,181,6 duplicate(WE) WE#78 918 splendide,181,141,6 duplicate(WE) WE#79 918 hu_fild05,190,211,5 duplicate(WE) WE#80 918 ama_dun01,233,14,4 duplicate(WE) WE#81 918 anthell01,39,263,4 duplicate(WE) WE#82 918 anthell02,168,173,4 duplicate(WE) WE#83 918 ayo_fild02,279,153,4 duplicate(WE) WE#84 918 izlu2dun,103,96,6 duplicate(WE) WE#85 918 mjolnir_02,84,360,4 duplicate(WE) WE#86 918 nameless_n,158,179,8 duplicate(WE) WE#87 918 gef_dun00,107,99,4 duplicate(WE) WE#88 918 glast_01,371,295,2 duplicate(WE) WE#89 918 glast_01,191,120,6 duplicate(WE) WE#90 918 glast_01,65,110,6 duplicate(WE) WE#91 918 glast_01,195,292,6 duplicate(WE) WE#92 918 glast_01,65,197,8 duplicate(WE) WE#93 918 prt_fild01,140,366,4 duplicate(WE) WE#94 918 mjolnir_12,48,20,2 duplicate(WE) WE#95 918 ra_san01,143,131,2 duplicate(WE) WE#96 918 ra_fild01,237,332,4 duplicate(WE) WE#97 918 jupe_cave,47,55,6 duplicate(WE) WE#98 918 yuno_fild03,34,135,8 duplicate(WE) WE#99 918 kh_dun01,5,230,4 duplicate(WE) WE#100 918 mosk_fild02,194,252,4 duplicate(WE) WE#101 918 odin_tem01,96,143,8 duplicate(WE) WE#102 918 gef_fild10,61,334,6 duplicate(WE) WE#103 918 prt_fild10,219,199,6 duplicate(WE) WE#104 918 pay_arche,37,127,8 duplicate(WE) WE#105 918 prt_sewb1,127,252,4 duplicate(WE) WE#106 918 moc_ruins,55,157,6 duplicate(WE) WE#107 918 moc_fild19,106,97,8 duplicate(WE) WE#108 918 alb2trea,74,101,6 duplicate(WE) WE#109 918 tha_scene01,141,194,2 duplicate(WE) WE#110 918 ve_fild03,172,238,4 duplicate(WE) WE#111 918 tur_dun01,147,54,6 duplicate(WE) WE#112 918 cmd_fild01,31,320,6 duplicate(WE) WE#113 918 beach_dun2,254,248,4 duplicate(WE) WE#114 918
Edited by EmistryPlease use codebox.
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.