payon,134,230,3 script Events Coordinator 752,{
//This is the variable that will be your reward id set throught this script
//Default setting is 671 which is the Gold Coin
set $rewarditem, 671;//Fugitive game variables so people can talk to this npc and be warped when the event is running
if ($@fugiwins == 1) goto L_fugiwins;
if ($@fuggame == 1){
if (getgmlevel() >= 50) goto L_fugitive4;}
if ($@fugiwarp == 1){
warp "pvp_y_8-4.gat",0,0;
end;}
if ($@fugistart == 1) goto L_fugitive2;
if(getgmlevel() >= 20) goto L_GM;mes "I'm here to help GMs make events quickly and painlessly.";
close;
L_GM:
mes "Hello, "+strcharinfo(0)+"!";
mes "How can I help you today?";
menu "Make an Event",L_Event,"Nevermind",L_end,"Reset Games",L_resetg;L_Event:
mes "I see you want to create an event today.";
mes "What type will it be?";
menu "Marin Event",L_Marin,"MVP Event",L_MVP,"Russian Roulette",L_russ,"Invasion",L_invade,"Juggernaut",L_jugger,"Fugitive",L_fugitive,"Loaded Super PVP",L_superpvp;
//Here starts the Marin Event Script
L_Marin:
mes "I see you want a Marin Event.";
mes "Input the name of the map. Do not tnclude .gat";
input @place$;
next;
mes "You can input a name that will be displayed to the players.";
input @place2$;
mes "Are you sure?";
menu "Yes",-,"No",L_end;
set $@marintok,rand(3,8); monster ""+@place$+".gat",0,0,"Marin",1242,1000;
monster ""+@place$+".gat",0,0,"Marin",1242,$@marintok,"Events Coordinator::OnMarinKilledGlobal";
Announce ""+strcharinfo(0)+" has started a Marin event in "+@place2$+"!",bc_blue|bc_all;
Announce "Hurry and kill them for your prize!",bc_blue|bc_all;
close;OnMarinKilledGlobal:
set $MarinKilled,$MarinKilled+1;
getitem $rewarditem,10;
announce ""+strcharinfo(0)+" has found 10 Gold Coins!",bc_blue|bc_all;
if ($MarinKilled==$@marintok) goto L_Game;
end;
L_Game:
announce "All Marins with Tokens have been killed.",bc_blue|bc_all;
set $MarinKilled,0;
killmonsterall @place$+".gat";
end;//Here starts the MVP Event
L_MVP:
mes "Let's start the event then.";
mes "Input the name of the map. Do not include .gat";
input @place$;
next;
mes "You can input a name that will be displayed to the players next.";
input @place2$;
next;
mes "Want to make the rest random?";
menu "Yes",L_rMVP,"No",-;
mes "Input the monster ID. You could use something other than an MVP.";
input @id;
next;
mes "Next the monster name. It can be anything.";
input $@name$;
next;
set $@num,1;
mes "Is there a specific place you would like to put this monster?";
menu "Yes",L_yspec,"No",L_nspec;
L_rMVP:
mes "Send the monster to "+@place$+"?";
menu "Yes",-,"No",L_end;
monster ""+@place$+"",0,0,"--ja--",-3,1,"Events Coordinator::OnMVPKilledGlobal";;
announce "A monster has found its way to "+@place2$+"!",bc_blue|bc_all;
close;L_nspec:
set @x,0;
set @y,0;
next;
goto L_check;
L_yspec:
mes "Input the x coordinate.";
input @x;
mes "Input the y coordinate.";
input @y;
next;L_check:
mes "Here's what you put in...";
mes "Place: "+@place$+"";
mes "Id: "+@id+"";
mes "Name: "+$@name$+"";
mes "Coordinates: X = "+@x+" and Y = "+@y+"";
mes "Is this all correct?";
menu "Yes",L_spawn,"No",L_MVP,"Quit",L_end;
L_end:
close;L_spawn:
mes "Before starting, would you like to summon more than one?";
menu "No",L_spawn2,"Yes",L_num;
L_num:
mes "Input the number of spawns. Remember, 0,0 coordinates means both will spawn on different spots of the map.";
input $@num;L_spawn2:
if ($@num > 1) goto L_spawn3;
monster ""+@place$+".gat",@x,@y,"Event Monster",@id,$@num,"Events Coordinator::OnMVPKilledGlobal";;
announce ""+$@name$+" is on the loose in "+@place2$+"!",bc_blue|bc_all;
close;
L_spawn3:
set $@num2,$@num;
monster ""+@place$+".gat",@x,@y,"Event Monster",@id,$@num,"Events Coordinator::OnMVPKilled2Global";;
announce "There are "+$@num+" "+$@name$+"'s rampaging in "+@place2$+"!",bc_blue|bc_all;
close;OnMVPKilledGlobal:
set @rand,rand(1,3);
if (@rand == 1) {
announce ""+strcharinfo(0)+" has murdered the evil monster!!!",bc_blue|bc_all; }
if (@rand == 2) {
announce "The monster has been slain by "+strcharinfo(0)+"!!!",bc_blue|bc_all; }
if (@rand == 3) {
announce ""+strcharinfo(0)+" has slaughtered the monster!!!",bc_blue|bc_all; }
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,5;
if (@rtoken == 2) set @atoken,10;
if (@rtoken == 3) set @atoken,15;
if (@rtoken == 4) set @atoken,20;
announce ""+strcharinfo(0)+" has won "+@atoken+" Gold Coins!",bc_blue|bc_all;
getitem $rewarditem,@atoken;
end;
OnMVPKilled2Global:
set $@num2,$@num2-1;
if ($@num2 == 0) goto L_MVPOver;
announce ""+strcharinfo(0)+" has killed one "+$@name$+" leaving ("+$@num2+"/"+$@num+") left!!!",bc_blue|bc_all;
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,5;
if (@rtoken == 2) set @atoken,10;
if (@rtoken == 3) set @atoken,15;
if (@rtoken == 4) set @atoken,20;
announce ""+strcharinfo(0)+" has won "+@atoken+" Gold Coins!",bc_blue|bc_all;
getitem $rewarditem,@atoken;
end;L_MVPOver:
announce ""+strcharinfo(0)+" has finished off the last "+@name$+"!!!",bc_blue|bc_all;
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,5;
if (@rtoken == 2) set @atoken,10;
if (@rtoken == 3) set @atoken,15;
if (@rtoken == 4) set @atoken,20;
announce ""+strcharinfo(0)+" has won "+@atoken+" Gold Coins!",bc_blue|bc_all;
announce "The monsters have failed to hold up against our forces!",bc_blue|bc_all;
getitem $rewarditem,@atoken;
end;
//Here starts the Russian Roulette NPC
L_russ:
if ($@rron == 1) goto L_gamestart;
mes "Will this be a set reward game, or a betting game?";
menu "Set Prize Game",-,"Betting Game",L_russbet;
mes "How many players do you want in this game? It can be a max of 30.";
input $@players;
next;
if ($@players < 2) {
mes "Needs more players!";
close;}
if ($@players > 30) {
mes "Too many players!";
close;}
mes "Are you sure you want to start this event?";
menu "Yes",L_sruss,"No",L_end;L_sruss:
set $@rron,1;
set $@rrbet,0;
announce "A Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all;
announce "Talk to the Russian Roulette NPC in Payon.",bc_blue|bc_all;
enablenpc "Russian Roulette";
close;
L_russbet:
mes "How many players do you want in this game? It can be a max of 30.";
input $@players;
next;
if ($@players < 2) {
mes "Needs more players!";
close;}
if ($@players > 30) {
mes "Too many players!";
close;}
mes "Now you must decide the forced bet upon players.";
mes "Recommended 20-50.";
input $@forcebet;
mes "Are you sure you want to start this event?";
menu "Yes",L_sruss2,"No",L_end;L_sruss2:
set $@rron,1;
set $@rrbet,1;
announce "A Betting Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all;
announce "This game has a forced bet of "+$@forcebet+" Tokens.",bc_blue|bc_all;
enablenpc "Russian Roulette";
close;
L_gamestart:
mes "A game has already started. Would you like to stop or end it?";
menu "No",-,"Stop Game",L_sgame;
close;L_sgame:
announce "The GM has stopped this game. Only "+$@join+" players have joined.",3;
set $@players,$@join;
close;
//Invasion Event starts here
L_invade:
mes "How many invasions do you want? Recommended 3-5.";
input $@numinvade;
if ($@numinvade<2) goto L_moreinvade;
next;
mes "Choose a Multiplier. This is the number that will define how many monsters are summoned during one round.";
menu "1x",-,"2x",-,"3x",-,"4x",-;
if (@menu == 1) { set $@multiply,1; }
if (@menu == 2) { set $@multiply,2; }
if (@menu == 3) { set $@multiply,3; }
if (@menu == 4) { set $@multiply,4; }
mes "Are you sure you want to start this invasion?";
menu "Yes",-,"No",L_end;
announce "An invasion has begun in the Land of Magic!!!",bc_blue|bc_all;
set $@invasion,0;
set $@invade,0;
goto L_invade2;L_moreinvade:
mes "You must have more invasions!!";
close;
OnInvadeGlobal:
set $@invade,$@invade+1;
getitem $rewarditem,10;
if ($@invade==(8 * $@multiply)){
announce "Here comes the next invasion!!!",bc_blue|bc_all;
goto L_invade2;}
end;L_invade2:
set $@invasion,$@invasion+1;
set $@invade,0;
if ($@numinvade==$@invasion) goto L_endinvade;
monster "geffen.gat",111,133,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",118,133,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",132,89,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",130,84,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",67,88,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",70,83,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",77,131,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",84,131,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",111,133,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",118,133,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",132,89,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",130,84,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",67,88,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",70,83,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",77,131,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
monster "geffen.gat",84,131,"--ja--",-1,$@multiply,"Events Coordinator::OnInvadeGlobal";;
close;
end;
L_endinvade:
announce "The Boss of this invasion has arrived! Someone save us!",bc_blue|bc_all;
monster "geffen.gat",100,100,"--ja--",-3,1,"Events Coordinator::OnInvadeFinishGlobal";;
end;OnInvadeFinishGlobal:
announce ""+strcharinfo(0)+" has finished the invasion! Thank the Hero!",bc_blue|bc_all;
getitem $rewarditem,20;
end;
//Juggernaut Event starts here
L_jugger:
if ($@jon == 1) goto L_gamestart2;
mes "Are you sure you want to start this event?";
menu "Yes",-,"No",L_end;
disablenpc "Reward";
set $@jjoin,0;
set $@jon,1;
announce "A Juggernaut game has begun! Talk to the NPC in town related to this game to join.",bc_blue|bc_all;
enablenpc "Juggernaut";
enablenpc "Juggernaut Sign-up";
close;L_gamestart2:
mes "A game has already started.";
close;
//Here is where the fugitive game begins
L_fugitive:
mes "Are you positive you want to start a fugitive game?";
menu "Begin Game",L_fugitive1,"Request A Game",-,"No",L_end;
announce ""+strcharinfo(0)+" has requested a Fugitive game! Come to town to play!",bc_blue|bc_all;
close;L_fugitive1:
mes "Who's the Fugitive?";
mes "Here is a list of online players.";
next;
query_sql "SELECT `char`.`account_id` FROM `char` LEFT JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1 && `login`.`level` = 0 ORDER BY `char`.`name`", @online;
for(set @i, 0; @i < getarraysize(@online); set @i, @i + 1){
mes rid2name(@online[@i]);
}
input $@fugitive$;
next;
mes "With this person, begin the game?";
mes "Fugitive: "+$@fugitive$;
menu "Yes",-,"No",L_end;
announce ""+strcharinfo(0)+" has chosen "+$@fugitive$+" to be the Fugitive!",bc_blue|bc_all;
announce "Speak to the Events Coordinator NPC to set your time.",bc_blue|bc_all;
set $@fugistart,1;
close;
L_fugitive2:
if (strcharinfo(0) != $@fugitive$) goto L_nofugitive;
mes "Hello, "+strcharinfo(0)+". Since you're the fugitive, you get to choose you own time.";
next;
mes "It's simple, you will be given a menu of times to choose from.";
next;
mes "The higher the time you choose, the more tokens you can win in the end.";
next;
mes "Afterwards, you will be warped to one of the 8 spots in Prontera.";
next;
mes "So, choose the time you would like to be escaping for.";
menu "2 minutes",L_2minute,"3 minutes",L_3minute,"4 minutes",L_4minute,"5 minutes",L_5minute;L_2minute:
set $@time,2;
goto L_fugitive3;
L_3minute:
set $@time,3;
goto L_fugitive3;L_4minute:
set $@time,4;
goto L_fugitive3;
L_5minute:
set $@time,5;
goto L_fugitive3;L_fugitive3:
announce "The fugitive has selected to be on the run for "+$@time+" minutes!",bc_yellow|bc_all;
set $@fuggame,1;
close;
L_fugitive4:
Announce ""+$@fugitive$+" has crossed the fence! Speak to the Events Coordinator npc to be warped.",bc_blue|bc_all;
charcommand "#warp pvp_y_8-4.gat 0 0 " +$@fugitive$;
setmapflag "pvp_y_8-4.gat",mf_pvp;
setmapflag "pvp_y_8-4.gat",mf_nomemo;
setmapflag "pvp_y_8-4.gat",mf_noteleport;
setmapflag "pvp_y_8-4.gat",mf_nowarpto;
setmapflag "pvp_y_8-4.gat",mf_loadevent;
initnpctimer;
enablenpc OnPCKillEvent;
enablenpc OnPCDieEvent;
set $@fuggame,0;
set $@fugistart,0;
set $@fugiwarp,1;
end;OnTimer60000:
if ($@fugiwarp == 0) goto L_varset;
announce "One minute has passed.",bc_blue|bc_all;
end;
OnTimer90000:
if ($@fugiwarp == 0) goto L_varset;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
announce "Our satellite has shown the fugitive to be at coordinates "+$@fugix+","+$@fugiy+".",bc_blue|bc_all;
end;
OnTimer120000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 2) {
announce "Two minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 2){
announce "Two minutes have passed.",bc_blue|bc_all;
end;}
OnTimer180000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 3) {
announce "Three minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 3){
announce "Three minutes have passed.",bc_blue|bc_all;
end;}
OnTimer210000:
if ($@fugiwarp == 0) goto L_varset;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
announce "We have again located the fugitive at the coordinates "+$@fugix+","+$@fugiy+".",bc_blue|bc_all;
end;
OnTimer240000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 4) {
announce "Four minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 4){
announce "Four minutes have passed.",bc_blue|bc_all;
end;}
OnTimer300000:
if ($@fugiwarp == 0) goto L_varset;
announce "Five minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;
L_nofugitive:
mes "You aren't the fugitive!";
close;L_varset:
stopnpctimer;
setnpctimer 0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
set $@fugiwins,1;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;
L_fugiwins:
if ($@fugitive$ != strcharinfo(0)) end;
mes "Good job on escaping!";
getitem $rewarditem,$@time * 60;
set $@fugiwins,0;
close;//Here is where the Loaded Super PVP game begins
L_superpvp:
if ($@jjon == 1) goto L_gamestartsuperpvp;
mes "Are you sure you want to start this event?";
menu "Yes",-,"No",L_end;
disablenpc "Loaded Super Reward";
announce "Loaded Super PVP Event has begun! You know what to do!",bc_blue|bc_all;
enablenpc "Loaded Super PvP";
enablenpc "Loaded Super Buffer";
close;
L_gamestartsuperpvp:
mes "Loaded Super has already started.";
close;//This defines what all gets reset when you use Reset Games on the main menu
L_resetg:
mes "This is for the purpose of resetting Russian Roulette and Juggernaut games and variables if complications occur.";
next;
mes "Would you like to reset the games?";
menu "No",L_end,"Yes",-;
disablenpc "Russian Roulette";
disablenpc "Juggernaut";
disablenpc "Jugger Buffer";
disablenpc "OnPCKillEvent";
disablenpc "OnPCDieEvent";
disablenpc "OnPCLoadMapEvent";
disablenpc "Reward";
disablenpc "Juggernaut Sign-up";
disablenpc "Loaded Super PvP";
disablenpc "Loaded Super Reward";
disablenpc "Loaded Super Buffer";
set $@jon,0;
set $@jjoin,0;
set $@jugbuff,0;
set $@players,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
set @death,0;
set @gm,0;
set $@rron,0;
set $@join,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@player10,0;
set $@player11,0;
set $@player12,0;
set $@player13,0;
set $@player14,0;
set $@player15,0;
set $@player16,0;
set $@player17,0;
set $@player18,0;
set $@player19,0;
set $@player20,0;
set $@player21,0;
set $@player22,0;
set $@player23,0;
set $@player24,0;
set $@player25,0;
set $@player26,0;
set $@player27,0;
set $@player28,0;
set $@player29,0;
set $@player30,0;
set $@join1$,"";
set $@join2$,"";
set $@join3$,"";
set $@join4$,"";
set $@join5$,"";
set $@join6$,"";
set $@join7$,"";
set $@join8$,"";
set $@join9$,"";
set $@join10$,"";
set $@join11$,"";
set $@join12$,"";
set $@join13$,"";
set $@join14$,"";
set $@join15$,"";
set $@join16$,"";
set $@join17$,"";
set $@join18$,"";
set $@join19$,"";
set $@join20$,"";
set $@join21$,"";
set $@join22$,"";
set $@join23$,"";
set $@join24$,"";
set $@join25$,"";
set $@join26$,"";
set $@join27$,"";
set $@join28$,"";
set $@join29$,"";
set $@join30$,"";
stopnpctimer;
setnpctimer 0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
set $@fugiwins,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
close;
}payon,124,228,0 script Disabler 57,{
OnInit:
disablenpc "Russian Roulette";
disablenpc "Juggernaut";
disablenpc "Jugger Buffer";
disablenpc "OnPCKillEvent";
disablenpc "OnPCDieEvent";
disablenpc "OnPCLoadMapEvent";
disablenpc "Reward";
disablenpc "Juggernaut Sign-up";
disablenpc "Loaded Super PvP";
disablenpc "Loaded Super Reward";
disablenpc "Loaded Super Buffer";
end;
}
payon,155,217,6 script Russian Roulette 52,{if ($@players == $@join) goto L_bullet;
set @gm,0;if ($@join1$ == strcharinfo(0)) goto L_signed;
if ($@join2$ == strcharinfo(0)) goto L_signed;
if ($@join3$ == strcharinfo(0)) goto L_signed;
if ($@join4$ == strcharinfo(0)) goto L_signed;
if ($@join5$ == strcharinfo(0)) goto L_signed;
if ($@join6$ == strcharinfo(0)) goto L_signed;
if ($@join7$ == strcharinfo(0)) goto L_signed;
if ($@join8$ == strcharinfo(0)) goto L_signed;
if ($@join9$ == strcharinfo(0)) goto L_signed;
if ($@join10$ == strcharinfo(0)) goto L_signed;
if ($@join11$ == strcharinfo(0)) goto L_signed;
if ($@join12$ == strcharinfo(0)) goto L_signed;
if ($@join13$ == strcharinfo(0)) goto L_signed;
if ($@join14$ == strcharinfo(0)) goto L_signed;
if ($@join15$ == strcharinfo(0)) goto L_signed;
if ($@join16$ == strcharinfo(0)) goto L_signed;
if ($@join17$ == strcharinfo(0)) goto L_signed;
if ($@join18$ == strcharinfo(0)) goto L_signed;
if ($@join19$ == strcharinfo(0)) goto L_signed;
if ($@join20$ == strcharinfo(0)) goto L_signed;
if ($@join21$ == strcharinfo(0)) goto L_signed;
if ($@join22$ == strcharinfo(0)) goto L_signed;
if ($@join23$ == strcharinfo(0)) goto L_signed;
if ($@join24$ == strcharinfo(0)) goto L_signed;
if ($@join25$ == strcharinfo(0)) goto L_signed;
if ($@join26$ == strcharinfo(0)) goto L_signed;
if ($@join27$ == strcharinfo(0)) goto L_signed;
if ($@join28$ == strcharinfo(0)) goto L_signed;
if ($@join29$ == strcharinfo(0)) goto L_signed;
if ($@join30$ == strcharinfo(0)) goto L_signed;
if ($@join == 1) goto L_join2;
if ($@join == 2) goto L_join3;
if ($@join == 3) goto L_join4;
if ($@join == 4) goto L_join5;
if ($@join == 5) goto L_join6;
if ($@join == 6) goto L_join7;
if ($@join == 7) goto L_join8;
if ($@join == 8) goto L_join9;
if ($@join == 9) goto L_join10;
if ($@join == 10) goto L_join11;
if ($@join == 11) goto L_join12;
if ($@join == 12) goto L_join13;
if ($@join == 13) goto L_join14;
if ($@join == 14) goto L_join15;
if ($@join == 15) goto L_join16;
if ($@join == 16) goto L_join17;
if ($@join == 17) goto L_join18;
if ($@join == 18) goto L_join19;
if ($@join == 19) goto L_join20;
if ($@join == 20) goto L_join21;
if ($@join == 21) goto L_join22;
if ($@join == 22) goto L_join23;
if ($@join == 23) goto L_join24;
if ($@join == 24) goto L_join25;
if ($@join == 25) goto L_join26;
if ($@join == 26) goto L_join27;
if ($@join == 27) goto L_join28;
if ($@join == 28) goto L_join29;
if ($@join == 29) goto L_join30;
L_join:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,1;
set $@join1$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 1";
close;L_join2:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,2;
set $@join2$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 2";
if ($@players == $@join) goto L_full;
close;
L_join3:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,3;
set $@join3$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 3";
if ($@players == $@join) goto L_full;
close;L_join4:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,4;
set $@join4$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 4";
if ($@players == $@join) goto L_full;
close;
L_join5:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,5;
set $@join5$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 5";
if ($@players == $@join) goto L_full;
close;L_join6:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,6;
set $@join6$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 6";
if ($@players == $@join) goto L_full;
close;
L_join7:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,7;
set $@join7$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 7";
if ($@players == $@join) goto L_full;
close;L_join8:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,8;
set $@join8$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 8";
if ($@players == $@join) goto L_full;
close;
L_join9:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,9;
set $@join9$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 9";
if ($@players == $@join) goto L_full;
close;L_join10:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,10;
set $@join10$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 10";
if ($@players == $@join) goto L_full;
close;
L_join11:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,11;
set $@join11$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 11";
if ($@players == $@join) goto L_full;
close;L_join12:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,12;
set $@join12$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 12";
if ($@players == $@join) goto L_full;
close;
L_join13:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,13;
set $@join13$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 13";
if ($@players == $@join) goto L_full;
close;L_join14:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,14;
set $@join14$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 14";
if ($@players == $@join) goto L_full;
close;
L_join15:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,15;
set $@join15$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 15";
if ($@players == $@join) goto L_full;
close;L_join16:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,16;
set $@join16$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 16";
if ($@players == $@join) goto L_full;
close;
L_join17:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,17;
set $@join17$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 17";
if ($@players == $@join) goto L_full;
close;L_join18:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,18;
set $@join18$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 18";
if ($@players == $@join) goto L_full;
close;
L_join19:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,19;
set $@join19$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 19";
if ($@players == $@join) goto L_full;
close;L_join20:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,20;
set $@join20$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 20";
if ($@players == $@join) goto L_full;
close;
L_join21:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,21;
set $@join21$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 21";
if ($@players == $@join) goto L_full;
close;L_join22:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,22;
set $@join22$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 22";
if ($@players == $@join) goto L_full;
close;
L_join23:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,23;
set $@join23$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 23";
if ($@players == $@join) goto L_full;
close;L_join24:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,24;
set $@join24$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 24";
if ($@players == $@join) goto L_full;
close;
L_join25:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,25;
set $@join25$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 25";
if ($@players == $@join) goto L_full;
close;L_join26:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,26;
set $@join26$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 26";
if ($@players == $@join) goto L_full;
close;
L_join27:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,27;
set $@join27$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 27";
if ($@players == $@join) goto L_full;
close;L_join28:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,28;
set $@join28$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 28";
if ($@players == $@join) goto L_full;
close;
L_join29:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,29;
set $@join29$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 29";
if ($@players == $@join) goto L_full;
close;L_join30:
if ($@rrbet == 1) {
if(countitem(671)< $@forcebet) goto L_notoken;
delitem 671,$@forcebet;}
set $@join,30;
set $@join30$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 30";
if ($@players == $@join) goto L_full;
close;
L_notoken:
mes "Get at least "+$@forcebet+" tokens to play!";
close;L_full:
if ($@rrbet == 1) {
set @fullbet,$@forcebet * $@players;
announce "The game is now full with a full bet of "+@fullbet+".",2;
close;}
announce "The game is now full. Sorry, try again another time!",2;
close;
L_bullet:
if(getgmlevel() > 10) goto L_bullet1;
mes "I need a GM to talk to me to finish the game.";
close;L_bullet1:
mes "Ready to start?";
menu "Yes",-,"No",L_nohost,"Stop the Game",L_rstop;
if (@gm == 1) goto L_GMstart;
set @gm,1;
set $@lcheck,2;
L_bullet2:
if (@death == ($@players - 1)) goto L_finish;
mes "Pull the trigger?";
menu "Yes",-,"Stop the Game",L_rstop2;L_bullet3:
set @rbullet,rand(1,$@join); if (@rbullet == 1){
set $@deadplayer,$@player1;
set $@joinplayer$,$@join1$;
goto L_bullet4;}
if (@rbullet == 2){
set $@deadplayer,$@player2;
set $@joinplayer$,$@join2$;
goto L_bullet4;}
if (@rbullet == 3){
set $@deadplayer,$@player3;
set $@joinplayer$,$@join3$;
goto L_bullet4;}
if (@rbullet == 4){
set $@deadplayer,$@player4;
set $@joinplayer$,$@join4$;
goto L_bullet4;}
if (@rbullet == 5){
set $@deadplayer,$@player5;
set $@joinplayer$,$@join5$;
goto L_bullet4;}
if (@rbullet == 6){
set $@deadplayer,$@player6;
set $@joinplayer$,$@join6$;
goto L_bullet4;}
if (@rbullet == 7){
set $@deadplayer,$@player7;
set $@joinplayer$,$@join7$;
goto L_bullet4;}
if (@rbullet == 8){
set $@deadplayer,$@player8;
set $@joinplayer$,$@join8$;
goto L_bullet4;}
if (@rbullet == 9){
set $@deadplayer,$@player9;
set $@joinplayer$,$@join9$;
goto L_bullet4;}
if (@rbullet == 10){
set $@deadplayer,$@player10;
set $@joinplayer$,$@join10$;
goto L_bullet4;}
if (@rbullet == 11){
set $@deadplayer,$@player11;
set $@joinplayer$,$@join11$;
goto L_bullet4;}
if (@rbullet == 12){
set $@deadplayer,$@player12;
set $@joinplayer$,$@join12$;
goto L_bullet4;}
if (@rbullet == 13){
set $@deadplayer,$@player13;
set $@joinplayer$,$@join13$;
goto L_bullet4;}
if (@rbullet == 14){
set $@deadplayer,$@player14;
set $@joinplayer$,$@join14$;
goto L_bullet4;}
if (@rbullet == 15){
set $@deadplayer,$@player15;
set $@joinplayer$,$@join15$;
goto L_bullet4;}
if (@rbullet == 16){
set $@deadplayer,$@player16;
set $@joinplayer$,$@join16$;
goto L_bullet4;}
if (@rbullet == 17){
set $@deadplayer,$@player17;
set $@joinplayer$,$@join17$;
goto L_bullet4;}
if (@rbullet == 18){
set $@deadplayer,$@player18;
set $@joinplayer$,$@join18$;
goto L_bullet4;}
if (@rbullet == 19){
set $@deadplayer,$@player19;
set $@joinplayer$,$@join19$;
goto L_bullet4;}
if (@rbullet == 20){
set $@deadplayer,$@player20;
set $@joinplayer$,$@join20$;
goto L_bullet4;}
if (@rbullet == 21){
set $@deadplayer,$@player21;
set $@joinplayer$,$@join21$;
goto L_bullet4;}
if (@rbullet == 22){
set $@deadplayer,$@player22;
set $@joinplayer$,$@join22$;
goto L_bullet4;}
if (@rbullet == 23){
set $@deadplayer,$@player23;
set $@joinplayer$,$@join23$;
goto L_bullet4;}
if (@rbullet == 24){
set $@deadplayer,$@player24;
set $@joinplayer$,$@join24$;
goto L_bullet4;}
if (@rbullet == 24){
set $@deadplayer,$@player24;
set $@joinplayer$,$@join24$;
goto L_bullet4;}
if (@rbullet == 25){
set $@deadplayer,$@player25;
set $@joinplayer$,$@join25$;
goto L_bullet4;}
if (@rbullet == 26){
set $@deadplayer,$@player26;
set $@joinplayer$,$@join26$;
goto L_bullet4;}
if (@rbullet == 27){
set $@deadplayer,$@player27;
set $@joinplayer$,$@join27$;
goto L_bullet4;}
if (@rbullet == 28){
set $@deadplayer,$@player28;
set $@joinplayer$,$@join28$;
goto L_bullet4;}
if (@rbullet == 29){
set $@deadplayer,$@player29;
set $@joinplayer$,$@join29$;
goto L_bullet4;}
if (@rbullet == 30){
set $@deadplayer,$@player30;
set $@joinplayer$,$@join30$;
goto L_bullet4;}
L_bullet4:
if ($@deadplayer == 1) goto L_bullet3;
if (rand(1,$@lcheck) == 1){
set @phrase1,rand(1,4);
if (@phrase1 == 1){
announce ""+$@joinplayer$+" finds that the gun did not fire...",bc_blue|bc_all;}
if (@phrase1 == 2){
announce ""+$@joinplayer$+" luckily survives this round...",bc_blue|bc_all;}
if (@phrase1 == 3){
announce ""+$@joinplayer$+" dodges death by an inch...",bc_blue|bc_all;}
if (@phrase1 == 4){
announce ""+$@joinplayer$+" hears a click in the gun...",bc_blue|bc_all;}
set $@lcheck,$@lcheck+1;
goto L_bullet2;}
set @phrase2,rand(1,6);
if (@phrase2 == 1){
announce ""+$@joinplayer$+" is definately not having a good day.",bc_blue|bc_all;}
if (@phrase2 == 2){
announce ""+$@joinplayer$+" got a shot in the face.",bc_blue|bc_all;}
if (@phrase2 == 3){
announce ""+$@joinplayer$+" is done for.",bc_blue|bc_all;}
if (@phrase2 == 4){
announce ""+$@joinplayer$+" sees the reaper.",bc_blue|bc_all;}
if (@phrase2 == 5){
announce ""+$@joinplayer$+" just got pwned.",bc_blue|bc_all;}
if (@phrase2 == 6){
announce ""+$@joinplayer$+" dies a nastly, horrible, discusting, vile death.",bc_blue|bc_all;}
atcommand "@nuke "+$@joinplayer$;
if ($@joinplayer$ == $@join1$) { set $@player1,1; }
if ($@joinplayer$ == $@join2$) { set $@player2,1; }
if ($@joinplayer$ == $@join3$) { set $@player3,1; }
if ($@joinplayer$ == $@join4$) { set $@player4,1; }
if ($@joinplayer$ == $@join5$) { set $@player5,1; }
if ($@joinplayer$ == $@join6$) { set $@player6,1; }
if ($@joinplayer$ == $@join7$) { set $@player7,1; }
if ($@joinplayer$ == $@join8$) { set $@player8,1; }
if ($@joinplayer$ == $@join9$) { set $@player9,1; }
if ($@joinplayer$ == $@join10$) { set $@player10,1; }
if ($@joinplayer$ == $@join11$) { set $@player11,1; }
if ($@joinplayer$ == $@join12$) { set $@player12,1; }
if ($@joinplayer$ == $@join13$) { set $@player13,1; }
if ($@joinplayer$ == $@join14$) { set $@player14,1; }
if ($@joinplayer$ == $@join15$) { set $@player15,1; }
if ($@joinplayer$ == $@join16$) { set $@player16,1; }
if ($@joinplayer$ == $@join17$) { set $@player17,1; }
if ($@joinplayer$ == $@join18$) { set $@player18,1; }
if ($@joinplayer$ == $@join19$) { set $@player19,1; }
if ($@joinplayer$ == $@join20$) { set $@player20,1; }
if ($@joinplayer$ == $@join21$) { set $@player21,1; }
if ($@joinplayer$ == $@join22$) { set $@player22,1; }
if ($@joinplayer$ == $@join23$) { set $@player23,1; }
if ($@joinplayer$ == $@join24$) { set $@player24,1; }
if ($@joinplayer$ == $@join25$) { set $@player25,1; }
if ($@joinplayer$ == $@join26$) { set $@player26,1; }
if ($@joinplayer$ == $@join27$) { set $@player27,1; }
if ($@joinplayer$ == $@join28$) { set $@player28,1; }
if ($@joinplayer$ == $@join29$) { set $@player29,1; }
if ($@joinplayer$ == $@join30$) { set $@player30,1; } set @death,@death+1;
goto L_bullet2;
L_GMstart:
mes "A GM has already started this game. Please don't interfere.";
close;L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
L_nohost:
mes "When you're ready, just talk to me again.";
set @gm,0;
close;L_rstop:
if (@gm == 1) goto L_GMstart;
announce "The GM has ended this game.",3;
set @gm,0;
set $@rron,0;
disablenpc "Russian Roulette";
close;
L_rstop2:
announce "The GM has ended this game.",3;
set @gm,0;
set $@rron,0;
disablenpc "Russian Roulette";
close;L_finish:
set @tokena,($@players * 25);
if ($@rrbet == 1) {
set @tokena,$@forcebet * $@players;}
if ($@player1 != 1) {
set $@winner$,$@join1$;
goto L_finish1;}
if ($@player2 != 1) {
set $@winner$,$@join2$;
goto L_finish1;}
if ($@player3 != 1) {
set $@winner$,$@join3$;
goto L_finish1;}
if ($@player4 != 1) {
set $@winner$,$@join4$;
goto L_finish1;}
if ($@player5 != 1) {
set $@winner$,$@join5$;
goto L_finish1;}
if ($@player6 != 1) {
set $@winner$,$@join6$;
goto L_finish1;}
if ($@player7 != 1) {
set $@winner$,$@join7$;
goto L_finish1;}
if ($@player8 != 1) {
set $@winner$,$@join8$;
goto L_finish1;}
if ($@player9 != 1) {
set $@winner$,$@join9$;
goto L_finish1;}
if ($@player10 != 1) {
set $@winner$,$@join10$;
goto L_finish1;}
if ($@player11 != 1) {
set $@winner$,$@join11$;
goto L_finish1;}
if ($@player12 != 1) {
set $@winner$,$@join12$;
goto L_finish1;}
if ($@player13 != 1) {
set $@winner$,$@join13$;
goto L_finish1;}
if ($@player14 != 1) {
set $@winner$,$@join14$;
goto L_finish1;}
if ($@player15 != 1) {
set $@winner$,$@join15$;
goto L_finish1;}
if ($@player16 != 1) {
set $@winner$,$@join16$;
goto L_finish1;}
if ($@player17 != 1) {
set $@winner$,$@join17$;
goto L_finish1;}
if ($@player18 != 1) {
set $@winner$,$@join18$;
goto L_finish1;}
if ($@player19 != 1) {
set $@winner$,$@join19$;
goto L_finish1;}
if ($@player20 != 1) {
set $@winner$,$@join20$;
goto L_finish1;}
if ($@player21 != 1) {
set $@winner$,$@join21$;
goto L_finish1;}
if ($@player22 != 1) {
set $@winner$,$@join22$;
goto L_finish1;}
if ($@player23 != 1) {
set $@winner$,$@join23$;
goto L_finish1;}
if ($@player24 != 1) {
set $@winner$,$@join24$;
goto L_finish1;}
if ($@player25 != 1) {
set $@winner$,$@join25$;
goto L_finish1;}
if ($@player26 != 1) {
set $@winner$,$@join26$;
goto L_finish1;}
if ($@player27 != 1) {
set $@winner$,$@join27$;
goto L_finish1;}
if ($@player28 != 1) {
set $@winner$,$@join28$;
goto L_finish1;}
if ($@player29 != 1) {
set $@winner$,$@join29$;
goto L_finish1;}
else {
set $@winner$,$@join30$;
goto L_finish1;}
L_finish1:
announce ""+$@winner$+" has won and gets "+@tokena+" Gold Coins!",bc_blue|bc_all;
charcommand "#item "+$rewarditem+" "+@tokena+" "+$@winner$;
atcommand "@raise";
disablenpc "Russian Roulette";
goto L_setter;
close;L_setter:
set @death,0;
set @gm,0;
set $@rron,0;
set $@join,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@player10,0;
set $@player11,0;
set $@player12,0;
set $@player13,0;
set $@player14,0;
set $@player15,0;
set $@player16,0;
set $@player17,0;
set $@player18,0;
set $@player19,0;
set $@player20,0;
set $@player21,0;
set $@player22,0;
set $@player23,0;
set $@player24,0;
set $@player25,0;
set $@player26,0;
set $@player27,0;
set $@player28,0;
set $@player29,0;
set $@player30,0;
set $@join1$,"";
set $@join2$,"";
set $@join3$,"";
set $@join4$,"";
set $@join5$,"";
set $@join6$,"";
set $@join7$,"";
set $@join8$,"";
set $@join9$,"";
set $@join10$,"";
set $@join11$,"";
set $@join12$,"";
set $@join13$,"";
set $@join14$,"";
set $@join15$,"";
set $@join16$,"";
set $@join17$,"";
set $@join18$,"";
set $@join19$,"";
set $@join20$,"";
set $@join21$,"";
set $@join22$,"";
set $@join23$,"";
set $@join24$,"";
set $@join25$,"";
set $@join26$,"";
set $@join27$,"";
set $@join28$,"";
set $@join29$,"";
set $@join30$,"";
close;
}
payon,141,211,6 script Juggernaut 52,{if ($@jugbuff == 1) goto L_finishjug;
if(getgmlevel() >= 20) goto L_jug1;
announce "" + strcharinfo(0) + " has joined as a player.",bc_blue|bc_all;
warp "arena_room",155,88;L_jug1:
if (getmapusers("guild_vs3.gat") == 1){
mes "Someone has already been chosen to be Juggernaut!";
close;} mes "Ready to start?";
menu "Yes",-,"No",L_nohost;
if ($@jjoin == 0) goto L_force; switch(select(""+$@jjoin1$+"",""+$@jjoin2$+"",""+$@jjoin3$+"",""+$@jjoin4$+"",""+$@jjoin5$+"",""+$@jjoin6$+"",""+$@jjoin7$+"",""+$@jjoin8$+"",""+$@jjoin9$+"",""+$@jjoin10$+"")) {
case 1:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player1,1;
goto L_startjug;
case 2:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player2,1;
goto L_startjug;
case 3:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player3,1;
goto L_startjug;
case 4:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player4,1;
goto L_startjug;
case 5:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player5,1;
goto L_startjug;
case 6:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player6,1;
goto L_startjug;
case 7:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player7,1;
goto L_startjug;
case 8:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player8,1;
goto L_startjug;
case 9:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player9,1;
goto L_startjug;
case 10:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player10,1;
goto L_startjug; }
L_nosignup:
mes "There are no people found to be signed up at the Juggernaut Sign-up";
next;
mes "Wait for someone to sign up or force someone to be juggernaut";
menu "Wait",-,"Force Juggernaut",L_force;
close;L_force:
mes "Input the name of the user to be Juggernaut.";
input $@juggernaut$;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@juggernaut$))
{
mes "That is not a valid user or that player is not online.";
close;
}
goto L_startjug2;
L_startjug:
if ($@player1 == 1){
set $@juggernaut$,$@jjoin1$;
goto L_startjug2;}
if ($@player2 == 1){
set $@juggernaut$,$@jjoin2$;
goto L_startjug2;}
if ($@player3 == 1){
set $@juggernaut$,$@jjoin3$;
goto L_startjug2;}
if ($@player4 == 1){
set $@juggernaut$,$@jjoin4$;
goto L_startjug2;}
if ($@player5 == 1){
set $@juggernaut$,$@jjoin5$;
goto L_startjug2;}
if ($@player6 == 1){
set $@juggernaut$,$@jjoin6$;
goto L_startjug2;}
if ($@player7 == 1){
set $@juggernaut$,$@jjoin7$;
goto L_startjug2;}
if ($@player8 == 1){
set $@juggernaut$,$@jjoin8$;
goto L_startjug2;}
if ($@player9 == 1){
set $@juggernaut$,$@jjoin9$;
goto L_startjug2;}
if ($@player10 == 1){
set $@juggernaut$,$@jjoin10$;
goto L_startjug2;}L_startjug2:
announce ""+$@juggernaut$+" has been chosen to be the juggernaut.",bc_blue|bc_all;
charcommand "#warp guild_vs2.gat 50 50 " +$@juggernaut$;
enablenpc "Jugger Buffer";
disablenpc "Juggernaut Sign-up";
close;
L_nohost:
mes "When you're ready, just talk to me again.";
close;L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
L_finishjug:
if(getgmlevel() >= 50) goto L_finishjug1;
mes "I need a GM to talk to me to finish the game.";
close;L_finishjug1:
mes "Ready to send the other players in?";
menu "Yes",-,"No",L_nohost;
npctalk "Ok, here go the players to fight the Juggernaut!";
mapwarp "arena_room","guild_vs2",0,0;
disablenpc "Juggernaut";
initnpctimer;
close;
OnTimer300000:
if ($@jon == 0){
stopnpctimer;
setnpctimer 0;
end;}
if (getmapusers("guild_vs2.gat") == 0){
stopnpctimer;
setnpctimer 0;
end;}
announce "5 minutes has passed and all the players and the juggernaut weren't killed.",bc_blue|bc_all;
mapwarp "guild_vs2.gat","prontera.gat",156,187;
set $@jon,0;
set $@jugbuff,0;
set $@jjoin,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
stopnpctimer;
setnpctimer 0;
end;
}guild_vs2,55,55,4 script Jugger Buffer 739,{
if ($@juggernaut$ != strcharinfo(0)) goto L_loser; sc_start SC_IMPOSITIO,300000,60;
sc_start SC_ASSUMPTIO,300000,20;
sc_start SC_BLESSING,300000,30;
sc_start SC_INCREASEAGI,300000,10;
sc_start SC_MAGNIFICAT,300000,5;
sc_start SC_PARRYING,300000,5;
sc_start SC_ANGELUS,300000,30;
sc_start SC_INCMHPRATE,300000,50;
sc_start SC_CP_WEAPON,300000,10;
sc_start SC_CP_SHIELD,300000,10;
sc_start SC_CP_ARMOR,300000,10;
sc_start SC_CP_HELM,300000,10;
sc_start SC_ENDURE,300000,10;
sc_start SC_EXPLOSIONSPIRITS,300000,1;
sc_start SC_INTRAVISION,300000,1;
percentheal 100,100;
npctalk "I just know you will win for the sake of evil!"; set $@jugbuff,1;
announce "The Juggernaut is ready with buffs.",bc_blue|bc_all;
set $@players,getmapusers("arena_room.gat");
set $@jugplayers,getmapusers("arena_room.gat");
disablenpc "Jugger Buffer";
close;L_loser:
mes "You aren't the juggernaut you moron!";
close;
}force_1-1.gat,100,111,5 script Juggernaut Sign-up 904,{
if ($@jjoin == 10)
{
mes "Sorry. All positions for juggernaut are filled.";
close;
} mes "This is the Juggernaut sign-up. You can put in your name to be drawn when the juggernaut is chosen.";
next;
mes "Would you like to sign up to be the juggernaut? Notice I only take 10 names. It's a first come first serve basis.";
menu "Yes",-,"No",L_noname;
mes "Thank you for your interest in signing up.";if ($@jjoin1$ == strcharinfo(0)) goto L_signed;
if ($@jjoin2$ == strcharinfo(0)) goto L_signed;
if ($@jjoin3$ == strcharinfo(0)) goto L_signed;
if ($@jjoin4$ == strcharinfo(0)) goto L_signed;
if ($@jjoin5$ == strcharinfo(0)) goto L_signed;
if ($@jjoin6$ == strcharinfo(0)) goto L_signed;
if ($@jjoin7$ == strcharinfo(0)) goto L_signed;
if ($@jjoin8$ == strcharinfo(0)) goto L_signed;
if ($@jjoin9$ == strcharinfo(0)) goto L_signed;
if ($@jjoin10$ == strcharinfo(0)) goto L_signed;
if ($@join == 1) goto L_join2;
if ($@join == 2) goto L_join3;
if ($@join == 3) goto L_join4;
if ($@join == 4) goto L_join5;
if ($@join == 5) goto L_join6;
if ($@join == 6) goto L_join7;
if ($@join == 7) goto L_join8;
if ($@join == 8) goto L_join9;
if ($@join == 9) goto L_join10;
L_join:
set $@jjoin,1;
set $@jjoin1$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;L_join2:
set $@jjoin,2;
set $@jjoin2$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join3:
set $@jjoin,3;
set $@jjoin3$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;L_join4:
set $@jjoin,4;
set $@jjoin4$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join5:
set $@jjoin,5;
set $@jjoin5$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;L_join6:
set $@jjoin,6;
set $@jjoin6$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join7:
set $@jjoin,7;
set $@jjoin7$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;L_join8:
set $@jjoin,8;
set $@jjoin8$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join9:
set $@jjoin,9;
set $@jjoin9$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;L_join10:
set $@jjoin,10;
set $@jjoin10$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_noname:
mes "Remember that if no one signs up, then everyone is eligible to be juggernaut.";
close;L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
}guild_vs2,45,55,6 script Reward 80,{
if ($@juggerwin == 0){
getitem $rewarditem,$@players * 25;
mes "Thanks for playing!";
goto L_setter2;} if ($@juggerwin == 1){
sc_end SC_IMPOSITIO;
sc_end SC_ASSUMPTIO;
sc_end SC_BLESSING;
sc_end SC_INCREASEAGI;
sc_end SC_MAGNIFICAT;
sc_end SC_PARRYING;
sc_end SC_ANGELUS;
sc_end SC_INCMHPRATE;
sc_end SC_CP_WEAPON;
sc_end SC_CP_SHIELD;
sc_end SC_CP_ARMOR;
sc_end SC_CP_HELM;
sc_end SC_ENDURE;
sc_end SC_EXPLOSIONSPIRITS;
sc_end SC_INTRAVISION;
getitem $rewarditem,$@jugplayers * 50;
mes "Thanks for playing!";
goto L_setter2;}
L_setter2:
set $@jon,0;
set $@jjoin,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
close2;
warp "prontera.gat",155,174;}
//This is where the events will be when it comes to the Juggernaut and Fugitive game
- script OnPCDieEvent -1,{
if ($@fugiwarp == 1){
if (strcharinfo(0) == $@fugitive$){
set $@fugidead,1;}} if ($@jugbuff == 0) end;
if ($@juggernaut$ != strcharinfo(0)){
percentheal 100,100;
warp "prontera.gat",155,174;
end;}
if ($@juggernaut$ == strcharinfo(0)){
announce "The Juggernaut was killed!",bc_all,0xFF0000;
set $@players,getmapusers("guild_vs3.gat");
set $@juggerwin,0;
enablenpc "Reward";
set $@jon,0;
set $@jugbuff,0;
percentheal 100,100;
warp "prontera.gat",155,174;
disablenpc "OnPCDieEvent";
end;}
}- script OnPCKillEvent -1,{
if ($@fugiwarp == 1){
if (strcharinfo(0) != $@fugitive$){
if ($@fugidead == 1){
announce "The fugitive was killed by "+strcharinfo(0)+"!",bc_all,0xFF0000;
getitem $rewarditem,20/$@time;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;}}}
if ($@jugbuff != 1) end;
if ($@juggernaut$ != strcharinfo(0)){
announce "A player has been killed.",bc_all,0xFF0000;
set $@players,$@players-1;} if ($@juggernaut$ == strcharinfo(0)){
announce "The Juggernaut has murdered a player.",bc_all,0xFF0000;
set $@players,$@players-1;}
if ($@players==0){
announce ""+strcharinfo(0)+" has won the event as Juggernaut!",bc_blue|bc_all;
set $@juggerwin,1;
enablenpc "Reward";
set $@jon,0;
set $@jugbuff,0;
disablenpc "OnPCKillEvent";
end;}
}- script OnPCLoadMapEvent -1,{
if (strcharinfo(0) == $@fugitive$){
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
if ($@mapname$ == "pvp_y_8-4.gat") end;
announce "The fugitive has changed map and is disqualified.",0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;}
}
guild_vs2 mapflag pvp
guild_vs2 mapflag nomemo
guild_vs2 mapflag nopenalty
guild_vs2 mapflag noreturn
guild_vs2 mapflag noteleport
guild_vs2 mapflag pvp_noguild
guild_vs2 mapflag nogo
guild_vs2 mapflag nocommand 60
guild_vs2 mapflag nowarpto
guild_vs2 mapflag restricted 7
pvp_y_8-4 mapflag restricted 7
prt_in.gat,34,114,6 script Loaded Super PvP 52,{
if(getgmlevel() <= 39) goto L_superplayer1;
if(getgmlevel() >= 40) goto L_supergm1;L_superplayer1:
announce "" + strcharinfo(0) + " has joined as a player.",bc_blue|bc_all;
warp "arena_room.gat",64,132;
L_supergm1:
mes "[Loaded Super PvP]";
mes "What do you want to do next?";
next;
menu "Warp the players to the PvP Room",warp1,"Enable the Reward NPC",reward1,"None",cancel1; warp1:
mes "[Loaded Super PvP]";
mes "Ready to warp the players to the Super PvP Room?";
next;
menu "No",nope1,"Yes",yes1;
nope1:
mes "[Loaded Super PvP]";
mes "Just tell me when you're ready.";
close; yes1:
mes "[Loaded Super PvP]";
mes "Are you sure?";
next;
menu "No",nope2,"Yes",yes2;
close;
nope2:
mes "[Loaded Super PvP]";
mes "Just tell me when you're ready.";
close;
yes2:
mes "[Loaded Super PvP]";
mes "OK, done.";
announce "Let's get ready to rumble!!!",bc_blue|bc_all;
mapwarp "arena_room","pvp_n_3-5",0,0;
disablenpc "Loaded Super Buffer";
close; reward1:
mes "[Loaded Super PvP]";
mes "Ready to enable the Loaded Super Reward NPC?";
next;
menu "No",nope3,"Yes",yes3;
nope3:
mes "[Loaded Super PvP]";
mes "Just tell me when you're ready.";
close;
yes3:
mes "[Loaded Super PvP]";
mes "Are you sure?";
next;
menu "No",nope4,"Yes",yes4;
close; nope4:
mes "[Loaded Super PvP]";
mes "Just tell me when you're ready.";
close;
yes4:
mes "[Loaded Super PvP]";
mes "OK, done.";
enablenpc "Loaded Super Reward";
close;
cancel1:
close;
}
//Here's the Loaded Super Buffer for the Loaded Super PVP
arena_room.gat,64,138,5 script Loaded Super Buffer 121,{ announce "" + strcharinfo(0) + " is ready with buffs.",bc_blue|bc_all;
sc_start SC_WINDWALK,500000,50;
sc_start SC_GLORIA,500000,50;
sc_start SC_MAGNIFICAT,500000,50;
sc_start SC_IMPOSITIO,300000,50;
sc_start SC_ASSUMPTIO,300000,50;
sc_start SC_BLESSING,300000,50;
sc_start SC_INCREASEAGI,300000,50;
sc_start SC_MAGNIFICAT,300000,50;
sc_start SC_CONCENTRATE,300000,20;
sc_start SC_ANGELUS,300000,50;
sc_start SC_INCMHPRATE,300000,50;
sc_start SC_CP_WEAPON,300000,50;
sc_start SC_CP_SHIELD,300000,50;
sc_start SC_CP_ARMOR,300000,50;
sc_start SC_CP_HELM,300000,50;
sc_start SC_ENDURE,300000,50;
sc_start SC_EXPLOSIONSPIRITS,300000,1;
sc_start SC_INTRAVISION,300000,1;
percentheal 100,100;
}//Here's the Loaded Super Reward for the Loaded Super PVP
pvp_n_3-5.gat,104,113,3 script Loaded Super Reward 80,{ getitem $rewarditem,15;
announce "And the winner of our Loaded Super PvP Event is [ " + strcharinfo(0) + " ]",bc_blue|bc_all;
disablenpc "Loaded Super PvP";
atcommand "@die ";
atcommand "@alive ";
warp "prontera.gat",155,174;
}//Here's the Waiting Room for the Juggernaut Event
arena_room.gat,162,88,3 script Juggernaut Waiting Room 754,{ mes "[Juggernaut Waiting Room]";
mes "Please wait until a GM picks a Juggernaut from you guys.";
close;
}
//------------------------------------------------------------
//End of Cool Events================================
//-------------------------------------------------------
can you pls seperate all the event pls
and can you change the prize off all the event the prize of the all event is 2 TCG Card
sorry bad english cuz im from morocc hahaha
