// Update variables on server init, login and logout

function	script	ClearVariables	{
    // Some temporary bugfix
    GM = getgroupid();

    // Remove old variables to new quest system
    if (QL_VALON) {
        setq CandorQuest_Valon, QL_VALON;
        QL_VALON = 0;
    }
    if (QL_HIDENSEEK) {
        setq CandorQuest_HideNSeek, (QL_HIDENSEEK >= 64 ? 2 : 1), (QL_HIDENSEEK-1);
        QL_HIDENSEEK = 0;
    }
    if (#CRYPT_PASSWORD && !getq(Quest_Reapercry)) {
        learnskill SKILL_REAPERCRY, 1;
        setq Quest_Reapercry, 1;
    }
    if (#DD5_TALLY) {
        setq Quest_Doomsday, 2;
        #DD5_TALLY = 0; // Whatever, one is enough
    }
    if (#CHRONOS) {
        #CHRONOS = 0; // No longer used
    }
    if (#X21) {
        #X21 = 0; // Flag for old events
    }
    if (#BankAccount) {
        BankVault += #BankAccount;
        #BankAccount = 0;
    }
    if (QL_CINDY) {
        if (QL_CINDY == 5) QL_CINDY = 0;
        else if (QL_CINDY == 6) QL_CINDY = 1;
        else if (QL_CINDY == 1) QL_CINDY = 2;
        else if (QL_CINDY == 2) QL_CINDY = 3;
        else if (QL_CINDY == 3) QL_CINDY = 4;
        else if (QL_CINDY == 4) QL_CINDY = 5;
        setq KaizeiQuest_Cindy, QL_CINDY;
        QL_CINDY = 0;
    }
    if (MAGIC_EXPERIENCE) {
        setq2(MagicQuest_Healing, abs(MAGIC_EXPERIENCE >> 24));
        MAGIC_EXP = abs(MAGIC_EXPERIENCE & 65535);
        MAGIC_EXPERIENCE = 0;
        /* Convert the old magic system to new magic system */
        setq1(MagicQuest_DarkMage,
              OrumQuest);
        setq1(MagicQuest_Healing,
              (QUEST_MAGIC2 & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
        //setq1(MagicQuest_Wyara,
        //      (QUEST_MAGIC2 & NIBBLE_2_MASK) >> NIBBLE_2_SHIFT);
        //setq1(MagicQuest_Kadiya,
        //      (QUEST_MAGIC2 & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT);
        setq1(MagicQuest_Pauline,
              (QUEST_MAGIC2 & NIBBLE_4_MASK) >> NIBBLE_4_SHIFT);
        //setq1(MagicQuest_BrotherSword,
        //      (QUEST_MAGIC2 & NIBBLE_6_MASK) >> NIBBLE_6_SHIFT);
        //setq1(MagicQuest_SisterSword,
        //      (QUEST_MAGIC2 & (NIBBLE_6_MASK | NIBBLE_7_MASK)) >> NIBBLE_6_SHIFT); // Twobits, overlap w/ brothersword o.o
        //setq1(MagicQuest_Auldsbel,
        //      (QUEST_MAGIC & (NIBBLE_0_MASK | NIBBLE_1_MASK)) >> NIBBLE_0_SHIFT); // Twobits
        //setq1(MagicQuest_WhiteMage,
        //      (QUEST_MAGIC & NIBBLE_2_MASK) >> NIBBLE_2_SHIFT); // Boo + Druid
        //SAGATHA_ST = (QUEST_MAGIC & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT; // Unhappy
        //Saggy - 4+5
        //Alchemist - 6+7 (War Quest - Swords again?)

        /* Update skill list */
        // Morgan & Orum
        if (QL_MORGAN >= 2)
            learnskill SKILL_CONFRINGO;
        if (OrumQuest >= 37)
            learnskill SKILL_HELORP;
        if (OrumQuest >= 38)
            learnskill SKILL_PHLEX;
        if (OrumQuest >= 41)
            learnskill SKILL_HALHISS;

        // Pauline
        if (getq(MagicQuest_Pauline) >= 3)
            learnskill SKILL_KALBOO;
        if (getq(MagicQuest_Pauline) >= 4)
            learnskill SKILL_KALGINA;

        // Auldsbel
        .@i=((QUEST_MAGIC & (NIBBLE_0_MASK | NIBBLE_1_MASK)) >> NIBBLE_0_SHIFT);
        if ((.@i >> 5) >= 5)
            learnskill SKILL_GOLE;
        .@i = .@i & 31;
        if (.@i >= 2)
            learnskill SKILL_PARUM;
        if (.@i >= 4)
            learnskill SKILL_PATVILOREE;
        if (.@i >= 5)
            learnskill SKILL_PATLOREE;
        if (.@i >= 6)
            learnskill SKILL_PATMUPLOO;
        if (.@i >= 7)
            learnskill SKILL_KULARZUFRILL;

        // War Mage
        .@i = (QUEST_MAGIC & NIBBLE_6_MASK) >> NIBBLE_6_SHIFT;
        if (.@i >= 1)
            learnskill SKILL_FLAR;
        if (.@i >= 2)
            learnskill SKILL_CHIZA;
        if (.@i == 4)
            learnskill SKILL_FRILLYAR;
        if (.@i == 5)
            learnskill SKILL_UPMARMU;
        if (.@i >= 6) {
            learnskill SKILL_FRILLYAR;
            learnskill SKILL_UPMARMU;
        }
        if (.@i >= 7)
            learnskill SKILL_INGRAV;

        // Healing magic
        if (getq(MagicQuest_Healing) >= 1)
            learnskill SKILL_LUM;
        if (getq(MagicQuest_Healing) >= 3)
            learnskill SKILL_INMA;

        // Light Mage
        .@i=((QUEST_MAGIC & (NIBBLE_4_MASK | NIBBLE_5_MASK)) >> NIBBLE_4_SHIFT);
        if (.@i >= 2)
            learnskill SKILL_CHIPCHIP;
        if (.@i >= 3)
            learnskill ALL_INCCARRY;
        if (.@i >= 4)
            learnskill SKILL_ASORM;
        if (.@i >= 5)
            learnskill SKILL_KALRENK;
        if (.@i >= 6)
            learnskill SKILL_KALAKARENK;
        if (.@i >= 7)
            learnskill SKILL_BETSANC;

        //QUEST_MAGIC  = 0;
        //QUEST_MAGIC2 = 0;
        OrumQuest = 0;
    }
    return;
}


function	script	FlushVariables	{
    // Some variables should not be saved
    GM = 0;
    ##01_TMWEXP = 0;
    return;
}



function	script	ServerUpdate	{
    if ($@STARTUP) {
        debugmes "Cowardly refusing to update server outside startup";
        return;
    }

    // Correct Mana Pearl ID
    // qui jul 29 11:21:38 BRT 2021
    if ($VERSION < 1627568498) {
        ReplaceItemFromEveryPlayer(5270, 5272);
        ReplaceItemFromEveryPlayer(5267, 5273);
        ReplaceItemFromEveryPlayer(5268, 5274);
        ReplaceItemFromEveryPlayer(5269, 5275);
        $VERSION = 1627568498;
    }

    $@STARTUP = true;
    return;
}