function	script	Horadic	{
	setarray .R1[0],29101,1,29001,3;		//Seal of Might
	setarray .R2[0],29102,1,29002,3;		//Seal of Alacrity

	mes "[Horadic Cube]";
	for(set .@i,1; getd(".R"+.@i+"[0]"); set .@i,.@i+1)
	  for(set .@j,2; .@j<getarraysize(getd(".R"+.@i)); set .@j,.@j+2) {
	   if (countitem(getd(".R"+.@i+"["+.@j+"]")) < getd(".R"+.@i+"["+(.@j+1)+"]")) break;
	   if (!getd(".R"+.@i+"["+(.@j+2)+"]")) set .@R$[getarraysize(.@R$)],".R"+.@i; }
	if (!getarraysize(.@R$)) { mes "There is no item to combine"; close; }
	mes "Select your reward.";
	set .@menu$,"";
	for(set .@i,0; .@i<getarraysize(.@R$); set .@i,.@i+1)
	  set .@menu$, .@menu$+getitemname(getd(.@R$[.@i]+"[0]"))+":";
	set .@menu$, .@menu$+"^777777Cancel^000000";
	set .@c, select(.@menu$)-1;
	if (.@c==getarraysize(.@R$)) { mes "...so be it."; close; }
	for(set .@i,2; .@i<getarraysize(getd(.@R$[.@c])); set .@i,.@i+2)
	  delitem getd(.@R$[.@c]+"["+.@i+"]"), getd(.@R$[.@c]+"["+(.@i+1)+"]");
	getitem getd(.@R$[.@c]+"[0]"), getd(.@R$[.@c]+"[1]");
	specialeffect2 441;
	mes "Here's your ^0055FF"+getitemname(getd(.@R$[.@c]+"[0]"))+"^000000, young one.";
	close;
}