- Deleted the previous town-specific NPCs in Alberta, and replaced them with ones converted from Aegis 10.4.

- Re-made the Doll Quest with official dialogs.
- Re-made the Grandpa Pharmacist with official dialogs.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10420 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 226 insertions, 146 deletions

diff --git a/npc/merchants/grandpa_pharmacist.txt b/npc/merchants/grandpa_pharmacist.txt
index 5894499a3..68ac39130 100644
--- a/npc/merchants/grandpa_pharmacist.txt
+++ b/npc/merchants/grandpa_pharmacist.txt
@@ -1,162 +1,242 @@
 //===== eAthena Script =======================================
 //= Grandpa Pharmacist
 //===== By: ==================================================
-//= kobra_k88
+//= DZeroX
 //===== Current Version: =====================================
-//= 1.2
+//= 1.0
 //===== Compatible With: =====================================
-//= eAthena 7.15 +
+//= eAthena SVN Trunk
 //===== Description: =========================================
 //= Trade in items for potions
 //===============================
 //= Breakdown of arguments used
-//= arg(0): first item id#
-//= arg(1): 2nd item id# if needed, or else use 0
-//= arg(2): zeny cost
-//= arg(3): potion id#
-//= arg(4): potion name
+//= arg(0): Herb required.
+//= arg(1): Zeny cost.
+//= arg(2): z
 //===== Additional Comments: =================================
-//= Fully working
-//= 1.1 Negative input bug fixed [Lupus]
-//= 1.2 Created a subfunc for the potion making part.  Added more
-//= input/zeny exploit checks. Added Lupus's "loopless" technique.[kobra_k88]
+//= 1.0 - Fully working.
 //============================================================
 
-
-alberta_in,16,28,4	script	Grampa Pharmacist	61,{
-	mes "[Grampa Pharmacist]";
-	mes "Hmmm... what do you want...?";
-	next;
-	menu "Make Potion",M_Make, "Talk",M_Talk, "Information",M_Info, "Cancel",M_End;
+alberta_in.gat,16,28,4	script	Grandpa Pharmacist	61,{
+	mes "[Grandpa Pharmacist]";
+	mes "Err....Are you a customer...?";
+	switch(select("Make Potion","Talk.","Instruction of making potions","Cancel")) {
+		case 1:
+			next;
+			set .@weight,MaxWeight-Weight;
+			if ((.@weight) < 10000) {
+				mes "[Grandpa Pharmacist]";
+				mes "Oh, boy! Why are carrying so much stuffs with you?";
+				mes "Don't be so greedy! bring little by little.";
+				next;
+				mes "[Grandpa Pharmacist]";
+				mes "At least, you should have some space to carry the potions...";
+				mes "Why don't you keep some of them in storage and come back to me again?";
+				close;
+			} else {
+				mes "[Grandpa Pharmacist]";
+				mes "Did you bring all the ingredients? Which potion do you want to make?";
+				switch(select("Red Potion.","Orange Potion.","Yellow Potion.","White Potion.","Blue Potion.","Green Potion.","Nah, I changed my mind.")) {
+					case 1:
+						callsub L_making,507,3,501;
+					case 2:
+						next;
+						mes "[Grandpa Pharmacist]";
+						if (countitem(507) < countitem(713)) {
+							set .@max,countitem(507);
+						}
+						if (countitem(508) < countitem(713)) {
+							set .@max,countitem(508);
+						} else {
+							set .@max,countitem(713);
+						}
+						if ((countitem(507) < 1) | (countitem(508) < 1) | (countitem(713) == 0)) {
+							mes "You are silly! How can you make a potion if you don't even have ingredients?!";
+							mes "Go away!";
+							close;
+						}
+						if (Zeny < 3) {
+							mes "You are silly! Did you think you can make a potion without money?";
+							mes "Go away!";
+							close;
+						}
+						mes "How many?";
+						switch(select("As many as I can","I will set the amounts.","Nah, forget about it.")) {
+							case 1:
+								next;
+								if ((countitem(507) < .@max) | (countitem(508) < .@max) | (countitem(713) < .@max) | (Zeny < .@max*3)) {
+									mes "[Grandpa Pharmacist]";
+									mes "You punk! Do you want me to make stuff from insufficient ingredients?";
+									close;
+								}
+								set Zeny,Zeny-(.@max*getarg(1));
+								delitem getarg(0),.@max*2;
+								delitem 713,.@max;
+								getitem getarg(2),.@max; 
+								mes "[Grandpa Pharmacist]";
+								mes "Here. Take them.";
+								mes "Keep it in mind! Overdose could lead you to death.";
+								close;
+							case 2:
+								next;
+								mes "[Grandpa Pharmacist]";
+								mes "Set the amounts from 1 to 100. type '0' if you want to Cancel";
+								mes "I think you can make "+.@max+" potions?";
+								input .@amount;
+								if (.@amount == 0) {
+									next;
+									mes "[Grandpa Pharmacist]";
+									mes "Can't you do it correctly?!";
+									close;
+								}
+								if (.@amount > 100) {
+									next;
+									mes "[Grandpa Pharmacist]";
+									mes "Are you a deaf of something? I can't make more than 100.";
+									close;
+								}
+								if ((countitem(507) < .@amount) | (countitem(508) < .@amount) | (countitem(713) < .@amount) | (Zeny < .@amount*3)) {
+									next;
+									mes "[Grandpa Pharmacist]";
+									mes "You punk! Do you want me to make stuff from insufficient ingredients?";
+									close;
+								}
+								next;
+								set Zeny,Zeny-(.@amount*getarg(1));
+								delitem getarg(0),.@amount*2;
+								delitem 713,.@amount;
+								getitem getarg(2),.@amount; 
+								mes "[Grandpa Pharmacist]";
+								mes "Here. Take them.";
+								mes "Keep it in mind! Overdose could lead you to death.";
+								close;
+							case 3:
+								next;
+								mes "[Grandpa Pharmacist]";
+								mes "What did you say?! You little punk.. Get out of here!";
+								close;
+						}
+					case 3:
+						callsub L_making,508,10,503;
+					case 4:
+						callsub L_making,509,20,504;
+					case 5:
+						callsub L_making,510,30,505;
+					case 6:
+						callsub L_making,511,3,506;
+					case 7:
+						mes "[Grandpa Pharmacist]";
+						mes "What did you say?! You little punk.. Get out of here!";
+						close;
+					}
+				}
+		case 2:
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "You can improve immune system with medicine. But youhave to be careful in medicine otherwise you would be addicted...";
+			mes "Oh man... Since I'm old, I enjoy recalling my youth.";
+			mes "Anyway, the potion is just a medicine which can assist you. That's all.";
+			close;
+		case 3:
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "Phew... What an annoying young people... Fine, I will explain how the potion works on you.";
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "You can just use raw herbs but I can process herbs to make potions which have greater effect.";
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "If you ask me to make potions, I will make them with the few fee.";
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "Red_Potion - ^0098E5Red Herb: 2ea, Empty Bottle: 1ea, Fee: 3 zeny.^000000";
+			mes "Orange_Potion - ^0098E5Red Herb: 1ea, Yellow Herb: 1ea, Empty Bottle: 1ea, Fee: 5 zeny.^000000";
+			mes "Yellow_Potion - ^0098E5Yellow Herb: 2ea, Empty Bottle: 1ea, Fee: 10 zeny.^000000";
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "White_Potion - ^0098E5White Herb: 2ea, Empty Bottle: 1ea, Fee: 20 zeny.^000000";
+			mes "Blue_Potion - ^0098E5Blue Herb: 2ea, Empty Bottle: 1ea, Fee: 30 zeny.^000000";
+			mes "Green_Potion - ^0098E5Green Herb: 2ea, Empty Bottle: 1ea, Fee: 3 zeny.^000000";
+			close;
+		case 4:
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "Don't you have anything to say?";
+			close;
+	}
 	
-	M_Make:
-		mes "[Grampa Pharmacist]";
-		mes "Did you prepare all the items needed? If so what potion do you want?";
-		M_Menu:
-		next;
-		menu "Red Potion",M_0, "Orange Potion",M_1, "Yellow Potion",M_2,
-			 "White Potion",M_3, "Blue Potion",M_4, "Green Potion",M_5,
-			 "Nah, I change my mind.",M_End;
-		
-		M_0:
-			callsub sF_Make, 507, 0, 2, 501, "red";
-			goto M_Menu;
-		M_1:
-			callsub sF_Make, 507, 508, 5, 502, "orange";
-			goto M_Menu;
-		M_2:
-			callsub sF_Make, 508, 0, 10, 503, "yellow";
-			goto M_Menu;
-		M_3:
-			callsub sF_Make, 509, 0, 20, 504, "white";
-			goto M_Menu;
-		M_4:
-			callsub sF_Make, 510, 0, 30, 505, "blue";
-			goto M_Menu;
-		M_5:
-			callsub sF_Make, 511, 0, 3, 506, "green";
-			goto M_Menu;
-
-	M_Talk:
-		mes "[Grampa Pharmacist]";
-		mes "The right type of medicinal Herbs can replenish a person's HP or SP";
-		mes ". ~Sigh~ I'm starting to reminisce about my youth.... a sign that I";
-		mes "must be getting old.....";
-		next;
-		mes "[Grampa Pharmacist]";
-		mes "... A potion is merely an, 'easy to use', form of medicinal  Herbs";
-		mes "..... nothing more and nothing less.";
-		close;
-	M_Info:
-		mes "[Grampa Pharmacist]";
-		mes "~Sigh~... you young ones can be quite bothersome.. Fine, I will";
-		mes "explain to you how potions work....";
-		next;
-		mes "[Grampa Pharmacist]";
-		mes "Though the bennefits from consuming the various Herbs found around";
-		mes "Rune-Midgard are great... by refining them into potions, the";
-		mes "effects of the Herbs are dramatically enhanced.";
-		next;
-		mes "[Grampa Pharmacist]";
-		mes "The process of refining herbs into potions is a special one that I";
-		mes "created.  For a small fee I can make any potion you desire.";
-		next;
-		mes "[Grampa Pharmacist]";
-		mes "^FF5533Red Potion^000000 - 2 Red Herbs, 1 Empty Bottle, 2 Zeny fee.";
-		mes "^FF8000Orange Potion^000000 - 1 Red Herb, 1 Yellow Herb, 1 Empty Bottle, 5 Zeny fee.";
-		mes "^E8CF20Yellow Potion^000000 - 2 Yellow Herbs, 1 Empty Bottle, 10 Zeny fee.";
-		next;
-		mes "[Grampa Pharmacist]";
-		mes "^999999White Potion^000000 -  2 White Herbs, 1 Empty Bottle, 20 Zeny fee.";
-		mes "^3355FFBlue Potion^000000 - 2 Blue Herbs, 1 Empty Bottle, 30 Zeny fee.";
-		mes "^00B000Green Potion^000000 - 2 Green Herbs, 1 Empty Bottle, 3 Zeny fee.";
-		close;
-	M_End:
-		mes "[Grampa Pharmacist]";
-		mes "Didn't you have something to say?!";
-		close;
-
-// Subfunction for making potions
-//================================
-sF_Make:
-	set @herbnum, 2;
-	if(getarg(1) != 0) set @herbnum, 1;
-	if(countitem(getarg(0)) < @herbnum) goto L_NdHerbs;
-	if(getarg(1) != 0) if(countitem(getarg(1)) < @herbnum) goto L_NdHerbs;
-	if(countitem(713) < 1) goto L_NdBottle;
-	if(Zeny < getarg(2)) goto L_NdZeny;
-
-	mes "[Grampa Pharmacist]";
-	mes "How many?";
+L_making:
 	next;
-	menu "As many as possible.",sM_0a, "I will set the amount.",sM_0b, "Nah, forget about it",M_End;
-
-	sM_0a:
-		set @amount, 1000;
-		if(zeny/getarg(2) < @amount) set @amount, zeny/getarg(2);
-		if(countitem(getarg(0))/@herbnum < @amount) set @amount, countitem(getarg(0))/@herbnum;
-		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) set @amount, countitem(getarg(1))/@herbnum;
-		if(countitem(713) < @amount) set @amount, countitem(713);
-		if(@amount > 0) goto L_End;
-		mes "[Grampa Pharmacist]";
-		mes "Jeez... you don't even have the right items.....";
+	mes "[Grandpa Pharmacist]";
+	if ((countitem(getarg(0))/2) < countitem(713)) {
+		set .@max,countitem(getarg(0))/2;
+	} else {
+		set .@max,countitem(713);
+	}
+	if ((countitem(getarg(0)) < 2) | (countitem(713) == 0)) {
+		mes "You are silly! How can you make a potion if you don't even have ingredients?!";
+		mes "Go away!";
 		close;
-		
-	sM_0b:
-		input @amount;
-		if(@amount<1 || @amount>1000) goto L_BadAmnt;
-		if(countitem(getarg(0))/@herbnum < @amount) goto L_NdHerbs;
-		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) goto L_NdHerbs;
-		if(countitem(713) < @amount) goto L_NdBottle;
-		if(Zeny < (getarg(2)*@amount)) goto L_NdZeny;
-
-	L_End:
-		set Zeny, Zeny - (getarg(2)*@amount);
-		delitem getarg(0), (@amount*@herbnum);
-		if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum);
-		delitem 713, @amount;
-		getitem getarg(3), @amount;
-		mes "[Grampa Pharmacist]";
-		mes "Here are your " +getarg(4)+ " potions.";
+	}
+	if (Zeny < 3) {
+		mes "You are silly! Did you think you can make a potion without money?";
+		mes "Go away!";
 		close;
-
-	L_NdBottle:
-		mes "[Grampa Pharmacist]";
-		mes "You don't have enough empty bottles to put the medicine in you idiot!!";
-		return;
-
-	L_NdHerbs:
-		mes "[Grampa Pharmacist]";
-		mes "You rascal! What did you expect from me? You didn't even bring all of the right herbs!";
-		return;
-
-	L_NdZeny:
-		mes "[Grampa Pharmacist]";
-		mes "You don't have enough zeny for that many potions.";
-		return;
-
-	L_BadAmnt:
-		mes "[Grampa Pharmacist]";
-		mes "What?! That's not a valid amount!";	
-		return;
-}
+	}
+	mes "How many?";
+	switch(select("As many as I can","I will set the amounts.","Nah, forget about it.")) {
+		case 1:
+			next;
+			if ((countitem(getarg(0)) < .@max*2) | (countitem(713) < .@max) | (Zeny < .@max*getarg(1))) {
+				mes "[Grandpa Pharmacist]";
+				mes "You punk! Do you want me to make stuff from insufficient ingredients?";
+				close;
+			}
+			set Zeny,Zeny-(.@max*getarg(1));
+			delitem getarg(0),.@max*2;
+			delitem 713,.@max;
+			getitem getarg(2),.@max; 
+			mes "[Grandpa Pharmacist]";
+			mes "Here. Take them.";
+			mes "Keep it in mind! Overdose could lead you to death.";
+			close;
+		case 2:
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "Set the amounts from 1 to 100. type '0' if you want to Cancel";
+			mes "I think you can make "+.@max+" potions?";
+			input .@amount;
+			if (.@amount == 0) {
+				next;
+				mes "[Grandpa Pharmacist]";
+				mes "Can't you do it correctly?!";
+				close;
+			}
+			if (.@amount > 100) {
+				next;
+				mes "[Grandpa Pharmacist]";
+				mes "Are you a deaf of something? I can't make more than 100.";
+				close;
+			}
+			if ((countitem(getarg(0)) < .@amount*2) | (countitem(713) < .@amount) | (Zeny < .@amount*getarg(1))) {
+				next;
+				mes "[Grandpa Pharmacist]";
+				mes "You punk! Do you want me to make stuff from insufficient ingredients?";
+				close;
+			}
+			next;
+			set Zeny,Zeny-(.@amount*getarg(1));
+			delitem getarg(0),.@amount*2;
+			delitem 713,.@amount;
+			getitem getarg(2),.@amount; 
+			mes "[Grandpa Pharmacist]";
+			mes "Here. Take them.";
+			mes "Keep it in mind! Overdose could lead you to death.";
+			close;
+		case 3:
+			next;
+			mes "[Grandpa Pharmacist]";
+			mes "What did you say?! You little punk.. Get out of here!";
+			close;
+	}
+}
\ No newline at end of file