prontera,146,80,0	script	Monkey	MIME_MONKEY,{
	if (stoptheapes == 0) {
		mes "[" + strcharinfo(PC_NAME) + "]";
		mes "... ... ... ...";
		next;
		mes "[???]";
		mes "Human! I am here to ask you some help.";
		next;
		if (BaseLevel < 65) {
			mes "[???]";
			mes "... ... ...";
			next;
			mes "[???]";
			mes "I am the famous monk, Xuan Zang of the Chinese Tang Dynasty";
			next;
			mes "[Xuan Zang]";
			mes "but I think you're not strong enough to help us.";
			mes "Go and train more!";
			next;
			mes "[Xuan Zang]";
			mes "Over lvl 65 human will be fine for us.";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		mes "[???]";
		mes "I am the famous monk, Xuan Zang..";
		mes "I need your help!";
		next;
		if (select("Just ignore it.", "Let's help him.") == 1) {
			mes "[" + strcharinfo(PC_NAME) + "]";
			mes "Talking monkey...";
			next;
			mes "[" + strcharinfo(PC_NAME) + "]";
			mes "Now I've seen everything.";
			next;
			mes "[Xuan Zang]";
			mes "Screaming...Screaming...";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		mes "[" + strcharinfo(PC_NAME) + "]";
		mes "What can I help you?";
		next;
		mes "[Xuan Zang]";
		mes "I notice in few days lot of new adventures has arrived that's good news.";
		next;
		mes "[Xuan Zang]";
		mes "But we also have one problems, the population of apes in midgard are also increasing. I see you strong enough to help us suppresed the apes population, why don't you lend your strenght?";
		next;
		mes "[Xuan Zang]";
		mes "REMEMBER you can only take 1 quest. Choose which apes you wanted to kill. Different apes give different reward, don't push yourself kid.";
		next;
		switch(select(
			 "- ^777777Yoyo^000000:"+
			 "- ^777777Choco^000000:"+
			 "- ^777777Wootan Shooter^000000:"+
			 "- ^777777Wootan Figher^000000:"+
	 		 "- ^777777Close^000000"
		)) {
		case 1: 
			mes "[Xuan Zang]";
			mes "Help us kill ^FF0000400 Yoyo^000000";
			mes "Reward:";
			mes "1x ^28bf00Monkey Circlet^000000";
			mes "Do you wish to proceed?";
			next;
			if (select("No, thanks", "Yes, I'll take this") == 2) {
				mes "[Xuan Zang]";
				set stoptheapes,1;
				setquest 30001;
				mes "I will be waiting for you!";
				donpcevent "Monkey::OnDisable";
				close;
			}
			mes "[Xuan Zang]";
			mes "Okay let me know if you can decide already.";
			close;
		case 2:
			mes "[Xuan Zang]";
			mes "Help us kill ^FF000014 Choco^000000";
			mes "Reward:";
			mes "1x ^28bf00Costume Fleece Hat^000000";
			mes "Do you wish to proceed?";
			next;
			if (select("No, thanks", "Yes, I'll take this") == 2) {
				mes "[Xuan Zang]";
				set stoptheapes,1;
				setquest 30002;
				mes "I will be waiting for you!";
				donpcevent "Monkey::OnDisable";
				close;
			}
			mes "[Xuan Zang]";
			mes "Okay let me know if you can decide already.";
			close;
		case 3:
			mes "[Xuan Zang]";
			mes "Help us kill ^FF0000400 Wootan Shooter^000000";
			mes "Reward:";
			mes "1x ^28bf00Costume Requiem Crown of Light and Dark^000000";
			mes "Do you wish to proceed?";
			next;
			if (select("No, thanks", "Yes, I'll take this") == 2) {
				mes "[Xuan Zang]";
				set stoptheapes,1;
				setquest 30003;
				mes "I will be waiting for you!";
				donpcevent "Monkey::OnDisable";
				close;
			}
			mes "[Xuan Zang]";
			mes "Okay let me know if you can decide already.";
			close;
		case 4:
			mes "[Xuan Zang]";
			mes "Help us kill";
			mes "^FF0000400 Wootan Fighter^000000";
			mes "^FF0000400 Wootan Shooter^000000";
			mes "Reward";
			mes "1x ^28bf00Hockey Mask^000000";
			mes "Do you wish to proceed?";
			next;
			if (select("No, thanks", "Yes, I'll take this") == 2) {
				mes "[Xuan Zang]";
				set stoptheapes,1;
				setquest 30004;
				mes "I will be waiting for you!";
				donpcevent "Monkey::OnDisable";
				close;
			}
			mes "[Xuan Zang]";
			mes "Okay let me know if you can decide already.";
			close;
		default:
			close;
		}
		end;
	}
	else if (stoptheapes == 1) {
		if (questprogress(30001,HUNTING) == 1) {
			mes "[Xuan Zang]";
			mes "My hero, are you going to starve us to death?";
			mes "Go and kill those ^FF0000400 Yoyo^000000!";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		else if (questprogress(30001,HUNTING) == 2) {
			mes "[Xuan Zang]";
			mes "I think I saw you a while ago, but now you became our hero...";
			next;
			mes "[Xuan Zang]";
			mes "It was really lucky for me to ask you a favor.";
			next;
			// checking weight
			if ((MaxWeight - Weight) < 500) {
				mes "[Xuan Zang]";
				mes "I'd like to give you a reward, our hero. But your bag is now too heavy.";
				close2;
				donpcevent "Monkey::OnDisable";
				end;
			}
			else if (checkweight(Monkey_Circlet,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[Xuan Zang]";
			mes "ClassicRO Community, do you have any objection";
			mes "to give our hero, " + strcharinfo(PC_NAME) + "";
			mes "a Monkey Circlet which is one of our precious treasures?";
			next;
			mes "[Sounds from somewhere]";
			mes "...ko ko ka ka...";
			mes "kooooooooo~~~";
			mes "ko ko ka ka";
			next;
			mes "[Xuan Zang]";
			mes "Hmm, there is no objection.";
			next;
			mes "[Xuan Zang]";
			mes "I hearby give " + strcharinfo(PC_NAME) + ", our hero, this Monkey Circlet.";
			specialeffect(EF_MAPPILLAR2, AREA, playerattached());
			specialeffect(EF_BLESSING, AREA, playerattached());
			set stoptheapes,3;
			erasequest 30001;
			getitem Monkey_Circlet,1; //Monkey Circlet
			next;
			mes "[Xuan Zang]";
			mes "You are always welcome.";
			mes "Visit here at any time.";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		
		// Quest 2
		if (questprogress(30002,HUNTING) == 1) {
			mes "[Xuan Zang]";
			mes "My hero, are you going to starve us to death?";
			mes "Go and kill those ^FF000014 Choco^000000!";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		else if (questprogress(30002,HUNTING) == 2) {
			mes "[Xuan Zang]";
			mes "I think I saw you a while ago, but now you became our hero...";
			next;
			mes "[Xuan Zang]";
			mes "It was really lucky for me to ask you a favor.";
			next;
			// checking weight
			if ((MaxWeight - Weight) < 500) {
				mes "[Xuan Zang]";
				mes "I'd like to give you a reward, our hero. But your bag is now too heavy.";
				close2;
				donpcevent "Monkey::OnDisable";
				end;
			}
			else if (checkweight(C_Lamb_Hat1,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[Xuan Zang]";
			mes "ClassicRO Community, do you have any objection";
			mes "to give our hero, " + strcharinfo(PC_NAME) + "";
			mes "a Costume Lamb Hat which is one of our precious treasures?";
			next;
			mes "[Sounds from somewhere]";
			mes "...ko ko ka ka...";
			mes "kooooooooo~~~";
			mes "ko ko ka ka";
			next;
			mes "[Xuan Zang]";
			mes "Hmm, there is no objection.";
			next;
			mes "[Xuan Zang]";
			mes "I hearby give " + strcharinfo(PC_NAME) + ", our hero, this Costume Lamb Hat.";
			specialeffect(EF_MAPPILLAR2, AREA, playerattached());
			specialeffect(EF_BLESSING, AREA, playerattached());
			set stoptheapes,3;
			erasequest 30002;
			getitembound C_Lamb_Hat1,1,4; //Costume Lamb Hat
			next;
			mes "[Xuan Zang]";
			mes "You are always welcome.";
			mes "Visit here at any time.";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}

		// Quest 3
		if (questprogress(30003,HUNTING) == 1) {
			mes "[Xuan Zang]";
			mes "My hero, are you going to starve us to death?";
			mes "Go and kill those ^FF0000400 Wootan Shooter^000000!";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		else if (questprogress(30003,HUNTING) == 2) {
			mes "[Xuan Zang]";
			mes "I think I saw you a while ago, but now you became our hero...";
			next;
			mes "[Xuan Zang]";
			mes "It was really lucky for me to ask you a favor.";
			next;
			// checking weight
			if ((MaxWeight - Weight) < 500) {
				mes "[Xuan Zang]";
				mes "I'd like to give you a reward, our hero. But your bag is now too heavy.";
				close2;
				donpcevent "Monkey::OnDisable";
				end;
			}
			else if (checkweight(C_Requiem_Crown_of_Light_and_Dark,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[Xuan Zang]";
			mes "ClassicRO Community, do you have any objection";
			mes "to give our hero, " + strcharinfo(PC_NAME) + "";
			mes "a Costume Requiem Crown of Light and Dark which is one of our precious treasures?";
			next;
			mes "[Sounds from somewhere]";
			mes "...ko ko ka ka...";
			mes "kooooooooo~~~";
			mes "ko ko ka ka";
			next;
			mes "[Xuan Zang]";
			mes "Hmm, there is no objection.";
			next;
			mes "[Xuan Zang]";
			mes "I hearby give " + strcharinfo(PC_NAME) + ", our hero, this Costume Requiem Crown of Light and Dark.";
			specialeffect(EF_MAPPILLAR2, AREA, playerattached());
			specialeffect(EF_BLESSING, AREA, playerattached());
			set stoptheapes,3;
			erasequest 30003;
			getitembound C_Requiem_Crown_of_Light_and_Dark,1,4; //Costume Requiem Crown of Light and Dark
			next;
			mes "[Xuan Zang]";
			mes "You are always welcome.";
			mes "Visit here at any time.";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}


		// Quest 4
		if (questprogress(30004,HUNTING) == 1) {
			mes "[Xuan Zang]";
			mes "My hero, are you going to starve us to death?";
			mes "Go and kill those ^FF0000400 Wootan Fighter^000000 and ^FF0000400 Wootan Shooter^000000!";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}
		else if (questprogress(30004,HUNTING) == 2) {
			mes "[Xuan Zang]";
			mes "I think I saw you a while ago, but now you became our hero...";
			next;
			mes "[Xuan Zang]";
			mes "It was really lucky for me to ask you a favor.";
			next;
			// checking weight
			if ((MaxWeight - Weight) < 500) {
				mes "[Xuan Zang]";
				mes "I'd like to give you a reward, our hero. But your bag is now too heavy.";
				close2;
				donpcevent "Monkey::OnDisable";
				end;
			}
			else if (checkweight(Hockey_Mask,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[Xuan Zang]";
			mes "ClassicRO Community, do you have any objection";
			mes "to give our hero, " + strcharinfo(PC_NAME) + "";
			mes "a Hockey Mask which is one of our precious treasures?";
			next;
			mes "[Sounds from somewhere]";
			mes "...ko ko ka ka...";
			mes "kooooooooo~~~";
			mes "ko ko ka ka";
			next;
			mes "[Xuan Zang]";
			mes "Hmm, there is no objection.";
			next;
			mes "[Xuan Zang]";
			mes "I hearby give " + strcharinfo(PC_NAME) + ", our hero, this Costume Requiem Crown of Light and Dark.";
			specialeffect(EF_MAPPILLAR2, AREA, playerattached());
			specialeffect(EF_BLESSING, AREA, playerattached());
			set stoptheapes,3;
			erasequest 30004;
			getitem Hockey_Mask,1; //Hockey Mask
			next;
			mes "[Xuan Zang]";
			mes "You are always welcome.";
			mes "Visit here at any time.";
			close2;
			donpcevent "Monkey::OnDisable";
			end;
		}

	}
	else if (stoptheapes == 3) {
		mes "[Xuan Zang]";
		mes "All the players in midgard, praise " + strcharinfo(PC_NAME) + ", our eternal hero!";
		emotion e_thx;
		close2;
		donpcevent "Monkey::OnDisable";
		end;
	}
	end;

OnInit:
	setnpcdisplay "Monkey",MIME_MONKEY;
end;

OnEnable:
	setnpcdisplay "Monkey",4_M_KID2;
	end;

OnDisable:
	hideonnpc "Monkey";
	initnpctimer;
	end;

OnReset:
	setnpcdisplay "Monkey",MIME_MONKEY;
	hideoffnpc "Monkey";
	end;

OnTimer2000:
	donpcevent "Monkey::OnReset";
	stopnpctimer;
	end;

OnTouch:
	mes "There is a monkey. What should I do?";
	next;
	if (select("Throw it a stone.", "Have a conversation.") == 1) {
		donpcevent "Monkey::OnDisable";
		mes "Ouch~";
		close;
	}
	donpcevent "Monkey::OnEnable";
	if (stoptheapes > 0) {
		emotion e_dots,1;
		mes "[" + strcharinfo(PC_NAME) + "]";
		mes "It's so amazing to see";
		mes "the monkey which transforms itself.";
		close;
	}
	emotion e_omg,1;
	mes "[" + strcharinfo(PC_NAME) + "]";
	mes "Oh my.. the monkey transformed into a monk...";
	close;
}
