prt_in,124,17,8	script	Poring  	909,{
	mes "[Poring]";
	if(AoPQuest == 1) goto Q_Already;
        if9AoPQuest == 1) goto L_Already;
        mes "Hello, I found out how create a item using the power of the genes in my blood, but If you want it, it will cost you.";
	next;
	menu "Keep talking",-, "Leave", M_Leave;

		mes "[Poring]";
		mes "I have never heard of an item like this before, but I heard that you need to collect items from the Poring family to make it.";
		next;
		mes "[Poring]";
		mes "If you're interested in this item, you have to give me somesomething to make my tougue slip.";
		next;
		menu "Tell me more about it",-, "Nah, I don't care about it", M_Leave;

		mes "[Poring]";
		mes "I believe the item is called a ^FF0000Poring Aura^000000, and it can give you enormous power.";
		next;
                menu "What is the enormous power?",-, "Your a Poring, how can it give enormous power", M_Leave;

		mes "[Poring]";
		mes "Get me these items so it can "refresh" my memories.";
		mes "^0080FF25^000000 Poring Coins";
		mes "^0080FF50^000000 Unripe Apples";
		mes "^0080FF100^000000 Apple Juice";
		mes "^0080FF10^000000 Backpacks";
		mes "^0080FF20^000000 Gold";
		mes "^0080FF20 million^000000 zeny";
		next;
		menu "I have all that!",-, "I'll get those ASAP", M_Leave;

		mes "[Poring]";
		mes "Anyone can say they have the items, but do they really have them?  Let's take a look here...";
		next;
		mes "[Poring]";
		if(countitem(7539) < 25 || countitem(531) < 100 || countitem(619) < 50 || countitem(10013) < 10 || countitem(969) < 20 || countitem(1614) < 1 || countitem(727) < 20) goto L_noItems;
		delitem 7539, 25;
		delitem 531, 100;
		delitem 619, 50;
		delitem 10013, 10;
		delitem 969, 20;
                mes "Well congratulations!  You have all the items, and here is your next challange. ";
		emotion e_gg;
		set AoPQuest, 1;
                close;

	M_Leave:
		mes "[Poring]";
		mes "Such a great item I have right here...";
		close;

	L_noItems:
		mes "I knew you were lying!  Get out of here and get those items you sorry excuse for a rock star.";
		close;

        Q_Already:
		mes "[Poring]";
                mes "Here is your next quest, get these items and the Poring Aura is yours.";
                mes "You will need:";
                mes "^0080FF150^000000 Poring Coins';
                mes "^0080FF1^000000 Arch Angeling Card';
                mes "^0080FF1^000000 Drops Card
                mes "^0080FF1^000000 Poring Card
                mes "^0080FF1^000000 Marin Card
                mes "^0080FF1^000000 Poporing Card
                next;
                menu "I have all that!",-, "I'll get those ASAP", M_Leave;

                if(countitem(7539) < 150 || countitem(4241) < 1 || countitem(4004) < 1 || countitem(4001) < 1 || countitem(4033) < 1 || countitem(4196) < 1 goto L_noItems;
		delitem 7539, 150;
		delitem 4241, 1;
		delitem 4004, 1;
		delitem 4001, 1;
		delitem 4033, 1;
                delitem 4196, 1
                getitem 21028, 1;
                set AoPQuest, 2;
                mes "Well congratulations!  You have all the items.  Here is your ^FF0000Poring Aura^000000, just as I said.";
                mes "Oh yeah, I forgot to tell you, you only can do this quest once.";
                set AoPQuest, 2;
		emotion e_grat;
		close;

	L_Already:
		mes "Hey I remember you!  I already told you that you may only complete this quest once.";
		close;

}