▼スレッド
│
└◇847:戦闘時強奪のアイテム違い [織江] 11/26 12:53

　└◇848:Re:戦闘時強奪のアイテム違い [moon] 11/26 19:36
　　└◇849:申し訳ありませんでした。 [織江] 11/26 21:06
　　　└◇850:Re:申し訳ありませんでした。 [moon] 11/26 21:59<-last

度々失礼致します。
私は本体にましまろ様の分割統合版を使用しているのですが、
先日そこにＳＩＯＮ様のところにありますアイテム強化関連の改造を入れましたところ、
戦闘時に強奪するアイテムが、実際に奪ってくるアイテムと
メッセージに表示されるアイテムが違うという報告を受けました。
ソース内を見ても、どこで奪うアイテムを指定しているのかが分からず、途方に暮れております。
何かアドバイスいただければ幸いなのですが…。
申し訳ありません、お願い致します。
一応、関連しているのかもしれないと思われる部分を以下に記させて頂きます。


＞＞sos.2cgi内

# Sub Join Item #
sub joinitem {
#-EDIT-　　　　@items = sort(@items)　　　　if $_[0] =~ /i/ && $def_so;
#　　　　$bg = join(',',@items) if $_[0] =~ /i/;
#　　　　@pitems = sort(@pitems) if $_[0] =~ /I/ && $def_so;
#　　　　$pbg = join(',',@pitems) if $_[0] =~ /I/;
　　　　&sort_item('i')　　　　if $_[0] =~ /i/ && $def_so;
　　　　$bg = join(',',@items) if $_[0] =~ /i/;
　　　　&sort_item('I') if $_[0] =~ /I/ && $def_so;
　　　　$pbg = join(',',@pitems) if $_[0] =~ /I/;
#-END of EDIT- SION0011v1.02-2-1/10



＞＞fight.pl内、強奪部分と思われる箇所

@items = @bag;&joinitem('i');

$itemchance = 0 if $#items + 1 >= $xi;
　　　　&splititem('I');
　　　　if ($itemchance && $pitems[$Sidice]) {
　　　　　　　　&splititem('i');
　　　　　　　　$Sidice = int(rand(@pitems));

　　　　　　　　($item,$sts,$price) = split(/△/,$pitems[$Sidice]);
if ($sts !~ /Ns/) {
　　　　if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
　　　　　　　　splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
　　　　　　　　&joinitem('iI'); &fmsg('奪');
}
　　　　}

> 度々失礼致します。
> 私は本体にましまろ様の分割統合版を使用しているのですが、
> 先日そこにＳＩＯＮ様のところにありますアイテム強化関連の改造を入れましたところ、
> 戦闘時に強奪するアイテムが、実際に奪ってくるアイテムと
> メッセージに表示されるアイテムが違うという報告を受けました。
> ソース内を見ても、どこで奪うアイテムを指定しているのかが分からず、途方に暮れております。
> 何かアドバイスいただければ幸いなのですが…。
> 申し訳ありません、お願い致します。
> 一応、関連しているのかもしれないと思われる部分を以下に記させて頂きます。

SIONさんのところの改造はSIONさんのところで聞くのが効率的なのでそちらで聞いたほうが良いと思います・・・、なんて書こうと考えながらSIONさんのところを覗いてきたらあちらで返信が着かなかったのでこちらにも投稿したという流れのようですね。
基本的にマルチポストは嫌いなのですが、これと同じ問題（原因は違うかもしれませんが）が2ヶ月ほど前に本家BBSでも話題になり結局解決しなかった部分なので改めて少し考えてみました。

関連する改造箇所をSIONさんのところで見たところsub sort_itemからくる影響のようです。
解決策としてはsub sort_itemで1つ目の、
　　foreach (0 .. $#sitems) {
の上に、
　　my $item;
を追加すれば良いと思います。

有難うございます。
解決いたしました。
二箇所で同じことを聞くというのはマナーに反すると思ったものの、時間的制約があったもので以前とても素早く丁寧に教えていただいたこちらにおすがりしてしまいました…。
以降、決してしないように致します。
ご気分を害してしまったこと、深くお詫び申し上げます。

本当に有難うございました。

解決しましたか。お役に立てて良かったです。
こちらの気分なんて気にしなくて良いですよ。解決すれば晴れ晴れ、という単純な性格なので。（笑）

# 本家BBSで話題に上がっていたのも同じ原因だったのかな・・・。