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

強化アイテムは平常時に使用すると別の効果もあるようにしたので……。
Use Afterで強化アイテムのスキルフラグが付いていたら、優先的に一時使用にするようにして分岐を捻じ曲げ、sub armを通ってアイテムを強化するルーチンを通させました。

１、プレイヤーが強化アイテムを使用（特定のスキルフラグの付いている武具を消費していない場合は別の効果）

↓

２、sub armへ移動。一時使用に入る

↓

３、アイテム強化ルーチンのitm upを通り、特定武具のアイテム修正処理

と行くようにしたのですが……。ローカルで試しても全くアイテムに反映されないのです。
一応、分岐の通し方に問題はないのです。一番最後の『武具を強化しました！』は表示されるので、（アイテムは修正されず）修正処理に問題があると思うのですが。

# Sub Item Up #
sub itm up {
　　　　if ($av eq 'dead') { &umsg('死') }
&splititem('i');
foreach(@items){
($item, $sts, $price) = split(/△/, $_);
if(index($sts, 'CbNsPeQp') != -1){ # 剣(Sw)の場合
$pcc = substr($sts, 0, 4); # 下取り価格の取得
$atkk = substr($sts, 4, 2); # 攻撃力値の取得
$dfdd = substr($sts, 6, 2); # 防御力値の取得
$otherr = substr($sts, 8); # アイテム属性の取得

$atkk += 5;#ここに変更処理

if($pcc < -999){$pcc = -999;}elsif($pcc > 9999){$pcc = 9999;} # 値の制限
if($atkk < -9){$atkk = -9;}elsif($atkk > 99){$atkk = 99;} # 値の制限
if($dfdd < -9){$dfdd = -9;}elsif($dfdd > 99){$dfdd = 99;} # 値の制限
$sts = sprintf("%04d%02d%02d%s", $pcc, $atkk, $dfdd, $otherr); # $stsの再構築
$_ = "$item△$sts"; # アイテムデータの反映
$_ .= "△$price" if($price > 0); # 価格の追加
}
}
&joinitem('i');

　　　　　　　　push (@msg,"武具を強化しました！"); $bp = $bn = '';
}
1;


何がいけないのか……。分かりませんか？　見た限りでは全く問題はないと思うのですが。

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;」の置くべき場所を間違っていました。
修正したら正常に作動されました。長々と付き合って下さってありがとうございました！