High Lvl Character Resurrection / Rebirth

[trevius]

FYI, you didn't do a level check for any responses other than the hail, so a level 1 could repeatedly tell that NPC any class name and it would just keep adding stats.

I would suggest you add the level check around the whole thing other than the hail response for people lower than 60.

It would be something like this:

sub EVENT_SAY {

	my $Ressurection = quest::saylink ("Ressurection", 1);

	if ($ulevel < 60)
	{
		if ($text=~/Hail/i){
			$client->Message(14,"Hello, $name!");  
		}
	}
	else
	{
		if ($text=~/Hail/i){
			$client->Message(14,"Hello, $name!  What an amazing world we live in. You have reached amazing Power. But there is more to learn for us all.  [$Ressurection] Is possible now. ");
		}

		my $rebirth = quest::saylink ("rebirth", 1);

		if ($text =~/Ressurection/i){
			$client->Message(14,"You may choose to be reborn as a new class. You will return to a state of a new life. You may remember some of your past life feats. And with your [$rebirth] you will be stronger than before.");
		}


		my $Bard = quest::saylink ("Bard", 1);
		my $Beastlord = quest::saylink ("Beastlord", 1);
		my $Berserker = quest::saylink ("Berserker", 1);
		my $Cleric = quest::saylink ("Cleric", 1);
		my $Druid = quest::saylink ("Druid", 1);
		my $Enchanter = quest::saylink ("Enchanter", 1);
		my $Necromancer = quest::saylink ("Necromancer", 1);
		my $Magician = quest::saylink ("Magician", 1);
		my $Monk = quest::saylink ("Monk", 1);
		my $Paladin = quest::saylink ("Paladin", 1);
		my $Ranger = quest::saylink ("Ranger", 1);
		my $Rogue = quest::saylink ("Rogue", 1);
		my $Shadowknight = quest::saylink ("Shadowknight", 1);
		my $Shaman = quest::saylink ("Shaman", 1);
		my $Warrior = quest::saylink ("Warrior", 1);
		my $Wizard = quest::saylink ("Wizard", 1);


		if ($text =~/rebirth/i){
			quest::say ("What would you like to become?");
			$client->Message(14,"Your Rebirth will cause you to leave this world for a moment.");

			quest::say ("[$Bard]");
			quest::say ("[$Beastlord]");
			quest::say ("[$Berserker]");
			quest::say ("[$Cleric]");
			quest::say ("[$Druid]");
			quest::say ("[$Enchanter]");
			quest::say ("[$Necromancer]");
			quest::say ("[$Magician]");
			quest::say ("[$Monk]");
			quest::say ("[$Paladin]");
			quest::say ("[$Ranger]");
			quest::say ("[$Rogue]");
			quest::say ("[$Shadowknight]");
			quest::say ("[$Shaman]");
			quest::say ("[$Warrior]");
			quest::say ("[$Wizard]");
		}

		if ($text =~/Bard/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(3, +1);
			quest::incstat(6, +2);
			quest::permaclass(8);
		}
		if ($text =~/Beastlord/i){
			quest::level(1);
			quest::incstat(1, +1);
			quest::incstat(2, +2);
			quest::incstat(4, +1);
			quest::permaclass(15);
		}
		if ($text =~/Berserker/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +2);
			quest::incstat(3, +1);
			quest::permaclass(16);
		}
		if ($text =~/Cleric/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +1);
			quest::incstat(4, +2);
			quest::permaclass(2);
		}
		if ($text =~/Druid/i){
			quest::level(1);
			quest::incstat(1, +2);
			quest::incstat(4, +2);
			quest::permaclass(6);
		}
		if ($text =~/Enchanter/i){
			quest::level(1);
			quest::incstat(5, +2);
			quest::incstat(6, +2);
			quest::permaclass(14);
		}
		if ($text =~/Magician/i){
			quest::level(1);
			quest::incstat(1, +2);
			quest::incstat(5, +2);
			quest::permaclass(13);
		}
		if ($text =~/Monk/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +1);
			quest::incstat(2, +1);
			quest::incstat(3, +1);
			quest::permaclass(7);
		}
		if ($text =~/Necromancer/i){
			quest::level(1);
			quest::incstat(3, +2);
			quest::incstat(5, +2);
			quest::permaclass(11);
		}
		if ($text =~/Paladin/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +1);
			quest::incstat(4, +1);
			quest::incstat(6, +1);
			quest::permaclass(3);
		}
		if ($text =~/Ranger/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +1);
			quest::incstat(2, +1);
			quest::incstat(4, +1);
			quest::permaclass(4);
		}
		if ($text =~/Rogue/i){
			quest::level(1);
			quest::incstat(2, +2);
			quest::incstat(3, +2);
			quest::permaclass(9);
		}
		if ($text =~/Shadowknight/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +1);
			quest::incstat(5, +1);
			quest::incstat(6, +1);
			quest::permaclass(5);
		}
		if ($text =~/Shaman/i){
			quest::level(1);
			quest::incstat(1, +1);
			quest::incstat(4, +2);
			quest::incstat(6, +1);
			quest::permaclass(10);
		}
		if ($text =~/Warrior/i){
			quest::level(1);
			quest::incstat(0, +1);
			quest::incstat(1, +2);
			quest::incstat(2, +1);
			quest::permaclass(1);
		}
		if ($text =~/Wizard/i){
			quest::level(1);
			quest::incstat(1, +2);
			quest::incstat(5, +2);
			quest::permaclass(12);
		}
	}

}