Jump to content

gnashxalex

Members
  • Posts

    52
  • Joined

  • Last visited

Everything posted by gnashxalex

  1. Buenas, intentaré explicar lo mejor que pueda. Script - script Event_Manager FAKE_NPC,{ OnInit: // 1 = ITEM // 2 = solo $CASH // para items y ejemplo #CASHPOINTS, 1|2. //$event_options = 1|2 $event_options = 1; // 1 = items setarray $event_item_reward, 501, 10, 502, 5; // recompensas variables. $event_var$ = "#EVENTPOINTS"; $event_var_name$ = "Event Points"; // Cantidad variable $event_var_gain = 1; $event_item_arr = getarraysize($event_item_reward); // @eventstart GM bindatcmd "eventstart", strnpcinfo(0)+"::OnStart",60,60; // @eventjoin bindatcmd "eventjoin", strnpcinfo(0)+"::OnJoinEvent"; end; OnStart: mes "Cual quieres iniciar:"; next; switch(select("~ Bombring","~ Dice","~ LMS","~ Poring Catcher","~ NvZ","~ Poring Hunter")) { case 1: .@npc$ = "Event_Bombring"; break; case 2: .@npc$ = "Event_Dice"; break; case 3: .@npc$ = "Event_LMS"; break; case 4: .@npc$ = "Poring_Catcher"; break; case 5: .@npc$ = "Event_NvZ"; break; case 6: .@npc$ = "Poring_Hunter"; break; } donpcevent .@npc$+"::OnStart"; end; OnJoinEvent: mes "[ Event Status ]"; mes "Eventos : "; next; switch(select( "Bombring Event - "+ ((getvariableofnpc(.start,"Event_Bombring") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Event_Bombring") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000", "Dice Event - "+ ((getvariableofnpc(.start,"Event_Dice") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Event_Dice") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000", "Last Man Standing - "+ ((getvariableofnpc(.start,"Event_LMS") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Event_LMS") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000", "Poring Catcher - "+ ((getvariableofnpc(.start,"Poring_Catcher") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Poring_Catcher") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000", "Novice v Zombie Event - "+ ((getvariableofnpc(.start,"Event_NvZ") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Event_NvZ") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000", "Poring Hunter Event - "+ ((getvariableofnpc(.start,"Poring_Hunter") == 1) ? "^0000ffParticipar":((getvariableofnpc(.start,"Poring_Hunter") == 2) ? "^0000ffEvento en Progreso":"^ff0000No Disponible"))+"^000000" )) { case 1: .@start = getvariableofnpc(.start,"Event_Bombring"); .@map$ = "quiz_02"; .@x = 59; .@y = 345; break; case 2: .@start = getvariableofnpc(.start,"Event_Dice"); .@map$ = "quiz_02"; .@x = 55; .@y = 87; break; case 3: .@start = getvariableofnpc(.start,"Event_LMS"); .@map$ = "06guild_01"; .@x = 0; .@y = 0; break; case 4: .@start = getvariableofnpc(.start,"Poring_Catcher"); .@map$ = "poring_w01"; .@x = 100; .@y = 100; break; case 5: .@start = getvariableofnpc(.start,"Event_NvZ"); if ( BaseLevel > 1 || Class != 0 ) { mes "Only Lv 1 Novice can enter."; close; } sc_start SC_DECREASEAGI,600000,10; .@map$ = "quiz_01"; .@x = 42; .@y = 369; break; case 6: .@start = getvariableofnpc(.start,"Poring_Hunter"); getinventorylist; .@map$ = "pvp_n_1-2"; .@x = 0; .@y = 0; @phunter_points = 0; break; } if ( !.@start ) { mes "Evento no disponible."; close; } else if ( .@start == 2 ) { mes "Evento en Progreso."; close; } percentheal 100,100; warp .@map$, .@x, .@y; end; // OnClock<hour><minute>: donpcevent "<npc_name>::OnStart"; OnClock0000: donpcevent "Event_Bombring::OnStart"; end; //----- 12 mn OnClock0100: donpcevent "Event_Dice::OnStart"; end; OnClock0200: donpcevent "Event_LMS::OnStart"; end; OnClock0300: donpcevent "Poring_Catcher::OnStart"; end; OnClock0400: donpcevent "Event_NvZ::OnStart"; end; OnClock0500: donpcevent "Poring_Hunter::OnStart"; end; OnClock0600: donpcevent "Event_Bombring::OnStart"; end; //----- 6 am OnClock0700: donpcevent "Event_Dice::OnStart"; end; OnClock0800: donpcevent "Event_LMS::OnStart"; end; OnClock0900: donpcevent "Poring_Catcher::OnStart"; end; OnClock1000: donpcevent "Event_NvZ::OnStart"; end; OnClock1100: donpcevent "Poring_Hunter::OnStart"; end; OnClock1200: donpcevent "Event_Bombring::OnStart"; end; //----- 12 nn OnClock1300: donpcevent "Event_Dice::OnStart"; end; OnClock1400: donpcevent "Event_LMS::OnStart"; end; OnClock1500: donpcevent "Poring_Catcher::OnStart"; end; OnClock1600: donpcevent "Event_NvZ::OnStart"; end; OnClock1700: donpcevent "Poring_Hunter::OnStart"; end; OnClock1800: donpcevent "Event_Bombring::OnStart"; end; //----- 6 pm OnClock1900: donpcevent "Event_Dice::OnStart"; end; OnClock2000: donpcevent "Event_LMS::OnStart"; end; OnClock2100: donpcevent "Poring_Catcher::OnStart"; end; OnClock2200: donpcevent "Event_NvZ::OnStart"; end; OnClock2300: donpcevent "Poring_Hunter::OnStart"; end; //----- 11 pm } // Bombring Event - script Event_Bombring -1,{ OnInit: // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn, mf_nocommand; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "quiz_02", .@mapflag[.@i]; end; OnStart: if ( .start ) end; .round = 0; .start = 1; killmonsterall "quiz_02"; announce "Bombring: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "Bombring: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "Bombring: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; if ( getmapusers("quiz_02") < 1 ) { announce "Bombring: No hay suficientes participantes.",bc_all,0x0ceedb; .start = false; mapwarp "quiz_02", "prontera", 150, 180; // warp out. end; } .start = 2; sleep 3500; mapannounce "quiz_02","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","Las reglas son simples.",bc_map,0x0ceedb; sleep 2000; mapannounce "quiz_02","El evento durará 30 segundos durante 5 rondas en total.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","Todo lo que tienes que hacer es evitar Bombrings y mantenerte con vida.",bc_map,0x0ceedb; sleep 2000; mapannounce "quiz_02","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 3000; while ( .round < 5 ) { .@count = getmapusers("quiz_02"); .round++; mapannounce "quiz_02","Round "+.round,bc_map,0x0ceedb; areamonster "quiz_02",48,334,71,357,"¡Corre por tu vida!",1904, 5 * .@count * .round; sleep 10000 - ( 1000*.round ); } .@count = getmapusers("quiz_02"); if ( !.@count ) announce "Bombring: Nadie sobrevivió.",bc_all,0x0ceedb; else if ( .@count ) { .@size = getmapunits(BL_PC,"quiz_02",.@aid); if ( .@size > 1 ) announce "Muchos jugadores han ganado el Evento Bombring..",bc_all,0x0ceedb; for ( .@i = 0; .@i < getarraysize(.@aid); .@i++) { attachrid .@aid[.@i]; if ( .@size == 1 ) announce strcharinfo(0)+" ha ganado el Evento Bombring.",bc_all,0x0ceedb; if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } } detachrid; } .start = false; sleep 5000; mapwarp "quiz_02","prontera",rand(148,163),rand(167,186); end; OnPCDieEvent: if ( .start && strcharinfo(3) == "quiz_02" ) warp "prontera",rand(148,163),rand(167,186); end; } // Dice Event - script Event_Dice -1,{ OnInit: // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "quiz_02", .@mapflag[.@i]; end; OnStart: if ( .start ) end; .start = 1; for(.@i = 1;.@i <= 4;.@i++) { disablenpc "Back#"+.@i; disablenpc "Box "+.@i; } announce "Dice: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "Dice: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "Dice: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; if ( !getmapusers("quiz_02") ) { announce "Dice: No hay suficientes participantes.",bc_all,0x0ceedb; .start = false; end; } .start = 2; sleep 3500; mapannounce "quiz_02","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","Las reglas son simples.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","Tendrás que ingresar una de las 4 casillas disponibles.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","Luego se lanzará un dado de cuatro lados. El número que muestra será el número guardado.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_02","¡Recuerda entrar en las casillas!",bc_map,0x0ceedb; sleep 2000; mapannounce "quiz_02","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 3000; while(!.@end && .start && .@rounds < 5) { for(.@i = 1;.@i <= 4;.@i++) { enablenpc "Back#"+.@i; enablenpc "Box "+.@i; } sleep 1500; mapannounce "quiz_02","Pronto se lanzarán los dados. Ingrese el cuadro deseado haciendo clic en el número metálico dentro de ellos.",bc_map,0x0ceedb; sleep 20000; for(.@i = 5;.@i > 0;.@i--) { mapannounce "quiz_02",.@i+"...",bc_map,0x0ceedb; sleep 990; } for(.@i = 1;.@i <= 4;.@i++) { disablenpc "Back#"+.@i; disablenpc "Box "+.@i; } areawarp "quiz_02",32,95,79,76,"prontera",rand(148,163),rand(167,186); areawarp "quiz_02",80,85,80,76,"prontera",rand(148,163),rand(167,186); areawarp "quiz_02",31,85,31,76,"prontera",rand(148,163),rand(167,186); .@n = rand(1,4); mapannounce "quiz_02","¡Hora! Los dados muestran el número "+.@n+".",bc_map,0x0ceedb; setarray .@cords1[0],33,41; setarray .@cords2[0],45,53; setarray .@cords3[0],57,65; setarray .@cords4[0],69,77; for(.@i = 1;.@i <= 4;.@i++) { if(.@i != .@n) areawarp "quiz_02",getd(".@cords"+.@i+"[0]"),52,getd(".@cords"+.@i+"[1]"),73,"prontera",rand(148,163),rand(167,186); } sleep 3000; .@players = getmapusers("quiz_02"); if(.@players <= 3 && .start && .@players) { mapannounce "quiz_02","¡El evento ya terminó! ¡Ganadores, disfruten de sus premios!",bc_map,0x0ceedb; .@size = getmapunits(BL_PC,"quiz_02",.@players); .start = false; for(.@i = 0;.@i < .@size;.@i++) { attachrid .@players[.@i]; announce strcharinfo(0)+" ha ganado el evento de dados.",bc_all,0x0ceedb; if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } warp "prontera",rand(148,163),rand(167,186); } } else if( !.@players ) { .@end = true; .start = false; announce "No hubo ganador en el Evento de los Dados.",bc_all,0x0ceedb; } else { mapannounce "quiz_02","Todavía no hay ganadores claros, volvamos a lanzar los dados.",bc_map,0x0ceedb; } .@rounds++; } if(.@rounds >= 5) { mapannounce "quiz_02","No hubo un ganador claro en todo el evento. El evento ya terminó.",bc_map,0x0ceedb; .start = false; } end; } quiz_02,37,80,3 script Box 1 HIDDEN_NPC,{ warp "quiz_02",rand(33,41),rand(52,73); end; } quiz_02,49,80,3 script Box 2 HIDDEN_NPC,{ warp "quiz_02",rand(45,53),rand(52,73); end; } quiz_02,61,80,3 script Box 3 HIDDEN_NPC,{ warp "quiz_02",rand(57,65),rand(52,73); end; } quiz_02,73,80,3 script Box 4 HIDDEN_NPC,{ warp "quiz_02",rand(69,77),rand(52,73); end; } quiz_02,37,64,3 script Back#1 4_BULLETIN_BOARD2,{ warp "quiz_02",55,76; end; } quiz_02,49,64,3 duplicate(Back#1) Back#2 4_BULLETIN_BOARD2 quiz_02,61,64,3 duplicate(Back#1) Back#3 4_BULLETIN_BOARD2 quiz_02,73,64,3 duplicate(Back#1) Back#4 4_BULLETIN_BOARD2 // Last Man Standing - script Event_LMS -1,{ OnInit: // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "06guild_01", .@mapflag[.@i]; end; OnStart: if ( .start ) end; .start = 1; pvpoff "06guild_01"; announce "LMS: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "LMS: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "LMS: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; if ( getmapusers("06guild_01") < 2 ) { announce "LMS: Not enough participants.",bc_all,0x0ceedb; .start = false; end; } .start = 2; sleep 3500; mapannounce "06guild_01","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "06guild_01","Las reglas son simples.",bc_map,0x0ceedb; sleep 2500; mapannounce "06guild_01","Mata a todos en el mapa.",bc_map,0x0ceedb; sleep 2500; mapannounce "06guild_01","¡Último en pie gana!",bc_map,0x0ceedb; sleep 2000; mapannounce "06guild_01","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 3000; for (.@i = 10; .@i > 0; .@i--) { mapannounce "06guild_01", "LMS: -- "+.@i+" --",bc_map,0x0ceedb; sleep 1000; } mapannounce "06guild_01", "LMS: ¡Peleen! ",bc_map,0x0ceedb; pvpon "06guild_01"; .timer = 0; initnpctimer; end; OnTimer5000: // check every 5 secs.. .timer++; .@size = getmapusers("06guild_01"); if ( .@size > 1 && .timer == 6 ) { .timer = 0; mapannounce "06guild_01", "LMS: "+ .@size +" jugadores vivos..", bc_blue; } else if ( .@size <= 1 ) donpcevent strnpcinfo(3)+"::OnEndEvent"; setnpctimer 0; end; OnEndEvent: stopnpctimer; .start = false; pvpoff "06guild_01"; mapannounce "06guild_01", "LMS: El evento ha terminado!",bc_map,0x0ceedb; sleep 5000; .@size = getmapunits(BL_PC,"06guild_01",.@aid); if ( .@size == 0 ) { announce "LMS: No hubo ganadores.",0; end; } attachrid .@aid; announce strcharinfo(0)+" ha ganado el evento.",bc_all,0x0ceedb; if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } warp "prontera",rand(148,163),rand(167,186); end; OnPCDieEvent: if ( .start && strcharinfo(3) == "06guild_01" ) { warp "prontera",rand(148,163),rand(167,186); .@size = getmapusers("06guild_01"); if ( .@size > 1 ) mapannounce "06guild_01", "LMS: "+ .@size +" jugadores vivos..", bc_blue; else if ( .@size <= 1 ) donpcevent strnpcinfo(3)+"::OnEndEvent"; } end; } // Novice V Zombie - script Event_NvZ -1,{ OnInit: // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn, mf_nocommand; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "quiz_01", .@mapflag[.@i]; end; OnStart: if ( .start ) end; .start = 1; killmonsterall "quiz_01"; announce "NvZ: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "NvZ: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "NvZ: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; if ( getmapusers("quiz_01") <= 1 ) { announce "NvZ: No hay suficientes participantes.",bc_all,0x0ceedb; .start = false; mapwarp "quiz_01", "prontera", 150, 180; // warp out. end; } .start = 2; sleep 3500; mapannounce "quiz_01","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_01","Las reglas son simples.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_01","Los zombis serán generados en el mapa.",bc_map,0x0ceedb; sleep 2500; mapannounce "quiz_01","y aparecerán cada 10 segundos.",bc_map,0x0ceedb; sleep 2000; mapannounce "quiz_01","El último en pie que sobreviva gana.",bc_map,0x0ceedb; sleep 2000; mapannounce "quiz_01","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 3000; monster "quiz_01",42,369,"Zombie",1036,4; initnpctimer; end; OnTimer10000: // 20 seconds timer and also player check on how many left in map monster "quiz_01",42,369,"Zombie",1036,10; setnpctimer 0; end; OnPCDieEvent: if ( .start && strcharinfo(3) == "quiz_01" ) { warp "prontera",rand(148,163),rand(167,186); if ( getmapusers("quiz_01") == 1 ) { stopnpctimer; killmonsterall "quiz_01"; .@size = getmapunits(BL_PC,"quiz_01",.@aid); .start = false; attachrid .@aid; announce strcharinfo(0)+" ha ganado el evento Novice vs Zombie.",bc_all,0x0ceedb; if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } warp "prontera",rand(148,163),rand(167,186); end; } } end; } // Poring Catcher - script Poring_Catcher -1,{ OnInit: // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noloot, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "poring_w01", .@mapflag[.@i]; end; OnStart: if ( .start ) end; .start = 1; announce "Poring Catcher: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "Poring Catcher: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "Poring Catcher: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; .start = 2; sleep 3500; if( !getmapusers("poring_w01") ) { announce "Poring Catcher: No hay suficientes participantes en el evento.",bc_all,0x0ceedb; sleep 2500; announce "Poring Catcher: El evento se detendrá.",bc_all,0x0ceedb; .start = false; end; } mapannounce "poring_w01","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "poring_w01","Las reglas son simples.",bc_map,0x0ceedb; sleep 2500; mapannounce "poring_w01","En unos segundos voy a generar muchos porings..",bc_map,0x0ceedb; sleep 2500; mapannounce "poring_w01","..Todo lo que necesitas hacer es matar al Poring con el nombre correcto..",bc_map,0x0ceedb; sleep 2500; mapannounce "poring_w01","..Poring.",bc_map,0x0ceedb; sleep 2000; mapannounce "poring_w01","Si matas al equivocado, ¡estás fuera!",bc_map,0x0ceedb; sleep 2000; mapannounce "poring_w01","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 3000; areamonster "poring_w01",84,119,124,90,"Poring",1002,1,strnpcinfo(0)+"::OnMobKilledWin"; areamonster "poring_w01",84,119,124,90,"Poking",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Poiring",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Poling",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Porng",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"pH0ur1n6",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"P0ring",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Porong",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Powing",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Poriing",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Boring",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Lolwut!?",1002,5*getmapusers("poring_w01"),"::OnMobKilled"; areamonster "poring_w01",84,119,124,90,"Kill me to win!",1002,5*getmapusers("poring_w01"),strnpcinfo(0)+"::OnMobKilled"; end; OnMobKilled: dispbottom "¡Mataste al Poring equivocado! ¡estas fuera!"; warp "prontera",rand(148,163),rand(167,186); sleep 5000; if ( !getmapusers("poring_w01") ) { .start = false; killmonsterall "poring_w01"; announce "Poring Catcher: Nadie ganó el evento!.",bc_all,0x0ceedb; } end; OnMobKilledWin: announce strcharinfo(0)+" Ganó el evento Poring Catcher!",bc_all,0xFF7F50; if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } killmonsterall "poring_w01"; sleep 5000; mapwarp "poring_w01","prontera",rand(148,163),rand(167,186); .start = false; end; } poring_w01,105,123,3 script Back to Prontera 4_BULLETIN_BOARD2,{ warp "prontera",rand(148,163),rand(167,186); end; } // Poring Hunter https://rathena.org/board/topic/121969-rporing-hunter-event/#comment-370418 - script Poring_Hunter FAKE_NPC,{ OnInit: // Event duration default: 3 mins. .duration = 3; // Note : spawn counts would be multiplied by number of participants. ( count * player count ) // if you dont want it, remove the calculation below. .count[0] = 20; // poring count .count[1] = 10; // drops count .count[2] = 15; // poporing count // Mapflags setarray .@mapflag, mf_nowarp, mf_nowarpto, mf_noskill, mf_noloot, mf_noteleport, mf_nomemo, mf_nosave, mf_noicewall, mf_nobranch, mf_noreturn, mf_nocommand; for ( .@i = 0; .@i < getarraysize(.@mapflag); .@i++) setmapflag "quiz_02", .@mapflag[.@i]; end; OnStart: if ( .start ) end; pvpoff "pvp_n_1-2"; killmonsterall "pvp_n_1-2"; .start = 1; .cur_time = 0; announce "Poring Hunter: Después de 1 minuto, el evento se cerrará.",0; sleep 10000; announce "Poring Hunter: Así que por favor si quieres unirte. usar @eventjoin.",0; sleep 60000; announce "Poring Hunter: La entrada al evento ya está cerrada.",bc_all,0x0ceedb; .@player = getmapusers("pvp_n_1-2"); if ( .@player < 2 ) { announce "Poring Hunter : No hay suficientes participantes.", bc_all,0x0ceedb; goto OnEnd; end; } announce "Poring Hunter : La entrada al evento se ha cerrado, el evento ha comenzado, buena suerte a todos los jugadores.!", bc_all; .start = 2; mapannounce "pvp_n_1-2","Estamos a punto de comenzar el evento.",bc_map,0x0ceedb; sleep 2500; mapannounce "pvp_n_1-2","Los porings otorgan 1 punto, Drops 5 puntos, Poporings -10 puntos.",bc_map,0x0ceedb; sleep 2500; mapannounce "pvp_n_1-2","Tendrás "+.duration+" minutos para conseguir tantos puntos como sea posible.",bc_map,0x0ceedb; sleep 2500; mapannounce "pvp_n_1-2","El jugador que obtenga más puntos dentro del tiempo asignado será el ganador del evento..",bc_map,0x0ceedb; sleep 2500; mapannounce "pvp_n_1-2","Eso es todo. Vamos a empezar.",bc_map,0x0ceedb; sleep 2000; // NOTE : if you wish not to multiply the spawn to participants, remove < *.@player > on all mob spawns. monster "pvp_n_1-2", 0, 0, "Poring", 1002, .count[0]*.@player, strnpcinfo(0)+"::OnKillPoring"; monster "pvp_n_1-2", 0, 0, "Drops", 1113, .count[1]*.@player, strnpcinfo(0)+"::OnKillDrops"; monster "pvp_n_1-2", 0, 0, "Poporing", 1031, .count[2]*.@player, strnpcinfo(0)+"::OnKillPoporing"; initnpctimer; end; OnKillPoring: callsub OnKillMob, 1002, "Poring", "OnKillPoring", 1; OnKillDrops: callsub OnKillMob, 1113, "Drops", "OnKillDrops", 5; OnKillPoporing: callsub OnKillMob, 1031, "Poporing", "OnKillPoporing", -10; OnKillMob: .@mobid = getarg(0); .@name$ = getarg(1); .@event$ = getarg(2); .@val = getarg(3); @phunter_points += .@val; monster "pvp_n_1-2",0,0,.@name$,.@mobid,1,strnpcinfo(0)+"::"+.@event$; dispbottom "Tienes "+ @phunter_points +" Punto(s)."; end; OnTimer60000: .cur_time++; if ( .cur_time < .duration ) { mapannounce "pvp_n_1-2", "Tienen "+( .duration - .cur_time )+" minuto(s).", bc_blue|bc_map; setnpctimer 0; end; } stopnpctimer; killmonsterall "pvp_n_1-2"; .@count = getmapunits(BL_PC,"pvp_n_1-2",.@aid[0]); freeloop(true); for ( .@i = 0; .@i < .@count; .@i++ ) { attachrid(.@aid[.@i]); if ( @phunter_points > .most_points ) { .most_points = @phunter_points; .win_aid[0] = getcharid(3); .win_name$[0] = strcharinfo(0); } else if ( @phunter_points == .most_points && @phunter_points > 0 ) { .win_aid[getarraysize(.win_aid)] = getcharid(3); .win_name$[getarraysize(.win_name$)] = strcharinfo(0); } detachrid; } freeloop(false); .@size = getarraysize(.win_aid); if ( .@size > 1 ) announce "Poring Hunter : El evento ha terminado, tenemos "+.@size+" ganadores que tienen "+.most_points+" puntos cada uno!", bc_all,0xFF7F50; else if ( .@size == 1 ) announce "Poring Hunter : El evento ha terminado, y el ganador es ["+.win_name$+"] con "+.most_points+" puntos!", bc_all,0xFF7F50; else announce "Poring Hunter : El evento ha terminado y no hay ganadores.", bc_all,0x0ceedb; if ( .@size ) { for ( .@i = 0; .@i < .@size; .@i++ ) { attachrid(.win_aid[.@i]); if ( $event_options&1 ) { for ( .@j = 0; .@j < $event_item_arr; .@j += 2 ) getitem $event_item_reward[.@j], $event_item_reward[.@j+1]; } if ( $event_options&2 ) { setd $event_var$, getd($event_var$)+$event_var_gain; dispbottom "You gained "+$event_var_gain+" "+$event_var_name$+". You now have "+getd($event_var$)+" "+$event_var_name$+"."; } dispbottom "Aquí está su recompensa del evento Poring Hunter."; detachrid; } } OnEnd: mapannounce "pvp_n_1-2", "Warp en unos segundos..", bc_blue|bc_map; .most_points = .start = false; deletearray .win_aid; deletearray .win_name$; sleep 5000; mapwarp "pvp_n_1-2","prontera",rand(148,163),rand(167,186); pvpon "pvp_n_1-2"; end; } En este script una vez te unes y este finaliza te envia a prontera, pero quiero hacerlo que por ejemplo estoy en (anthell01,35,262) cuando haga @eventjoin. este me llevará al evento pero una vez finalizado me llevara devuelta a donde hice el @eventjoin la cual seria (anthell01,35,262).
  2. Si, aún lo necesito.... no sé como hacerlo ? Muchisimas gracias, de verdad se aprecia Estuve revisando y tiene demasiados errores y que son esas lineas de month?
  3. Buenas, alguien podria ayudarme a cambiar este script. - script ghouse -1,{ OnWhisperGlobal: if ( getgmlevel() > 90 ) { if ( @whispervar0$ == "abrir" ) { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( select ( " >^AA3000 Menu GM^000000 : >^AA3000 Menu User^000000 ") == 1 ) { do { set .@loop , 1; mes "Selecciona el slot que quieras editar:"; set .Num,0; set .@Menu$,""; for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( !getd("$GROOM" + .@i) ) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 Disponible ^000000 ]:"; else if ( getd("$GROOM" + .@i) && !getd("$GROOMB" + .@i)) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 "+GetGuildName(getd("$GROOM" + .@i))+"^000000 ]:"; else if ( getd("$GROOM" + .@i) && getd("$GROOMB" + .@i)) set .@Menu$,.@Menu$ + "Slot "+(.@i)+" [ ^1CBC81 "+GetGuildName(getd("$GROOM" + .@i))+"^000000 ][ ^1CBC81 "+GetGuildName(getd("$GROOMB" + .@i))+"^000000]:"; } set .@j , select(.@Menu$); mes "¿Qué quieres hacer con el slot "+.@j+"?"; next; switch (select( "> Quiero ^0066FFEliminar una Guild^000000","> Quiero ^CC0000Agregar una Guild^000000") ) { case 1: setd "$GROOM" + .@j , 0; setd "$GROOMB" + .@j , 0; break; case 2: do { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( getd("$GROOM" + .@j) != 0 ) { if ( getd("$GROOM" + .@j) != 0 && !getd("$GROOMB" + .@j) ) { mes "Deseas agregar una guild MB ??"; if ( select ( "> ^0066FFSi^000000","> ^CC0000No^000000") == 2 )close; mes "Coloca el ID de la guild que quieres agregar a este slot."; input .@guildMB; next; mes "[ ^AA3000Menú Administrador^000000 ]"; if ( GetGuildName(.@guildMB) == "No existe" ) { mes "La guild que ha ingresado no existe. Vuélvalo a intentar."; mes "guild : " + GetGuildName(.@guild); set .@opt , 0; next; break; } for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( getd("$GROOMB" + .@i) && getd("$GROOMB" + .@i) == .@guild ) { mes "Ya esta guild tiene un cuarto, no le puedes asignar otro"; close; } } setd "$GROOMB" + .@j , .@guildMB; close; } mes " Ya hay una guild registrada aqui, primero eliminala"; close; } mes "Coloca el ID de la guild que quieres agregar a este slot."; input .@guild; next; mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; if ( GetGuildName(.@guild) == "null" ) { mes "La guild que ha ingresado no existe. Vuélvalo a intentar."; mes "guild : " + GetGuildName(.@guild); set .@opt , 0; next; break; } for( set .@i, 1; .@i <= 30; set .@i, .@i + 1 ) { if ( getd("$GROOM" + .@i) && getd("$GROOM" + .@i) == .@guild ) { mes "Ya esta guild tiene un cuarto, no le puedes asignar otro"; close; } } mes "Quieres agregar ^9933FF[^000000 ^0033FF"+GetGuildName(.@guild)+"^000000 ^9933FF]^000000"; next; if ( select ( "> ^0066FFContinuar^000000","> ^CC0000Regresar^000000") == 1 ) { mes "[ ^AA3000Menú Administrador^000000 ]"; mes " "; setd "$GROOM" + .@j , .@guild; mes "Guild: ^0033FF"+GetGuildName(.@guild)+"^000000"; mes "Asignada al Slot [ ^FF0000"+.@j+"^000000 ]"; set .@opt , 0; next; break; } else set .@opt , 1; } while ( .@opt == 1 ); break; } } while ( .@loop ); } next; } for( set .@i , 0; .@i <= 30; set .@i , .@i + 1 ) { if ( ( getd( "$GROOM" + .@i ) && getcharid(2) == getd( "$GROOM" + .@i ) ) || ( getd( "$GROOMB" + .@i ) && getcharid(2) == getd( "$GROOMB" + .@i ) ) ) { mes "[ ^AA3000Guild Guard^000000 ]"; mes "Hola, ^E96D07"+strcharinfo(0)+"^000000."; mes "Veo que tu guild tiene la casa # " + .@i; mes "¿Quieres que te lleve a tu ^FF3300Guild Room^000000?"; emotion e_pif; next; if ( select("> ^0066FFSí, gracias.^000000","> ^CC0000Mejor en otro momento.^000000") == 2 ) close; close2; warp "gr_"+.@i+"",56,61; end; } } mes "[ ^AA3000Guild Guard^000000 ]"; mes "Hola, ^E96D07"+strcharinfo(0)+"^000000."; mes "¿En qué puedo ayudarte?"; emotion e_dots; next; switch (select("> ^0066FF¿Quién eres?^000000","> ^CC0000Uhm, nada...^000000") ) { case 1: mes "[ ^AA3000Guild Guard^000000 ]"; mes "Soy el guardián de los ^FF3300Guild Rooms^000000."; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "Mi función es llevar a los miembros de guilds registradas a sus salas de guild. Pero no todos pueden acceder a este sistema único, antes de registrarte tienes que cumplir una serie de requisitos."; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "> Tener ^0033FFmínimo 20 miembros^000000."; mes "> Estar ^0033FFactivos en WoE o MVP^000000."; mes "> Ser una guild ^0033FFconsolidada y seria con futuro^0033FF."; mes "> Ganarse o pagar por la residencia"; emotion e_pif; next; mes "[ ^AA3000Guild Guard^000000 ]"; mes "Si cumples con los requisitos contacta con un ^0033FFmiembro del Staff^000000 para que te activen tu ^FF3300Guild Room^000000 y puedas disfrutar de sus ventajas."; break; case 2: emotion e_an; break; } close; } } //Flags gr_1 mapflag noteleport gr_2 mapflag noteleport gr_3 mapflag noteleport gr_4 mapflag noteleport gr_5 mapflag noteleport gr_6 mapflag noteleport gr_7 mapflag noteleport gr_8 mapflag noteleport gr_9 mapflag noteleport gr_10 mapflag noteleport gr_11 mapflag noteleport gr_12 mapflag noteleport gr_13 mapflag noteleport Quisiera que en lugar de un GM dar una guild house, el usuario pueda comprarla por ejemplo por 1000 Cash Points. Ahora mismo el NPC esta en que si detecta GM level > 99 aparecen 2 opciones para agregar y quitar house a una guild, quiero que el usuario tenga la opcion para el mismo comprarla por 1000 Cash points. Gracias de antemano!
  4. Recien lo solucione, muchisimas gracias Mael por la sugerencia :), la tendré en cuenta si este me tira algun error.
  5. Buenas, tengo unos 30 minutos intentando arreglar el Ultimo Destino de este script y no lo logro, alguien seria amable de ayudarme?, Gracias de antemano! - script Warper2::Warper2 831,{ Main: if (getbrokenid(1) != 0) { while (getbrokenid(1) != 0){ specialeffect2 101; repairall; } } sc_start 32,250000,10; // Increase Agi sc_start 30,250000,10; // Blessing percentheal 100,100; set .@DBCost,1000; callsub S_CheckVar; mes("Warper"); mes "Hola, ^E96D07"+strcharinfo(0)+"^000000."; mes "¿A dónde quieres que te lleve?"; next; switch (select( "^DF6F00Volver a [^000000 ^0066FF"+warpmapN$+"^000000 ^DF6F00]^000000", "^74B221> Warp a Ciudades^000000", "^B53F05> Warp a Dungeon's^000000", "^696969> Warp a Field's^000000", "^2E64FE> Mercado de Merchants^000000", "^7401DF> Zonas Especiales^000000")){ case 1: if (warpmap$ == "") { mes("Warper"); mes "No has visitado ningún mapa antes."; close; } warp ""+warpmap$+"",warpmapx,warpmapy; end; case 2: mes("Warper2"); mes "¿A qué ciudad quieres ir?"; setarray .@WCityN$[1],"Prontera","Alberta","Aldebaran","Amatsu","Ayothaya","Brasilis","Comodo","Dicastes","Einbech (Mining Village)","Einbroch","Geffen","Gonryun","Hugel","Izlude","Jawaii","Lighthalzen","Louyang","Lutie","Manuk","Midgarts Expedition Camp","Morroc","Moscovia","Nameless Island","Niflheim","Payon","Rachel","Splendide","Thor Camp","Umbala","Veins","Yuno","Dewata","Malagno Island","Bifrost","Discastes"; setarray .@WCityM$[1], "prontera","alberta","aldebaran","amatsu","ayothaya","brasilis","comodo","dicastes01", "einbech","einbroch","geffen","gonryun","hugel","izlude","jawaii","lighthalzen","louyang","xmas","manuk", "mid_camp","morocc","moscovia", "nameless_n","niflheim","payon","rachel","splendide","thor_camp","umbala","veins","yuno","dewata", "malangdo", "mora","dicastes01"; setarray .@WCityX[1], 155, 49, 140, 224, 208, 192, 189, 197, 70, 64, 119, 160, 96, 128, 213, 158, 218, 147, 260, 219, 156, 225, 256, 85, 152, 130, 200, 254, 145, 216, 157, 200, 180, 108, 198; setarray .@WCityY[1], 183, 246, 117, 299, 199, 217, 149, 196, 95, 200, 59, 121, 145, 140, 230, 92, 103, 134, 175, 238, 93, 193, 215, 154, 75, 137, 153, 90, 155, 123, 51, 178, 129, 98, 189; set .@Menu$, ""; for( set .@i, 1; .@i < getarraysize(.@WCityN$); set .@i, .@i + 1 ) { set .@Menu$, .@Menu$ + " ^339900" + .@WCityN$[.@i] + "^000000:"; } set .@j, select(.@Menu$); set warpmapN$,.@WCityN$[.@j]; warp .@WCityM$[.@j],.@WCityX[.@j],.@WCityY[.@j]; callsub S_CheckVar; callfunc "LastMapSave"; end; case 3: Main_dun: callsub S_CheckVar; setarray .@WDunL$[1],"Abbey, Cursed Monastery","Abyss Lakes","Amatsu Dungeon","Anthell","Ayothaya Dungeon","Beach Dungeon","Bio Laboratory","Brasilis Dungeon","Byalan Dungeon","Clock Tower","Coal Mines","Culverts","Dewata Dungeon","Einbroch Dungeon","Endless Tower","Gefenia","Geffen Dungeon","Glast Heim","Gonryun Dungeon","Hidden Dungeon","Ice Cave","Juperos Dungeon","Kiel Dungeon","Lighthalzen Dungeon","Louyang Dungeon","Malangdo Dungeon","Magma Dungeon","Moscovia Dungeon","Nidhoggur's Dungeon","Nidhoggur's Nest","Orc Dungeon","Payon Dungeon","Pyramids","Rachel Sanctuary","Scaraba Hole Dungeon","Sphinx","Sunken Ship","Thanatos Tower","Thor Volcano","Toy Factory","Turtle Dungeon","Umbala Dungeon"; mes("Warper"); mes " "; mes "Elige la dungeon (mazmorra) y el nivel al que quieres ir. ^D50101Recuerda:^000000 Cuanto más alto sea el nivel, más difícil será. "; set .@Menu$, ""; for( set .@i, 1; .@i < getarraysize(.@WDunL$); set .@i, .@i + 1 ) set .@Menu$, .@Menu$ + " ^0066FF" + .@WDunL$[.@i] + "^FF3300:"; set .@j, select(.@Menu$); if( .@j == 1) { callsub S_CheckVar; setarray .@WDunN$[1],"Cursed Abbey Dungeon - LvL 1","Cursed Abbey Dungeon - LvL 2","Cursed Abbey Dungeon - LvL 3"; setarray .@WDunX[1], 51, 150, 120; setarray .@WDunY[1], 14, 11, 10; setarray .@WDunMVP$[1], "", "[ ^FF3300MVP^000000 ]", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"abbey"; } if( .@j == 2) { callsub S_CheckVar; setarray .@WDunN$[1],"Abyss Lakes Underground Cave F1","Abyss Lakes Underground Cave F2","Abyss Lakes Underground Cave F3"; setarray .@WDunX[1], 263, 275, 116; setarray .@WDunY[1], 273, 270, 27; setarray .@WDunMVP$[1], "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"abyss_"; } if( .@j == 3) { callsub S_CheckVar; setarray .@WDunN$[1],"Amatsu Dungeon - LvL 1","Amatsu Dungeon - LvL 2","Amatsu Dungeon - LvL 3"; setarray .@WDunX[1], 228, 32, 120; setarray .@WDunY[1], 11, 44, 14; setarray .@WDunMVP$[1], "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"ama_dun"; } if( .@j == 4) { callsub S_CheckVar; setarray .@WDunN$[1], "Anthell F1", "Anthell F2"; setarray .@WDunX[1], 35, 168; setarray .@WDunY[1], 262, 170; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"anthell"; } if( .@j == 5) { callsub S_CheckVar; setarray .@WDunN$[1],"Ayothaya - Ancient Shrine Maze","Ayothaya - Inside Ancient Shrine"; setarray .@WDunX[1], 275, 24; setarray .@WDunY[1], 19, 26; setarray .@WDunMVP$[1], "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"ayo_dun"; } if( .@j == 6) { callsub S_CheckVar; setarray .@WDunN$[1],"Beach Dungeon - Karu, west cave","Beach Dungeon - Ruande, north cave","Beach Dungeon - Mao, east cave"; setarray .@WDunX[1], 266, 255, 23; setarray .@WDunY[1], 67, 244, 260; setarray .@WDunMVP$[1], "[ ^FF3300MVP^000000 ]", "", ""; set .@WDunM$,"beach_dun"; } if( .@j == 7) { callsub S_CheckVar; setarray .@WDunN$[1],"Somatology Laboratory F1","Somatology Laboratory F2","Somatology Laboratory F3","Somatology Laboratory F4"; setarray .@WDunX[1], 150, 150, 140, 240; setarray .@WDunY[1], 288, 18, 134, 73; setarray .@WDunMVP$[1], "", "[ ^FF3300MVP^000000 ]", "[ ^FF3300MVP^000000 ]", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"lhz_dun"; } if( .@j == 8) { callsub S_CheckVar; setarray .@WDunN$[1],"Brasilis Dungeon F1", "Brasilis Dungeon F2"; setarray .@WDunX[1], 87, 262; setarray .@WDunY[1], 47, 262; setarray .@WDunMVP$[1], "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"bra_dun"; } if( .@j == 9) { callsub S_CheckVar; setarray .@WDunN$[1],"Undersea Tunnel F1"; setarray .@WDunX[1], 251; setarray .@WDunY[1], 251; setarray .@WDunMVP$[1], ""; set .@WDunM$,"iz_dun"; } if( .@j == 10) { callsub S_CheckVar; setarray .@WDunN$[1],"Clock Tower F1","Clock Tower F2","Clock Tower F3","Clock Tower F4","Clock Tower B1","Clock Tower B2","Clock Tower B3","Clock Tower B4"; setarray .@WDunX[1], 199, 148, 65, 56, 297, 127, 277, 268; setarray .@WDunY[1], 159, 283, 147, 155, 25, 169, 178, 74; setarray .@WDunMVP$[1], "", "", "", "", "", "", "", ""; set .@WDunM$,"c_tower"; } if( .@j == 11) { callsub S_CheckVar; setarray .@WDunN$[1],"Coal Mines - Mjolnir Dead Pit F1","Coal Mines - Mjolnir Dead Pit F2","Coal Mines - Mjolnir Dead Pit F3"; setarray .@WDunX[1], 52, 381, 305; setarray .@WDunY[1], 17, 343, 260; setarray .@WDunMVP$[1], "", "", ""; set .@WDunM$,"mjo_dun"; } if( .@j == 12) { callsub S_CheckVar; setarray .@WDunN$[1],"Prontera Culvert F1","Prontera Culvert F2","Prontera Culvert F3", "Prontera Culvert F4"; setarray .@WDunX[1], 131, 19, 180, 100; setarray .@WDunY[1], 247, 19, 169, 92; setarray .@WDunMVP$[1], "", "", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"prt_sewb"; } if( .@j == 13) { callsub S_CheckVar; setarray .@WDunN$[1], "Dewata Dungeon - LvL 1","Dewata Dungeon - LvL 2"; setarray .@WDunX[1], 176, 298; setarray .@WDunY[1], 86, 29; setarray .@WDunMVP$[1],"[ ^FF3300MVP^000000 ]", ""; set .@WDunM$,"dew_dun"; } if( .@j == 14) { callsub S_CheckVar; setarray .@WDunN$[1],"Mine Dungeon F1", "Mine Dungeon F2"; setarray .@WDunX[1], 22, 287; setarray .@WDunY[1], 14, 287; setarray .@WDunMVP$[1], "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"ein_dun"; } if( .@j == 15) { set warpmapN$,.@WDunL$[14]; warp "e_tower",72,115; callfunc "LastMapSave"; end; } if( .@j == 16) { callsub S_CheckVar; setarray .@WDunN$[1],"Gefenia - LvL 1","Gefenia - LvL 2","Gefenia - LvL 3","Gefenia - LvL 4"; setarray .@WDunX[1], 40, 203, 266, 130; setarray .@WDunY[1], 103, 34, 168, 272; setarray .@WDunMVP$[1], "", "", "", ""; set .@WDunM$,"gefenia"; } if( .@j == 17) { callsub S_CheckVar; setarray .@WDunN$[1], "Geffen Dungeon F1","Geffen Dungeon F2", "Geffen Dungeon F3", "Geffen Dungeon F4"; setarray .@WDunX[1], 104, 115, 106, 203; setarray .@WDunY[1], 99, 236, 132, 201; setarray .@WDunMVP$[1],"[ ^FF3300MVP^000000 ]", "","[ ^FF3300MVP^000000 ]", ""; set .@WDunM$,"gef_dun"; } if( .@j == 18) { callsub S_CheckVar; setarray .@WDunN$[1],"Glast Heim - Entrance", "Glast Heim - Castle F1", "Glast Heim - Castle F2","Glast Heim - Chivalry F1","Glast Heim - Chivalry F2", "Glast Heim - St.Abbey","Glast Heim - Churchyard","Glast Heim - Culvert F1","Glast Heim - Culvert F2","Glast Heim - Culvert F3","Glast Heim - Culvert F4","Glast Heim - Staircase Dungeon","Glast Heim - Underground Cave 1","Glast Heim - Underground Cave 2","Glast Heim - Underground Prison 1","Glast Heim - Underground Prison 2"; setarray .@WDunX[1], 370, 200, 104, 150, 157, 156, 147, 258, 108, 171, 68, 12, 133, 224, 14, 150; setarray .@WDunY[1], 304, 26, 26, 15, 287, 11, 18, 255, 291, 283, 277, 7, 271, 274, 70, 14; setarray .@WDunMVP$[1], "","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]", "","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]", "[ ^FF3300MVP^000000 ]", "", "", "", "", "", "", "", "", ""; set .@WDunM$,""; } if( .@j == 19) { callsub S_CheckVar; setarray .@WDunN$[1],"Gonryun Dungeon - Level 1","Gonryun Dungeon - Level 2","Gonryun Dungeon - Level 3"; setarray .@WDunX[1], 153, 30, 68; setarray .@WDunY[1], 53, 113, 16; setarray .@WDunMVP$[1], "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"gon_dun"; } if( .@j == 20) { callsub S_CheckVar; setarray .@WDunN$[1], "Labyrinth Forest F1","Labyrinth Forest F2", "Labyrinth Forest F3"; setarray .@WDunX[1], 176, 93, 23; setarray .@WDunY[1], 7, 21, 8; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"prt_maze"; } if( .@j == 21) { callsub S_CheckVar; setarray .@WDunN$[1],"Ice Cave F1","Ice Cave F2", "Ice Cave F3"; setarray .@WDunX[1], 157, 151, 149; setarray .@WDunY[1], 14, 151, 22; setarray .@WDunMVP$[1], "", "","[ ^009900Quest MVP^000000 ]"; set .@WDunM$,"ice_dun"; } if( .@j == 22) { callsub S_CheckVar; setarray .@WDunN$[1],"The Ruins of Juperos F1","The Ruins of Juperos F2", "Center of Juperos"; setarray .@WDunX[1], 53, 37, 150; setarray .@WDunY[1], 247, 63, 285; setarray .@WDunMVP$[1], "", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"juperos_"; } if( .@j == 23) { callsub S_CheckVar; setarray .@WDunN$[1],"Robot Factory LvL 1", "Robot Factory LvL 2"; setarray .@WDunX[1], 26, 40; setarray .@WDunY[1], 220, 199; setarray .@WDunMVP$[1], "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"kh_dun"; } if( .@j == 24) { callsub S_CheckVar; setarray .@WDunN$[1], "Somatology Labotory F1","Somatology Labotory F2","Somatology Labotory F3"; setarray .@WDunX[1], 150, 150, 140; setarray .@WDunY[1], 288, 18, 134; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]", "[ ^FF3300MVP^000000 ]", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"lhz_dun"; } if( .@j == 25) { callsub S_CheckVar; setarray .@WDunN$[1],"Louyang Dungeon - LvL 1","Louyang Dungeon - LvL 2","Louyang Dungeon - LvL 3"; setarray .@WDunX[1], 215, 280, 165; setarray .@WDunY[1], 195, 20, 41; setarray .@WDunMVP$[1], "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"lou_dun"; } if( .@j == 26) { set warpmapN$,.@WDunL$[26]; warp "mal_dun01",33,230; callfunc "LastMapSave"; end; } if( .@j == 27) { callsub S_CheckVar; setarray .@WDunN$[1],"Nogg Road F1","Nogg Road F2"; setarray .@WDunX[1], 126, 47; setarray .@WDunY[1], 68, 30; setarray .@WDunMVP$[1], "", ""; set .@WDunM$,"mag_dun"; } if( .@j == 28) { callsub S_CheckVar; setarray .@WDunN$[1],"Moscovia Dungeon - LvL 1","Moscovia Dungeon - LvL 2","Moscovia Dungeon - LvL 3"; setarray .@WDunX[1], 204, 164, 31; setarray .@WDunY[1], 51, 31, 135; setarray .@WDunMVP$[1], "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"mosk_dun"; } if( .@j == 29) { callsub S_CheckVar; setarray .@WDunN$[1],"Nidhoggur's Dungeon LvL 1","Nidhoggur's Dungeon LvL 2"; setarray .@WDunX[1], 63, 63; setarray .@WDunY[1], 221, 269; setarray .@WDunMVP$[1], "", ""; set .@WDunM$,"nyd_dun"; } if( .@j == 30) { callsub S_CheckVar; setarray .@WDunN$[1],"Nidhoggur's Nest LvL 1","Nidhoggur's Nest LvL 2"; setarray .@WDunX[1], 32, 200; setarray .@WDunY[1], 45, 9; setarray .@WDunMVP$[1], "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,""; } if( .@j == 31) { callsub S_CheckVar; setarray .@WDunN$[1],"Orc Dungeon F1","Orc Dungeon F2"; setarray .@WDunX[1], 32, 21; setarray .@WDunY[1], 170, 185; setarray .@WDunMVP$[1], "", ""; set .@WDunM$,"orcsdun"; } if( .@j == 32) { callsub S_CheckVar; setarray .@WDunN$[1],"Payon Cave F1","Payon Cave F2","Payon Cave F3","Payon Cave F4", "Payon Cave F5"; setarray .@WDunX[1], 21, 19, 21, 155, 195; setarray .@WDunY[1], 182, 33, 63, 156, 200; setarray .@WDunMVP$[1], "", "", "", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"pay_dun"; } if( .@j == 33) { callsub S_CheckVar; setarray .@WDunN$[1],"Inside Pyramids F1","Inside Pyramids F2","Inside Pyramids F3", "Inside Pyramids F4","Inside Pyramids B1", "Inside Pyramids B2"; setarray .@WDunX[1], 192, 10, 100, 181, 94, 192; setarray .@WDunY[1], 9, 192, 92, 11, 96, 11; setarray .@WDunMVP$[1], "", "", "","[ ^FF3300MVP^000000 ]", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"moc_pryd"; } if( .@j == 34) { callsub S_CheckVar; setarray .@WDunN$[1],"Rachel Sanctuary - LvL 1","Rachel Sanctuary - LvL 2","Rachel Sanctuary - LvL 3","Rachel Sanctuary - LvL 4","Rachel Sanctuary - LvL 5"; setarray .@WDunX[1], 139, 34, 10, 203, 150; setarray .@WDunY[1], 18, 21, 149, 216, 11; setarray .@WDunMVP$[1], "", "", "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"ra_san"; } if( .@j == 35) { callsub S_CheckVar; setarray .@WDunN$[1],"Scaraba Hole Dungeon F1","Scaraba Hole Dungeon F2"; setarray .@WDunX[1], 33, 102; setarray .@WDunY[1], 212, 142; setarray .@WDunMVP$[1], "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"dic_dun"; } if( .@j == 36) { callsub S_CheckVar; setarray .@WDunN$[1],"Sphinx F1","Sphinx F2","Sphinx F3","Sphinx F4", "Sphinx F5"; setarray .@WDunX[1], 288, 149, 210, 10, 100; setarray .@WDunY[1], 9, 81, 54, 222, 99; setarray .@WDunMVP$[1], "", "", "", "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"in_sphinx"; } if( .@j == 37) { callsub S_CheckVar; setarray .@WDunN$[1],"Sunken Ship F1", "Sunken Ship F2"; setarray .@WDunX[1], 69, 102; setarray .@WDunY[1], 24, 27; setarray .@WDunMVP$[1], "","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"treasure"; } if( .@j == 38) { callsub S_CheckVar; setarray .@WDunN$[1], "Thanatos Tower - LvL 1", "Thanatos Tower - LvL 2", "Thanatos Tower - LvL 3", "Thanatos Tower - LvL 4", "Thanatos Tower - LvL 5", "Thanatos Tower - LvL 6", "Thanatos Tower - LvL 7", "Thanatos Tower - LvL 8", "Thanatos Tower - LvL 9", "Thanatos Tower - LvL 10", "Thanatos Tower - LvL 11", "Thanatos Tower - LvL 12"; setarray .@WDunX[1], 150, 150, 220, 59, 62, 89, 35, 93, 29, 159, 19, 130; setarray .@WDunY[1], 39, 136, 158, 143, 11, 221, 166, 148, 107, 138, 20, 52; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]"; set .@WDunM$,"tha_t"; } if( .@j == 39) { callsub S_CheckVar; setarray .@WDunN$[1], "Thor's Volcano Dungeon F1", "Thor's Volcano Dungeon F2","Thor's Volcano Dungeon F3"; setarray .@WDunX[1], 21, 77, 34; setarray .@WDunY[1], 228, 203, 272; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]","[ ^9900FFMiniBoss^000000 ]", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"thor_v"; } if( .@j == 40) { callsub S_CheckVar; setarray .@WDunN$[1], "Toy Factory - LvL 1", "Toy Factory - LvL 2"; setarray .@WDunX[1], 205, 129; setarray .@WDunY[1], 15, 133; setarray .@WDunMVP$[1],"[ ^9900FFMiniBoss^000000 ]","[ ^FF3300MVP^000000 ]"; set .@WDunM$,"xmas_dun"; } if( .@j == 41) { callsub S_CheckVar; setarray .@WDunN$[1],"Turtle Dungeon - Entrance","Turtle Dungeon - LvL 1","Turtle Dungeon - LvL 2","Turtle Dungeon - LvL 3"; setarray .@WDunX[1], 154, 148, 132, 100; setarray .@WDunY[1], 49, 261, 189, 192; setarray .@WDunMVP$[1], "", "", "", "[ ^FF3300MVP^000000 ]"; set .@WDunM$,"tur_dun"; } if( .@j == 42) { callsub S_CheckVar; setarray .@WDunN$[1],"Umbala Dungeon - LvL 1","Umbala Dungeon - LvL 2"; setarray .@WDunX[1], 42, 48; setarray .@WDunY[1], 31, 30; setarray .@WDunMVP$[1], "", ""; set .@WDunM$,"um_dun"; } // Formato para agregar mas dungeons //if( .@j == 1) // Dungeon de 1 Nivel //{ // set warpmapN$,.@WFildL$[1]; // warp "ama_fild01",190,197; // callfunc "LastMapSave"; // end; //} //if( .@j == 6) // Dungeon de mas de 1 Nivel //{ // callsub S_CheckVar; // setarray .@WDunN$[1],1; // setarray .@WDunX[1],2; // setarray .@WDunY[1],2; // setarray .@WDunMVP$[1],2; // set .@WDunM$,"ein_fild"; //} mes " "; set .@Menu$, ""; for( set .@i, 1; .@i < getarraysize(.@WDunN$); set .@i, .@i + 1 ) set .@Menu$, .@Menu$ + " ^0033FF" + .@WDunN$[.@i] + "^000000 "+.@WDunMVP$[.@i]+":"; set .@j, select(.@Menu$); if (compare(.@WDunN$[.@j],"Nest LvL 1")) { set .@WDunM$,"1@nyd"; } if (compare(.@WDunN$[.@j],"Nest LvL 2")) { set .@WDunM$,"2@nyd"; } if (compare(.@WDunN$[.@j],"Heim - Entrance")) { set .@WDunM$,"glast_"; } if (compare(.@WDunN$[.@j],"Heim - Castle F")) { set .@WDunM$,"gl_cas"; } if (compare(.@WDunN$[.@j],"Heim - Chivalry F")) { set .@WDunM$,"gl_knt"; } if (compare(.@WDunN$[.@j],"St.Abbey")) { set .@WDunM$,"gl_church"; } if (compare(.@WDunN$[.@j],"Churchyard")) { set .@WDunM$,"gl_chyard"; } if (compare(.@WDunN$[.@j],"Heim - Culvert F")) { set .@WDunM$,"gl_sew"; } if (compare(.@WDunN$[.@j],"Staircase Dungeon")) { set .@WDunM$,"gl_step"; } if (compare(.@WDunN$[.@j],"Heim - Underground Cave")) { set .@WDunM$,"gl_dun"; } if (compare(.@WDunN$[.@j],"Heim - Entrance")) { set .@WDunM$,"glast_"; } if (compare(.@WDunN$[.@j],"Prison")) { set .@WDunM$,"gl_prison"; } if (compare(.@WDunN$[.@j],"Tower B")) { set .@WDunM$,"alde_dun"; } if (compare(.@WDunN$[.@j],"Center of Juperos")) { set .@WDunM$,"jupe_core"; } if ( .@WDunM$ == "gl_prison" ) { if ( .@j == 15 ){set .WNm$,"";} else if ( .@j == 16 ){set .WNm$,"1";} } else if ( .@WDunM$ == "gl_dun" ) { if ( .@j == 13 ){set .WNm$,"01";} else if ( .@j == 14 ){set .WNm$,"02";} } else if ( .@WDunM$ == "gl_sew" ) { if ( .@j == 8 ){set .WNm$,"01";} else if ( .@j == 9 ){set .WNm$,"02";} else if ( .@j == 10 ){set .WNm$,"03";} else if ( .@j == 11 ){set .WNm$,"04";} } else if ( .@WDunM$ == "1@nyd" || .@WDunM$ == "2@nyd" || .@WDunM$ == "gl_chyard" || .@WDunM$ == "gl_church" || .@WDunM$ == "gl_step" || .@wDunM$ == "jupe_core" ) { if ( .@j == 1 || .@j == 2 || .@j == 3 || .@j == 6 || .@j == 7 || .@j == 12 ){set .WNm$,"";} } else if ( .@WDunM$ == "gl_knt" ) { if ( .@j == 4){set .WNm$,"01";} else if ( .@j == 5){set .WNm$,"02";} } else if ( .@WDunM$ == "gl_cas" ) { if ( .@j == 2){set .WNm$,"01";} else if ( .@j == 3){set .WNm$,"02";} } else if ( .@WDunM$ == "alde_dun") { if ( .@j == 5){set .WNm$,"01";} else if ( .@j == 6){set .WNm$,"02";} else if ( .@j == 7){set .WNm$,"03";} else if ( .@j == 8){set .WNm$,"04";} } else if ( .@WDunM$ == "c_tower" || .@WDunM$ == "prt_sewb" || .@WDunM$ == "in_sphinx" ) { if ( .@j == 1){set .WNm$,"1";} else if ( .@j == 2){set .WNm$,"2";} else if ( .@j == 3){set .WNm$,"3";} else if ( .@j == 4){set .WNm$,"4";} else if ( .@j == 5){set .WNm$,"5";} } else if ( .@WDunM$ == "beach_dun") { if ( .@j == 1){set .WNm$,"";} else if ( .@j == 2){set .WNm$,"2";} else if ( .@j == 3){set .WNm$,"3";} } else if ( .@WDunM$ == "iz_dun" || .@WDunM$ == "gef_dun" || .@WDunM$ == "pay_dun" ) { if( .@j == 1){set .WNm$,"00";} else if( .@j == 2){set .WNm$,"01";} else if( .@j == 3){set .WNm$,"02";} else if( .@j == 4){set .WNm$,"03";} else if( .@j == 5){set .WNm$,"04";} } else if ( .@j == 1){set .WNm$,"01";} else if( .@j == 2){set .WNm$,"02";} else if( .@j == 3){set .WNm$,"03";} else if( .@j == 4){set .WNm$,"04";} else if( .@j == 5){set .WNm$,"05";} else if( .@j == 6){set .WNm$,"06";} else if( .@j == 7){set .WNm$,"07";} else if( .@j == 8){set .WNm$,"08";} else if( .@j == 9){set .WNm$,"09";} else if( .@j == 10){set .WNm$,"10";} else if( .@j == 11){set .WNm$,"11";} else if( .@j == 12){set .WNm$,"12";} else if( .@j == 13){set .WNm$,"13";} else if( .@j == 14){set .WNm$,"14";} else if( .@j == 15){set .WNm$,"15";} else if( .@j == 16){set .WNm$,"16";} else if( .@j == 17){set .WNm$,"17";} else if( .@j == 18){set .WNm$,"18";} else if( .@j == 19){set .WNm$,"19";} else if( .@j == 20){set .WNm$,"20";} else if( .@j == 21){set .WNm$,"21";} else if( .@j == 22){set .WNm$,"22";} set warpmapN$,.@WDunN$[.@j]+@WDunD$[.@j]; //item x warp mvp //} if ( MF_MVP (.@WDunMV$+.WNm$) > 0 && countitem(30212) >= 1) //{ // delitem 30212,1; // warp .@WDunM$+.WNm$,.@WDunX[.@j],.@WDunY[.@j]; // callsub S_CheckVar; // callfunc "LastMapSave"; // end; //} else if ( MF_MVP(.@WDunM$+.WNm$) > 0 && countitem(30212) < 1 ) { // next; // set warpmap$, ""; // set warpmapN$, ""; // mes("Warper2"); // mes "Necesitas mvp ticket para ir a este mapa"; //} else { // atcommand "@dance 7"; sleep2 1000; warp .@WDunM$+.WNm$,.@WDunX[.@j],.@WDunY[.@j]; callsub S_CheckVar; callfunc "LastMapSave"; end; //} case 4: callsub S_CheckVar; setarray .@WFildL$[1],"Amatsu Field","Ayothaya Fields","Brasilis Field","Comodo Fields","Discastes Fields","Einbroch Fields","Geffen Fields","Gonryun Field","Hugel Fields","Lighthalzen Fields","Louyang Field","Lutie Field","Manuk Fields","Mjolnir Fields","Niflheim Fields","Odin Temple","Payon Forests","Prontera Fields","Rachel Fields","Sograt Deserts","Splendide Fields","Umbala Fields","Veins Fields","Yuno Fields"; mes("Warper"); mes "Elige la field (campo) y el nivel al que quieres ir. ^D50101Recuerda:^000000 Cuanto más alto sea el nivel, más difícil será. "; set .@Menu$, ""; for( set .@i, 1; .@i < getarraysize(.@WFildL$); set .@i, .@i + 1 ) set .@Menu$, .@Menu$ + " ^FF3300" + .@WFildL$[.@i] + "^000000:"; set .@j, select(.@Menu$); if( .@j == 1) { set warpmapN$,.@WFildL$[1]; warp "ama_fild01",190,197; callfunc "LastMapSave"; end; } if( .@j == 2) { callsub S_CheckVar; setarray .@WFieldN$[1],"Ayothaya Field 1","Ayothaya Field 2"; setarray .@WFieldD$[1], "", ""; setarray .@WFieldX[1], 173, 212; setarray .@WFieldY[1], 134, 150; set .@WFieldM$,"ayo_fild"; } if( .@j == 3) { set warpmapN$,.@WFildL$[3]; warp "bra_fild01",74,32; callfunc "LastMapSave"; end; } if( .@j == 4) { callsub S_CheckVar; setarray .@WFieldN$[1], "Comodo Field 1","Comodo Field 2","Comodo Field 3","Comodo Field 4", "Comodo Field 5", "Comodo Field 6", "Comodo Field 7", "Comodo Field 8", "Comodo Field 9"; setarray .@WFieldD$[1],"Papuchicha Forest", "Kokomo Beach", "Zenhai Marsh", "Kokomo Beach","Border of Papuchica Forest","Fortress Saint Darmain","Beacon Island, Pharos","Fortress Saint Darmain (East)","Fortress Saint Darmain (South)"; setarray .@WFieldX[1], 180, 231, 191, 228, 224, 190, 234, 194, 172; setarray .@WFieldY[1], 178, 160, 172, 194, 203, 223, 137, 175, 172; set .@WFieldM$,"cmd_fild"; } if( .@j == 5) { callsub S_CheckVar; setarray .@WFieldN$[1],"Discastes Field 1","Discastes Field 2"; setarray .@WFieldD$[1], "", ""; setarray .@WFieldX[1], 150, 71; setarray .@WFieldY[1], 278, 369; set .@WFieldM$,"dic_fild"; } if( .@j == 6) { callsub S_CheckVar; setarray .@WFieldN$[1],"Einbroch Field 1","Einbroch Field 2","Einbroch Field 3","Einbroch Field 4","Einbroch Field 5","Einbroch Field 6","Einbroch Field 7","Einbroch Field 8","Einbroch Field 9","Einbroch Field 10"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", ""; setarray .@WFieldX[1], 142, 182, 187, 185, 216, 195, 272, 173, 207, 196; setarray .@WFieldY[1], 225, 141, 228, 173, 173, 148, 220, 214, 174, 200; set .@WFieldM$,"ein_fild"; } if( .@j == 7) { callsub S_CheckVar; setarray .@WFieldN$[1],"Geffen Field 0","Geffen Field 1","Geffen Field 2","Geffen Field 3","Geffen Field 4","Geffen Field 5","Geffen Field 6","Geffen Field 7","Geffen Field 8","Geffen Field 9","Geffen Field 10","Geffen Field 11","Geffen Field 12","Geffen Field 13", "Geffen Field 14"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", "", "", "", "Kordt Forest", "Britoniah","West Orc Village"; setarray .@WFieldX[1], 46, 213, 195, 257, 188, 166, 248, 195, 186, 221, 178, 136, 240, 235, 211; setarray .@WFieldY[1], 199, 204, 212, 192, 171, 263, 158, 191, 183, 117, 218, 318, 181, 235, 185; set .@WFieldM$,"gef_fild"; } if( .@j == 8) { callsub S_CheckVar; set warpmapN$,.@WDunN$[7]; warp "gon_fild01",220,227; callfunc "LastMapSave"; end; } if( .@j == 9) { callsub S_CheckVar; setarray .@WFieldN$[1],"Hugel Field 1","Hugel Field 2","Hugel Field 3","Hugel Field 4", "Hugel Field 5","Hugel Field 6","Hugel Field 7"; setarray .@WFieldD$[1], "", "", "", "","The Abyss Lakes", "", ""; setarray .@WFieldX[1], 268, 222, 232, 252, 196, 216, 227; setarray .@WFieldY[1], 101, 193, 185, 189, 106, 220, 197; set .@WFieldM$,"hu_fild"; } if( .@j == 10) { callsub S_CheckVar; setarray .@WFieldN$[1],"Lighthalzen Field 1", "Lighthalzen Field 2", "Lighthalzen Field 3"; setarray .@WFieldD$[1], "","Grim Reaper's Valley", ""; setarray .@WFieldX[1], 240, 185, 240; setarray .@WFieldY[1], 179, 235, 226; set .@WFieldM$,"lhz_fild"; } if( .@j == 11) { callsub S_CheckVar; set warpmapN$,.@WFildL$[10]; warp "lou_fild01",229,187; callfunc "LastMapSave"; end; } if( .@j == 12) { callsub S_CheckVar; set warpmapN$,.@WFildL$[11]; warp "xmas_fild01",115,145; callfunc "LastMapSave"; end; } if( .@j == 13) { callsub S_CheckVar; setarray .@WFieldN$[1],"Manuk Field 1","Manuk Field 2","Manuk Field 3"; setarray .@WFieldD$[1], "", "", ""; setarray .@WFieldX[1], 35, 35, 84; setarray .@WFieldY[1], 236, 262, 365; set .@WFieldM$,"man_fild"; } if( .@j == 14) { callsub S_CheckVar; setarray .@WFieldN$[1],"Mjolnir Field 1","Mjolnir Field 2","Mjolnir Field 3","Mjolnir Field 4","Mjolnir Field 5","Mjolnir Field 6","Mjolnir Field 7","Mjolnir Field 8","Mjolnir Field 9","Mjolnir Field 10","Mjolnir Field 11","Mjolnir Field 12"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", "", "", ""; setarray .@WFieldX[1], 204, 175, 208, 179, 181, 195, 235, 188, 205, 245, 180, 196; setarray .@WFieldY[1], 120, 193, 213, 180, 240, 270, 202, 215, 144, 223, 206, 208; set .@WFieldM$,"mjolnir_"; } if( .@j == 15) { callsub S_CheckVar; setarray .@WFieldN$[1], "Niflheim Field 1","Niflheim Field 2"; setarray .@WFieldD$[1],"Skellington Village", "Valley of Gyoll"; setarray .@WFieldX[1], 215, 167; setarray .@WFieldY[1], 229, 234; set .@WFieldM$,"nif_fild"; } if( .@j == 16) { callsub S_CheckVar; setarray .@WFieldN$[1],"Odin Temple 1","Odin Temple 2","Odin Temple 3"; setarray .@WFieldD$[1], "", "", ""; setarray .@WFieldX[1], 298, 227, 265; setarray .@WFieldY[1], 165, 149, 280; set .@WFieldM$,"odin_tem"; } if( .@j == 17) { callsub S_CheckVar; setarray .@WFieldN$[1],"Payon Forest 1","Payon Forest 2","Payon Forest 3","Payon Forest 4","Payon Forest 5","Payon Forest 6","Payon Forest 7","Payon Forest 8","Payon Forest 9","Payon Forest 10","Payon Forest 11"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", "", ""; setarray .@WFieldX[1], 158, 151, 205, 186, 134, 193, 200, 137, 201, 160, 194; setarray .@WFieldY[1], 206, 219, 148, 247, 204, 235, 177, 189, 224, 205, 150; set .@WFieldM$,"pay_fild"; } if( .@j == 18) { callsub S_CheckVar; setarray .@WFieldN$[1],"Prontera Field 0","Prontera Field 1","Prontera Field 2","Prontera Field 3","Prontera Field 4","Prontera Field 5","Prontera Field 6","Prontera Field 7","Prontera Field 8","Prontera Field 9","Prontera Field 10","Prontera Field 11"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", "", "", ""; setarray .@WFieldX[1], 184, 190, 240, 190, 307, 239, 185, 193, 187, 210, 195, 198; setarray .@WFieldY[1], 235, 206, 206, 143, 252, 213, 188, 194, 218, 183, 149, 164; set .@WFieldM$,"prt_fild"; } if( .@j == 19) { callsub S_CheckVar; setarray .@WFieldN$[1], "Rachel Field 1","Rachel Field 2","Rachel Field 3", "Rachel Field 4", "Rachel Field 5","Rachel Field 6","Rachel Field 7","Rachel Field 8", "Rachel Field 9","Rachel Field 10","Rachel Field 11","Rachel Field 12","Rachel Field 13"; setarray .@WFieldD$[1],"Audumra Grass Land", "Oz Gorge", "Ida Plane","Audumra Grass Land","Audumra Grass Land", "Fortu Luna", "Oz Gorge", "Ida Plane","Audumra Grass Land", "Oz Gorge", "Ida Plane", "Ida Plane", "Beach of Tears"; setarray .@WFieldX[1], 192, 235, 202, 202, 225, 202, 263, 217, 87, 277, 221, 175, 174; setarray .@WFieldY[1], 162, 166, 206, 208, 202, 214, 196, 201, 121, 181, 185, 200, 197; set .@WFieldM$,"ra_fild"; } if( .@j == 20) { callsub S_CheckVar; setarray .@WFieldN$[1],"Sograt Desert 1","Sograt Desert 2","Sograt Desert 3","Sograt Desert 4","Sograt Desert 5","Sograt Desert 6","Sograt Desert 7","Sograt Desert 8","Sograt Desert 9","Sograt Desert 10","Sograt Desert 11","Sograt Desert 12","Sograt Desert 13","Sograt Desert 14","Sograt Desert 15","Sograt Desert 16","Sograt Desert 17","Sograt Desert 18","Sograt Desert 19", "Sograt Desert 20", "Sograt Desert 21", "Sograt Desert 22"; setarray .@WFieldD$[1], "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "","Continental Guard Quarantine","Dimensional Gorge","Dimensional Gorge"; setarray .@WFieldX[1], 219, 177, 194, 184, 203, 213, 224, 229, 195, 209, 198, 156, 185, 209, 223, 206, 208, 209, 85, 44, 46, 38; setarray .@WFieldY[1], 205, 206, 182, 217, 213, 208, 170, 177, 198, 168, 216, 187, 263, 219, 188, 228, 238, 223, 97, 179, 192, 196; set .@WFieldM$,"moc_fild"; } if( .@j == 21) { callsub S_CheckVar; setarray .@WFieldN$[1],"Splendide Field 1","Splendide Field 2","Splendide Field 3"; setarray .@WFieldD$[1], "", "", ""; setarray .@WFieldX[1], 289, 12, 306; setarray .@WFieldY[1], 32, 241, 375; set .@WFieldM$,"spl_fild"; } if( .@j == 22) { callsub S_CheckVar; setarray .@WFieldN$[1],"Umbala Field 1","Umbala Field 2","Umbala Field 3","Umbala Field 4"; setarray .@WFieldD$[1], "Luluka Forest", "Hoomga Forest", "Kalala Swamp", "Hoomga Jungle"; setarray .@WFieldX[1], 217, 223, 237, 202; setarray .@WFieldY[1], 206, 221, 215, 197; set .@WFieldM$,"um_fild"; } if( .@j == 23) { callsub S_CheckVar; setarray .@WFieldN$[1],"Veins Field 1","Veins Field 2","Veins Field 3","Veins Field 4","Veins Field 5","Veins Field 6","Veins Field 7"; setarray .@WFieldD$[1], "", "", "", "", "", "", ""; setarray .@WFieldX[1], 186, 196, 222, 51, 202, 150, 149; setarray .@WFieldY[1], 175, 370, 45, 250, 324, 223, 307; set .@WFieldM$,"ve_fild"; } if( .@j == 24) { callsub S_CheckVar; setarray .@WFieldN$[1],"Yuno Field 1", "Yuno Field 2", "Yuno Field 3", "Yuno Field 4", "Yuno Field 5", "Yuno Field 6", "Yuno Field 7", "Yuno Field 8", "Yuno Field 9","Yuno Field 10","Yuno Field 11", "Yuno Field 12"; setarray .@WFieldD$[1],"Border Posts","Kiel Hyre's Cottage","El Mes Plateau","El Mes Plateau","El Mes Plateau","El Mes Plateau","El Mes Gorge (Valley of Abyss)","Kiel Hyre's Academy","Schwarzwald Guards Camp", "", "","Border Checkpoint"; setarray .@WFieldX[1], 189, 192, 221, 226, 223, 187, 231, 196, 183, 200, 195, 210; setarray .@WFieldY[1], 224, 207, 157, 199, 177, 232, 174, 203, 214, 124, 226, 304; set .@WFieldM$,"yuno_fild"; } mes " "; set .@Menu$, ""; for( set .@i, 1; .@i < getarraysize(.@WFieldN$); set .@i, .@i + 1 ) set .@Menu$, .@Menu$ + " ^FF3300" + .@WFieldN$[.@i] + "^000000 " + .@WFieldD$[.@i] + " :"; set .@j, select(.@Menu$); if ( .@WFieldM$ == "gef_fild" || .@WFieldM$ == "prt_fild" ) { if( .@j == 1){set .WNm$,"00";} else if( .@j == 2){set .WNm$,"01";} else if( .@j == 3){set .WNm$,"02";} else if( .@j == 4){set .WNm$,"03";} else if( .@j == 5){set .WNm$,"04";} else if( .@j == 6){set .WNm$,"05";} else if( .@j == 7){set .WNm$,"06";} else if( .@j == 8){set .WNm$,"07";} else if( .@j == 9){set .WNm$,"08";} else if( .@j == 10){set .WNm$,"09";} else if( .@j == 11){set .WNm$,"10";} else if( .@j == 12){set .WNm$,"11";} else if( .@j == 13){set .WNm$,"12";} else if( .@j == 14){set .WNm$,"13";} else if( .@j == 15){set .WNm$,"14";} } else if( .@j == 1){set .WNm$,"01";} else if( .@j == 2){set .WNm$,"02";} else if( .@j == 3){set .WNm$,"03";} else if( .@j == 4){set .WNm$,"04";} else if( .@j == 5){set .WNm$,"05";} else if( .@j == 6){set .WNm$,"06";} else if( .@j == 7){set .WNm$,"07";} else if( .@j == 8){set .WNm$,"08";} else if( .@j == 9){set .WNm$,"09";} else if( .@j == 10){set .WNm$,"10";} else if( .@j == 11){set .WNm$,"11";} else if( .@j == 12){set .WNm$,"12";} else if( .@j == 13){set .WNm$,"13";} else if( .@j == 14){set .WNm$,"14";} else if( .@j == 15){set .WNm$,"15";} else if( .@j == 16){set .WNm$,"16";} else if( .@j == 17){set .WNm$,"17";} else if( .@j == 18){set .WNm$,"18";} else if( .@j == 19){set .WNm$,"19";} else if( .@j == 20){set .WNm$,"20";} else if( .@j == 21){set .WNm$,"21";} else if( .@j == 22){set .WNm$,"22";} set warpmapN$,.@WFieldN$[.@j]; //item x warp mvp //if ( MF_MVP(.@WFieldM$+.WNm$) > 0 && countitem(30212) >= 1) //{ // delitem 30212,1; // warp .@WFieldM$+.WNm$,.@WFieldX[.@j],.@WFieldY[.@j]; // callsub S_CheckVar; // callfunc "LastMapSave"; // end; //} else if ( MF_MVP(.@WFieldM$+.WNm$) > 0 && countitem(30212) < 1 ) { // next; // set warpmap$, ""; // set warpmapN$, ""; // mes("Warper"); // mes "Necesitas mvp ticket para ir a este mapa"; close; //} else { // atcommand "@dance 7"; sleep2 1000; warp .@WFieldM$+.WNm$,.@WFieldX[.@j],.@WFieldY[.@j]; callsub S_CheckVar; callfunc "LastMapSave"; end; //} case 5: // atcommand "@dance 7"; sleep2 1000; warp "alberta",104,194; close; case 6: mes("Warper"); mes "¿A qué zona especial (custom) quieres ir?"; switch (select( "- ^0033FFBattleground^000000", "- ^CC3300Mercado de NPC^000000")) { case 1: warp "bat_room",154,150; close; case 2: warp "ayothaya",151,161; close; } } S_CheckVar: cleararray .@WCityN$[0],0,127; cleararray .@WCityM$[0],0,127; cleararray .@WCityX[0],0,127; cleararray .@WCityY[0],0,127; cleararray .@WFieldN$[0],0,127; cleararray .@WFieldM$[0],0,127; cleararray .@WFieldX[0],0,127; cleararray .@WFieldY[0],0,127; cleararray .@WDunN$[1],0,127; cleararray .@WDunX[0],0,127; cleararray .@WDunY[0],0,127; cleararray .@WDunMVP$[0],0,127; set .@WDunM$,""; set .@WDunN$,""; return; } function script LastMapSave { getmapxy(warpmap$,warpmapx,warpmapy,0,strcharinfo(0)); return; } bat_room,18,185,3 script Warper2 Bat::DBexit 601,{ mes "¿Quieres regresar a "+getsavepoint(0)+"?"; next; if(select("Si:Mejor No") == 2){ close; } warp getsavepoint(0),getsavepoint(1),getsavepoint(2); end; } bat_room,42,51,3 script Warp::WarpDB -1,10,5,{ OnTouch: getmapxy(.@mapES$, .@1E, .@2E,0); warp .@mapES$,106,98; end; } bat_room,20,168,1 script Señal::DBSignal 835,{ end; OnInit: waitingroom "Centro del mapa Por aqui",0; end; } //------------------------------- // Duplicate NPCs //------------------------------- prontera,159,185,4 duplicate(Warper2) Warp NPC#22-21 831
  6. Buenas, como podria conseguir @battleinfo (Cuando te matan dice quien te mato y con que skill, cuando matas a alguien igualmente) Saludos!
  7. Aqui hay 2 ejemplos del fast refresh, es un refresh que hace que al usar Teleport o Fly Wing la pantalla negra casi no se ve, en algunos casos ni aparece.
  8. Buenas, quisiera saber donde conseguir el comando @fastrefresh o modificar el @refresh actual de rathena para que al usar (Teleport/Fly Wing) sea mucho mas rapido y a la hora de usar el comando este haga el refresh mas rapido. Gracias de antemano.
  9. diff you client. Patch Name: Hide Cash Shop
  10. Quizá te refieres a esto? mob.c //A Rare Drop Global Announce by Lupus if( mvp_sd && drop_rate <= battle_config.rare_drop_announce ) { char message[128]; sprintf (message, msg_txt(NULL,541), mvp_sd->status.name, md->name, it->jname, (float)drop_rate/100); //MSG: "'%s' won %s's %s (chance: %0.02f%%)" intif_broadcast(message,strlen(message)+1,BC_DEFAULT); }
  11. Do you have Increase Headgear VewID diff in your exe?
  12. gnashxalex

    Error

    Im not sure if this will work but try. search for src/config/packets.h #define PACKET_OBFUSCATION and change to //#define PACKET_OBFUSCATION dont forget to recompile. and diff exe PD: if the error continues, maybe you are using ragexe, try with ragexeRE client.
  13. The new update contains these commands?
  14. Hi, where i can find a NPC that let me choose color side red or blue instead of @joinbg or @joinredteam, @joinblueteam for example. Im using xEasycore Battleground
  15. Gracias por la ayuda, pero ahora no me tira ningun error, ahora le doy click a votar y no pasa nada y me cuenta como si me ha votado ya, pero no me redirecciona al top para votar
  16. Gracías, lo probare. Unable to vote for the server. Err no.3
  17. He probrado varios vote4points y siempre alguno tira un error (jaypee, feefty) y no me funcionan Podrian aportar alguno que si les funcione?, Gracias de antemano
  18. i think (not sure) you character have a quest that isnt listed in your RO/System/OngoingQuestInfoList.lub
×
×
  • Create New...