対応遅れてすいません。7/1の段階の預金に戻しておきました。
よろしくお願いします。

いえいえ、誤りの可能性が高いと思います・・・
重ね重ねすいません；；

サーバーは、こちらと同じ「さくら」です。
現在はPerl 5.14.4 [標準のPerl]になっているようです。

#市場在庫上限下限チェック＆補正
CheckWholeStore();

#イベント終了処理
@event::DT=@DT;
@event::ITEM=@ITEM;
my %group=();
if(defined(%DTevent))

の最後の行を、
if((%DTevent)

としてみるとどうでしょうか。

イベントの終了判定のようですので、一見直っているようでも、イベントが終わらずにいつまでも続いているようだと失敗です。

もしくは、
if(defined(%DTevent))
{
を消してしまってもPerlだと動作する気もします。
この場合、317行目の
}　←　この閉じ括弧も消してください。

#イベント開始処理

正しくは、
if(%DTevent)
に置き換えてください。
こちらで試したところ、おそらく動作大丈夫でした。
ほかでも、if(defined(%○○))
があってエラーが出るようでしたら、
if(%○○)
にしてもたぶんいいと思います。この辺は商人物語というよりPerl全般のことなので、専門家に聞いてみないとなんともいえないのですが。

試しに動作確認までしていただいて、ありがとうございます。
早速No.552のご指示通り
inc-turn.cgiのほかにguild.cgiで１ヵ所、jcordpl.cgiで2ヵ所の
definedを削除したら上手くいきました。

ご面倒をおかけしました。
また分からないことがありましたら、よろしくお願いします。

うまく動いているようでよかったです。
私のほうでもそのうちこの対応が必要かもしれません。

スクリプトご利用ありがとうございます。
ご質問の件ですが、実際試してはいないのですが、「inc-html-top.cgi (トップ5の店舗の表示)」と、「inc-html-ranking.cgi (順位)」の、以下のあたりが関係していると思います。

$disp.= GetTagImgGuild($DT->{guild}).$job.$DT->{shopname};　【ギルドのアイコン表示】+ 【店名】
$disp.= "</a>" if !$GUEST_USER;
$disp.=GetTopCountImage($DT->{rankingcount}+0) if $DT->{rankingcount};　【優勝回数】
$disp.="<BR>";

【優勝回数】の下あたりに、
$disp.="＜img src="追加配布アイコンのパス"＞";
とすると、アイコンが出ると思います。

何かを持っている時アイコンが出るのであれば、
$disp.= "＜img src=アイコンのパス alt=○○所有＞" if (あるアイテムの所持数 > 0);

※alt=は、マウスカーソルを重ねたときに表示する文章。

アイコンの種類を増やすなら、この文章をずらずらと並べます。

$disp.= "＜img src=アイコン1のパス alt=○○1所有＞" if (あるアイテム1の所持数 > 0);
$disp.= "＜img src=アイコン2のパス alt=○○2所有＞" if (あるアイテム2の所持数 > 0);
$disp.= "＜img src=アイコン3のパス alt=○○3所有＞" if (あるアイテム3の所持数 > 0);

※<IMG class=i src= alt=> class=iというのも入れたほうがいいかもしれない。

inc-html-top.cgi と、inc-html-ranking.cgi に対してコピーペーストで同じように設定します。

念のため、改造前のファイルを別の名前で保存しておいてから、改造したらいいと思います。よろしくお願いします。

早速ご回答下さいましてありがとうございます。
ご指示通りのタグを追加して表示できるようになりました。

ただアイテム2種類を表示させたいので2行にしたところ、未だ所持していないものまで表示されてしまいます。

所持数0では表示されず所持数1で表示と解釈しましたので、下記のように記述しました。
$disp.= "＜IMG class=i src=./image/item-no-100.gif alt=レアアイテム＞" if (1 > 0);

何度も申し訳ありませんが、よろしくお願いいたします。

$DT->{item}[商品番号-1]
に、商品番号の商品の在庫数が入っています。

if (1 > 0);

のところは、

if ($DT->{item}[商品番号-1] > 0);

としてください。番号が100でしたら、100 - 1 で、

if ($DT->{item}[99] > 0);

となります。

完璧なアイコン表示ができました。
お力を拝借できたお蔭で、想像通りに表示されて嬉しいです。

いろいろお手数をおかけして申し訳ありませんでした。
本当にありがとうございました。

げんちゃん街で(12/22、3:55現在)領主不在となっていますが、
投票所で投票することは一応できるようです。

ただ、以下のことをすると、必ず混雑エラーで弾かれます。
１：施設→領主で領主情報を確認。
２：施設→競売所、施設→領主、施設→投票所→投票、依頼→依頼取り下げ等。



おそらく、即時にデータ書き換えを行おうとする処理に関しては必ず混雑エラーで弾かれるようになっているようです。
ですので、キャンディーさんが書かれていた混雑エラーは偶然性によるものではないと思われます。

当方が思うに、
「領主になると新たにファイルまたは要素が作成される」
「領主が居ないとそのファイルまたは要素は削除される」
と考えています。
その存在しないファイルまたは要素にアクセスしようとしているため、混雑エラーで弾かれているのだと思います。

勿論、現物スクリプトを持っていないので、実証した結果ではなく、推測した結果ではありますが。


参考までに、この状態で依頼所で依頼を出そうとすると、
「金額の％が税金として…」とあったので、
必要な要素ないしファイルが削除されているものと考えられるでしょう。


さて、本題ですが、バルバロスに領主をやらせたいのであれば、
バルバロスを強制的に任命させるor当選処理にてバルバロスを当選させる(領主不在処理＝バルバロスの当選)とすればいけそうですが、どうでしょうか。

いろいろと、詳細なエラー情報をいただきまして、
ありがとうございました。

原因を調査した結果、領主情報を表示するlord.cgi
は、旧バージョンのファイルを元に作成しており、
もともとバグがありました。

正確に説明すると、旧バージョンのLord.cgiでは、
領主不在でバルバロスのみの場合、
ファイルをロックする「Lock();」が実行されるが、
そのあと必ず記述する、ロックを解除する「UnLock();」
が入っていませんでした。

とにかく、バルバロス状況で
領主情報を表示させた後、すぐにファイルに
アクセスしようとするとエラーが出る状況であり、
投票に限らず他のコマンドでも今までエラーが出ていた
可能性があります。

配布ファイルを修正しておきましたので、lord.cgiを上書きしてご利用ください。
いろいろとご迷惑おかけしました。

あと、領主不在をバルバロス状態にしたい場合は、
以下の部分を変更してください。

・lord.cgiを変える
$disp.=$TD."領主 ： <b>不在</b><br>";
$disp.="現在、領主がいないため、市政は行なわれておりません。";
$disp.=$TRE.$TBE;
$purpose="領主不在";
の部分を、改造前の記述にしてください。

税率なども修正したい場合は、決算処理に入れてください。

確認遅れましてすいません。
とりあえず、どのファイルのどの箇所でエラーが出ているのかわかりますか。場合によってはプログラムの書き換えで対応できるかもしれません。
もう解決されているかもしれませんが。