//===== rAthena Script =======================================
//= Novice Goods Exchanger
//===== By: ==================================================
//= ???, rAthena Team
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Exchanges your Basic Monster drops for Red Potions.
//===== Additional Comments: =================================
//= 1.2 Rescripted to Aegis 10.standards. [L0ne_W0lf[
//=     Made it easier to add new items to exhange list
//=     meaning only the exchange is done in a function now.
//= 1.3 Fixed dialog mix-up in function. [L0ne_W0lf]
//= 1.4 Added checkweight, and input min/max values. [L0ne_W0lf]
//============================================================

prontera,123,102,5	script	ѧߵʦ#pron	85,{
	if (MaxWeight - Weight < 6301 || checkweight(1201,1) == 0) {
		mes "[Merchant]";
		mes "[ѧߵʦ]";
		mes "!";
		mes "ǳ?";
		mes "̫ණ!";
		mes "ðһЩŵֿ~";
		close;
	}
	mes "[ѧߵʦ]";
	mes "!";
	mes "ûռһЩӲ";
	mes "ǻë֮Ķ?";
	mes "ձȽᾧ? , ";
	mes "ҪЩ.";
	next;
	mes "[ѧߵʦ]";
	mes "Ȼ, ҲҪЩ";
	mes ". һƿɫҩˮ5 Ӳ, 10 ë, 10 ";
	mes "ձȽᾧô?";
	next;
	switch(select("ð!:թ!:, лл.")) {
	case 1:
		mes "[ѧߵʦ]";
		mes "ĳɹ";
		mes "Ҵʲô?";
		mes "Ӳ, ë, ǽձȽᾧ?";
		next;
		switch(select("Ӳ:ձȽᾧ:ë:ȡ")) {
		case 1: callfunc "F_PotExchange",935,5;
		case 2: callfunc "F_PotExchange",909,10;
		case 3: callfunc "F_PotExchange",914,10;
		case 4:
			mes "[ѧߵʦ]";
			mes "ð~";
			mes "û.";
			close;
		}
	case 2:
		mes "[ѧߵʦ]";
		mes "թ...?";
		mes "㿴Щг۵";
		mes ", Ҳ㱻թ, ò!";
		mes "ҹ.";
		close;
	case 3:
		mes "[ѧߵʦ]";
		mes "ð, û.";
		mes "ıĻ, .";
		mes "һһֱ.";
		mes "ټ.";
		close;
	}
}

morocc,180,259,3	script	ѧߵʦ#morroc	85,{
	if (MaxWeight - Weight < 6301 || checkweight(1201,1) == 0) {
		mes "[Merchant]";
		mes "[ѧߵʦ]";
		mes "!";
		mes "ǳ?";
		mes "̫ණ!";
		mes "ðһЩŵֿ~";
		close;
	}
	mes "[ѧߵʦ]";
	mes "!";
	mes "ûռһЩӲ";
	mes "ǻë֮Ķ?";
	mes "ձȽᾧ? , ";
	mes "ҪЩ.";
	next;
	mes "[ѧߵʦ]";
	mes "Ȼ, ҲҪЩ";
	mes ". һƿɫҩˮ5 Ӳǿ, 7 ë, 10";
	mes "ձȽᾧô?";
	next;
	switch(select("ð!:թ!:, лл.")) {
	case 1:
		mes "[ѧߵʦ]";
		mes "ĳɹ.";
		mes "Ҵʲô?";
		mes ", ë, ǽձȽᾧ?";
		mes "ĸ?";
		next;
		switch(select(":ë:ձȽᾧ:ȡ")) {
		case 1: callfunc "F_PotExchange",935,5;
		case 2: callfunc "F_PotExchange",916,7;
		case 3: callfunc "F_PotExchange",909,10;
		case 4:
			mes "[ѧߵʦ]";
			mes "ð~";
			mes "û.";
			close;
		}
	case 2:
		mes "[ѧߵʦ]";
		mes "թ...?";
		mes "㿴Щг۵";
		mes ", Ҳ㱻թ, ò!";
		mes "ҹ.";
		close;
	case 3:
		mes "[ѧߵʦ]";
		mes "ð, û.";
		mes "ıĻ, .";
		mes "һһֱ.";
		mes "ټ.";
		close;
	}
}

payon,200,134,5	script	ѧߵʦ#pay	85,{
	if (MaxWeight - Weight < 6301 || checkweight(1201,1) == 0) {
		mes "[Merchant]";
		mes "[ѧߵʦ]";
		mes "!";
		mes "ǳ?";
		mes "̫ණ!";
		mes "ðһЩŵֿ~";
		close;
	}
	mes "[ѧߵʦ]";
	mes "!";
	mes "ûռһЩ֮";
	mes "Ķ?";
	mes "ձȽᾧ? , ";
	mes "ҪЩ.";
	next;
	mes "[ѧߵʦ]";
	mes "Ȼ, ҲҪЩ";
	mes "Ʒ. һƿɫҩˮ6 , 10 ձȽᾧô?";
	next;
	switch(select("ð!:թ!:, лл.")) {
	case 1:
		mes "[ѧߵʦ]";
		mes "ôҴʲô.";
		mes ", ǽձȽᾧ?";
		mes "ʲôϲ?";
		next;
		switch(select(":ձȽᾧ:ȡ")) {
		case 1: callfunc "F_PotExchange",902,6;
		case 2: callfunc "F_PotExchange",909,10;
		case 3:
			mes "[ѧߵʦ]";
			mes "ð~";
			mes "û.";
			close;
		}
	case 2:
		mes "[ѧߵʦ]";
		mes "թ...?";
		mes "㿴Щг۵";
		mes ", Ҳ㱻թ, ò!";
		mes "ҹ.";
		close;
	case 3:
		mes "[ѧߵʦ]";
		mes "ð, û.";
		mes "ıĻ, .";
		mes "һһֱ.";
		mes "ټ.";
		close;
	}
}

aldebaran,152,63,5	script	ѧߵʦ#alde	85,{
	if (MaxWeight - Weight < 6301 || checkweight(1201,1) == 0) {
		mes "[Merchant]";
		mes "[ѧߵʦ]";
		mes "!";
		mes "ǳ?";
		mes "̫ණ!";
		mes "ðһЩŵֿ~";
		close;
	}
	mes "[ѧߵʦ]";
	mes "!";
	mes "ûռһЩ";
	mes "ǻë֮Ķ?";
	mes "ձȽᾧ? , ";
	mes "ҪЩ.";
	next;
	mes "[ѧߵʦ]";
	mes "Ȼ, ҲҪЩ";
	mes "Ʒ. һƿɫҩˮ1 , 7 ë, 10ձȽᾧô?";
	next;
	switch(select("ð!:թ!:, лл.")) {
	case 1:
		mes "[ѧߵʦ]";
		mes "ôҴʲô?";
		mes "ë?";
		mes "?";
		mes "ǽձȽᾧ?";
		mes "ʲô?";
		next;
		switch(select(":ë:ձȽᾧ:ȡ")) {
		case 1: callfunc "F_PotExchange",955,1;
		case 2: callfunc "F_PotExchange",916,7;
		case 3: callfunc "F_PotExchange",909,10;
		case 4:
			mes "[ѧߵʦ]";
			mes "ð~";
			mes "û.";
			close;
		}
	case 2:
		mes "[ѧߵʦ]";
		mes "թ...?";
		mes "㿴Щг۵";
		mes ", Ҳ㱻թ, ò!";
		mes "ҹ.";
		close;
	case 3:
		mes "[ѧߵʦ]";
		mes "ð, û.";
		mes "ıĻ, .";
		mes "һһֱ.";
		mes "ټ.";
		close;
	}
}

geffen,173,88,5	script	ѧߵʦ#geff	85,{
	if (MaxWeight - Weight < 6301 || checkweight(1201,1) == 0) {
		mes "[Merchant]";
		mes "[ѧߵʦ]";
		mes "!";
		mes "ǳ?";
		mes "̫ණ!";
		mes "ðһЩŵֿ~";
		close;
	}
	mes "[ѧߵʦ]";
	mes "!";
	mes "ûռһЩǻ";
	mes "ǳ֮Ķ?";
	mes "ձȽᾧ? , ";
	mes "ҪЩ.";
	next;
	mes "[ѧߵʦ]";
	mes "Ȼ, ҲҪЩ";
	mes "Ʒ. һƿɫҩˮ5 , 6 , 10 ձȽᾧô?";
	next;
	switch(select("ð!:թ!:, лл.")) {
	case 1:
		mes "[ѧߵʦ]";
		mes "ôҴʲô?";
		mes ", , ǽձȽᾧ?";
		mes "ʲô?";
		next;
		switch(select("::ձȽᾧ:ȡ")) {
		case 1: callfunc "F_PotExchange",935,5;
		case 2: callfunc "F_PotExchange",915,6;
		case 3: callfunc "F_PotExchange",909,10;
		case 4:
			mes "[ѧߵʦ]";
			mes "ð~";
			mes "û.";
			close;
		}
	case 2:
		mes "[ѧߵʦ]";
		mes "թ...?";
		mes "㿴Щг۵";
		mes ", Ҳ㱻թ, ò!";
		mes "ҹ.";
		close;
	case 3:
		mes "[ѧߵʦ]";
		mes "ð, û.";
		mes "ıĻ, .";
		mes "һһֱ.";
		mes "ټ.";
		close;
	}
}

function	script	F_PotExchange	{
	if (countitem(getarg(0)) < getarg(1)) {
		mes "[ѧߵʦ]";
		mes ", С.";
		mes ""+getitemname(getarg(0))+"?";
		mes "ӦҪҵ";
		mes ""+getitemname(getarg(0))+"!";
		close;
	}
	else {
		mes "[ѧߵʦ]";
		mes "ð, ҿж";
		mes ""+getitemname(getarg(0))+". ";
		mes "....";
		next;
		mes "[ѧߵʦ]";
		mes "һ";
		mes "" + countitem(getarg(0)) + " "+getitemname(getarg(0))+".";
		mes "ܸ";
		mes "" + (countitem(getarg(0))/getarg(1)) + " ƿɫҩˮ.";
		next;
		mes "[ѧߵʦ]";
		mes "ô?";
		mes "Ҫ?";
		next;
		if (select(".:.") == 1) {
			mes "[ѧߵʦ]";
			mes "Ӧú";
			mes "֪Щ"+getitemname(getarg(0))+"";
			mes "Իٺɫҩˮ˰?";
			mes "?";
			next;
			mes "[ѧߵʦ]";
			mes "ô, һοԸ";
			mes " 1~100";
			mes "ƿĺɫҩˮ.";
			mes "ı.";
			mes "'0'ȡ.";
			next;
			while(1) {
				input .@input,0,101;
				if (.@input == 0) {
					mes "[ѧߵʦ]";
					mes "ʲô...?";
					mes "ΪʲôҪ˷Ѿĸҽ̸?";
					mes "˵, ô?";
					mes ", Ѿ!";
					close;
				}
				else if (.@input > 100) {
					mes "[ѧߵʦ]";
					mes "Ҳһθ㳬100 ƿĺ";
					mes "ɫҩˮ. ԰.";
					mes "";
					mes "100.";
					next;
				}
				else {
					break;
				}
			}
			set .@put_out_item,.@input * getarg(1);
			if (countitem(getarg(0)) < .@put_out_item) {
				mes "[ѧߵʦ]";
				mes ", ֺȷ. ټһܽ׵ĺɫҩˮ.";
				close;
			}
			mes "[ѧߵʦ]";
			mes "!";
			mes "Ҹոĺɫҩˮ, ";
			mes "ǿǷǳ. лл, Ľ~";
			delitem getarg(0),.@put_out_item; //Shell
			getitem 501,.@input; //Red_Potion
			close;
		}
		mes "[ѧߵʦ]";
		mes "~";
		mes "ð.";
		mes "ðռ˵, ɫ";
		mes "ҩˮѵû?";
		mes "ɶ?";
		close;
	}
}

//============================================================ 
// Old changelog
//============================================================ 
//= 1.1 Made it as a function. U can add your own Merchs [Lupus]
//= 1.1a Fixed item select [KarLaeda]
//============================================================ 
