Script to give all PoP flags upon hailing?

[jo3shmo3me]

Is there a way to give all PoP flags to a player upon being hailed?

For example - this is from another post here...

To skip the hedge event just place this script on a npc you hail.


sub EVENT_SAY {

if($text=~/Hail/i)
{
quest::say("She lied! She said she would release me if I found my way through the maze! Please, you must defeat her. It is the only way I will ever be free. I can help you escape this maze if you would like to [return]");
$client->Message(4,"You receive a character flag!");
quest::setglobal("pop_pon_construct", 1, 5, "F");
}
}


That is the actual script at the end of the hedge event.

I assume you can add to "quest::setglobal("pop_pon_construct", 1, 5, "F");" to give all PoP flags?

Is there a list of the flags that are needed to complete all PoP zones up through potimeb?