/* Scritp 'variable_store' : Génère une boutique différente selon la semaine en cours.
NOTE: Attention, 1Semaine représente tout de même 5h36mn (1h valant 2mn par défaut)...
- By coolstar - A mettre dans les 'Actions conséquentes' du Dial du Marchand : */

void main()
{
    object oPC = GetPCSpeaker(); // PC en cours de Conversation
    int iDay = GetCalendarDay(); // Date du Jour en cours

    if (iDay >= 1 && iDay <= 7) // Si c'est la 1e semaine :
        OpenStore(GetObjectByTag("Guerrier"), oPC); // Ouvrir la Boutique "Guerrier"

    if (iDay >= 8 && iDay <= 14) // Si c'est la 2e semaine :
        OpenStore(GetObjectByTag("Mage"), oPC); // Ouvrir la Boutique "Mage"

    if (iDay >= 15 && iDay <= 21) // Si c'est la 3e semaine :
        OpenStore(GetObjectByTag("Voleur"), oPC); // Ouvrir la Boutique "Voleur"

    if (iDay >= 22 && iDay <= 28) // Si c'est la 4e semaine :
        OpenStore(GetObjectByTag("Pretre"), oPC); // Ouvrir la Boutique "Pretre"
}

/* Scritp 'random_store' : Génère une boutique différente selon un Tirage (Aléatoire).
NOTE: Le hic est que la Marchandise changera là à chaque nouvelle sollicitation...
- By coolstar - A mettre dans les 'Actions conséquentes' du Dial du Marchand : */

void main()
{
    object oPC = GetPCSpeaker(); // PC en cours de Conversation
    int iRoll = d4(); // Tirage d’un D4 pour déterminer le 'Tirage'


    switch (iRoll) // Tirage au sort parmi 4 possibilités :
    {   // NOTE: Les "CODES" de la Bibliothèque empêchent l'insertion des ':' (à 'Décommenter'!)
        case 1//: // (A Décommenter)
        OpenStore(GetObjectByTag("Guerrier"), oPC); // Ouvrir la Boutique "Guerrier"
        break;

        case 2//: // (A Décommenter)
        OpenStore(GetObjectByTag("Mage"), oPC); // Ouvrir la Boutique "Mage"
        break;

        case 3//: // (A Décommenter)
        OpenStore(GetObjectByTag("Voleur"), oPC); // Ouvrir la Boutique "Voleur"
        break;

        case 4//: // (A Décommenter)
        OpenStore(GetObjectByTag("Pretre"), oPC); // Ouvrir la Boutique "Pretre"
        break;
    }
}

/* Script 'store' : Génère un Tirage Aléatoire renouvelé chaque nouvelle semaine.
Il est bien entendu possible d'étirer le champ des possibilités...
NOTE: Ce Script rencontre encore un problème, puisque si le PC revient chaque fois
1 Mois plus tard il obtiendra toujours le même 'Tirage' (mais bon, c'est plutôt rare!)...
- By coolstar - A mettre dans les 'Actions conséquentes' du Dial du 'Marchand' : */

void main()
{
    // DECLARATION DES VARIABLES :
    object oPC = GetPCSpeaker(); // PC en cours de Conversation
    object oNPC = OBJECT_SELF; // NPC Marchand
    int iDay = GetCalendarDay(); // Date du Jour en cours
    int iNew = 1; // Validation du Renouvellement de Marchandises
    int iRoll = d4(); // Tirage d'un 'D4' pour déterminer le 'Tirage'
    // Chapelet de Variables servant a alléger la 'Lecture' du Script...
    object oFighterStore = GetObjectByTag("Guerrier"); // Boutique "Guerrier"
    object oWizardStore = GetObjectByTag("Mage"); // Boutique "Mage"
    object oRogueStore = GetObjectByTag("Voleur"); // Boutique "Voleur"
    object oClericStore = GetObjectByTag("Pretre"); // Boutique "Pretre"
    string sFighterSpeak = "Voilà une affaire pour les Guerriers !"; // Dial "Guerrier"
    string sWizardSpeak = "Des Alambics et des Cornus pour les Mages !"; // Dial "Mage"
    string sRogueSpeak = "J'ai une marchandise parfaite pour les Voleurs !"; // Dial "Voleur"
    string sClericSpeak = "Les Prêtres me rendront grâce de ces Reliques !"; // Dial "Pretre"
    string sVarStore = "Store"; // Dénomination de la Variable "Store"
    string sVarSpeak = "Replique"; // Dénomination de la Variable "Réplique"
    string sVarRoll = "Tirage"; // Dénomination de la Variable "Tirage"
    string sVarVisit = "Visite"; // Dénomination de la Variable "Visite"
    object oStoreValue = GetLocalObject(oNPC, sVarStore); // Dernière Boutique retenue
    string sSpeakValue = GetLocalString(oNPC, sVarSpeak); // Dernière Réplique retenue
    int iRollValue = GetLocalInt(oNPC, sVarRoll); // Dernier Tirage retenu
    int iVisitValue = GetLocalInt(oNPC, sVarVisit); // Dernière Visite retenue

    // Mise en Condition préalable du 'Tirage' (renouvellement 1 seule fois par Semaine)...
    if(iVisitValue >= 1 && iVisitValue <= 7  &&  iDay >= 1 && iDay <= 7) // Semaine 1 visitée :
        iNew = 0; // Invalidation du Renouvellement de Marchandises pour la Semaine en cours...
    if(iVisitValue >= 8 && iVisitValue <= 14  &&  iDay >= 8 && iDay <= 14) // Semaine 2 visitée :
        iNew = 0; // Idem
    if(iVisitValue >= 15 && iVisitValue <= 21  &&  iDay >= 15 && iDay <= 21) // Semaine 3 :
        iNew = 0; // Idem
    if(iVisitValue >= 22 && iVisitValue <= 28  &&  iDay >= 22 && iDay <= 28) // Semaine 4 :
        iNew = 0; // Idem

    // Vérification préalable tout d'abord du Renouvellement possible des Marchandises :
    if (iNew == 1)
    {
        // On vérifie ensuite que l'on ne va pas obtenir le même Tirage 2 Semaines d'affilée :
        if (iRoll != iRollValue)
        {
            switch (iRoll) // On poursuit alors par le 'Tirage' au sort parmi 4 possibilités :
            {
                case 1//: // (A Decommenter)
                OpenStore(oFighterStore, oPC); // Ouvrir la Boutique "Guerrier"
                SpeakString(sFighterSpeak);
                SetLocalObject(oNPC, sVarStore, oFighterStore); // Retenir la Dernière Boutique
                SetLocalString(oNPC, sVarSpeak, sFighterSpeak); // Réplique pour la Boutique
                break;

                case 2//: // (A Decommenter)
                OpenStore(oWizardStore, oPC); // Ouvrir la Boutique "Mage"
                SpeakString(sWizardSpeak);
                SetLocalObject(oNPC, sVarStore, oWizardStore); // Retenir la Dernière Boutique
                SetLocalString(oNPC, sVarSpeak, sWizardSpeak); // Réplique pour la Boutique
                break;

                case 3//: // (A Decommenter)
                OpenStore(oRogueStore, oPC); // Ouvrir la Boutique "Voleur"
                SpeakString(sRogueSpeak);
                SetLocalObject(oNPC, sVarStore, oRogueStore); // Retenir la Dernière Boutique
                SetLocalString(oNPC, sVarSpeak, sRogueSpeak); // Réplique pour la Boutique
                break;

                case 4//: // (A Decommenter)
                OpenStore(oClericStore, oPC); // Ouvrir la Boutique "Pretre"
                SpeakString(sClericSpeak);
                SetLocalObject(oNPC, sVarStore, oClericStore); // Retenir la Dernière Boutique
                SetLocalString(oNPC, sVarSpeak, sClericSpeak); // Réplique pour la Boutique
                break;
            }

            // Retenues des résultats des derniers 'Opérations' :
            SetLocalInt(oNPC, sVarRoll, iRoll); // Retenue du Dernier 'Tirage'...
            SetLocalInt(oNPC, sVarVisit, iDay); // Retenue du Dernier Jour de 'Visite'...
        }

        else // Autrement, si c'est bien le même tirage que précédemment :
            ExecuteScript("store", oNPC); // On 'Relance'...
    }

    else // Si le renouvellement n'est possible, on maintient les résultats du dernier 'Tirage' :
    {
        OpenStore(oStoreValue, oPC); // Ouvrir la Dernière Boutique visitée
        SpeakString(sSpeakValue); // Dernière Réplique prononcée
    }
}

/* Script 'grand_horloger' : Permet d'avancer le temps selon les paramètres prédéfinis...
- By coolstar - A mettre dans le OnUsed de n'importe quel 'Plaçable' : */

void main()
{
    // DECLARATION DES VARIABLES :
    int iTimeYear = 0;    int iTimeMonth = 0    int iTimeDay = 1 // Incrémentation (: 1 Jour)
    int iCalendarYear = GetCalendarYear(); // Année en cours
    int iCalendarMonth = GetCalendarMonth(); // Mois en cours
    int iCalendarDay = GetCalendarDay(); // Jour en cours
    int nYear = iCalendarYear+iTimeYear; // L''Année' + "Incrémentation désire"...
    int nMonth = iCalendarMonth+iTimeMonth; // Le 'Mois' + "Incrémentation désire"...
    int nDay = iCalendarDay+iTimeDay; // Le 'Jour' + "Incrémentation désire"...
    string sSpeak01 = "Vous venez d'avancer de 1 Jour et nous somme maintenant le "; // Dial
    string sSpeak02 = " "; // 'Fin' du Dial...
    string sSpeak03 = " !"; // 'Espace' à insérer entre chaque information de 'Date'...
    string sYear = IntToString(iCalendarYear); // Insertion de l''Année' dans le Dial
    string sMonth = IntToString(iCalendarMonth); // Insertion du 'Mois' dans le Dial
    string sDay = IntToString(iCalendarDay); // Insertion du 'Jour' dans le Dial

    // Convertion préalable de la 'Valeur Numérique' des Mois en 'Nom' :
    switch (iCalendarMonth)
    {
        case 1//: sMonth = "Janvier"; break; // (A Décomenter!)
        case 2//: sMonth = "Février"; break; // (A Décomenter!)
        case 3//: sMonth = "Mars"; break; // (A Décomenter!)
        case 4//: sMonth = "Avril"; break; // (A Décomenter!)
        case 5//: sMonth = "Mai"; break; // (A Décomenter!)
        case 6//: sMonth = "Juin"; break; // (A Décomenter!)
        case 7//: sMonth = "juillet"; break; // (A Décomenter!)
        case 8//: sMonth = "Août"; break; // (A Décomenter!)
        case 9//: sMonth = "Septembre"; break; // (A Décomenter!)
        case 10//: sMonth = "Octobre"; break; // (A Décomenter!)
        case 11//: sMonth = "Novembre"; break; // (A Décomenter!)
        case 12//: sMonth = "Décembre"; break; // (A Décomenter!)
    }

    // Modification du Temps avec Annonce des Modifications :
    SetCalendar(nYear, nMonth, nDay); // On Impose l'Incrémentation désirée a la Date en cours
    SpeakString(sSpeak01+sDay+sSpeak02+sMonth+sSpeak02+sYear+sSpeak03); // Annonce...
}