Help me with this script

Hades03 · December 7, 2012

i want this script automatic give prize, give TCG random to 10-15-20-25-30

i'm using eathena ty

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================================
//-------------------------------------------------------

Edited December 7, 2012 by Emistry
Please use [CODEBOX] or Attachments for long contents.

AnnieRuru · December 9, 2012

this script seems to have a lot different event in 1 npc ...

you have to tell which event that particularly you need us to edit

and ... most people usually split out different event in separated file ...

Hades03 · December 9, 2012

I want the russian roulette

Annie make it auto prize if i active it and random prize 10,15,20,25,30 ty

PewN · December 9, 2012

setarray .Quan[0],10,15,20,25,30;
set .@r,rand(getarraysize(.Quan));
getitem item_id,.@r;

Hades03 · December 9, 2012

Ty but i meed auto prize

And can you seperate it or get only russian roulette

AnnieRuru · December 9, 2012

change this line

charcommand "#item "+$rewarditem+" "+@tokena+" "+$@winner$;

into this

getitem $rewarditem, @tokena, getcharid(3, $@winner$ );

hmm ...

or this

getitem 7227, callfunc( "F_RandMes", 5, 10,15,20,25,30 ), getcharid(3, $@winner$ );

Edited December 9, 2012 by AnnieRuru

Hades03 · December 10, 2012

error

getitem 7227, callfunc( "F_RandMes", 5, 10,15,20,25,30 ), getcharid(3, $@winner$ );

ok

getitem $rewarditem, @tokena, getcharid(3, $@winner$ );

but the prize is not a random T.T

AnnieRuru · December 10, 2012

error

getitem 7227, callfunc( "F_RandMes", 5, 10,15,20,25,30 ), getcharid(3, $@winner$ );

what error ?

did you have this global function ?

Hades03 · December 11, 2012

im using eathena hahahah

Skorm · March 25, 2013

payon,134,230,3	script	Events Coordinator	752,{

//This is the variable that will be your reward id set throught this script

set $rewarditem, 12103;//Fugitive game variables so people can talk to this npc and be warped when the event is running

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 "Russian Roulette",L_russ;

//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;

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";

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,0;

set $@jjoin2,0;

set $@jjoin3,0;

set $@jjoin4,0;

set $@jjoin5,0;

set $@jjoin6,0;

set $@jjoin7,0;

set $@jjoin8,0;

set $@jjoin9,0;

set $@jjoin10,0;

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,0;

set $@join2,0;

set $@join3,0;

set $@join4,0;

set $@join5,0;

set $@join6,0;

set $@join7,0;

set $@join8,0;

set $@join9,0;

set $@join10,0;

set $@join11,0;

set $@join12,0;

set $@join13,0;

set $@join14,0;

set $@join15,0;

set $@join16,0;

set $@join17,0;

set $@join18,0;

set $@join19,0;

set $@join20,0;

set $@join21,0;

set $@join22,0;

set $@join23,0;

set $@join24,0;

set $@join25,0;

set $@join26,0;

set $@join27,0;

set $@join28,0;

set $@join29,0;

set $@join30,0;

stopnpctimer;

setnpctimer 0;

set $@fugidead,0;

set $@fugitive,0;

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;

L_end:

mes "Ok!";

close;

}

payon,124,228,0 script Disabler 57,{

OnInit:

disablenpc "Russian Roulette";

end;

}

payon,155,217,6 script Russian Roulette 52,{

if ($@players == $@join) goto L_bullet;

set @gm,0;if ($@join1 == getcharid(3)) goto L_signed;

if ($@join2 == getcharid(3)) goto L_signed;

if ($@join3 == getcharid(3)) goto L_signed;

if ($@join4 == getcharid(3)) goto L_signed;

if ($@join5 == getcharid(3)) goto L_signed;

if ($@join6 == getcharid(3)) goto L_signed;

if ($@join7 == getcharid(3)) goto L_signed;

if ($@join8 == getcharid(3)) goto L_signed;

if ($@join9 == getcharid(3)) goto L_signed;

if ($@join10 == getcharid(3)) goto L_signed;

if ($@join11 == getcharid(3)) goto L_signed;

if ($@join12 == getcharid(3)) goto L_signed;

if ($@join13 == getcharid(3)) goto L_signed;

if ($@join14 == getcharid(3)) goto L_signed;

if ($@join15 == getcharid(3)) goto L_signed;

if ($@join16 == getcharid(3)) goto L_signed;

if ($@join17 == getcharid(3)) goto L_signed;

if ($@join18 == getcharid(3)) goto L_signed;

if ($@join19 == getcharid(3)) goto L_signed;

if ($@join20 == getcharid(3)) goto L_signed;

if ($@join21 == getcharid(3)) goto L_signed;

if ($@join22 == getcharid(3)) goto L_signed;

if ($@join23 == getcharid(3)) goto L_signed;

if ($@join24 == getcharid(3)) goto L_signed;

if ($@join25 == getcharid(3)) goto L_signed;

if ($@join26 == getcharid(3)) goto L_signed;

if ($@join27 == getcharid(3)) goto L_signed;

if ($@join28 == getcharid(3)) goto L_signed;

if ($@join29 == getcharid(3)) goto L_signed;

if ($@join30 == getcharid(3)) 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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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,getcharid(3);

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 ""+rid2name($@joinplayer)+" finds that the gun did not fire...",bc_blue|bc_all;}

if (@phrase1 == 2){

announce ""+rid2name($@joinplayer)+" luckily survives this round...",bc_blue|bc_all;}

if (@phrase1 == 3){

announce ""+rid2name($@joinplayer)+" dodges death by an inch...",bc_blue|bc_all;}

if (@phrase1 == 4){

announce ""+rid2name($@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 ""+rid2name($@joinplayer)+" is definately not having a good day.",bc_blue|bc_all;}

if (@phrase2 == 2){

announce ""+rid2name($@joinplayer)+" got a shot in the face.",bc_blue|bc_all;}

if (@phrase2 == 3){

announce ""+rid2name($@joinplayer)+" is done for.",bc_blue|bc_all;}

if (@phrase2 == 4){

announce ""+rid2name($@joinplayer)+" sees the reaper.",bc_blue|bc_all;}

if (@phrase2 == 5){

announce ""+rid2name($@joinplayer)+" just got pwned.",bc_blue|bc_all;}

if (@phrase2 == 6){

announce ""+rid2name($@joinplayer)+" dies a nastly, horrible, discusting, vile death.",bc_blue|bc_all;}

atcommand "@nuke "+rid2name($@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,rand(1,3);

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:

//charcommand "#item "+$rewarditem+" "+@tokena+" "+$@winner;

attachrid($@winner);

announce ""+strcharinfo(0)+" has won and gets "+@tokena+" "+getitemname($rewarditem)+"s!",bc_blue|bc_all;

getitem $rewarditem,@tokena;

atcommand "@raise";

disablenpc "Russian Roulette";

close2;

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,0;

set $@join2,0;

set $@join3,0;

set $@join4,0;

set $@join5,0;

set $@join6,0;

set $@join7,0;

set $@join8,0;

set $@join9,0;

set $@join10,0;

set $@join11,0;

set $@join12,0;

set $@join13,0;

set $@join14,0;

set $@join15,0;

set $@join16,0;

set $@join17,0;

set $@join18,0;

set $@join19,0;

set $@join20,0;

set $@join21,0;

set $@join22,0;

set $@join23,0;

set $@join24,0;

set $@join25,0;

set $@join26,0;

set $@join27,0;

set $@join28,0;

set $@join29,0;

set $@join30,0;

end;

}

Edited March 25, 2013 by Skorm

Hades03 · March 25, 2013

error dude look

Skorm

Skorm · March 25, 2013

I don't seem to have this error.

Tell me how many people you're using to start the event, and are you doing the Prize Game Event?

Can you please post an image of your compiler with the error message?

Edited March 25, 2013 by Skorm

Hades03 · March 25, 2013

yeah no error but when the event is finish i can leave bcoz this box can exit

and i want random prize 1 2 3 bloody branch and auto give if he/she win the event

Hades03 · March 25, 2013

no error at compiler

but look at that box i cant exit i need to char change to exit that box and skorm can you add the auto give prize like 1 2 3 random bloody branch

Skorm · March 25, 2013

The script really wasn't optimal to begin with. It uses a god awful amount of variables... Bleh all over the place. Anyways I've modified my above post to support random between 1-3 BBs. Also I changed the way it closes, because that might've been giving you trouble, but I noticed in your first screenshot it says you've gotten 0 BBs. You wouldn't happen to've changed it in anyway?

Sign In

Help me with this script

Question

Link to comment

Share on other sites

14 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members