Any illusion or temp facial change leaves you as soon as you log or zone so there useless...
It allows for a high char to recreate without any real loss other than level and gains some stats each time
Ill impliment this into a quest soon kinda like another epic for the Resurrection quest
Code:
sub EVENT_SAY {
#beginlinks
my $newBard = quest::saylink ("new Bard", 1);
my $newBeastlord = quest::saylink ("new Beastlord", 1);
my $newBerserker = quest::saylink ("new Berserker", 1);
my $newCleric = quest::saylink ("new Cleric", 1);
my $newDruid = quest::saylink ("new Druid", 1);
my $newEnchanter = quest::saylink ("new Enchanter", 1);
my $newNecromancer = quest::saylink ("new Necromancer", 1);
my $newMagician = quest::saylink ("new Magician", 1);
my $newMonk = quest::saylink ("new Monk", 1);
my $newPaladin = quest::saylink ("new Paladin", 1);
my $newRanger = quest::saylink ("new Ranger", 1);
my $newRogue = quest::saylink ("new Rogue", 1);
my $newShadowknight = quest::saylink ("new Shadowknight", 1);
my $newShaman = quest::saylink ("new Shaman", 1);
my $newWarrior = quest::saylink ("new Warrior", 1);
my $newWizard = quest::saylink ("new Wizard", 1);
my $adjust = quest::saylink("adjust", 1);
my $str = quest::saylink ("Strength", 1);
my $sta = quest::saylink ("Stamina", 1);
my $agi = quest::saylink ("Agility", 1);
my $dex = quest::saylink ("Dexterity", 1);
my $wis = quest::saylink ("Wisdom", 1);
my $int = quest::saylink ("Intelligence", 1);
my $cha = quest::saylink ("Charisma", 1);
my $interested = quest::saylink ("interested", 1);
my $WARNING = quest::saylink ("WARNING", 1);
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);
my $Ressurection = quest::saylink ("Ressurection", 1);
my $rebirth = quest::saylink ("rebirth", 1);
my $traped = quest::saylink ("traped", 1);
my $randomrace = quest::saylink ("Random Race", 1);
my $races = quest::saylink ("races", 1);
my $rnd = plugin::RandomRange(586);
my $Human = quest::saylink ("Human", 1);
my $Barbarian = quest::saylink ("Barbarian", 1);
my $Erudite = quest::saylink ("Erudite", 1);
my $male = quest::saylink ("Male", 1);
my $female = quest::saylink ("Female", 1);
my $unknown = quest::saylink ("unknown", 1);
my $WoodElf = quest::saylink ("Wood Elf", 1);
my $HighElf = quest::saylink ("High Elf", 1);
my $DarkElf = quest::saylink ("Dark Elf", 1);
my $HalfElf = quest::saylink ("Half Elf", 1);
my $Dwarf = quest::saylink ("Dwarf", 1);
my $Troll = quest::saylink ("Troll", 1);
my $Ogre = quest::saylink ("Ogre", 1);
my $Halfling = quest::saylink ("Halfling", 1);
my $Gnome = quest::saylink ("Gnome", 1);
my $Iksar = quest::saylink ("Iksar", 1);
my $VahShir = quest::saylink ("Vah Shir", 1);
my $Froglok = quest::saylink ("Froglok", 1);
my $Other = quest::saylink ("something else", 1);
my $Innoruuk = quest::saylink ("Innoruuk", 1);
my $Djinn = quest::saylink ("Djinn", 1);
my $Werewolf = quest::saylink ("Werewolf", 1);
#24 Fish
#26 Froglok
#27 Froglok Ghoul
#33 Ghoul
#58 Solusek Ro
my $Barbarian = quest::saylink ("Barbarian", 1);
my $Erudite = quest::saylink ("Erudite", 1);
my $Human = quest::saylink ("Human", 1);
my $Barbarian = quest::saylink ("Barbarian", 1);
my $Erudite = quest::saylink ("Erudite", 1);
my $Barbarian = quest::saylink ("Barbarian", 1);
my $Erudite = quest::saylink ("Erudite", 1);
my $Human = quest::saylink ("Human", 1);
my $Barbarian = quest::saylink ("Barbarian", 1);
my $newlvl = int(($ulevel*0.75)+0.25);
#EndLinks
#beginconversation
if($text=~/hail/i) {
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. ");}
if ($ulevel < 60) { $client->Message(3,"Return to me when you have grown too great for the realm."); }
quest::popup("Races", "<c \"#FF0000\">Caution lvl $ulevel $race $class </c>You may very well become thing Kill on Sight by doing this! <c \"#F07F00\">doing this will remove you from the world for a short time.</c><br> Changing your class withought resserection will cost you some of your expierence you will be lowered to level $newlvl");
$client->Message(14,"Have you ever wanted to [$adjust] your stats?");
$client->Message(15,"If you are unsure of what you are. I have been given the power to allow you to change your class While you are still young. Are you [$interested]? Before moving along though, you should head my [$WARNING]!");
$client->Message(13,"So you think your [$traped] in the wrong body?.");
}
if($text=~/traped/i) {
quest::say("FIRST I can turn you into a [$male], [$female], or an [$unknown]!");
quest::say("You can choose from a list of [$races] or I can turn you into a [$randomrace]!");}
if($text=~/races/i) {
$client->Message(13,"You may want to change race last incase some of the guards here want to kill the new you....");
quest::say("OK I can turn you into Permenently are [$Human], [$Barbarian], [$Erudite]!");
quest::say("[$WoodElf], [$HighElf], [$DarkElf], [$HalfElf], [$Dwarf], [$Troll], [$Ogre]!");
quest::say("[$Halfling], [$Gnome], [$Iksar], [$VahShir], [$Froglok]!");
quest::say("Or i can turn you into [$Other]!");
}
if($text=~/something else/i) {
quest::say("OK I can turn you into [$Innoruuk]!");
quest::say("OK I can turn you into [$Djinn]!");
quest::say("OK I can turn you into a [$Werewolf]!");
}
if($text=~/adjust/i) {
$client->Message(14,"Good luck with the your stats. Do you want [$str], [$sta], [$agi], [$dex], [$wis], [$int] or [$cha]. I caustion you Doing this will decrease all others by 2. While increasing your stat by 12");
}
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.");
}
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], [$Beastlord], [$Berserker], [$Cleric], [$Druid], [$Enchanter]");
quest::say ("[$Necromancer], [$Magician], [$Monk], [$Paladin], [$Ranger], [$Rogue]");
quest::say ("[$Shadowknight], [$Shaman], [$Warrior], [$Wizard]");
}
if ($text =~/interested/i){
quest::say ("What would you like to become?");
quest::say ("I wish to become a [$newBard], a [$newBeastlord], a [$newBerserker], a [$newCleric], a [$newDruid]");
quest::say ("a [$newEnchanter], a [$newNecromancer], a [$newMagician], a [$newMonk], a [$newPaladin], a [$newRanger]");
quest::say ("a [$newRogue], a [$newShadowknight], a [$newShaman], a [$newWarrior], a [$newWizard]");
}
#endconversation
#beginactions
##ressurectionbegin
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);
}
##ressurectionend
if($text=~/Random Race/i) {
quest::permarace($rnd);}
if($text=~/Male/i) {
quest::permagender(0);}
if($text=~/Female/i) {
quest::permagender(1);}
if($text=~/unknown/i) {
quest::permagender(2);}
if($text=~/Human/i) {
quest::permarace(1);}
if($text=~/Barbarian/i) {
quest::permarace(2);}
if($text=~/Erudite/i) {
quest::permarace(3);}
if($text=~/Wood Elf/i) {
quest::permarace(4);}
if($text=~/High Elf/i) {
quest::permarace(5);}
if($text=~/Dark Elf/i) {
quest::permarace(6);}
if($text=~/Half Elf/i) {
quest::permarace(7);}
if($text=~/Dwarf/i) {
quest::permarace(8);}
if($text=~/Human/i) {
quest::permarace(1);}
if($text=~/Troll/i) {
quest::permarace(9);}
if($text=~/Ogre/i) {
quest::permarace(10);}
if($text=~/Halfling/i) {
quest::permarace(11);}
if($text=~/Gnome/i) {
quest::permarace(12);}
if($text=~/Iksar/i) {
quest::permarace(128);}
if($text=~/Vah Shir/i) {
quest::permarace(130);}
if($text=~/Froglok/i) {
quest::permarace(330);}
if($text=~/Innoruuk/i) {
quest::permarace(123);
quest::permagender(2);}
if($text=~/Djinn/i) {
quest::permarace(126);
quest::permagender(2);}
if($text=~/Werewolf/i) {
quest::permarace(14);
quest::permagender(2);}
if($text=~/cheat/i){
quest::incstat(0,+5);
quest::incstat(1,+5);
quest::incstat(2,+5);
quest::incstat(3,+5);
quest::incstat(4,+5);
quest::incstat(5,+5);
quest::incstat(6,+5);
$client->Message(14,"CHEATER BURN IN HELL!!!");
}
if($text=~/Strength/i){
quest::incstat(0, +6);
quest::incstat(1, -1);
quest::incstat(2, -1);
quest::incstat(3, -1);
quest::incstat(4, -1);
quest::incstat(5, -1);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Stamina/i){
quest::incstat(0, -1);
quest::incstat(1, +6);
quest::incstat(2, -1);
quest::incstat(3, -1);
quest::incstat(4, -1);
quest::incstat(5, -1);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Agility/i){
quest::incstat(0, -1);
quest::incstat(1, -1);
quest::incstat(2, +6);
quest::incstat(3, -1);
quest::incstat(4, -1);
quest::incstat(5, -1);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Dexterity/i){
quest::incstat(0, -1);
quest::incstat(1, -1);
quest::incstat(2, -1);
quest::incstat(3, +6);
quest::incstat(4, -1);
quest::incstat(5, -1);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Wisdom/i){
quest::incstat(0, -1);
quest::incstat(1, -1);
quest::incstat(2, -1);
quest::incstat(3, -1);
quest::incstat(4, +6);
quest::incstat(5, -1);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Intelligence/i){
quest::incstat(0, -1);
quest::incstat(1, -1);
quest::incstat(2, -1);
quest::incstat(3, -1);
quest::incstat(4, -1);
quest::incstat(5, +6);
quest::incstat(6, -1);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if($text=~/Charisma/i){
quest::incstat(0, -1);
quest::incstat(1, -1);
quest::incstat(2, -1);
quest::incstat(3, -1);
quest::incstat(4, -1);
quest::incstat(5, -1);
quest::incstat(6, +6);
$client->Message(14,"Done!!! It may not appear till your next return to the world..");
}
if ($text =~/WARNING/i){
quest::say ("You will keep all your skill ups and spells, BUT, I will bring you back to level 1. Your Stats may be altered as well. Are you still [$interested]?");
}
if ($text =~/new Bard/i){
quest::level($newlvl);
quest::permaclass(8);
}
if ($text =~/new Beastlord/i){
quest::level($newlvl);
quest::permaclass(15);
}
if ($text =~/new Berserker/i){
quest::level($newlvl);
quest::permaclass(16);
}
if ($text =~/new Cleric/i){
quest::level($newlvl);
quest::permaclass(2);
}
if ($text =~/new Druid/i){
quest::level($newlvl);
quest::permaclass(6);
}
if ($text =~/new Enchanter/i){
quest::level($newlvl);
quest::permaclass(14);
}
if ($text =~/new Necromancer/i){
quest::level($newlvl);
quest::permaclass(11);
}
if ($text =~/new Magician/i){
quest::level($newlvl);
quest::permaclass(13);
}
if ($text =~/new Monk/i){
quest::level($newlvl);
quest::permaclass(7);
}
if ($text =~/new Paladin/i){
quest::level($newlvl);
quest::permaclass(3);
}
if ($text =~/new Ranger/i){
quest::level($newlvl);
quest::permaclass(4);
}
if ($text =~/new Rogue/i){
quest::level($newlvl);
quest::permaclass(9);
}
if ($text =~/new Shadowknight/i){
quest::level($newlvl);
quest::permaclass(5);
}
if ($text =~/new Shaman/i){
quest::level($newlvl);
quest::permaclass(10);
}
if ($text =~/new Warrior/i){
quest::level($newlvl);
quest::permaclass(1);
}
if ($text =~/new Wizard/i){
quest::level($newlvl);
quest::permaclass(12);
}
}