- script item_swap -1,{
for(.@i = 0; .@i < .size; .@i++){
.@menu$ += "List " + (.@i+1) + ":";
}
mes "Select a list.";
next;
.@s = select(.@menu$) - 1;
explode(.@item$,.item_list$[.@s],",");
for(.@i = 0; .@i < getarraysize(.@item$); .@i++){
.@id = atoi(.@item$[.@i]);
.@item[.@i] = .@id;
if(countitem(.@id)){
.@temp[getarraysize(.@temp)] = .@id;
.@data$ += getitemname(.@id) + ":";
} else {
continue;
}
}
mes "Select the item you want to swap.";
next;
.@s = select(.@data$) - 1;
.@swap_id = .@temp[.@s];
.@index = inarray(.@item,.@swap_id);
for(.@i = 0; .@i < getarraysize(.@item); .@i++){
if(.@i == .@index) continue;
.@swap[getarraysize(.@swap)] = .@item[.@i];
.@swap$ += getitemname(.@item[.@i]) + ":";
}
mes "select the item you want to swap into.";
next;
.@s = select(.@swap$) - 1;
delitem .@swap_id,1;
getitem .@swap[.@s],1;
end;
OnInit:
setarray .item_list$,"501,502,503,504,505","506,507,508,509,510";
.size = getarraysize(.item_list$);
end;
}
Haven't tested this but pretty sure it will work..