私設SoS2オーナー応援BBS

新規発言 ｜ 一覧 ｜ 最新記事 ｜ 過去一覧 ｜ 検索 ｜ ダウンロードページ ｜ ＨＯＭＥ 
▼スレッド
│
└◇1718:Re[16]:アイテム消失 [rien] 05/06 01:06

　└◇1719:Re[17]:アイテム消失 [moon] 05/06 01:14
　　└◇1720:Re[18]:アイテム消失 [rien] 05/06 01:41
　　　└◇1721:Re[19]:アイテム消失 [moon] 05/06 15:08
　　　　└◇1722:Re[20]:アイテム消失 [rien] 05/06 15:54
　　　　　└◇1723:Re[21]:アイテム消失 [moon] 05/06 16:18
　　　　　　└◇1724:Re[22]:アイテム消失 [rien] 05/07 10:22
　　　　　　　└◇1725:Re[23]:アイテム消失 [moon] 05/07 22:58
　　　　　　　　└◇1726:Re[24]:アイテム消失 [rien] 05/07 23:20
　　　　　　　　　└◇1727:Re[25]:アイテム消失 [moon] 05/07 23:53
　　　　　　　　　　└◇1728:Re[26]:アイテム消失 [rien] 05/08 00:58
　　　　　　　　　　　└◇1729:Re[27]:アイテム消失 [moon] 05/08 08:15
　　　　　　　　　　　　└◇1730:Re[28]:アイテム消失 [rien] 05/08 10:56<-last

1718● Re[16]:アイテム消失[ rien ] 2009 05/06 01:06
> 【No.1716の続き】
>
> > userout直前直後と
> > それ以降のSub Fight内に２つ追加しました。
> > 表示は全て同じになりました。
> > bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> > bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> > bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
>
> sub fightの最後でも同じでしょうか？
> 同じ場合は戦闘処理そのものには問題無いのでsub contact_actionとsub player_dataのget_user直後に「print "<hr>bg=$bg<hr>";」を追加して確認してみてください。（レイアウトは崩れると思いますが気にしなくて良いです。）
> また、直後に該当ユーザーのデータファイルを開いてアイテム部分が空になっていることを確認しておいたほうが良さそうです。

追加部分はSub Fightの最後の｝の前に追加してありました。

get_user後に追加したところ
>>bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
このような表示が出ました。
今現在ではアイテムを３つ持っている状態ですが・・。

戦闘後に壊れる場合ですと
戦闘メッセージの後は
>>リュートが壊れました
bg=リュート△00010100MiQw,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
bg=
bg=

こうなり、先ほど追加した部分（枠外のものは）
>>bg=
bg=

このように表示されています。
スレッド一覧

1719● Re[17]:アイテム消失[ moon ] 2009 05/06 01:14
> 追加部分はSub Fightの最後の｝の前に追加してありました。
>
> get_user後に追加したところ
> >>bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> このような表示が出ました。
> 今現在ではアイテムを３つ持っている状態ですが・・。
>
> 戦闘後に壊れる場合ですと
> 戦闘メッセージの後は
> >>リュートが壊れました
> bg=リュート△00010100MiQw,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> bg=
> bg=
>
> こうなり、先ほど追加した部分（枠外のものは）
> >>bg=
> bg=
>
> このように表示されています。

先ほどのものは装備が壊れていない場合の表示だったのでしょうか？（現象が発生していない時の表示を見ても意味がないのですが・・・。）

> bg=リュート△00010100MiQw,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> bg=
> bg=

sub fightでこのようになったのでしたらsub fightに問題があります。
この部分のpush(@msg, ～);をもっと細かく配置してどこの処理で$bgが空になっているのかを確認してみてください。
スレッド一覧

1720● Re[18]:アイテム消失[ rien ] 2009 05/06 01:41
> sub fightでこのようになったのでしたらsub fightに問題があります。
> この部分のpush(@msg, ～);をもっと細かく配置してどこの処理で$bgが空になっているのかを確認してみてください。

すみません・・勘違いをしてました・・；
えぇと・・細かく貼り付けてみた結果
どうやら
user_outの直前ではアイテムが残っており
直後に消えているようでした。

お手数おかけしまして申し訳ありません。
スレッド一覧

1721● Re[19]:アイテム消失[ moon ] 2009 05/06 15:08
> > sub fightでこのようになったのでしたらsub fightに問題があります。
> > この部分のpush(@msg, ～);をもっと細かく配置してどこの処理で$bgが空になっているのかを確認してみてください。
>
> すみません・・勘違いをしてました・・；
> えぇと・・細かく貼り付けてみた結果
> どうやら
> user_outの直前ではアイテムが残っており
> 直後に消えているようでした。
>
> お手数おかけしまして申し訳ありません。

今までの話の流れからすると、このように判断したものは「if(open(FILE, '<', "$usrdir$id.dat")){～}」の表示だと思いますがこれではなくて「push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);」で確認してもらえますか。
スレッド一覧

1722● Re[20]:アイテム消失[ rien ] 2009 05/06 15:54
> 今までの話の流れからすると、このように判断したものは「if(open(FILE, '<', "$usrdir$id.dat")){～}」の表示だと思いますがこれではなくて「push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);」で確認してもらえますか。

ありがとうございます。
追加を変えてみましたら表示が変わっていたので
いくつか追加してみたところ

>>if ($pc > 0) {
$sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
$newitem = "$item△$sts";$newitem .= "△$price" if $price;
push(@bag,$newitem);

}
の直後にはアイテムがあり
user_outの直前にはアイテムがなくなってる状態でした。
表示はこのようになりました。

リュートが壊れました
items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
items=0, bg=
スレッド一覧

1723● Re[21]:アイテム消失[ moon ] 2009 05/06 16:18
> >>if ($pc > 0) {
> $sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
> $newitem = "$item△$sts";$newitem .= "△$price" if $price;
> push(@bag,$newitem);
>
> }
> の直後にはアイテムがあり
> user_outの直前にはアイテムがなくなってる状態でした。

この間が重要なのですがどのようになりましたか？
スレッド一覧

1724● Re[22]:アイテム消失[ rien ] 2009 05/07 10:22
返事が遅れてすみません・・。
前回の範囲で細かく追加したところ
>>
if ($pc > 0) {
$sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
$newitem = "$item△$sts";$newitem .= "△$price" if $price;
push(@bag,$newitem);

}
　　　　　　　　}
　　　　　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);①
@items = @bag;&joinitem('i');

$itemchance = 0 if $#items + 1 >= $xi;
　　　　&splititem('I');
　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);②

で、②の状態でアイテムがなくなっていることが分かりました。
何回も申し訳ありません。
スレッド一覧

1725● Re[23]:アイテム消失[ moon ] 2009 05/07 22:58
> 返事が遅れてすみません・・。
> 前回の範囲で細かく追加したところ
> >>
> if ($pc > 0) {
> $sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
> $newitem = "$item△$sts";$newitem .= "△$price" if $price;
> push(@bag,$newitem);
>
> }
> 　　　　　　　　}
> 　　　　　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);①
> @items = @bag;&joinitem('i');
>
> $itemchance = 0 if $#items + 1 >= $xi;
> 　　　　&splititem('I');
> 　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);②
>
> で、②の状態でアイテムがなくなっていることが分かりました。
> 何回も申し訳ありません。

「push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」でもっと細かく御願いします。（どこが原因なのかを特定するのが目的なのですから、極端ですがすべての「;」の直後にあっても良いくらいです。）
また、開始位置も最初のsplititem直前からで試してください。
スレッド一覧

1726● Re[24]:アイテム消失[ rien ] 2009 05/07 23:20
> 「push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」でもっと細かく御願いします。（どこが原因なのかを特定するのが目的なのですから、極端ですがすべての「;」の直後にあっても良いくらいです。）
> また、開始位置も最初のsplititem直前からで試してください。

いつもありがとうございます。
最初のsplititem～user_outの間で
；の直後に貼り付けてみると。
表示はこのようになりました。
>>
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
リュートが壊れました
bag=0, items=0, bg=
bag=0, items=0, bg=
bag=0, items=0, bg=
bag=0, items=0, bg=
bag=0, items=0, bg=

○○が壊れました。というメッセの直後の処理で消えてるということなのでしょうか？？
スレッド一覧

1727● Re[25]:アイテム消失[ moon ] 2009 05/07 23:53
> > 「push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」でもっと細かく御願いします。（どこが原因なのかを特定するのが目的なのですから、極端ですがすべての「;」の直後にあっても良いくらいです。）
> > また、開始位置も最初のsplititem直前からで試してください。
>
> いつもありがとうございます。
> 最初のsplititem～user_outの間で
> ；の直後に貼り付けてみると。
> 表示はこのようになりました。
> >>
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
> リュートが壊れました
> bag=0, items=0, bg=
> bag=0, items=0, bg=
> bag=0, items=0, bg=
> bag=0, items=0, bg=
> bag=0, items=0, bg=
>
> ○○が壊れました。というメッセの直後の処理で消えてるということなのでしょうか？？

これではどの表示がどの場所に対応しているのかわからないので以前書いていたように「(番号)」などを付けて対応がわかるようにしてください。
「if ($pc > 0)」の条件を満たしていないような感じなので表示する情報を増やして（例えば「push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」）試してみてください。
あと、「;」直後に加えて「}」直後にも御願いします。
スレッド一覧

1728● Re[26]:アイテム消失[ rien ] 2009 05/08 00:58
> 「if ($pc > 0)」の条件を満たしていないような感じなので表示する情報を増やして（例えば「push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」）試してみてください。
> あと、「;」直後に加えて「}」直後にも御願いします。

以前の書き方だとかなり多くのスクリプトを表示しちゃうので
マズィかな・・と思ってました・・；
えっと・・；と｝の直後に追加してみました。
表示がこちらで
>>
item=, sts=, pc=, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0001, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
リュートが壊れました
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=3, bg=リュート△00010100MiQw,カスタムボウ△00500101BwDh,ハンドアックス△00500200AxDh
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=
item=リュート, sts=00010100MiQw, pc=0, bag=0, items=0, bg=

fight.plの方がこちらです。
>>

　　　　&splititem('i');
　　　　　　　　foreach (0 .. $#items) {
$break = 0;
# push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１
　　　　　　　　　　　　($item,$sts,$price) = split(/△/,$items[$_]);
　　　　　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２
$iak = substr($sts,4,2); $idd = substr($sts,6,2);
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);３
$pc = substr($sts,0,4); $skill = substr($sts,8,1000);
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);４
　　　　　　　　
　　　　　　　　　　　　if ($result == 1 && $sts =~ /Qw/ && $sts !~ /Ie/) {$break = 1; $pc -= 1}
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);５
　　　　　　　　　　　　if ($result == -1 && $sts =~ /Qs/ && $sts !~ /Qw/ && $sts !~ /Ie/){$break = 1; $pc -= 1}
　　　　　　　　 elsif ($result == -1 && $sts =~ /Qa/ && $sts !~ /Ie/) {$break = 1; $pc -= 1}
　　　　　　　　 push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);６
　　　　　　　　　　　　if ($result == 0 && $sts =~ /Qt/ && $sts !~ /Ie/) {$break = 1; $pc -= 1}
　　　　　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);７
　　　　　　　　　　　　if ($break == 1 && $pc == 0) {
　　　　　　　　　　　　
　　　　　　　　　　　　　　　　$ab -= $iak; $db -= $idd;
　　　　　　　　　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);８
$sp =~ s/Qb//g if $sts =~ /Bw/;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);９
$sp =~ s/Qk//g if $sts =~ /Kt/;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１０
$sp =~ s/Qx//g if $sts =~ /Ax/;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１１
$sp =~ s/Qm//g if $sts =~ /Sw/;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１２

push (@msg,"$itemが壊れました"); &event("$nmの$itemが壊れました。"); last;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１３
　　　　　　　　　　　　}

if ($pc > 0) {
$sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１４
$newitem = "$item△$sts";$newitem .= "△$price" if $price;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１５
push(@bag,$newitem);
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１６

}
　　　　　　　　}
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１７
　　　　　　　　
@items = @bag;&joinitem('i');
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１８
$itemchance = 0 if $#items + 1 >= $xi;
　　　　&splititem('I');
　　　　
　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);１９
　　　　if ($itemchance && $pitems[$Sidice]) {
　　　　　　　　&splititem('i');
　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２０

　　　　　　　　($item,$sts,$price) = split(/△/,$pitems[$Sidice]);
　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２１
if ($sts !~ /Ns/) {
　　　　　　　　if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２２
　　　　　　　　splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２３
　　　　　　　　&joinitem('iI'); &fmsg('奪');
　　　　　　　　#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
　　　　　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２４
if ($nm eq $Wn) {&event("$Wnが$Lnの$itemを奪いました。")}
else　　　　　　　　{&event("$Wnが$Lnの$itemを奪いました。")}
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２５

}
　　　　}
　　　　push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２６
# を
$bp = $bn = $pbp = $pbn = '';
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２７
#$plftm = time + $btllmt * 3600;
#push (@newplfs,"$id△$nm△$plftm");
$time_now = time; $plf = "$id△$time_now";#$plf = $id; #join(',',@newplfs);
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２８

if($sp =~ /Ts/ && $av eq 'dead'){$av='alive';$hp=5;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);２９
push (@msg,"$nmは、神の恵みにより生き返った。");$plf = $pid;}
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);３０
$dap -=$Ap_fight;
#push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);
push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);３１
　　　　&userout;

多くのスクリプトを表示させるのが
ダメでしたら削除をお願いします。
いろいろ追加していて見づらくてすみません・・。
この表示方法でよかったのでしょうか・・。
スレッド一覧

1729● Re[27]:アイテム消失[ moon ] 2009 05/08 08:15
> > 「if ($pc > 0)」の条件を満たしていないような感じなので表示する情報を増やして（例えば「push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」）試してみてください。
> > あと、「;」直後に加えて「}」直後にも御願いします。
>
> 以前の書き方だとかなり多くのスクリプトを表示しちゃうので
> マズィかな・・と思ってました・・；
> えっと・・；と｝の直後に追加してみました。
> 表示がこちらで
> >>
省略...
> 多くのスクリプトを表示させるのが
> ダメでしたら削除をお願いします。
> いろいろ追加していて見づらくてすみません・・。
> この表示方法でよかったのでしょうか・・。

> これではどの表示がどの場所に対応しているのかわからないので以前書いていたように「(番号)」などを付けて対応がわかるようにしてください。
これなのですが、push(@msg, "(1) ～");やpush(@msg, "(2) ～");のように表示とコード位置の対応が付けられるようにして欲しかったのですが・・・。

ソースコードが載せられたので見てみたのですがlastが余計です。
このlastがあるために破壊したアイテム以降が所持品に戻らなくなっています。
スレッド一覧

1730● Re[28]:アイテム消失[ rien ] 2009 05/08 10:56
> これなのですが、push(@msg, "(1) ～");やpush(@msg, "(2) ～");のように表示とコード位置の対応が付けられるようにして欲しかったのですが・・・。

ぁぁ・・すみません・・。
そうすればよかったですね・・。
勉強になりました。
>
> ソースコードが載せられたので見てみたのですがlastが余計です。
> このlastがあるために破壊したアイテム以降が所持品に戻らなくなっています。

あれ・・気づいていませんでした・・。
いつ付け足したのだろう。
すみません、ありがとうございます！
アイテム表示が直りました。
いつもお手数おかけして申し訳ございません・・。
スレッド一覧

CGIROOM