Ally

   ally - syntax: ally(CH) 

Returns true if the character is an ally of the mob's clan AND a raid on that clan is under way. Used on clan guards to avoid attacking defenders during a raid.

   --- Only one person can pass at a time.
    if ally(ch) then
       say ("Hi " .. ch.name .. "! Please help defend us!")
    else 
       say ("Go away mean old raider!")
       killsee(ch)
    end