Problem with auto-skills on new characters
			 
			 
			
		
		
		
		Hi guys - I've been trying to correct this for a day or so - but I'm not a Perl programmer, so it may be something simple I'm missing.  If I put the below script in a starting zone - say Qeynos or Cabilis - it works perfectly.  It increases all player skills to 20 the moment they enter the game for the first time (in that zone).   If I put it in the player.pl in c:\eqemu\quests\templates - it doesn't.  It gives a brief message in the chat window in game about Swimming being increased to 100 (which actually doesn't happen according to the character's skill window) and doesn't increase anything else.  I could simply paste the code from North Qeynos into all starting zones...but that's not the point.  I want to learn what I'm doing wrong because I see the potentil in using Player.pl for other reason.  Would anyone mind telling me what I'm doing wrong?   
 
Thanks much in advance. 
 
here's the code I have in the player.pl in qeynos2 and other zones: 
 
sub EVENT_ENTERZONE { 
   
if (!defined($qglobals{newchar})){ 
  quest::setallskill(20); 
  quest::setglobal("newchar", 1, 5, "F"); 
  quest::scribespells(1,1);  
 } 
 else{} 
} 
sub EVENT_LEVEL_UP{ 
 quest::traindiscs($ulevel); 
 quest::scribespells($ulevel); 
 $client->Message(5,"Scribing spells and disciplines."); 
} 
 
} 
 
Thanks again. 
		
	
		
		
		
		
		
		
		
		
		
	
		
			
			
			
			
				 
			
			
			
			
			
			
				
			
			
			
		 
		
	
	
	 |