Lightbringer Selection

2 files changed, 331 insertions, 3 deletions

diff --git a/npc/003-3/malindou.txt b/npc/003-3/malindou.txt
index 23038a588..c5fc5a59c 100644
--- a/npc/003-3/malindou.txt
+++ b/npc/003-3/malindou.txt
@@ -664,12 +664,318 @@ OnInit:
         debugmes "* New homunculus skills";
         debugmes "";
     }
-    // The following UPDATE value on: Sun Aug 20 05:11:46 PM CEST 2023
+    // The following UPDATE value on: Sun Aug 20 17:11:45 CEST 2023
     // Typo update: FMOLY -> FYMOLY.
-    if ($UPDATE < 1692544306) {
-        $UPDATE = 1692544306;
+    if ($UPDATE < 1692544305) {
+        $UPDATE = 1692544305;
         DelChrRegFromEveryPlayer("FMOLY_FRIEND");
     }
+    // Current UPDATE value: Sex Dez 15 20:30:00 BRT 2023
+    // Find the one with highest Lightbringer score and give it
+    // Would be unfair otherwise. query_sql to select most active players
+    // Then get their points in matrix_lb so on so forth. But this is also unfair
+    // So instead, loop through accounts order by activity limit 20
+    // Select first char from each account ID, and manually run the most important
+    // parts. As we know at least one is eligible, the one with highest score is
+    // deemed the victor. Disable Lightbringer NPC afterwards (so a sleep before).
+    if ($UPDATE < 1702683000) {
+        freeloop(true);
+        DelItemFromEveryPlayer(Lightbringer);
+        $LIGHT_HOLDER$ = "Jesus Saves";
+        debugmes "PLEASE WAIT, LIGHTBRINGER SELECTION IN PROGRESS";
+        sleep(3000); // Wait long enough for Scoreboards initialization
+        .@nb = query_sql("SELECT `account_id` FROM `login` WHERE `lastlogin` > '"+escape_sql(sqldate(-6))+"' AND `group_id` < 995 ORDER BY `lastlogin` DESC LIMIT 15", .@acids); // Select the 15 most active eligible non-GM accounts FIXME GID
+        .@winner = 0; // CharID
+        .@wscore = 0;
+        for (.@xi=0; .@xi <= getarraysize(.@acids); .@xi++) {
+            .@score = 0; .@cid=0; .@name$=""; .@blvl=0; .@jlvl=0;
+            deletearray(.@quest_id);
+            deletearray(.@qv);
+            deletearray(.@var_id$);
+            deletearray(.@vv);
+            // Select only one char from the account, the one with highest job
+            .@nb = query_sql("SELECT `char_id`, `name`, `base_level`, `job_level` FROM `char` WHERE `account_id` = "+.@acids[.@xi]+" ORDER BY `job_level` DESC LIMIT 1", .@cid, .@name$, .@blvl, .@jlvl);
+            .@nb = query_sql("SELECT `quest_id`, `count1` FROM `quest` WHERE `char_id` = "+.@cid+" ORDER BY `count1` DESC LIMIT 128", .@quest_id, .@qv);
+            .@nb = query_sql("SELECT `key`, `value` FROM `char_reg_num_db` WHERE `index` = 0 AND `char_id` = "+.@cid+" ORDER BY `value` DESC LIMIT 128", .@var_id$, .@vv);
+            // Are you eligible for the Lightbringer? Otherwise, it is expensive
+            .@i = array_find(.@quest_id, General_Narrator);
+            if (.@i < 0)
+                continue;
+            if (.@qv[.@i] < 19)
+                continue;
+            // Begin score calculation
+            debugmes "Tallying %s[%d]...", .@name$, .@cid;
+            // Magic matrice
+            .@i = array_find(.@var_id$, "MAGIC_LVL");
+            if (.@i >= 0)
+                .@score += min(7, .@vv[.@i]);
+            // Deeds matrix (NOT CAPPED, unlike original)
+            if (array_find(.@var_id$, "YETIKING_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "HEROESHOLD_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "QUIRINO_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "GEMINI_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "GHQ_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "FORT_1ST_VISIT") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "MOUBOOTAUR_WINNER") >= 0)
+                .@score += 1;
+            if (array_find(.@var_id$, "MK_WINNER") >= 0)
+                .@score += 1;
+            // Rebirth matrice
+            .@i = array_find(.@var_id$, "REBIRTH");
+            if (.@i >= 0)
+                .@score += min(10, .@vv[.@i]*2);
+            debugmes "First bout: %d points", .@score;
+            // If you didn't made at least two points, you're inelegible
+            if (.@score < 2)
+                continue;
+            // Level matrice
+            .@score += min(15, .@blvl / 10);
+            .@score += min(15, .@jlvl / 10);
+            // You're also disqualified if you have no chance to win the race
+            if (.@score <= (.@wscore - 57))
+                continue;
+            // Scoreboards matrix
+            .@br=array_find($@hoblvl_name$, .@name$);
+            .@jr=array_find($@hojlvl_name$, .@name$);
+            .@mr=array_find($@hofortune_name$, .@name$);
+            .@dr=array_find($@udt_name$, .@name$);
+            .@br=limit(0, (.@br >= 0 ? 10-.@br : 0), 10);
+            .@jr=limit(0, (.@jr >= 0 ? 10-.@jr : 0), 10);
+            .@mr=limit(0, (.@mr >= 0 ? 10-.@mr : 0), 10);
+            .@dr=limit(0, (.@dr >= 0 ? 3-.@dr  : 0), 3);
+            .@score+=.@br;
+            .@score+=.@jr;
+            .@score+=.@mr;
+            .@score+=.@dr;
+            debugmes "Second bout: %d points", .@score;
+            // Before we calculate the reputation,
+            // You must have accrued a minimum of 10 points
+            // Otherwise you're disqualified (new player?)
+            if (.@score < 10)
+                continue;
+            // You're also disqualified if you have no chance to win the race
+            if (.@score <= (.@wscore - 24))
+                continue;
+            // Reputation matrix
+            // Tulimshar
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, TulimsharQuests_Fishman);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Sarah);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_WaterForGuard);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_MobTutorial);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 8 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Swezanne);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Lifestone);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Eistein);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 6 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Hasan);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Devoir);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Sailors);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_DarkInvocator);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 7 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_AnwarField);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 10 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_Neko);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, MineQuest_Tycoon);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 15 ? 1 : 0);
+            .@i = array_find(.@quest_id, MineQuest_Dracoula);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, MineQuest_Caelum);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, MineQuest_Naem);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, TulimsharQuest_WoodenSword);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/17) / 33);
+            // Hurnscald
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, HurnscaldQuest_ForestBow);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_HarkEye);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 6 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_TeaParty);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Farmers);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Bandits);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 8 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_InjuriedMouboo);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_BloodDonor);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Woody);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Lieutenant);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 10 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Thorn);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_Blossom);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_LOFPass);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/12) / 33);
+            // You must have accrued a minimum of 14 points by now
+            // Otherwise you're disqualified
+            if (.@score < 14)
+                continue;
+            // Land of Fire
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, LoFQuest_EPISODE);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2  ? 1 : 0);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 6  ? 1 : 0);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 13 ? 1 : 0);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 17 ? 1 : 0);
+            .@i = array_find(.@quest_id, LoFQuest_George);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, LoFQuest_Fairy);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, LoFQuest_Pets);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/7) / 33);
+            // Nivalis
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, NivalisQuest_Well);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_Cindy);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_BlueSage);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 12 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_BlueSageSlimes);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_BlueSagePagemaker);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_BlueSagePagefinder);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, NivalisQuest_Henry);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/7) / 33);
+            // You must have accrued a minimum of 18 points by now
+            // Otherwise you're disqualified
+            if (.@score < 18)
+                continue;
+            // Halinarzo
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, HalinarzoQuest_Foxhound);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 6 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_TraderKing);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_SickWife);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 5 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_LifeDelight);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HurnscaldQuest_ForestBow);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_Alvasus);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_Sawis);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, HalinarzoQuest_Speed);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/8) / 33);
+            // Frostia
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, FrostiaQuest_Homunculus);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 4 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_AFKCap);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Jeremy);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Erlan);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Rydel);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Meriel);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Taenya);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Talindra);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Gaelira);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_Saevel);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FrostiaQuest_JhonH);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/11) / 33);
+            // You must have accrued a minimum of 22 points by now
+            // Otherwise you're disqualified
+            if (.@score < 22)
+                continue;
+
+            // Candor
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, CandorQuest_Trainer);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 14 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Barrel);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 4 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_HAS);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 4 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Sailors);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_SailorCure);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Vincent);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Tolchi);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Maya);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 4 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Rosen);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 3 ? 1 : 0);
+            .@i = array_find(.@quest_id, CandorQuest_Marggo);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 1 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/10) / 33);
+            // Fortress Town
+            .@i = 0; .@t = 0;
+            .@i = array_find(.@quest_id, General_Narrator);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 22 ? 2 : 0);
+            .@i = array_find(.@quest_id, FortressQuest_SlimeHunter);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FortressQuest_Over100);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            .@i = array_find(.@quest_id, FortressQuest_RangedHunt);
+            if (.@i >= 0) .@t += (.@qv[.@i] >= 2 ? 1 : 0);
+            // Final result
+            .@score += min(3, (.@t*100/5) / 33);
+            debugmes "Final bout: %d points", .@score;
+
+            // Now we determine if you have enough points to surpass #1
+            // More active players are evaluated first and have priority.
+            if (.@score > .@wscore) {
+                .@winner = .@cid;
+                .@wscore = .@score;
+                $LIGHT_HOLDER$ = .@name$;
+            }
+        }
+        freeloop(false);
+        kamibroadcast("The Lightbringer has elected "+$LIGHT_HOLDER$+" as its holder.");
+        consolewarn("Elected %s[%d] with %d points for Lightbringer.", $LIGHT_HOLDER$, .@winner, .@wscore);
+        disablenpc "Lightbringer";
+        $UPDATE = 1702683000;
+    }
+
 
     // This mensures Contributors Credits, and changes only during updates.
     // All names in lower case. Only TMW2 direct work! Non-TMW2 contributors
@@ -722,6 +1028,7 @@ OnClock0500:
     if (gettime(GETTIME_DAYOFMONTH) >= 7)
         query_sql("DELETE FROM `chatlog` WHERE `time` < '"+sqldate(-7)+"'");
     query_sql("DELETE FROM `picklog` WHERE `time` < '"+sqldate(0, -2)+"'");
+    // TODO: Keep only 1 month of picklog and have crontab make monthly .gz backup
     // Remove overhead from picklog
     if (gettime(GETTIME_DAYOFMONTH) == 14)
         query_sql("OPTIMIZE TABLE `picklog`");
diff --git a/npc/functions/clientversion.txt b/npc/functions/clientversion.txt
index 2e3ed0a4c..3058ce524 100644
--- a/npc/functions/clientversion.txt
+++ b/npc/functions/clientversion.txt
@@ -1140,6 +1140,27 @@ function	script	clientupdater	{
             getitem StrangeCoin, 250;
         }
     }
+    // Lightbringer Election Server Freeze
+    // sex 15 dez 2023 20:30:00 -03
+    if ($UPDATE < 1702683000) {
+        kick(getcharid(3), 6);
+        end;
+    }
+    if (UPDATE < 1702683000) {
+        UPDATE=1702683000;
+        if (strcharinfo(0) == $LIGHT_HOLDER$) {
+            .@dg=1;
+            showavatar NPC_LIGHTBRINGER;
+            mesn l("The Mana Source"), 2;
+            mesc l("%s, you did your best to protect this world inhabitants. It is my wish that you continue protecting this world. Therefore, I bestow upon you, the legendary %s. Please use its powers to protect your friend and the world peace!", strcharinfo(0), getitemlink(Lightbringer)), 2;
+            mesc l("WARNING: The %s is a %s. Besides being insanely powerful, no duplicate of them exist in the world. They can be tweaked freely and can hold multiple cards as well, and scale according to your level. Use its powers wisely. However, beware: This weapon cannot be traded except with \"@grantpower\" command, and if you abandon the world, the weapon will abandon you as well!", getitemlink(Lightbringer), b(l("legendary weapon"))), 1;
+
+            // Destroy the previous Lightbringer (ALWAYS)
+            DelItemFromEveryPlayer(Lightbringer);
+            getitembound Lightbringer, 1, 1; // Account bound or char bound? (1 or 4)
+            dispbottom l("You received the @@ from @@.", getitemlink(Lightbringer), l("The Mana Source"));
+        }
+    }
 
     // :// End of Regular Update System
     ////////////////////////////////////