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

場所が悪いですね。
以下、ソートを選んだ場合はソートしかしないと仮定して変更。（文法チェックなし）

# Sub Fsort After #
sub fsort_after {
　　@rcdlines = &get_user("$Fm{'id'}");
　　return if($fg ne 'FB');
　　&splititem('f');
　　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 = $_;}
　　　　　　　　}
　　　　　　}
　　　　}
　　　　push(@msg,"フォースを並べ変えました。");
　　}
　　else{
　　　　# こちらにもif(@fhoses)を書いたほうが良いはず
　　　　foreach(0..$#fhoses){
　　　　　　($fhose,$fkz,$flv,$fsk,$frd) = split(/△/,$fhoses[$_]);
　　　　　　if($fsk=~/Qs/){$nomsg = 1;}else{$nomsg = 0;}
　　　　　　$fsk =~ s/Qs//g;
　　　　　　if($Fm{$_}){
　　　　　　　　&fhose_arm($1,'Qs') if(@tf_fshu && @tv_fshu); # $1は不適切？
　　　　　　}
　　　　　　# $gnは使用していないのでいらない
　　　　　　if(!$gn){$newitem = "$fhose△$fkz△$flv△$fsk"; $newitem .= "△$frd" if($frd); push(@we,$newitem);}
　　　　　　$gn = 0;
　　　　}
　　　　@fhoses = @we;
　　}
　　&joinitem('f'); # たぶんエラー原因だったところ f→'f'
　　$fg = ''; &userout;
}

▼関連発言
│
└◆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