Thread: Perl Flags
View Single Post
  #2  
Old 01-31-2004, 08:25 AM
Lurker_005
Demi-God
 
Join Date: Jan 2002
Location: Tourist town USA
Posts: 1,671
Default

Well I havn't been able to spend any time checking the flag stuff yet, but 2 things. Keep in mind the odd behavior of flagcheck as posted by Valdain, and your checking flag 0 for the client not flag 1

change
Code:
quest::flagcheck(0,1);
to
Code:
quest::flagcheck(1,0);
Actually try this
Code:
sub EVENT_SAY { 
if($text=~/showflags/i){ 
quest::say("NPC flag 20 = $returnflag"); 
quest::say("Client flag 10 = $returnflag"); 
} 
if($text=~/flagnpc/i){ 
quest::say("Setting NPC flag 20 to 6"); 
quest::flagnpc(20,6); 
quest::flagcheck(20,1); 
} 
if($text=~/flagclient/i){ 
quest::say("Setting client flag 10 to 5"); 
quest::flagclient(10,5); 
quest::flagcheck(10,0); } 
}
__________________
Please read the forum rules and look at reacent messages before posting.
Reply With Quote