レアアイテムの件ですが
ifで処理してみました。
勝手な想像すみません；；

@itemlines = &opendat2($itmdat);
foreach $item (@itemlines) {
($inm,$idt,$idc) = split(/<>/,$item);
if ($rnd <= $idc) { push(@founditems,$item) }
}
$rnd = int(rand($#founditems + 1));
($inm,$idt,$idc) = split(/<>/,$founditems[$rnd]); .....

上の部分を調べたんですが、
if ($rnd <= $idc) { push(@founditems,$item) }
の部分がよく分かりません
何がおきたらどういう処理がされているかが分かりません。

できれば細かくヒントを教えていただけないでしょうか？

▼関連発言
│
└◆1760:探索について [パパート] 10/10 23:37
　└◆1761:Re:探索について [moon] 10/11 21:18
　　└◆1762:Re[2]:探索について [パパート] 10/11 23:01
　　　└◆1764:Re[3]:探索について [moon] 10/12 17:16
　　　　└◆1765:Re[4]:探索について [パパート] 10/12 19:06
　　　　　└◆1766:Re[5]:探索について [moon] 10/12 21:29
　　　　　　└◆1767:Re[6]:探索について [パパート] 10/12 21:56
　　　　　　　└◆1768:アイテム取得処理 [パパート] 10/13 19:55
　　　　　　　　└◆1769:Re:アイテム取得処理 [パパート] 10/13 20:17
　　　　　　　　　└◆1770:Re[2]:アイテム取得処理 [パパート] 10/13 22:43
　　　　　　　　　　└◆1771:Re[3]:アイテム取得処理 [moon] 10/14 22:22
　　　　　　　　　　　└◆1772:Re[4]:アイテム取得処理 [パパート] 10/14 23:07<-last