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