///////////////////////////////
//:: Catapulte : Feu !
///////////////////////////////
//:: Cree par Taern
//:: Modifie par Kiky (trajectoire visible)
///////////////////////////////

// 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 7 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(8.0, ActionCastSpellAtObject(SPELL_FIREBALL, GetNearestObjectByTag("catapulte_cible"), TRUE, 20, PROJECTILE_PATH_TYPE_HIGH_BALLISTIC, 1));
    // Fin du script !
}