Can you continue this? Help

[Microsoft]

prontera,146,237,4	script	Chii	716,{

	if (Chii == 0) {
		mes "[^07ad14Chii^000000]";
		mes "Silver bells,";
		mes "silver bells ...";
		mes "it's christmas time in the city";
		next;
		emotion e_ho;
		mes "[^07ad14Chii^000000]";
		mes "Oh~ Hi there!";
		mes "can you feel the essence";
		mes "of christmas here?";
		mes "everything is totally amazing!";
		mes "and i reeeally luv it!!!";
		next;
		mes "[^07ad14Chii^000000]";
		mes "Although things are great";
		mes "seeing other people's smile";
		mes "but, facing also the";
		mes "fact that i can't be with ";
		mes "my partner right now";
		mes "is the saddest part";
		next;
		mes "[^07ad14Chii^000000]";
		mes "i wish that she's with me";
		mes "and hoping that Santa would hear";
		mes "all my wishes";
		next;
		emotion e_omg;
		mes "[^07ad14Chii^000000]";
		mes "Ooops! speaking about santa,";
		mes "have you noticed";
		mes "why people talking 'bout him?";
		next;
		menu "I dunno, why?",TEST1,"lol, don't care",TEST2;
			TEST1:
				mes "[^07ad14Chii^000000]";
				mes "Well, i won't be telling secrets";
				mes "to anyone i don't even know";
				mes "especially to you";
				next;
				mes "[^07ad14Chii^000000]";
				mes "BUUUUUUUT!";
				mes "if you really want to know";
				mes "there are conditions";
				mes "before i will tell you this";
				next;
				mes "[^07ad14Chii^000000]";
				mes "The next time you'll talk to me";
				mes "just bring";
				mes "5 Lunatic cards";
				mes "5 Poring cards";
				mes "5 Fabre cards";
				set Chii,4;
				close;
				
			TEST2:
				mes "[^07ad14Chii^000000]";
				mes "Okay! Get lost!";
				mes "i don't need you!";
				next;
				warp "xmas_fild01",0,0;
				close;
	}	
	if (Chii == 4) {
		mes "[^07ad14Chii^000000]";
		mes "Hello! You're back!~";
		mes "so are you ready to know";
		mes "what is going on right now?";
		next;
		switch(select("Please tell me:I better go")) {
			case 1:
			if ((countitem(4006) > 4) && (countitem(4001) > 4) && (countitem(4002) > 4)) {
				mes "[^07ad14Chii^000000]";
				mes "That's great! You did it";
				mes "so, here it is,";
				mes "but please don't tell anyone about this okay?";
				delitem 4006,5;
				delitem 4001,5;
				delitem 4002,5;
				next;
				mes "[^07ad14Chii^000000]";
				mes "People are talking about Santa";
				mes "because rumors says";
				mes "that he's coming to town";
				mes "and he'll be giving gifts";
				mes "to those who have his hat";
				next;
				mes "[^ff8f1a" + strcharinfo(0) + "^000000]";
				mes "What kind of hat is that?";
				mes "and where can i find that one";
				next;
				mes "[^07ad14Chii^000000]";
				mes "Rumors says that";
				mes "there's an old man";
				mes "living on payon who makes";
				mes "that hat";
				next;
				mes "[^07ad14Chii^000000]";
				mes "But all i know is, he only accepts";
				mes "requests as soon as you bring";
				mes "with you his precious stone";
				next;
				mes "[^07ad14Chii^000000]";
				mes "And people says that";
				mes "his precious stone";
				mes "can only be found at";
				mes "the seven desert of morocc";
				mes "and its veeeery rare";
				next;
				mes "[^07ad14Chii^000000]";
				emotion e_heh;
				mes "And guess what?";
				mes "i think i found iiiiit!";
				mes "nyaaaaaaaahaha!";
				mes "do you want this too?";
				next;
				mes "[^07ad14Chii^000000]";
				mes "Nah! You can have this";
				mes "but its not for free";
				mes "maybe if you can bring me";
				mes "the items i need too";
				next;
				mes "[^07ad14Chii^000000]";
				mes "Here's all i need";
				mes "200 red gemstone";
				mes "200 yellow gemstone";
				mes "200 blue gemstone";
				mes "and 150 battle badges";
				next;
				mes "[^07ad14Chii^000000]";
				mes "Just come back";
				mes "here if you have it all";
				mes "Byeeeee!";
				set Chii,2;
				close;
			}
		mes "[^07ad14Chii^000000]";
		mes "Oh! i thought";
		mes "5 Lunatic cards,";
		mes "5 Poring cards,";
		mes "and 5 Fabre cards are already with you";
		emotion e_swt;
		close;
			case 2:
			mes "[^07ad14Chii^000000]";
			mes "Naah! if you change";
			mes "your mind,";
			mes "you can just find me here";
			next;
			mes "[^07ad14Chii^000000]";
			mes "laa la laaa";
			mes "lalalal laaaaa";
			mes "...";
			emotion e_ho;
			close;
			}
	}
	if (Chii == 2) {
		mes "[^07ad14Chii^000000]";
		mes "Are you ready to have";
		mes "this precious stone";
		mes "and make that rare hat?";
		next;
		if ((countitem(7773) > 99) && (countitem(716) > 199) && (countitem(715) > 199) && (countitem(717) > 199)){
			mes "[^07ad14Chii^000000]";
			mes "Here you go...";
			mes "please don't lost it okay?";
			next;
			delitem 7773,100;
			delitem 716,200;
			delitem 715,200;
			delitem 717,200;
			getitem 6084,1;
			specialeffect2 852;
			mes "[^07ad14Chii^000000]";
			mes "Before you go,";
			mes "let me remind you";
			mes "always bring that stone";
			mes "coz he won't make hats";
			mes "if you don't have his stone";
			set Chii,3;
			emotion e_no1;
			close;
		}
	mes "[^07ad14Chii^000000]";
	mes "Ooops!~";
	mes "i thought you bring";
	mes "your items with you";
	next;
	mes "[^07ad14Chii^000000]";
	mes "nah~";
	mes "next time, always check your items";
	mes "before talking to me";
	mes "coz i find hard";
	mes "counting all your stuff";
	close;
	}
	
	if (Chii == 3){
		mes "[^07ad14Chii^000000]";
		mes "You can find that old man";
		mes "at payon and his name is";
		mes "Carlo and he was known";
		mes "to be the greatest blacksmith";
		mes "at his time";
		next;
		mes "[^07ad14Chii^000000]";
		mes "Well,";
		mes "good luck to your journey";
		mes "til we meet our destiny again~";
		close;
	}
}
payon,138,146,6	script	Carlo	765,{
	if (Carlo == 0) {
	if (countitem(6084) > 0){
		mes "[Carlo]";
		mes "That's what im looking for!";
		mes "finally!";
		mes "talk to me later kid,";
		delitem 6084,1;
		set Carlo,1;
		close;
	}
	emotion e_swt;
	mes "[Carlo]";
	mes "...";
	next;
	mes "[Carlo]";
	mes ".......";
	next;
	mes "[Carlo]";
	mes ".....";
	next;
	emotion e_wah;
	mes "[Carlo]";
	mes "I lost";
	mes "my very precious stone";
	close;
	}
	if (Carlo == 1){
		mes "[Carlo]";
		mes "So you're the one who";
		mes "founded my lost";
		mes "precious stone";
		mes "so, what is your name?";
		next;
		input $name$;
		mes "[Carlo]";
		mes "Ah,";
		mes "so you are ^FF0000"+$name$+"^000000";
		mes "nice to meet you";
		next;
		mes "[Carlo]";
		mes "I am known to be";
		mes "the greatest blacksmith";
		mes "i can forge weapons";
		mes "and armor up to +20";
		mes "before at my times";
		next;
		mes "[Carlo]";
		mes "But sad to say";
		mes "i can no longer carry my tools";
		mes "anymore so i can't do";
		mes "what i usually do before";
		next;
		mes "[Carlo]";
		mes "That's why,";
		mes "at this time";
		mes "i only make";
		mes "rare headgears";
		mes "by the way, why are you here?";
		next;
		switch(select("I'm looking for a hat:Shut up!")) {
			case 1:
				mes "[Carlo]";
				mes "Ooh!";
				mes "what hat are you";
				mes "looking for?";
				next;
				mes "[^FF0000" + strcharinfo(0) + "^000000]";
				mes "A hat that looks";
				mes "like a Santa Hat";
				mes "but it has two heads";
				mes "at the bottom of it";
				next;
				mes "[Carlo]";
				mes "Aha! You're looking for";
				mes "a Twin pompom hat?";
				mes "i have lots of collection";
				mes "of that hat here";
				next;
				mes "[Carlo]";
				mes "I can give you 2";
				mes "of it but, if only";
				mes "you can pass my challenge";
				mes "to you";
				next;
				mes "[Carlo]";
				mes "I will give you time";
				mes "to decide";
				mes "so come back to me";
				mes "when you are ready";
				close;
			case 2:
				mes "[Carlo]";
				mes "How dare you";
				mes "to talk to me";
				mes "that way!!!";
				mes "taste my fist!!!";
				specialeffect 650;
				sleep2 500;
				specialeffect 651;
				sleep2 500;
				specialeffect 260;
				sleep2 1000;
				specialeffect 408;
				sleep2 100;
				specialeffect 510;
				sleep2 100;
				atcommand "@nuke "+strcharinfo(0);
				emotion e_gg;
				close;
		}
	}
}

Can anyone continue this? its for a Christmas chain quest npc , I need around 5 more NPC's and the last one should be santa he'll give out a prize item ID: 21108 and 5381 Hope you could continue this. Thanks

[Microsoft]

Was hoping for a good reply lol