▼スレッド
│
└◇318:Re:探索中に [moon] 01/29 23:21

　└◇321:Re[2]:探索中に [masaki] 01/30 18:07
　　└◇322:Re[3]:探索中に [moon] 01/30 18:56
　　　└◇323:Re[4]:探索中に [masaki] 01/31 06:18
　　　　└◇324:Re[5]:探索中に [moon] 01/31 08:56
　　　　　└◇326:Re[6]:探索中に [masaki] 01/31 17:42<-last

> 探索中に
> 「転んで10Gおとしてしまった」
> や
> 「空から100G降ってきた」（笑）
> というようなものを探索中に出てくるようにしたいのですが、乱数を使うのかな？くらいしかわかりません（；；
> できれば教えて欲しいです。
> （いつもいつもすみません（TT)

概略だけを書きます。

$event = rand(100);
if($event<1 && $mn>0){ # 1%の確率かつ所持金が1G以上なら落とす
　　$money = int(rand(11)) + 10; # 10Gから20G
　　$money = $mn if($mn<$money); # 所持金が上限
　　$mn -= $money;
　　push(@msg,"転んで${money}Gを落としてしまった");
}
elsif($event<2){ # 1%の確率で降ってくる
　　$money = int(101) + 50; # 50Gから150G
　　$mn += $money;
　　push(@msg,"空から${money}Gが降ってきた");
}

これ以降に、複数回探索なら次のループへ移行するとか、そのまま通常のアイテム処理を続行するか、などの処理をします。

説明までありがとうございます（＾＾
おかげでできました！！

この改造とは関係がないのですが、探索をするとmy recordに<>が残ってしまいます。（探索一回につき一個）
色々しらべてみたのですが、さっぱりわかりません。（；；
（しかも、あとから入った人だけ）
いつもいつもですみませんが、この場合どうすればいいのでしょうか？

> 説明までありがとうございます（＾＾
> おかげでできました！！
>
> この改造とは関係がないのですが、探索をするとmy recordに<>が残ってしまいます。（探索一回につき一個）
> 色々しらべてみたのですが、さっぱりわかりません。（；；
> （しかも、あとから入った人だけ）
> いつもいつもですみませんが、この場合どうすればいいのでしょうか？

あとから登録した人だけの現象ならsub make_newでユーザデータを作成している箇所のフラグ数が足りないのでは。
オリジナルでは、$line = join('<>',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,"\n");となっている部分。

多分足りないのは$csだと思うのですが、どこに追加すればいいのでしょうか？
（いろいろやってみましたが、街名が表示されなくなってしまいました。）

> 多分足りないのは$csだと思うのですが、どこに追加すればいいのでしょうか？
> （いろいろやってみましたが、街名が表示されなくなってしまいました。）

追加する場所は、get_userやuseroutでのフラグの並びと同じ位置です。
2つ追加したなら"\n"を'','',"\n"といった感じで増やしていきます。（初期値を設定する必要がある場合は''を初期値の値に）

何度も何度もご迷惑をおかけしましたm(_ _)m
やっとできました。
ありがとうございました！！