I was thinking and another way to do this would require more database work than Perl. If you have a port in NPC that allows you to be ported to Commons with Team 1 or Team 2, you could make custom NPC versions in the database.
An example would be...
Quest NPC has a if text = “Good Team”
Quest::movepc (to zone to Commons)
Quest::faction (to X amount corresponding to the NPC values you want for good or evil team NPCs.)
Then having a Perl event on the NPC that says if $killer = guild good team ... quest::spawn good team version of mobs... and vise versa. Anyway, there’s a ton of ways to do this so some more information about your server set up would allow people to help you more
