prontera,148,166,6 script Rune Master 498,{
mes "[Rune Master]";
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 "You have much to learn..."; 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]");
mes "Here's your ^0055FF"+getitemname(getd(.@R$[.@c]+"[0]"))+"^000000, young one.";
close;
OnInit:
// Format: <reward ID>,<reward count>,<required ID>,<required count>{,...};
setarray .R1[0],5116,1,512,50,513,60;
setarray .R2[0],5075,1,514,2,515,54;
setarray .R3[0],531,1,512,1,713,1;
end;
}