> 基本的に以下の2箇所の変更で済むと思います。
> 　　$rnd = int(rand(100)) + 1;
> 　　if ($rnd <= $idc)
> ↓
> 　　$rnd = rand(100);
> 　　if ($rnd < $idc)

お返事ありがとうございます。
上記のようにした場合、出現確率が1以下（小数点
で可能になるという意味なのでしょうか？？
ここだけの変更でよいとは・・目から鱗状態です・・。


> 条件が以下の場合は、
> 　　街1、街2、街3の3つ。（それぞれ$twが1、2、3）
> 　　各街に探索場所が4つずつ。（それぞれmodeがfind_item、find_item2、find_item3、find_item4）
> 3*4=12ファイルのアイテムファイルを作成します。
> ファイル名を以下のようにした場合、
> 　　item_1a.dat（街1のfind_itemに対応）
> 　　　　〜
> 　　item_1d.dat（街1のfind_item4に対応）
> 　　item_2a.dat
> 　　　　〜
> 　　item_2d.dat
> 　　item_3a.dat
> 　　　　〜
> 　　item_3d.dat
> ソースコードの変更は、
> 　　if($Fm{'mode'} eq 'find_item'){
> 　　　　@itemlines = &opendat($itmdat);
> 　　　　if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
> 　　}elsif($Fm{'mode'} eq 'find_item2'){
> 　　　　@itemlines = &opendat($itm2dat);
> 　　　　if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
> 　　}elsif($Fm{'mode'} eq 'find_item3'){
> 　　　　@itemlines = &opendat($itm3dat);
> 　　　　if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
> 　　}elsif($Fm{'mode'} eq 'find_item4'){
> 　　　　@itemlines = &opendat($itm4dat);
> 　　　　if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
> 　　}
> この部分を以下のように変更します。
> 　　# 探索場所に対応する記号（a〜d）を定義する
> 　　my %location = (
> 　　　　'find_item' => 'a',
> 　　　　'find_item2' => 'b',
> 　　　　'find_item3' => 'c',
> 　　　　'find_item4' => 'd',
> 　　);
> 　　# アイテムファイルのパスを求める
> 　　my $itemfile = 'item_' . int($tw) . $location{$Fm{'mode'}} . '.dat';
> 　　@itemlines = &opendat($itemfile); # アイテムファイルを読み込む
> 　　&error('アイテムデータ読みこみエラー') if(!@itemlines); # アイテムファイルが存在しないかアイテム数が0個の場合はエラーとする

ありがとうございます。
こちらも早速やってみます。
この場合でそれぞれの街の探索場所の名称を変更するなどということはできるのでしょうか？？

▼関連発言
│
└◆1651:オークションについて [rien] 02/04 23:49
　└◆1652:Re:オークションについて [moon] 02/05 00:59
　　└◆1653:Re[2]:オークションについて [moon] 02/05 08:13
　　　└◆1654:Re[3]:オークションについて [rien] 02/05 21:37
　　　　└◆1655:Re[4]:オークションについて [moon] 02/05 23:57
　　　　　└◆1656:Re[5]:オークションについて [rien] 02/06 00:46
　　　　　　└◆1657:Re[6]:オークションについて [moon] 02/06 23:26
　　　　　　　└◆1658:Re[7]:オークションについて [moon] 02/06 23:41
　　　　　　　　└◆1660:Re[8]:オークションについて [rien] 02/07 17:02
　　　　　　　　　└◆1661:Re[9]:オークションについて [moon] 02/07 23:34
　　　　　　　　　　└◆1663:Re[10]:オークションについて [rien] 02/08 00:01
　　　　　　　　　　　└◆1664:Re[11]:オークションについて [moon] 02/08 00:41
　　　　　　　　　　　　└◆1665:Re[12]:オークションについ... [moon] 02/08 00:46
　　　　　　　　　　　　　└◆1666:Re[13]:オークションにつ... [rien] 02/08 01:24<-last