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):
Code:
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); }
}