void main()
{
    SetLocalInt(GetModule(), "nHeroBeenDamaged", 1);
    object oDragon;
    object oPC = GetLocalObject(GetModule(), "oPlotTarget");
    //Haspaar appears
    if (oPC != OBJECT_INVALID)
    {

        CreateObject(OBJECT_TYPE_CREATURE, "Haspaar001", GetLocation(oPC), TRUE);
        oDragon = GetObjectByTag("Haspaar");
        AssignCommand(oDragon, ClearAllActions());
        DelayCommand(2.0, SendMessageToPC(oPC, "Suddenly, Haspaar flies in and lands next to you."));
    }
    else
    {
        location lTargetLoc = GetLocalLocation(GetModule(), "oPlotTargetLoc");
        CreateObject(OBJECT_TYPE_CREATURE, "Haspaar001", lTargetLoc, TRUE);
        oDragon = GetObjectByTag("Haspaar");
        AssignCommand(oDragon, ClearAllActions());
    }
    AssignCommand(oDragon, DelayCommand(3.0, SpeakString("Need some help, little one?", TALKVOLUME_SHOUT)));
}
