viewing paste Unknown #22187 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
 
 
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;
                                }      
                }                      
 
 
 
OnInit:
while(1){
waitingroom "Event Rankings!",0;
waitingroom "Claim rewards here!",0;
}
}
Viewed 711 times, submitted by unknown.