何か設定の変更はされているでしょうか。
設定によってはマイナスになるかもしれませんし、バグかもしれません。設定変更をされている場合は、ソースの設定部分を貼り付けていただけると、原因がわかるかもしれません。
よろしくお願いします。

@@EVENT
start 200%
code gettime
info 時間援助
startfunc _local_

$EXPIRE_TIME2 = 3600*24*4; # 最終ログインから何日まで、援助を続けるか。初期は「4」
$NOW_TIME=time();

$money_li = 60*60*36; # 時間がいくら以下で援助するか。初期は「60*60*24」
$day_li = 14; # 開店何日まで時間援助をするか。
$money_max = 60*60*20; # １回の最大援助時間。
$money_de = 60*60*18; # １回の援助時間。


foreach(reverse(@DT))
{
if (((time() - $_->{time}) < $money_li)&&(($_->{lastlogin}+$EXPIRE_TIME2) > $NOW_TIME)&&(int(($NOW_TIME-$_->{foundation})/3600/24) < ($day_li + 1))) {

$money = int(($money_de - (time() - $_->{time}))/3600)*3600;

$money = $money_max if ($money > $money_max);

$_->{time}-=$money;

return (0,$_->{shopname}.'へ'.int($money / 3600).'時間の時間援助がなされました');
}

}
return 0;
_local_

上記のように設定しています。
なにかお分かりになられましたら　教えてください。
それではよろしくお願いしますm(_ _)m

説明不足でしたが、$money_deは$money_liよりも大きな値でないと、援助額がマイナスになる場合があるようです。この場合は、money_deは60*60*36よりも大きな値を指定してください。
よろしくお願いします。

こちらに載せていただいたとおりに設定を変えてみました。
　
　GEN様　わかりやすい説明ありがとうございました。

バージョンが表示されていなくて申し訳ありませんが、１２月２６日〜１月２日までアップロードしていたファイルには不具合があります。古いファイルの場合は、最新版をダウンロードし、voting_s.cgiを上書きしていただけないでしょうか。

現在使ってるファイルは、

最新のファイルでvoting_s.cgiは１月４日になっています。

結果が反映されている点と、商人物語のエラー画面ではなく、インターネットエラー５００が出ると言う点が、どうも私も原因が思いつきません。voting-s.cgiの、「CoUnLock();」や「CoUnLock();」は、必要がない可能性があり、環境によってはエラーとなるかもしれないので、この２つを消してためしていただけないでしょうか。

「CoUnLock();」や「UnLock();」をコメントアウトすると、
アクセスが混雑しております。
という、エラーレポートが出る時があります。
No.330の記事によると、
旧バージョンのLord.cgiでは、ロックを解除する「UnLock();」
が入っていませんでした。
とありますが、
現在配布されているファイルのLord.cgiにはこれらの記述がありませんが、これはこれでいいのでしょうか？

ちなみに、現在テスト中でAさんが領主でBさんが立候補している状況です。（どちらも私ですが）
さきほど、投票の結果によりAさんが領主になったばかりですが、
領主が居ない時も今も同じ症状のようです。

同じものを２つ並べてしまいました。「CoUnLock();」と「CoDataCA();」を消してください。「UnLock();」は消すと混雑の表示が出ます。また、Lord.cgiは、ファイルをロックすること自体が必要なかったので、その辺の処理を削除し、問題のない状態になっています。

「CoUnLock();」と「CoDataCA();」を消しましたが、
サーバーエラーが出ますね。

こちらでも同様の現象が確認できれば対処できるのですが、そういったエラーは確認していないので難しいです。商人物語のエラーではなく、インターネットエラー５００ということで、単純な文法ミスはないと思います。ですが、もしかするとソース内に全角スペースが入っているなどの理由も考えられますので、一度ファイルを新しくして試し、それでもエラーが出る場合は、投票制を導入しないことをお勧めします。対処できず申し訳ありません。

いろいろとありがとうございます。

# ロック解除
UnLock();
OutSkin();

# 終了
1;
としたら、エラーなくなりました。

解決してよかったです。
原因は「OutSkin();」ですか。
ご連絡ありがとうございました。

ご報告ありがとうございます。
調査した結果、ある条件でそのようなことが起こることがわかりました。修正したものをアップロードしましたので、お手数ですが、「inc-period.cgi」と「voting-s.cgi」のアップロードをお願い致します。
お手数おかけしました。

げんさん対応して頂きありがとうございました。
助かりました〜

こんばんわ
えっとですね。アップして頂いたファイルにして
解散総選挙を迎えた瞬間すべての店舗がふっとび、データも全部なくなってしまいました。
なぜだろう・・ちょっとわからないです。
今のところバックアップで戻してはいますが、このままだとまた同じことになるので総選挙時期を延ばす形で対応してます。
申し訳ないのですが、原因を教えて頂ければと思います。
宜しくお願いします。

何度も申し訳ありません。
こちらでもいろいろと調べましたが、
すべてのデータが消えるということは起こりませんでした。
お手数おかけしますが、原因を調べるために、以下の点について教えていただけないでしょうか。
�@テストモードで総選挙を実行しても、吹っ飛ぶかどうか
�A「総選挙」のときのみ生じ、通常の選挙では問題ないのか
�Binc-period.cgiは、上書きしているだけか

ご迷惑おかけしますが、よろしくお願いします。

こちらでも同様の現象が確認できました。
最新バージョンで、誤って必要な文を削除してしまっていたことが原因とわかり、voting-s.cgiを修正しました。
お手数ですが、ファイルの上書きをお願い致します。

返信遅れてすみません。
今、時間がとれたので最新バージョンで動作確認しているところです。
色々テストをしてみましたが、特に問題がある部分やエラーはありません。
お手数おかけ致しました。ありがとうございました。

名前は「ザップ」で、ＩＤは579です。
ですが、恐らくパスワードをお忘れなのではと思います。
genki-s@khaki.plala.or.jp
パスワードは書き込めないので、こちらまでメールをください。

メール出しました。よろしくお願いします。

入れました。ありがとうございました。

管理IDとは管理人の店舗のIDのことでしょう。
voting-s.cgiの118行目にある
if ($DT->{id} != 333);の「333」を管理人の店舗のIDに直せば…

あれ？管理人さん、商人物語においては$DT->{id}って数値変数ですか？
デフォルトのSOLDでは文字列変数のはずなので、当方は
if ($DT->{id} ne '333');だと思うのですが。

ご質問の件ですが、XKY-Groupさんの説明の通り、
管理人の店舗のＩＤを管理画面のメンバーリストなどで調べ、
入れてください。説明不足で申し訳ありません。

あと、変数については、
Perl＆CGIでは、変数の型に関する宣言はありません(たぶん)。
数値が入っているときは数値変数として扱い、
文字列が入っていると、文字列変数になります。
この場合は、数値が入っているので「!=」でいいのかと思っています。

ああ、なるほど。SOLDではログインするときに「ID」と「パスワード」を要求してきますが、
商人物語では「名前」と「パスワード」を要求してきます。
そこで、SOLDにおける「ID」と商人物語における「名前」を混同してしまったようで。

「名前」と「ID」は別物なんですね。
名前はいつも数値列とは限らない(というか殆どの場合で文字列となるだろう)ため、!=ではなくneにしたほうが確実だと思っていましたが、
文脈から推測する限り「ID」は確実に数値列になっていそうなので、
このままでよいかもしれません。お騒がせしました。