> 直接使用する場合では少なくともsplititemとjoinitemの処理はあるとまずいです。（No.967のスクリプトはuse_afterで処理するなんて思っていなかったので完全に独立させた場合を書きました。）
> また、foreach(@items)の部分も変える必要があります。

No.968とNo.969のスクリプトで、
・splititem('i');とjoinitem('i')を削除。
・foreach(@items)をforeach(@bag, @items[$_ + 1 .. $#items])に置換。
・if(index($sts, 'CbNsPeQp') != -1){〜}の{}内の最後に$gn = 1; last;を追加。

▼関連発言
│
└◆965:置換 [ミル] 02/29 05:33
　└◆966:Re:置換 [ミル] 02/29 05:35
　　└◆967:Re[2]:置換 [moon] 02/29 13:04
　　　└◆968:Re[3]:置換 [ミル] 02/29 21:56
　　　　└◆969:Re[4]:置換 [ミル] 02/29 22:07
　　　　　└◆970:Re[5]:置換 [moon] 02/29 23:29
　　　　　　└◆971:Re[6]:置換 [ミル] 03/01 13:21
　　　　　　　└◆972:Re[7]:置換 [ミル] 03/01 15:28
　　　　　　　　└◆973:Re[8]:置換 [ミル] 03/01 15:33
　　　　　　　　　└◆974:Re[9]:置換 [moon] 03/01 19:14
　　　　　　　　　　└◆975:Re[10]:置換 [moon] 03/01 22:25
　　　　　　　　　　　└◆976:Re[11]:置換 [ミル] 03/06 19:30
　　　　　　　　　　　　└◆977:Re[12]:置換 [ミル] 03/06 19:39
　　　　　　　　　　　　　└◆978:Re[13]:置換 [moon] 03/06 20:26
　　　　　　　　　　　　　　└◆993:うおおう [ミル] 03/20 20:29<-last