// NPC Name must have a Number behind it.  ex Name#1 , Name#2,...

prontera,156,182,1	script	Chained Quest#1	100,{
function	ChainedQuest;
	if ( getd("Quest"+ strnpcinfo(2) +"today" ) != atoi( gettimestr("%Y%m%d", 9) ) ) {
		setd "Quest"+ strnpcinfo(2) +"today", atoi( gettimestr("%Y%m%d", 9) );
		setd "Quest"+ strnpcinfo(2), 0;
		setd "Quest"+ strnpcinfo(2) +"done", 0;
	}
	mes "I am a Chained Quest NPC, you can only redo the previous Quest after you have finished all of my Quests.";
	next;

	// Quest Setup :
	// ChainedQuest( Reward,Amount , Required Zeny, {Item1,Amount1,Item2,Amount2,...} );
	switch ( getd( "Quest"+strnpcinfo(2) ) ) {
		case 0: ChainedQuest( 7959,5, 1, 501,2);
		case 1: ChainedQuest( 7959,5, 1, 502,3);
		default:
			mes "Congratulation ,You have finished all the Quest i gave you, you may Re-Do if you want.";
			setd "Quest"+ strnpcinfo(2),0;
			setd "Quest"+ strnpcinfo(2) +"done", 1;

			if ( getd( "Quest"+ strnpcinfo(2) +"done" ) ) {
				getitem "Silver_Coin", 10;
			}else{
				getitem "Gold_Coin", 5;
			}
		close;
	}

OnPCLoadMapEvent:
	showevent 1,0;
	end;

function	ChainedQuest	{
	for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
		if( countitem( getarg( .@i ) ) < ( getarg( .@i + 1 )) ){
			mes "[ ^FF0000Part "+( getd( "Quest"+strnpcinfo(2) ) + 1 )+"^000000 ]";
			mes "^00FF00_______________________________^000000";
			mes "^FF0000Reward^000000 : "+getarg(1)+" x ^0000FF"+getitemname( getarg(0) )+"^000000";
			mes "^00FF00_______________________________^000000";
			mes "then bring me those items :";
			mes "^00FF00_______________________________^000000";
			mes ( Zeny < getarg(2) ? "^FF0000":"^0000FF" )+getarg(2)+" Zeny^000000";
			for( set .@a,3; getarg( .@a,0 ) != 0 ; set .@a,.@a + 2 ){
				mes (( countitem(getarg( .@a )) < ( getarg(.@a + 1 )) )? "^FF0000[ "+countitem(getarg(.@a))+" / "+(getarg(.@a+1)):"^0000FF[ "+getd( "Quest"+strnpcinfo(2) ) )+" ] "+getitemname(getarg(.@a))+"^000000 ";
				}
			close;
			}
		}
	if( Zeny < getarg( 2 ) ){
		mes "You required "+getarg( 2 )+" Zeny.";
		close;
		}
	mes "[ ^FF0000Part "+( getd( "Quest"+strnpcinfo(2) ) + 1 )+"^000000 ]";
	mes "Look's like you have collected all";
	mes "^FF0000_______________________________^000000";
	mes ( Zeny < getarg(2) ? "^FF0000":"^0000FF" )+getarg(2)+" Zeny^000000";
	for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
		mes "^FF0000"+getarg( .@i+1 )+" x ^0000FF "+getitemname( getarg( .@i ) )+"^000000";
		}
	next;
	if( select("^0000FFContinue^000000:Cancel") == 2 ){
		mes "Okay..as you wish ~ come back again when you do continue it.";
		close;
		}
	for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
		delitem getarg( .@i ),getarg( .@i + 1 );
		}
	set Zeny,Zeny - getarg( 2 );
	set getd( "Quest"+strnpcinfo(2) ),getd( "Quest"+strnpcinfo(2) ) + 1;
	mes "You will be rewarded with ";
	mes "^0000FF_______________________________^000000";
	mes "^FF0000"+getarg(1)+"^000000 x ^0000FF"+getitemname( getarg(0) )+"^000000";
	mes "^0000FF_______________________________^000000";

	if ( getd( "Quest"+ strnpcinfo(2) +"done" ) ) {
		getitem "Silver_Coin", 10;
	}else{
		getitem getarg(0),getarg(1);
	}
	close;
	}
}

prontera	mapflag	loadevent