> > 関係するそれぞれの変数の変更後にpush(@msg, 〜);で変数の値を表示してみて、正しい値になっていることを確認してください。
>
> お返事ありがとうございます。
> sub_fightに部分をこうして記述を追加してみました
> >>if ($plf1[0] eq $id && $remain < $btlser_time--) {
> 　　　　@plf1 = split(/△/,$plf);
> $remtime = time - $plf1[1];
> $remain = $remtime / 3600;
> $remhor = $btlser_time-- - int($remtime/3600) - 1;
> $remmin = 59 - int(($remtime%3600)/60);
> $remsec = 59 - $remtime % 60;
> $btlser_time -- if(index($psp, 'Ng') != -1); # 相手にNPCスキルがある場合には再戦禁止時間を1時間短くする
>
> push (@msg,"$pnmとは暫く戦えません（あと$remhor時間$remmin分$remsec秒）"); return;
>
> 戦闘を行うと１２という数値が出ます。
> １２は設定部分で$btlser_timeを設定している数値です。

移動するif文が違います。
また、移動するだけでは表示上の問題は解決しなかったです。
諸々を変更したソース例を載せます。
　　$btlser_time -= 30 if(index($psp, 'Ng') != -1); # 相手にNPCスキルがある場合には再戦禁止時間を30分短くする
　　@plf1 = split(/△/,$plf);
　　$remtime = time - $plf1[1]; # 経過時間を求める（秒単位）
　　if ($plf1[0] eq $id && $remtime < $btlser_time * 60) {
　　　　my $remspan = $btlser_time * 60 - $remtime;
　　　　$remhor = int($remspan / 3600); # 表示用の残り時間の時間部分を求める
　　　　$remmin = int(($remspan % 3600) / 60); # 表示用の残り時間の分部分を求める
　　　　$remsec = int($remspan % 60); # 表示用の残り時間の秒部分を求める
　　　　push (@msg,"$pnmとは暫く戦えません（あと$remhor時間$remmin分$remsec秒）");
　　　　return;
　　}

▼関連発言
│
└◆1620:連勝数の追加とグラフ表示 [rien] 01/05 19:13
　└◆1621:Re:連勝数の追加とグラフ表示 [moon] 01/06 00:49
　　└◆1622:Re[2]:連勝数の追加とグラフ表示 [rien] 01/06 18:50
　　　└◆1623:Re[3]:連勝数の追加とグラフ表示 [moon] 01/06 22:27
　　　　└◆1624:Re[4]:連勝数の追加とグラフ表示 [rien] 01/06 23:31
　　　　　└◆1625:Re[5]:連勝数の追加とグラフ表示 [moon] 01/07 00:23
　　　　　　└◆1626:Re[6]:連勝数の追加とグラフ表示 [rien] 01/07 18:04
　　　　　　　└◆1627:Re[7]:連勝数の追加とグラフ表示 [moon] 01/07 22:09
　　　　　　　　└◆1628:Re[8]:連勝数の追加とグラフ表示 [rien] 01/07 23:09
　　　　　　　　　└◆1629:Re[9]:連勝数の追加とグラフ表示 [moon] 01/07 23:45
　　　　　　　　　　└◆1630:Re[10]:連勝数の追加とグラフ表... [rien] 01/08 00:26
　　　　　　　　　　　└◆1631:Re[11]:連勝数の追加とグラフ... [moon] 01/08 08:09
　　　　　　　　　　　　└◆1632:Re[12]:連勝数の追加とグラ... [rien] 01/08 17:40
　　　　　　　　　　　　　└◆1633:Re[13]:連勝数の追加とグ... [moon] 01/08 23:26
　　　　　　　　　　　　　　└◆1634:Re[14]:連勝数の追加と... [rien] 01/09 00:29<-last