アイテム売らないのはアイテムが重複してるからだから定期的にこれ実行してあげれば良さげ
今実験中だけどコメントアウトした部分ありで順調に動いてるよ
sub RemoveDuplication {#重複アイテム修復
my @tempname;
my $flag;
for ($i = 0; $i < @{$chars[$config{'char'}]{'inventory'}}; $i++) {
#$flag = 0;
for ($i2 = 0; $i2 < @{$chars[$config{'char'}]{'inventory'}}; $i2++) {
#print "$chars[$config{'char'}]{'inventory'}[$i]{'name'}= $tempname[$i2] \n";
if ( $tempname[$i2] eq $chars[$config{'char'}]{'inventory'}[$i]{'name'}){#$tempname[$i2]
print "$tempname[$i2] を削除\n";
splice(@{$chars[$config{'char'}]{'inventory'}}, $i2, 1);
#$flag = 1;
last;
}
}
#if ($flag == 0){
push (@tempname,$chars[$config{'char'}]{'inventory'}[$i]{'name'});
print "$chars[$config{'char'}]{'inventory'}[$i]{'name'} を追加\n";
#}
}
}
#次スレ作ろうよ