function	script	timel	{
	set .@left, getarg(0);
	if ( .@left <= 0 ) return getarg(0);
	set .@day, .@left / 86400;
	set .@hour, .@left % 86400 / 3600;
	set .@min, .@left % 3600 / 60;
	set .@sec, .@left % 60;
	return ( ( .@day )?.@day +" day ":"" )+( ( .@day || .@hour )?.@hour +" hour ":"" )+( ( .@day == 0 && ( .@hour || .@min ) )?.@min +" min ":"" )+( ( .@day || .@hour )?"":.@sec +" sec" );
}

//By Skorm
//spoilbox v3.8
-	script	Royal_Chest	-1,{
end;

OnMVPKilled:
getmapxy .map$, .x, .y, 0; set .a,0; set .b,0;
	set .id,	atoi(strnpcinfo(2));
	set .@mid,	.mvpid[.id];
	set .@ar$,	".mob"+.@mid;
	set .@len,	getarraysize(getd(.@ar$));
	set .@inf,	getmonsterinfo(.@mid,22);
	if(.@len){
		for(set .@u,1; .@u<.@len;set .@u,.@u+2 ) {
			set .@itm, getd(.@ar$+"["+(.@u-1)+"]");
			set .@typ, getiteminfo(.@itm,2);
			set .@btflg, (getbattleflag(.gbfid$[.@typ]+((.@inf)?"_boss":""))/1000);
			set .@itmrt, getd(.@ar$+"["+.@u+"]");
			query_sql("SELECT ROUND("+.@itmrt+"*("+.@btflg+"/100));",.@rte);
			if(!.@rte) set .@rte,1;
			if(((.@rte<=10000)?((rand(1,10000/.@rte)==1)?1:0):1)) {
				set .drops[.@b],.@itm;
				set .droprs[.@b],.@rte;
				set .@b,.@b+1;
			}
		}
	} else { end; }
	if(strcharinfo(1)==""){ goto Alone; }
	deletearray $@partymemberaid[0],128;
	getpartymember getcharid(1),1;
	getpartymember getcharid(1),2;
	set .@count, $@partymembercount; set .count,0;
	copyarray .@party[0],$@partymemberaid[0],.@count;
	copyarray .@cparty[0],$@partymembercid[0],.@count;
	for( set .@i,0; .@i < .@count; set .@i,.@i +1 ) {
		if(isloggedin(.@party[.@i],.@cparty[.@i])){
			getmapxy(.@map$,.@x,.@y,0,rid2name(.@party[.@i]));
			if(.@map$==strcharinfo(3)) set .@p,.@p+1;
			set .party[.count],.@party[.@i];
			set .count, .count +1 ;
		}
	}
	if(.@p<2||.count<2){ goto Alone; }
	movenpc strnpcinfo(0), .x, .y;
	
restart:
	if(.a>=getarraysize(.party)) goto Lootz;
	if(attachrid(.party[.a])) {
		setnpctimer 0; attachnpctimer(rid2name(.party[.a])); startnpctimer; showdigit .tlimit,3;
	}
	set .loop, .tlimit;
	while ( .loop ) {
		delwaitingroom strnpcinfo(0);
		waitingroom callfunc("timel", .loop ), 0;
		set .loop, .loop -1;
		if(attachrid(.party[.a])) {
			sleep 475;
		} else {
			if(.a<.count) {
				npctalk "Party Member disconnected!";
				while(.b<getarraysize(.drops)){
					setd ".partyroll"+.b+"["+.a+"]",0;
					set .b,.b+1;
				}
				set .a,.a+1;
			}
			goto restart;
		}
	}
	if(.a<.count){
		if(attachrid(.party[.a])) npctalk rid2name(.party[.a])+" has taken to long!";
		for (set .@i,0; .@i < getarraysize(.party); set .@i,.@i+1){
			detachrid;
			if(attachrid(.party[.@i])){
				getmapxy .@map$, .@x, .@y, 0;
				warp .@map$,.@x,.@y;
			}
		}
		while(.b<getarraysize(.drops)){
			setd ".partyroll"+.b+"["+.a+"]",0;
			set .b,.b+1;
		}
		set .a,.a+1;
		goto restart;
	}
	end;
	
OnTimer1000:
	while(.a<.count){
		detachrid;
		if(attachrid(.party[.a])) {
			set .b,0;
			mes "[^0000FFRoyal Chest^000000]"; mes "Select from the menu below to distribute the item.";
			while(.b<getarraysize(.drops)) {
				if((playerattached())&&strcharinfo(3)==.map$) {
					L_lo: if(.droprs[.b]>.ratelimit&&.ratelimit>0) { setd ".partyroll"+.b+"["+.a+"]",0; }
					else { select("============(^0000FF"+getitemname(.drops[.b])+"^000000)===============:-Roll:-Pass"); if(!((@menu)-1)||@menu>3) goto L_lo; 
					if(@menu==2){ setd ".partyroll"+.b+"["+.a+"]",rand(100); npctalk strcharinfo(0)+" rolled a ["+getd(".partyroll"+.b+"["+.a+"]")+"] on "+getitemname(.drops[.b])+"."; dispbottom "You rolled a ["+getd(".partyroll"+.b+"["+.a+"]")+"] on "+getitemname(.drops[.b])+"."; } else { setd ".partyroll"+.b+"["+.a+"]",0; npctalk strcharinfo(0)+" passed a on "+getitemname(.drops[.b])+"."; dispbottom "You passed a on "+getitemname(.drops[.b])+"."; } }
					set .loop, .tlimit;
				}
				set .b,.b+1;
				if(.b>=getarraysize(.drops)) close2;
			}
		} else {
			while(.b<getarraysize(.drops)) {
				setd ".partyroll"+.b+"["+.a+"]",0;
				set .b,.b+1;
			}
		}
		set .a,.a+1;
	}
	end;
	
Lootz:
	//Find Highest Bawler.
	for (set .i,0; .i < getarraysize(.party); set .i,.i+1){
		for(set .s,0; .s < getarraysize(.drops); set .s,.s+1){
			if(getd(".partyroll"+.s+"["+.i+"]")>getd(".wpartyroll"+.s)) { setd ".wpartyroll"+.s,getd(".partyroll"+.s+"["+.i+"]"); setd ".wrid"+.s,.party[.i];  }
		}
	}
	
	//Distribute Prize.
	for(set .s,0; .s < getarraysize(.drops); set .s,.s+1){
		detachrid;
		if(getd(".wpartyroll"+.s) && attachrid(getd(".wrid"+.s))) {
			npctalk strcharinfo(0)+" won ["+getitemname(.drops[.s])+"].";
			getitem .drops[.s],1;
		} else { makeitem .drops[.s],1,.map$,.x,.y; }
	}
	
	stopnpctimer;
	delwaitingroom strnpcinfo(0);
	movenpc strnpcinfo(0), 0,0;
	end;
	
Alone:
	for(set .@s,0; .@s < getarraysize(.drops); set .@s,.@s+1){
		getitem .drops[.@s],1;
	}
	delwaitingroom strnpcinfo(0);
	movenpc strnpcinfo(0), 0,0;
	end;
	
OnInit:

	//=-=-=-=-=-=Configuration=-=-=-=-=-=-=
	//Example Poring Apple, 10%, Apple, 1.5%....etc
	setarray .mob1002, 909, 7000 , 1202 , 100000 , 938 , 100000 ,512 , 100000 ,713 , 100000 , 512 , 100000, 619, 100000, 4001, 300000; // Mob List 10000=100% can support up to 128 values
	setarray .mvpid[0], 1002; // MVP ids make sure each id corresponds to the duplicated npcs and maps.
	set .tlimit,60; // In half seconds so 60 is 30 seconds. (To keep up with digital counter.)
	set .ratelimit,0; // Ignores items dropped with rates higher then this value. 0 = off 10000 = 100%
	//=-=-=-=-=-=-=Skorm=-=-=-=-=-=-=-=-=-=
	setarray .gbfid$[0],
		"item_rate_heal" , "1"             , "item_rate_use" , "item_rate_common", "item_rate_equip",
		"item_rate_equip", "item_rate_card", "item_rate_use" , "item_rate_equip" , "9"              ,
		"item_rate_equip", "item_rate_use" , "12"            , "13"              , "14"             ,
		"15"             , "16"            , "17"            , "item_rate_use";
	end;
}

prt_fild08	mapflag	nomvploot
 
prt_fild08,50,50,1,1	monster	Lootz	1002,1,360000,360000,"Royal Chest#0_mvp::OnMVPKilled"
 	
prt_fild08,0,0,0	duplicate(Royal_Chest)	Royal Chest#0_mvp	801