Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Custom
Reload this Page High Lvl Character Resurrection / Rebirth

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 11-29-2011, 07:49 AM
pepsiphreak79
Sarnak
  
Join Date: Sep 2011
Posts: 70
Default High Lvl Character Resurrection / Rebirth
Hey i dont like the idea of you hit high lvl nd thats it no more progression really...
So heres a simple addon NPC Script that can be attached to a quest or however you like..

Has been tested and works However i would not use it with any code that uses setstat code otherwise it overrides your resurrection bonus.
I would advise changing setstat code in other scripts to use incstat + or -

Code:

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





	if ($text=~/Hail/i){
		$client->Message(14,"Hello, $name!");  
		if ($ulevel=>60){
			$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);
	}

}
Reply With Quote
  #2  
Old 12-07-2011, 05:08 AM
pepsiphreak79
Sarnak
  
Join Date: Sep 2011
Posts: 70
Default
I found out i have the int and wisdom stats reversed
other than that its still cool to play with
__________________
--Any Code by me is considered open source Beta--
Not a DEV not a Coder
Just a person....
Reply With Quote
  #3  
Old 02-07-2012, 06:43 AM
trevius's Avatar
trevius
Developer
  
Join Date: Aug 2006
Location: USA
Posts: 5,946
Default
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:

Code:
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);
		}
	}

}
__________________
Trevazar/Trevius Owner of: Storm Haven
Everquest Emulator FAQ (Frequently Asked Questions) - Read It!
Reply With Quote
Reply

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

   

All times are GMT -4. The time now is 07:05 PM.

EQEmulator - Archive - Top

 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3