// TMW2 script
// Author:
//   Jesusalva
// Description:
//    Magic Olympics

001-14,89,89,0	script	Hocus Pocus	NPC_BLACKWIZARD,{
    function showScores;
    function parseScores;
    if ($EVENT$ != "Olympics") cwarp "Save", 0, 0;
    mesn;
    mesq l("Greetings, %s %s, I am Hocus Pocus the Grandmaster.", academicrank(), strcharinfo(0));
    do
    {
        next;
        select
            l("Scoreboards"),
            l("Detailed Information"),
            l("Thanks for your wise words.");
        mes "";
        switch (@menu) {
        case 1:
            showScores();
            break;
        case 2:
            mesn;
            mesq l("The Magic Olympics consist in twelve challenges with scoreboards.");
            next;
            mesn;
            mesq l("Getting ranked #1 in a challenge yields you 10 points, getting ranked #2 yields you 9 points and so on.");
            next;
            mesn;
            mesq l("Not participating in a challenge yields you zero points. In case of a tie, char creation date will be the decisive factor: Older adventurers will get the preference.");
            next;
            mesn;
            mesq l("You also get points for participation, exchange them with Aurora back in Tulimshar before event ends.");
            next;
            mesn;
            mesq l("The grand winner will get a %s. Both the first and second place will get a tuition at the Magic Academy.", getitemlink(BlackyCat));
            next;
            mesn;
            mesq l("The Magic Olympics happen roughly quarterly, but not always at the same dates. It begins on a monday and ends on the sunday. It usually happens two weeks after the Mining Union Research Request event.");
            break;
        }
    } while (@menu != 3);
    close;

function t {
    return gettimetick(2);
}

function showScores {
    parseScores("General Event Score", "$@moly_n$", "$@moly_v");
    mesc l("Reminder: "), 1;
    mesc l("Scores are updated every 6 hours."), 1;
    next;
    parseScores("Energy Balls Challenge",   "$@moly01_n$", "$@moly01_v");
    //parseScores("Boss Fight Challenge",     "$@moly02_n$", "$@moly02_v", 0);
    //parseScores("Fluffy Hunt Challenge",    "$@moly03_n$", "$@moly03_v");
    parseScores("Chanting Challenge",       "$@moly04_n$", "$@moly04_v");
    parseScores("Alchemy Master Challenge", "$@moly05_n$", "$@moly05_v");
    //parseScores("Magic Power Challenge",    "$@moly06_n$", "$@moly06_v");
    parseScores("Mana Exp Challenge",       "$@moly07_n$", "$@moly07_v");
    //parseScores("Obstacle Race Challenge",  "$@moly08_n$", "$@moly08_v", t());
    parseScores("Hocus Commands Challenge", "$@moly09_n$", "$@moly09_v");
    //parseScores("Survive! Challenge",       "$@moly10_n$", "$@moly10_v", t());
    parseScores("Friendship Challenge",     "$@moly11_n$", "$@moly11_v");
    parseScores("Intensive Mage Challenge", "$@moly12_n$", "$@moly12_v");
    mes "";
    mesc l("Reminder: "), 1;
    mesc l("Scores close at Sunday 23:59 - No scores will be given for last minute rushes!"), 1;
    return;
}

function SCH {
    .@n$ = getarg(0);
    .@i  = getarg(1);
    return getd(sprintf("%s[%d]", .@n$, .@i));
}

function parseScores {
    .@t$ = getarg(0);
    .@n$ = getarg(1);
    .@v$ = getarg(2);
    .@tm = getarg(3, -1);
    mes "";
	mes l("##B%s: TOP 10##b", .@t$);
    if (.@tm < 0) {
	    mes("1."+SCH(.@n$, 0)+" ("+SCH(.@v$, 0)+")");
	    mes("2."+SCH(.@n$, 1)+" ("+SCH(.@v$, 1)+")");
	    mes("3."+SCH(.@n$, 2)+" ("+SCH(.@v$, 2)+")");
	    mes("4."+SCH(.@n$, 3)+" ("+SCH(.@v$, 3)+")");
	    mes("5."+SCH(.@n$, 4)+" ("+SCH(.@v$, 4)+")");
	    mes("6."+SCH(.@n$, 5)+" ("+SCH(.@v$, 5)+")");
	    mes("7."+SCH(.@n$, 6)+" ("+SCH(.@v$, 6)+")");
	    mes("8."+SCH(.@n$, 7)+" ("+SCH(.@v$, 7)+")");
	    mes("9."+SCH(.@n$, 8)+" ("+SCH(.@v$, 8)+")");
	    mes("10."+SCH(.@n$, 9)+" ("+SCH(.@v$, 9)+")");
    } else {
	    mes("1."+SCH(.@n$, 0)+" ("+FuzzyTime(.@tm - SCH(.@v$, 0))+")");
	    mes("2."+SCH(.@n$, 1)+" ("+FuzzyTime(.@tm - SCH(.@v$, 1))+")");
	    mes("3."+SCH(.@n$, 2)+" ("+FuzzyTime(.@tm - SCH(.@v$, 2))+")");
	    mes("4."+SCH(.@n$, 3)+" ("+FuzzyTime(.@tm - SCH(.@v$, 3))+")");
	    mes("5."+SCH(.@n$, 4)+" ("+FuzzyTime(.@tm - SCH(.@v$, 4))+")");
	    mes("6."+SCH(.@n$, 5)+" ("+FuzzyTime(.@tm - SCH(.@v$, 5))+")");
	    mes("7."+SCH(.@n$, 6)+" ("+FuzzyTime(.@tm - SCH(.@v$, 6))+")");
	    mes("8."+SCH(.@n$, 7)+" ("+FuzzyTime(.@tm - SCH(.@v$, 7))+")");
	    mes("9."+SCH(.@n$, 8)+" ("+FuzzyTime(.@tm - SCH(.@v$, 8))+")");
	    mes("10."+SCH(.@n$, 9)+" ("+FuzzyTime(.@tm - SCH(.@v$, 9))+")");
    }
    dnext;
    return;
}

OnInit:
    .distance=5;
// Scoreboards are refreshed every 6 hours
OnHour2359:
OnHour0559:
OnHour1159:
OnHour1759:
    if ($EVENT$ != "Olympics") end;
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_ENBALL' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly01_n$, $@moly01_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_ICBOSS' AND i.value > 0 AND i.char_id=c.char_id ORDER BY i.value ASC LIMIT 10", $@moly02_n$, $@moly02_v); // Oddball: less is more
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_FLUFFY' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly03_n$, $@moly03_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_CHANTI' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly04_n$, $@moly04_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_ALCHMY' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly05_n$, $@moly05_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_MPWLVL' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly06_n$, $@moly06_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_MANAXP' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly07_n$, $@moly07_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_RACERS' AND i.value > 0 AND i.char_id=c.char_id ORDER BY i.value ASC LIMIT 10", $@moly08_n$, $@moly08_v); // Oddball: less is more
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_HOCUSM' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly09_n$, $@moly09_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_SURVIV' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly10_n$, $@moly10_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_FRIEND' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly11_n$, $@moly11_v);
	.@nb = query_sql("SELECT c.name, i.value FROM `char_reg_num_db` AS i, `char` AS c WHERE i.key='FYMOLY_SPAMMY' AND i.char_id=c.char_id ORDER BY i.value DESC LIMIT 10", $@moly12_n$, $@moly12_v);

    /* Regenerate global scores */
    deletearray $@moly_n$;
    deletearray $@moly_v;
    deletearray .@moly_n$;
    deletearray .@moly_v;
    freeloop(true);
    // Challenge 01: Energy Balls
    for (.@i = 0; .@i < getarraysize($@moly01_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly01_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly01_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 02: Boss Fight
    for (.@i = 0; .@i < getarraysize($@moly02_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly02_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly02_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 03: Hunt the Fluffies
    for (.@i = 0; .@i < getarraysize($@moly03_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly03_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly03_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 04: Chanting
    for (.@i = 0; .@i < getarraysize($@moly04_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly04_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly04_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 05: Alchemy Master
    for (.@i = 0; .@i < getarraysize($@moly05_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly05_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly05_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 06: Magic Power
    for (.@i = 0; .@i < getarraysize($@moly06_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly06_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly06_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 07: Mana Exp
    for (.@i = 0; .@i < getarraysize($@moly07_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly07_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly07_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 08: Race
    for (.@i = 0; .@i < getarraysize($@moly08_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly08_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly08_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 09: Hocus Said So
    for (.@i = 0; .@i < getarraysize($@moly09_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly09_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly09_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 10: Survive!
    for (.@i = 0; .@i < getarraysize($@moly10_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly10_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly10_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 11: Friendship Strength
    for (.@i = 0; .@i < getarraysize($@moly11_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly11_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly11_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    // Challenge 12: Intensive Mage
    for (.@i = 0; .@i < getarraysize($@moly12_v); .@i++) {
        .@p = 10-.@i;
        .@m = array_find(.@moly_n$, $@moly12_n$[.@i]);
        if (.@m < 0)
            .@m = array_push(.@moly_n$, $@moly12_n$[.@i]) - 1;
        .@moly_v[.@m] += .@p;
    }
    freeloop(false);
    /* Reorder the .@moly into $@moly */
    do
    {
        .@t = array_highest(.@moly_v);
        if (.@t < 0 || getarraysize($@moly_v) > 10) break;
        if (.@moly_v[.@t] < 1) break;
        array_push($@moly_n$, .@moly_n$[.@t]);
        array_push($@moly_v,  .@moly_v[.@t]);
        .@moly_v[.@t] = 0;
    } while (true);
    end;
}