prontera,150,180,4	script	RR	100,{
if($@RR_RR_RR==2){
	mes "Game Starting";
	close;
}
if($@RR_RR_Nu>=120){
	mes "Full";
	close;
}
select("[Join]");
set $@RR_RR_Na$[set($@RR_RR_Nu,$@RR_RR_Nu+1)],strcharinfo(0);
mes "Ok~";
if($@RR_RR_Nu>=2&&!$@RR_RR_RR){
	set $@RR_RR_RR,1;
	doevent "RR::OnRRRRRR";
}
close;
OnRRRRRR:
	announce "[System]:RR will start in 1min",bc_all;
	sleep 60000;
	for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){ 
		if(!isloggedin(getcharid(3,$@RR_RR_Na$[.rr]))){
			for(set .rr2,.rr;.rr2<=$@RR_RR_Nu;set .rr2,.rr2+1){
				set $@RR_RR_Na$[.rr2],$@RR_RR_Na$[.rr2+1];
			}
			set .rr,.rr-1;
		}else{
			warpchar "guild_vs4",50,50,getcharid(0,$@RR_RR_Na$[.rr]);
			set .rr4,.rr4+1;
		}
	}
	set $@RR_RR_Nu,.rr4;
	sleep 5000;
	mapannounce "guild_vs4","[System]:RR will start in 20sec",bc_map;
	sleep 20000;
	set $@RR_RR_RR,2;
	mapannounce "guild_vs4","[System]:GO!",bc_map;
	sleep 100;
	while(getmapusers("guild_vs4")!=1){
		sleep 1000;
		for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){
			sleep 1000;
			if(attachrid(getcharid(3,$@RR_RR_Na$[.rr]))){
				if(strcharinfo(3)=="guild_vs4"){
					set .@ui,522+rand(1,14);
					atcommand "@effect "+.@ui;
					if(.@ui==531){
						sleep2 1000;
						warp "SavePoint",0,0;
					}

				}
				detachrid;
			}
		}
	}
	sleep 10000;
	mapwarp "guild_vs4","guild_vs3",50,50;
	deletearray $@RR_RR_Na$[0],128;
	set $@RR_RR_RR,0;
	set $@RR_RR_Nu,0;
	end;
}