Auto skill up and spell scribing ?

Randymarsh9 · #1 01-26-2010, 07:16 PM

I put this quest in the player.pl of my starting zone. It will scribe their spells, and set all skills to 20. Now when the character levels up, skills will instantly become available. It also has a qglobal check to make sure it doesn't reset their skills everytime they zone in.

Code:

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.");
}

The

Code:

sub EVENT_LEVEL_UP{
 quest::traindiscs($ulevel);
 quest::scribespells($ulevel);
 $client->Message(5,"Scribing spells and disciplines.");
}

is also added to every player.pl in the quest folder. If you don't want to go through and add that to every player.pl (inlcuding one in templates) you could just change the initial quest to look like

Code:

quest::scribespells(whatever your max level is);