viewing paste KoE adjusted time | 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 128 129 130 131
-   script  KoE -1,{
OnInit:
    disablenpc "The King#KoE";
    sleep 1;
    disablenpc "gefg02-1";
    disablenpc "gefg01-1";
    end;
 
OnWhisperGlobal:
    if ( getgmlevel() < 99 ) end;
    else if ( compare ( @whispervar0$, "on" ) ) goto L_start;
    else if ( compare ( @whispervar0$, "off" ) ) goto L_end;
    else end;
 
L_start:
OnClock2000:
if(gettime(4) == 0 || gettime(4) == 6) end;
    announce "The King of Emperium Hill has begun!", 0;
    set .koe_start, 1;
    enablenpc "The King#KoE";
    disablenpc "Reward#KoE";
    set $koegid, 0;
    donpcevent "::OnRevKoE";
    maprespawnguildid "gefg_cas01", $koegid, 6;
    monster "gefg_cas01",197,182,"EMPERIUM",1288,1,"KoE::OnEmpDead";
end;
 
L_end:
OnClock2100:
if(gettime(4) == 0 || gettime(4) == 6) end;
    announce "The King of Emperium Hill is over!", 0;
    set .koe_start, 0;
    disablenpc "The King#KoE";
    killmonsterall "gefg_cas01";
    donpcevent "Reward#KoE::Onresetreward";
end;
 
OnEmpDead:
    set $koegid, getcharid(2);
    announce "The current King of Emperium Hill is the [" + strcharinfo(2) + "] guild.", 0;
    donpcevent "::OnRevKoE";
    maprespawnguildid "gefg_cas01", $koegid, 6;
    sleep 500;
    if ( .koe_start )
        monster "gefg_cas01",197,182,"EMPERIUM",1288,1,"KoE::OnEmpDead";
    end;
}
 
// KoE Entrance
prontera,155,191,4  script  The King#KoE    58,{
    mes "[The King]";
    if ( getcharid(2) == 0 ) {
        mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000.";
        close;
    }
    mes "Hello.";
    mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?";
    if ( select ( "Yes", "No" ) == 2 ) close;
    warp "z_agit",168,17;
    end;
}
 
// KoE Reward
prontera,151,191,5  script  Reward KOE#KoE  51,{
    mes "[Reward]";
    if ( getvariableofnpc( .koe_start, "KoE" ) ) {
        mes "King of Emperium Hill event is currently running";
        close;
    }
    if ( getcharid(2) == $koegid ) {
        set .@size, getarraysize(.koe_prize);
        for ( set .@i, 0; .@i < .@size; set .@i, .@i +1 ) {
            if ( .koe_prize[.@i] == getcharid(0) ) {
                mes "You already received the rewards";
                close;
            }
        }
        mes "Congratulation on becoming the winner of ^FF0000King of Emperium Hill Tournament^000000";
        getitem 501, 1; // configure prize here
 
        set .koe_prize[ getarraysize(.koe_prize) ], getcharid(0);
    }
    else {
        mes "Your guild is not the winner of King of Emperium Hill event";
    }
    close;
Onresetreward:
    deletearray .koe_prize;
    end;
}
 
 
gefg_cas01,28,157,4 script  King of Emperium Hill#1::custom_koe_flag    722,{
    set .@gid, $koegid;
    if ( .@gid == 0 ) end;
    mes "[King of Emperium Hill]";
    mes "The Current King of Emperium Hill is the ["+ getguildname(.@gid) +"] guild.";
    close;
OnRevKoE:
    flagemblem $koegid;
    end;
}
gefg_cas01,22,156,5 duplicate(custom_koe_flag)  King of Emperium Hill#2 722
gefg_cas01,68,185,3 duplicate(custom_koe_flag)  King of Emperium Hill#3 722
gefg_cas01,17,171,5 duplicate(custom_koe_flag)  King of Emperium Hill#4 722
gefg_cas01,59,16,4  duplicate(custom_koe_flag)  King of Emperium Hill#5 722
gefg_cas01,64,16,4  duplicate(custom_koe_flag)  King of Emperium Hill#6 722
 
gefg_cas01  mapflag gvg
gefg_cas01  mapflag nobranch
gefg_cas01  mapflag nomemo
gefg_cas01  mapflag nopenalty
gefg_cas01  mapflag noreturn
gefg_cas01  mapflag nosave  SavePoint
gefg_cas01  mapflag noteleport
gefg_cas01  mapflag gvg_noparty
gefg_cas01  mapflag nowarp
gefg_cas01  mapflag nowarpto
 
z_agit  mapflag gvg
z_agit  mapflag nobranch
z_agit  mapflag nomemo
z_agit  mapflag nopenalty
z_agit  mapflag noreturn
z_agit  mapflag nosave  SavePoint
z_agit  mapflag noteleport
z_agit  mapflag gvg_noparty
z_agit  mapflag nowarp
z_agit  mapflag nowarpto
 
z_agit,168,179,0    warp    #to_gef_castle  1,1,gefg_cas01,99,178
Viewed 1546 times, submitted by Streusel.