> それなら以前本家BBSで書いた方法で、
> > 症状の改善を無視して、無理やりに1回ごとに見付かるアイテムのランダム性をアップさせるひとつのアイディアとして、
> > 　　$poison = int(rand(100)) + 1;
> > 　　$stellatio = int(rand(100)) + 1;
> > 　　$rnd = int(rand(100)) + 1;
> > 上記オリジナルソースを、
> > 　　if(time & 1){
> > 　　　　$poison = int(rand(100)) + 1;
> > 　　　　$stellatio = int(rand(100)) + 1;
> > 　　　　$rnd = int(rand(100)) + 1;
> > 　　}
> > 　　else{
> > 　　　　$poison = 100 - int(rand(100));
> > 　　　　$stellatio = 100 - int(rand(100));
> > 　　　　$rnd = 100 - int(rand(100));
> > 　　}
> > といった感じにするというのもある程度効き目があるのではないでしょうか。
うはっ、本家で出てたんですね（＾＾；
ほとんど見る様にはしてるんですが、見落としてたようです。

> 他にはsrandをやっている場合にその引数を適切な値に変えるということもやってみる価値はあります。（Webで探せばどういった値が良いのかヒントが見付かるかと思います。）
これはこれから色々と調べて見たいと思います。

> $rndや$stellatioの値をpush(@msg, 〜)で出力して確認してみては。
> 同じ値またはかなり近い値が連続したらプログラムの不備も考えられるということで。
あ、、、これは大ボケでした。　確かに表示させてみる、は基礎中の基礎だというのに....（＾＾；
まずは試すって基本を多少慣れが出たせいか失念しておりましたぁ。

返答頂いた事を元に調査等してしばらく頑張ってみようとおもいます、拙い事にお答え頂いて有難うございました。
また何かで詰まった際にはおじゃまさせて頂きますのでよろしくお願いします〜。

▼関連発言
│
└◆799:ランスウについて [なず] 10/06 04:53
　└◆800:Re:ランスウについて [moon] 10/06 09:13
　　└◆801:Re[2]:ランスウについて [なず] 10/08 00:08
　　　└◆802:Re[3]:ランスウについて [moon] 10/08 09:05
　　　　└◆808:Re[4]:ランスウについて [なず] 10/09 00:10<-last