[trevius]

Well, you can use the following commands to train spells and disciplines:

quest::scribespells(50);
quest::traindiscs(50);

But, setting all skills to max for level 50 is a bit more complicated. There is a GM command to do it (#maxskills), but there isn't a perl function for setting all skills to max.

You would need to do a bit more scripting to set all skills to max. First, you would need to do a loop through each skill ID, which is 0 to 73 I think. Then for each iteration of the loop, you would use the $client->MaxSkill(skillid, class, level) command to find the max skill for that level of each skill. Then, you would need to set the skill to the value you got from that command using the $client->SetSkill(skill_num, value) command. It would be something like this:

sub EVENT_ENTERZONE {

	if ($ulevel < 50)
	{
		quest::level(50);
		quest::scribespells(50);
		quest::traindiscs(50);
		my $CharClass = $client->GetClass();
		for ($skillid = 0; $skillid < 74; $skillid++)
		{
			my $SkillValue = $client->MaxSkill($skillid, $CharClass, 50);
			$client->SetSkill($skillid, $SkillValue);
		}
	}

}

I haven't tested that, but I think it should be close to what you are wanting.