///////////////////////////////
//:: Catapulte : ON DISTURBED
///////////////////////////////
//:: Cree par Taern
///////////////////////////////

// On recherche ce qui est mis dans la catapulte, si c'est un boulet OK, sinon on rejette l'objet

void main()
{
    object oObjet = GetInventoryDisturbItem();                      // Objet qui a modifie l'inventaire de la catpulte (ajoute ou enleve)
    object oPJ = GetLastDisturbed();                                // Personne qui a agit sur le sus dit objet (le PJ en fait)
    string sTag = GetTag(oObjet);
    int nBouletPresent = GetLocalInt(OBJECT_SELF, "boulet_present");    // Si la variable est a TRUE, alors il y a deja un boulet dans la catapulte

    if(sTag != "boulet" || nBouletPresent)                          // Si l'objet rajoute n'est pas un boulet OU si il y a deja un boulet ...
    {
        CopyObject(oObjet, GetStartingLocation(), oPJ);     // on rend l'objet au PJ et on quitte
        DestroyObject(oObjet);                              // (la location precisee ici n'est pas prise en compte, mais il faut forcement en preciser une)
        return;
    }

    SetLocalInt(OBJECT_SELF, "boulet_present", TRUE);                // On dit qu'il existe un boulet dans l'inventaire

    //Fin du script !
}

///////////////////////////////
//:: Catapulte : ON CLOSED
///////////////////////////////
//:: Cree par Taern
///////////////////////////////

// Si il y a un boulet dans la catapulte, alors on lance un dialogue pour proposer de tirer
// Si y a rien on fait rien !

void main()
{
    object oPJ = GetLastClosedBy();
    int nBouletPresent = GetLocalInt(OBJECT_SELF, "boulet_present");  // Si la variable est a TRUE, alors il y a un boulet dans la catapulte

    if(nBouletPresent)                                                // Si boulet il y a, on lance le dialogue
    ActionStartConversation(oPJ);                                // - Rem : le fichier de dialogue est celui de la catapulte par defaut
   

    // Fin du script !
}

///////////////////////////////
//:: Catapulte : Feu ! (action conséquente)
///////////////////////////////
//:: Cree par Taern
///////////////////////////////

// Lancement d'une boule de feu (apres countdown :p) en direction du waypoint de tag "catapulte_cible" le plus proche
// La fonction Decalage() permet de creer un decalage (cercle de rayon 10m par defaut) aleatoire par rapport a la cible

location Decalage(location lLoc, float fRayon = 10.0)
{
    vector vPos = GetPositionFromLocation(lLoc);

    float fR = IntToFloat(Random(100)+1)/100 * fRayon;          //Definition des coordonnes polaires du nouveau point
    float fTheta = IntToFloat(Random(360));

    vPos.x += fR*cos(fTheta);                                   //Calcul des modifications faites aux coordonnes initiales
    vPos.y += fR*sin(fTheta);

    lLoc = Location(GetAreaFromLocation(lLoc), vPos, 0.0);      //Redefinition de la location apres application du decalage

    return lLoc;
}

void main()
{
    object oPJ = GetPCSpeaker();                         //On récupère ici le PJ qui parle à la catapulte
    object oCible = GetNearestObjectByTag("catapulte_cible");   //Objet cible
    location lCible = Decalage(GetLocation(oCible));            //Cible a viser (apres decalage)

    DelayCommand(1.0, AssignCommand(oPJ, SpeakString("3..")));                      //Decompte
    DelayCommand(3.0, AssignCommand(oPJ, SpeakString("2..")));
    DelayCommand(5.0, AssignCommand(oPJ, SpeakString("1..")));
    DelayCommand(7.0, AssignCommand(oPJ, SpeakString("FEU !")));
    DelayCommand(6.5, AssignCommand(oPJ, PlayAnimation(ANIMATION_LOOPING_GET_LOW, 3.0, 1.0)));
    DelayCommand(7.5, SpeakString("Tchak !"));
    DelayCommand(9.0, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_FIREBALL), lCible));    //Application de l'effet sur la cible
    DelayCommand(7.5, DestroyObject(GetFirstItemInInventory()));                //Suppression du boulet
    DelayCommand(7.5, SetLocalInt(OBJECT_SELF, "boulet_present", FALSE));       //On laisse la place a un autre boulet

    // Fin du script !
}

///////////////////////////////
//:: Catapulte : Feu !
///////////////////////////////
//:: Cree par Taern
///////////////////////////////

// Lancement d'une boule de feu (apres countdown ) en direction du waypoint de tag "catapulte_cible" le plus proche
// La fonction Decalage() permet de creer un decalage (cercle de rayon 10m par defaut) aleatoire par rapport a la cible

location Decalage(location lLoc, float fRayon = 10.0)
{
    vector vPos = GetPositionFromLocation(lLoc);

    float fR = IntToFloat(Random(100)+1)/100 * fRayon;          //Definition des coordonnes polaires du nouveau point
    float fTheta = IntToFloat(Random(360));

    vPos.x += fR*cos(fTheta);                                   //Calcul des modifications faites aux coordonnes initiales
    vPos.y += fR*sin(fTheta);

    lLoc = Location(GetAreaFromLocation(lLoc), vPos, 0.0);      //Redefinition de la location apres application du decalage

    return lLoc;
}

void main()
{
    object oPJ = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);  //On considere que l'activateur est le PJ le plus proche (pour ne pas utiliser de variables locale)
    object oCible = GetNearestObjectByTag("catapulte_cible");   //Objet cible
    location lCible = Decalage(GetLocation(oCible));            //Cible a viser (apres decalage)

    DelayCommand(1.0, AssignCommand(oPJ, SpeakString("3..")));                      //Decompte
    DelayCommand(3.0, AssignCommand(oPJ, SpeakString("2..")));
    DelayCommand(5.0, AssignCommand(oPJ, SpeakString("1..")));
    DelayCommand(7.0, AssignCommand(oPJ, SpeakString("FEU !")));
    DelayCommand(6.5, AssignCommand(oPJ, PlayAnimation(ANIMATION_LOOPING_GET_LOW, 3.0, 1.0)));
    DelayCommand(7.5, SpeakString("Tchak !"));
    DelayCommand(9.0, ActionCastSpellAtLocation(SPELL_FIREBALL,lTarget,METAMAGIC_NONE,1,PROJECTILE_PATH_TYPE_BALLISTIC,1);
   //Application de l'effet sur la cible
    DelayCommand(7.5, DestroyObject(GetFirstItemInInventory()));                //Suppression du boulet
    DelayCommand(7.5, SetLocalInt(OBJECT_SELF, "boulet_present", FALSE));       //On laisse la place a un autre boulet

    // Fin du script !
}