server first announcements thru quest system

[nightsta69]

sub EVENT_LEVEL_UP {
	my $maxlvl = 75;
	my @classlist = ("Warrior", "Cleric", "Paladin", "Ranger", "ShadowKnight", "Druid", "Monk", "Bard", "Rogue", "Shaman", "Necromancer", "Wizard", "Magician", "Enchanter", "Beastlord", "Berserker");
	foreach my $curclass (@classlist) {
       if(!defined($qglobals{$curclass."maxlvl"}) && $ulevel == $maxlvl && $curclass eq $class) {
			quest::setglobal($curclass."maxlvl",$name,2,"F");
            quest::we(5,"$name has made the server first level $ulevel $class!");
            return;
	   }
	}
}

here is the completed code for announcments of server first lvl ups. if anyone wants it, have fun! thanks to shin nor and several others in this thread for helping me weed it out, and learn a thing or two! I plan on adding more custom stuff, as I delve deeper into the learning curve of perl, and C++. thanks again everyone.