trevius
01-16-2008, 11:48 AM
#############
#Quest Name: Temporary De-Level Quest
#Author: Trevius
#NPCs Involved: The quest giver NPC can have any name you want.
#Items Involved: 1 trinket that is exchanged to restore level to 70
#################
#Quest to de-level a character temporarily in exchange for an
#item that can be turned in at any time to return to level 70.
#You will need to create a new (not edit an existing) item to
#be the trinket. Once the item is created, simply use notepad
#to do a "replace" on the number "12941" with your new itemID.
#The item currently in this quest is an existing item in the PEQ
#database, so you can test it out without any editing to see if
#you like it before you put any further effort into it.
sub EVENT_SAY {
{
if(($text=~/hail/i)&&($ulevel <= 69)){
quest::say("Hello, $name, I have an interesting deal for you, but you must reach 70 seasons before I can make my offer. Please return to me when you reach level 70. If you are here to return my trinket, please do so and I will restore your experience.");
}
elsif(($text=~/hail/i)&&($ulevel == 70)){
quest::say("Hello, $name, I can lower your [level] temporarily if you would like. It is useful if you have friends that are lower level and would like to group with them, but don't want to make a new character and start over. If your friends are level 51+, you can group with them and work on AAs that will carry over when you return to level 70.");
}
}
if(($text=~/level/i)&&($ulevel == 70)){
quest::say("The way it works is I take your experience from you and give you a trinket in exchange. When you are ready to go back to level 70 again, simply turn in the trinket to me and I will return your experience. Would you like to know the level [ranges] I can set you to?");
}
if(($text=~/ranges/i)&&($ulevel == 70)){
quest::say("I can set you to level [65], [60], [55], [52], [51], [50], [45], [40], [35], [30], [25], [20], [15], [10], [5], or all of the way back to level [1]. Just let me know which level you would like to return to.");
}
if(($text=~/65/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(65);
}
if(($text=~/60/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(60);
}
if(($text=~/55/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(55);
}
if(($text=~/52/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(52);
}
if(($text=~/51/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(51);
}
if(($text=~/50/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(50);
}
if(($text=~/45/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(45);
}
if(($text=~/40/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(40);
}
if(($text=~/35/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(35);
}
if(($text=~/30/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(30);
}
if(($text=~/25/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(25);
}
if(($text=~/20/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(20);
}
if(($text=~/15/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(15);
}
if(($text=~/10/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(10);
}
if(($text=~/^5$/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(5);
}
if(($text=~/^1$/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(1);
}
}
sub EVENT_ITEM
{
if ($item1 == 12941){
quest::say("Looks like you took good care of it! Here are your levels back.");
quest::emote("casts a spell and you instantly feel more powerful! Like you could take on anything in battle!");
quest::level(70);
}
else {
plugin::return_items(\% itemcount);
quest::say("I have no use for this item, $name. Take it back.");
}
}
#Quest Name: Temporary De-Level Quest
#Author: Trevius
#NPCs Involved: The quest giver NPC can have any name you want.
#Items Involved: 1 trinket that is exchanged to restore level to 70
#################
#Quest to de-level a character temporarily in exchange for an
#item that can be turned in at any time to return to level 70.
#You will need to create a new (not edit an existing) item to
#be the trinket. Once the item is created, simply use notepad
#to do a "replace" on the number "12941" with your new itemID.
#The item currently in this quest is an existing item in the PEQ
#database, so you can test it out without any editing to see if
#you like it before you put any further effort into it.
sub EVENT_SAY {
{
if(($text=~/hail/i)&&($ulevel <= 69)){
quest::say("Hello, $name, I have an interesting deal for you, but you must reach 70 seasons before I can make my offer. Please return to me when you reach level 70. If you are here to return my trinket, please do so and I will restore your experience.");
}
elsif(($text=~/hail/i)&&($ulevel == 70)){
quest::say("Hello, $name, I can lower your [level] temporarily if you would like. It is useful if you have friends that are lower level and would like to group with them, but don't want to make a new character and start over. If your friends are level 51+, you can group with them and work on AAs that will carry over when you return to level 70.");
}
}
if(($text=~/level/i)&&($ulevel == 70)){
quest::say("The way it works is I take your experience from you and give you a trinket in exchange. When you are ready to go back to level 70 again, simply turn in the trinket to me and I will return your experience. Would you like to know the level [ranges] I can set you to?");
}
if(($text=~/ranges/i)&&($ulevel == 70)){
quest::say("I can set you to level [65], [60], [55], [52], [51], [50], [45], [40], [35], [30], [25], [20], [15], [10], [5], or all of the way back to level [1]. Just let me know which level you would like to return to.");
}
if(($text=~/65/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(65);
}
if(($text=~/60/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(60);
}
if(($text=~/55/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(55);
}
if(($text=~/52/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(52);
}
if(($text=~/51/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(51);
}
if(($text=~/50/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(50);
}
if(($text=~/45/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(45);
}
if(($text=~/40/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(40);
}
if(($text=~/35/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(35);
}
if(($text=~/30/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(30);
}
if(($text=~/25/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(25);
}
if(($text=~/20/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(20);
}
if(($text=~/15/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(15);
}
if(($text=~/10/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(10);
}
if(($text=~/^5$/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(5);
}
if(($text=~/^1$/i)&&($ulevel == 70)){
quest::say("Here you go! Remember, DO NOT lose that trinket! You will need it to turn into me when you want to restore your level back to 70. If you lose it, you will have to level up the normal way all over again!");
quest::emote("casts a spell and before you know it, you feel young and vibrant again. The world suddenly seems much larger and more intimidating!");
quest::summonitem(12941);
quest::level(1);
}
}
sub EVENT_ITEM
{
if ($item1 == 12941){
quest::say("Looks like you took good care of it! Here are your levels back.");
quest::emote("casts a spell and you instantly feel more powerful! Like you could take on anything in battle!");
quest::level(70);
}
else {
plugin::return_items(\% itemcount);
quest::say("I have no use for this item, $name. Take it back.");
}
}