may try something like this
prontera,155,181,5 script Sample 757,{
for (.@stat = bStr; .@stat <= bLuk; .@stat++)
.@param[.@stat - bStr] = readparam(.@stat);
mes "Select the stats to reset to 1.";
do {
.@menu$ += "Str - "+ .@param[0] + ":";
.@menu$ += "Vit - "+ .@param[1] + ":";
.@menu$ += "Int - "+ .@param[2] + ":";
.@menu$ += "Agi - "+ .@param[3] + ":";
.@menu$ += "Dex - "+ .@param[4] + ":";
.@menu$ += "Luk - "+ .@param[5] + ":";
.@menu$ += "Reset";
.@i = select(.@menu$);
.@param[.@i] = 1;
} while (.@i <= 6);
resetstatus;
for (.@stat = bStr; .@stat <= bLuk; .@stat++) {
while (readparam(.@stat) < .@param[.@stat - bStr])
statusup .@stat;
}
end;
}