Perl Flags

[mollymillions]

Whats the status of the Perl quest flags?
I have done a lot of testing with the flagging over the past months but as yet have had no luck. This is the code I used to test the current implementation of the flags (as per the How To posts):

sub EVENT_SAY { 
if($text=~/showflags/i){
quest::flagcheck(1,1); 
quest::say("NPC flag 1 = $returnflag"); 
quest::flagcheck(0,1); 
quest::say("Client flag 1 = $returnflag"); 
}
if($text=~/flagnpc/i){
quest::say("Setting NPC flag 1");
quest::flagnpc(1,1);
quest::flagcheck(1,1); 
}
if($text=~/flagclient/i){
quest::say("Setting client flag 1");
quest::flagclient(1,1);
quest::flagcheck(0,1); }
}