De-level Quest for an Item

**trevius** · #3 01-16-2008, 06:47 PM

Code:

if(($text=~/^pants$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^wristband$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^cap$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^shoes$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^sleeves$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^gloves$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^chestplate$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^leggings$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^bracer$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^helm$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^boots$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^vambraces$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
if(($text=~/^guantlets$/i)&&($ulevel == 70)){
    quest::say("You asked for it!  Here is your item in exchange for your experience.  HaHa, YES!  I grow ever stronger!  Your experience and most of your memories are now mine!");
quest::emote("casts a spell and before you know it, you can barely remember why you are here.  You look down to your hand to see your newly aquired item.");
quest::summonitem(12941);
quest::level(1);
    quest::say("If you decide at anytime that this item was not worth your experience, then return it to me in good condition and I will restore your experience.");
}
}

sub EVENT_ITEM
{
 if ($item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $item1 == 12941 || $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.");
	}  
}

Combine all 3 code posts into notepad and that is the complete quest. It has quite a lot of reward possibilities, and they could definitely be cut down to just a few or even just 1 reward item.

I thought this idea was kinda cool, because it is a way to get people to experience your custom level 1 - 70 content again, to get more use out of it. It is also something different for people to put time into other than just killing raid mobs to get upgrades. I got the idea when someone asked to trade a level 70 character in exchange for an item on the forums of a server I play on. He said he doesn't like raiding, but loves to level characters, lol. Since most servers have increased experience, and your character will have insane gear for low levels, leveling back up would be pretty easy. The rewards couldn't be quite as good as raid gear, but somewhere between raid and solo-able gear. Or maybe just have the reward be special items like clicky buffs. Also, if the player decides that the reward isn't worth the leveling, they can return it and get their level 70 back.