▼スレッド
│
└◇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

sub armでは無いです。
Set Itemでした。申し訳ない。

　　　　　　　　　　　　elsif ($sts =~ /ApCb|FdCb/ && $sp =~ /Qp/) {
　　　　　　　　　　　　　　　　if ($av eq 'dead') { &umsg('死') }
　　　　　　　　　　　　　　　　else { &set_item; require './pl/itm_up.pl';&itm up; }
　　　　　　　　　　　　}
Use Afterの設定はこんな感じです。Qpは装備フラグで、特定武具を装備した場合プレイヤースキルに追加されます。外したときは消えます。
FdCb、ApCbは強化アイテムフラグです。
つまり、強化アイテムフラグがあり、特定武具が装備されていた場合はset itemを通りitm upを通って強化されるわけです。
何も装備していない場合は別の処理がされます。

> Use Afterの設定はこんな感じです。Qpは装備フラグで、特定武具を装備した場合プレイヤースキルに追加されます。外したときは消えます。
> FdCb、ApCbは強化アイテムフラグです。
> つまり、強化アイテムフラグがあり、特定武具が装備されていた場合はset itemを通りitm upを通って強化されるわけです。
> 何も装備していない場合は別の処理がされます。

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

> 直接使用する場合では少なくとも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;を追加。

申し訳ありません。ちょっと私情でゴタゴタしてまして……。
すぐやってみますね。

う〜ん。やっぱりできませんでした。アイテムデータに反映されません。

何がいけないのかさっぱり……。
何がいけないのか分からない以上、お手上げ状態ですよね？

> う〜ん。やっぱりできませんでした。アイテムデータに反映されません。
>
> 何がいけないのかさっぱり……。
> 何がいけないのか分からない以上、お手上げ状態ですよね？

ソースが散乱して分かりにくくなっていると思うので、なんならソースを直に見ても良いですが。
見るとしたらNo.968の、
if ($sts =~ /CbNsPeQp/) {
}
の部分でしょうか。

返信したつもりが、できていませんでした……。
ええと、「last;」の置くべき場所を間違っていました。
修正したら正常に作動されました。長々と付き合って下さってありがとうございました！