Jump to content

Por si Alguien SAbe - Warper Evolution


iraciz

Recommended Posts


  • Group:  Members
  • Topic Count:  140
  • Topics Per Day:  0.03
  • Content Count:  562
  • Reputation:   107
  • Joined:  10/05/12
  • Last Seen:  

Hola tengo un Warper Evolution, Bastante viejo por cierto y preciso una ayuda bastante profesional de alguien que sepa bastante de scripting.

 

No se preocupen por la fuente, ya que es un free release de hace muchos años! pero sigue funcional en revisiones actuales de rathena.

 

Tiene que ser este script porque los demas warper no tienen el modo en los que se desbloquean los campos o mazmorras una vez llegas a tal destino.

 

1- Quiero Agregarle, la funcion Last Warp y que sea lo primero en el menu!

2- Quiero Eliminarle la Opcion Salir (cosa que considero bastante inecesaria tomando en cuenta que existe un boton cancel para dicho propósito, ademas de estar siempre de primero en todo! un poco molesto).

 

Les Dejo el adjunto:

WE.txt

 

y aqui queda el script para que le hechen un ojo

 

// [=========== Warper Evolution ===========]
// [========================================================]

- script WEfunc -1,{
OnInit:
// [--------------------------------------------------------]
// [ Configuración: ]
// [========================================================]

set .@n$,"Warper Evolution"; // 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,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$,"Guardar Punto de Inicio.";
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.

// 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 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,"Viajar a un Área de WoE.",1500;
callsub Onc1,0,"Area de Woe","prt_are01",149,151;

// 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(.@ ;
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"+.@ ;
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"+.@ ;
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("^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;
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$,"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...";
next;
specialeffect2 71;
sleep2 250;
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 "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 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 Mael
Link to comment
Share on other sites

  • 6 years later...

  • Group:  Members
  • Topic Count:  66
  • Topics Per Day:  0.01
  • Content Count:  223
  • Reputation:   4
  • Joined:  02/23/12
  • Last Seen:  

Lo pudiste agregar Iraciz? me intesa tambien

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...