> いつも追加の質問になってしまって申し訳ないのですが
> いくつか質問させて下さい。
> 探索などで見つけることのできるアイテムですが
> この確率をかえることはできますか？？
> いまだと最低値で1%（1/100
> ですがこれ以下で見つけにくいアイテムを作りたいのですが・・。

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


> それともう1つすみません・・。
> Sphereさんの街移動を導入しているのですが
> それぞれの街で探索できるものを変えることは可能でしょうか？
> 装備品が取りやすい街、食料が取りやすい街というようなイメージで・・。
> マシマロさんの探索場所追加も導入しています。

条件が以下の場合は、
　　街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);
　　# アイテム数が0個の場合はエラーとする
　　&error('アイテムデータ読みこみエラー') if(!@itemlines);

▼関連発言
│
└◆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