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