Search the Community

any one can convert this or tried this here in herc? //===== eAthena Script ======================================= //= Royal Rumble Event //===== By: ================================================== //= Masao //===== Current Version: ===================================== //= 2.0 //===== Compatible With: ===================================== //= Any Athena Version //===== Description: ========================================= //= Starts an little PvP Event when a total of 10 Players //= have Signed Up. After that every 30 seconds //= a new Player will be warped onto the PvP Map until //= all 10 Players have been warped. //===== Additional Comments: ================================= //= Version 1.0 [Masao] //= Verison 1.1 added GM Control Panel & Autostart [Masao] //= Version 2.0 complete re-script [Masao] //============================================================ prontera,182,207,4 script Royal Rumble 946,{ set .@n$,"[Royal Rumble]"; if (getgmlevel() >= 40) goto L_GMCP; mes .@n$; mes "Hello "+strcharinfo(0)+","; mes "I'm the Royal Rumble NPC, you can Sign Up here for the Royal Rumble Event!"; mes ""; mes "So, would you like to Sign Up?"; next; menu "Yes, please!",-,"Royal Rumble?!",L_R,"No, thanks.",L_E; if(.rrp == 10) { mes .@n$; mes "I'm sorry but the Event already begun!"; close; } set .@myaid, getcharid(3); for ( set .@i, 1; .@i <= .rrp; set .@i, .@i +1 ) if ( .rra[.@i] == .@myaid ) break; if ( .@i > .rrp ) { set .rrp,.rrp+1; set .rra[.rrp],getcharid(3); } set @rre,1; set @rre2,1; if(.rrp < 10) { mes .@n$; mes "Allright, you have been signed up. As soon as the Event begins you'll see an Broadcast."; close; } mes .@n$; mes "Allright, you have been signed up. The Event begins now!"; close2; initnpctimer; disablenpc "Royal Rumble"; announce "The Royal Rumble Event begins now! The first 2 players will now be warped into the Royal Rumble Arena!",bc_all; end; L_R: mes .@n$; mes "The Rules are very easy!"; mes "Just Sign Up to the Game and then wait until a total of 10 Players have Signed Up, as soon as this happens the Game will start."; mes "When the Event starts 2 Players will be warped onto an PvP Map, then they fight each other, the loser get warped out and the Winner stays."; mes "And after the first 2 Players have been warped in, every 30 Seconds a new Player will be warped onto the Map."; mes "As soon as the last player is killed on the Map the Game will end and the last survivor is the Winner!"; mes "And that's all, have Fun and good Luck!"; close; L_E: mes .@n$; mes "Ok, bye."; close; L_GMCP: mes .@n$; mes "Hello "+strcharinfo(0)+","; mes "what can i do for you?"; switch(select("Start Event!:End Event.:Set Prize:Cancel")) { case 1: next; mes .@n$; mes "Allright, the Event starts now!"; close2; enablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; detachrid; } } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event is Open now!",bc_all; end; case 2: next; mes .@n$; mes "Allright, the Event ends now!"; close2; disablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; detachrid; } } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event has been ended by an GM!",bc_all; end; case 3: next; mes .@n$; mes "The current Prize is "+getitemname($rr_id)+", would you like to change it?"; switch(select("No:Yes")) { case 1: next; mes .@n$; mes "Ok, bye."; close; case 2: next; mes .@n$; mes "Ok, then please insert now the new Item ID"; input $rr_id; next; mes .@n$; mes "And now the Amount please."; input $rr_amount; next; mes .@n$; mes "Allright, so the Prize now is ^008000"+$rr_amount+" "+getitemname($rr_id)+"^000000"; close; } case 4: next; mes .@n$; mes "Ok, bye"; close; } OnPCDieEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; warp "prontera",155,185; } detachrid; } } set .rrp,.rrp-1; } end; OnPCLogoutEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; save "prontera",155,185; } detachrid; } } set .rrp,.rrp-1; } end; OnPCKillEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { if(.rrp <= 1) { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { dispbottom "Congratulations "+strcharinfo(0)+"!"; dispbottom "You won the Royal Rumble Event!"; dispbottom "Here is your Prize, and see you next time!"; getitem $rr_id,$rr_amount; set @rre,0; warp "prontera",155,185; } detachrid; announce strcharinfo(0)+" won this Game of Royal Rumble! Congratulations!",bc_all; } } deletearray .rra[0],128; } } end; OnTimer1000: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @rre2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnTimer1100: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @ree2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnTimer30000: OnTimer60000: OnTimer90000: OnTimer120000: OnTimer150000: OnTimer180000: OnTimer210000: OnTimer240000: OnTimer270000: OnTimer300000: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @rre2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnClock0108: OnClock0808: OnClock1208: OnClock1608: OnClock2008: OnClock0008: enablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; } detachrid; } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event starts now! You have 3 Minutes to Sign Up!",bc_all; end; OnClock0403: OnClock0803: OnClock1203: OnClock1603: OnClock2003: OnClock0003: if(.rrp < 10) { disablenpc "Royal Rumble"; announce "The Royal Rumble Event is closed now! Since there were not 10 Players the Event will not take place.",bc_all; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; } detachrid; } } set .rrp,0; deletearray .rra[0],128; } end; OnInit: disablenpc "Royal Rumble"; end; } //============== Mapflags ==================== //guild_vs3 mapflag nogo guild_vs3 mapflag pvp_noguild guild_vs3 mapflag pvp_noparty guild_vs3 mapflag nobranch guild_vs3 mapflag nomemo guild_vs3 mapflag nopenalty guild_vs3 mapflag noreturn guild_vs3 mapflag noteleport guild_vs3 mapflag nowarp guild_vs3 mapflag nowarpto guild_vs3 mapflag noicewall