prontera,146,170,5	script	Event Ranking	858,{
	
if (getgroupid() >= 99) {
	mes "[Event Ranking GM Menu]";
	mes "What do you want to do?";
	Switch(Select("Turn Levelling Event"+(($eventstarted)?" OFF":" ON")+":Clear Rankings:Nothing")){
		case 1:
			if (!$eventstarted) {
				set $eventstarted, 1;
				announce "The Levelling Event has started!", bc_all;
			} else {
				set $eventstarted, 0;
				announce "The Levelling Event has ended", bc_all;	
			}
			close;
		case 2:
			freeloop(1);
			for (set .@x,4000; .@x <= 5000; set .@x, .@x+1)
				for (set .@y,0; .@y < 3; set .@y, .@y + 1)
					setd "$TopPlayers"+.@x+"$"+"["+.@y+"]", "";
			freeloop(0);
			mes "[Level Event] Rankings Cleared.";
			close;
			break;
		default:
			next;
			break;		
	}
}
	
mes "[Event Ranking List]";
mes "Wanna see the List?";
Switch(Select("Show me:Claim Reward:Cancel")){
	case 1:
		next;
		break;
	case 3:
		close2;
		warp new_1-1,58,112;
		break;
	case 2:
		close;	
}
if ($Jobset == 1)
	for (set .@Class, 4060; .@Class <= 4072; set .@Class, .@Class + 1){
		mes "Top 3 Players";
		mes "Class: "+jobname(.@Class);
		mes "===================";
		set .@x, 0;
		if(getd("$TopPlayers"+.@Class+"$["+.@x+"]") == "")
			mes "None Yet.";
		else
			for (set .@x,0; .@x < 3; set .@x, .@x + 1 ){
				mes "Top #"+(.@x+1)+": "+getd("$TopPlayers"+.@Class+"$["+.@x+"]");
			}
		if ((.@Class+1) <=4072 )
			Switch(Select("Top 3 for "+jobname(.@Class+1)+":Cancel")){
				Case 1:
					next;
					break;
				Case 2:
					close;
					break;
			}	
	}
else if ($Jobset == 0)
	for (set .@Class, 4008; .@Class <= 4021; set .@Class, .@Class + 1){
			mes "Top 3 Players";
			mes "Class: "+jobname(.@Class);
			mes "===================";
			if(getd("$TopPlayers"+.@Class+"$["+.@x+"]") == "")
				mes "None Yet.";
			else
				for (set .@x,0; .@x < 3; set .@x, .@x + 1 ){
					mes "Top #"+(.@x+1)+": "+getd("$TopPlayers"+.@Class+"$["+.@x+"]");
				}
				
			if ((.@Class+1) <=4072 )
				Switch(Select("Top 3 for "+jobname(.@Class+1)+":Cancel")){
					Case 1:
						next;
						break;
					Case 2:
						close;
						break;
				}	
		}	
else if ($Jobset == 2)
	for (set .@Class, 7; .@Class <= 21; set .@Class, .@Class + 1){
			mes "Top 3 Players";
			mes "Class: "+jobname(.@Class);
			mes "===================";
			if(getd("$TopPlayers"+.@Class+"$["+.@x+"]") == "")
				mes "None Yet.";
			else
				for (set .@x,0; .@x < 3; set .@x, .@x + 1 ){
					mes "Top #"+(.@x+1)+": "+getd("$TopPlayers"+.@Class+"$["+.@x+"]");
				}
				
			if ((.@Class+1) <=4072 )
				Switch(Select("Top 3 for "+jobname(.@Class+1)+":Cancel")){
					Case 1:
						next;
						break;
					Case 2:
						close;
						break;
				}	
		}			
close;
end;



OnInit:
freeloop(1);
while(1){
delwaitingroom;
waitingroom "Event Rankings!",0;
delwaitingroom;
waitingroom "Claim rewards here!",0;
}
freeloop(0);
end;
}