サーバーは、こちらと同じ「さくら」です。
現在は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="領主不在";
の部分を、改造前の記述にしてください。

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

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

休止にしました。院試がんばってください。

院試は終わりましたが、このまま実家に帰りますので引き続き凍結をお願いします。

あろうことか院試に失敗してしまいました。折角応援していただいたのですが期待に添えず。

次回失敗するわけにもゆきませんので店も畳みたいと思います。
ただ、店をたたむ前に資産の処分ぐらいはやって街に貢献するぐらいはしたいので凍結の解除、または管理人さんの側から資産の寄贈処理をしていただけないでしょうか。
ご迷惑をおかけいたしますが、よろしくお願いします。

院試お疲れ様です。次回がんばってください。
卒業論文などもあるのでしょうか。忙しそうですね。
書き込みに気づくのが遅れてすいません。
こちらでうまい具合に寄贈処理させていただきます。
院試うまくいきましたら、また再開してください。
よろしくお願いします。

お久しぶりです。板違いですが、続きという形なのでこちらに。

以前失敗して今年はリベンジ(とはちょっと違いますが、後ほど)して無事合格を勝ち取りましたことを報告いたします。
やはり院試というやつは簡単には受からないものですね…当たり前ですが、周囲がほぼ全員受かってるような状況でしたから尚更痛感しました。

実を言うと、(記憶違いでなければ)GEN氏と同じく、私は材料関係の分野を専攻していました。
ですので、GEN氏の日記や実験風景などはかなり共感の持てる部分が多くて楽しめましたし、
「しっかり予習してこないから実験がスムーズに進まない」「機材の扱いが雑だ」というのはまさに自分に当てはまるので耳(目？)が痛い言葉でした。

ただ前の書き込みの通り私は一度失敗してしまったので、卒業後は別の専攻へと移動することになりました(きちんと言えば、同専攻の院試は受験せず、違う専攻の院試を受験した)。
今現在では希望留年という形で卒論はまだ通過していない状態ですから、これから卒論で慌ただしくなることが予想されますので当面再開は見送る形になりますが、とりあえず報告だけさせていただきます。

合格おめでとうございます。わざわざご連絡いただきまして、すいません。おっしゃる通り、私は材料分野です。材料の知識は、化学や機械・環境など他の分野にも役立つと聞きますから、幅を広げるという意味では、別の専攻もいいのではないでしょうか。卒論で落ちるということはないと思いますので、締め切りに間に合うように計画的に進められたら良いと思います。また気が向いたら参加してください。