解答ありがとうございます。
で、早速やってみたのですがいまいち理解ができなくて
エラーを出してしまいます・・・。
ちなみにアイテムではなく特種能力（スキルとは別物）を
作ってそれを装備や順番入れ替えと言う命令を今作ってます。

# Sub Fsort After #
sub fsort_after {
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　return if $fg ne 'FB';
　　　　&splititem('f');
　　　　foreach (0 .. $#fhoses) {
($fhose,$fkz,$flv,$fsk,$frd) = split(/△/,$fhoses[$_]);
if ($fsk =~ /Qs/) { $nomsg = 1 } else { $nomsg = 0 }
　　　　　　　　$fsk =~ s/Qs//g;
　　　　　　　　if ($Fm{$_}) {
　　　　　　　　　　　　if (@tf_fshu && @tv_fshu) { &fhose_arm($1,'Qs') }
　　　　　　　　}
　　　　　　　　if ($Fm{'sort'}) {
if(@fhoses){
　　my $change = -1;
　　foreach(0..$#fhoses){
　　　　if($Fm{"$_"}){
　　　　　　if($change>=0){
　　　　　　　　($fhoses[$change],$fhoses[$_]) = ($fhoses[$_],$fhoses[$change]);
　　　　　　　　$change = -1;
　　　　　　}
　　　　　　else{$change = $_;}
　　　　}
　　}
}
　　　　$fg = ''; &userout;
　　　　push (@msg,"フォースを並べ変えました。");
　　　　　　　　}
if (!$gn) { $newitem = "$fhose△$fkz△$flv△$fsk"; $newitem .= "△$frd" if $frd; push(@we,$newitem) }
$gn = 0;
　　　　}
　　　　@fhoses = @we; &joinitem(f); $fg = ''; &userout;
}

というやつなんですが
sortをするとアイテムの入れ替えができるというものです。
ちなみに# Sub Fsort Before #でアイテムをチェックして
# Sub Fsort After #で入れ替えるというのなんですが
入れ方が悪いのでしょうか？

▼関連発言
│
└◆145:アイテムを個別にソート [ナム〜ン] 11/15 17:28
　└◆146:Re:アイテムを個別にソート [moon] 11/15 19:59
　　└◆178:エラーが・・・。 [ナム〜ン] 11/18 09:44
　　　└◆179:Re:エラーが・・・。 [moon] 11/18 19:39
　　　　└◆182:無事にできました〜☆ [ナム〜ン] 11/19 14:41<-last