welgia,134,228,7	script	Homunculus Evolve Master	750,{
	mes "[Homunculus Master]";
	mes "Hi, I can ^000120evolve your homun^000000.";
	next;
	menu "^000090Evolve Mine Please^000000..",-, "Nevermind",M_DO;

	mes "[Homunculus Master]";
	mes "Are you sure you want to do this?";
	next;
	if(select("Evolve it:Cancel")==2) goto M_END;
	if(countitem(7227) < 100 || countitem(12040) < 15 || countitem(674) < 20 || gethominfo(1) != 6001 || gethominfo(1) != 6002 || gethominfo(1) != 6003 || gethominfo(1) != 6004 || gethominfo(1) != 6005 || gethominfo(1) != 6006 || gethominfo(1) != 6007 || gethominfo(1) != 6008 || gethominfo(1) != 6009 || gethominfo(1) != 6010 || gethominfo(1) != 6011 || gethominfo(1) != 6012 || gethominfo(1) != 6013 || gethominfo(1) != 6014 || gethominfo(1) != 6015 || gethominfo(1) != 6016) {
	mes "[Jan]";
	mes "Not enough items or you dont have a homunculus.";
	close;
	} else {
	mes "[Homunculus Master]";
	mes "Nice";
	mes "You got all what i needed";
	mes "I am going to chant now, please keep quiet";
	next;
	mes "[Homunculus Master]";
	mes "Abra cadabra, poof paph, HsoaS JAiSa hocuS pocuS";
	next;
	mes "[Homunculus Master]";
	mes "ashuhauh, Kuzuri Poof!";
	mes "Turn into an older homunculus";
	delitem 7227,100;
	delitem 12040,15;
	delitem 674,20;
	atcommand "@homfriendly 1000";
	homevolution;
	close;
}


M_DO:
	mes "[Homunculus Master]";
	mes "Okay, comeback when you need my";
	mes "Services(>^_^)>O";
	close;


M_END:
	mes "[Homunculus Master]";
	mes "See you...";
	emotion e_yawn;
	close;
}