// rts_krenshar
void main()
{
    object oMe=OBJECT_SELF;
    object oEnemy;
    int nN=1;
    int bScare=FALSE;
    oEnemy=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oMe,nN,CREATURE_TYPE_PERCEPTION,PERCEPTION_SEEN,CREATURE_TYPE_REPUTATION,REPUTATION_TYPE_ENEMY);
    while(GetIsObjectValid(oEnemy)&&!bScare)
    { // look for someone to scare
        if (!GetLocalInt(oEnemy,"bKrensharScare"))
        { // krenshar scare was not used on this
            SetLocalInt(oEnemy,"bKrensharScare",TRUE);
            DelayCommand(HoursToSeconds(24),DeleteLocalInt(oEnemy,"bKrensharScare"));
            AssignCommand(oMe,ActionCastSpellAtObject(SPELL_SCARE,oEnemy,METAMAGIC_ANY,TRUE,3,PROJECTILE_PATH_TYPE_DEFAULT,TRUE));
            bScare=TRUE; // only one person at a time
        } // krenshar scare was not used on this
        nN++;
        oEnemy=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oMe,nN,CREATURE_TYPE_PERCEPTION,PERCEPTION_SEEN,CREATURE_TYPE_REPUTATION,REPUTATION_TYPE_ENEMY);
    } // look for someone to scare
}