while ($person.isa(FROG) or
       $person.isa(KNIGHT) or
       $person.isa(UNFRIENDLY) and 
       $person.whereis nearby DRAGONSCAVE) 
{
       $dragon.flame(/ASS/ ? HIGHTEMPERATURE + 1000 : HIGHTEMPERATURE);
}