ご連絡ありがとうございます。
なかなか、細かい部分まで確認できないもので、
こういったご指摘は大変ありがたいです。

解凍しました。

はじめまして。書き込みありがとうございます。
どこに表示させるのがよいかわかりませんが、
とりあえず「まだ船団が帰ってくる気配はないようだ」のメッセージのあとに時間を表示することは可能です。

inc-item-data.cgiの探検、貿易、武装船団の
$ret.="もう少し気長に待ってみよう。</tr></table>";
の部分を
$ret.="あと".int(($subdata[0] - $main::NOW_TIME)/3600)."時間くらい待ってみよう。</tr></table>";
に変えると時間が表示されます。

倉庫で表示するには、stock.cgiを編集します。

$ITEM[$no]->{name}.="（出港中）" if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));
の部分を、
main::RequireFile('inc-sea.cgi');
my @subdata=main::ReadSeaSub("$DT->{id}-exp$no");

my $t = int(($subdata[0] - $main::NOW_TIME)/3600);
$t = 0 if ($main::NOW_TIME > $subdata[0]);

$ITEM[$no]->{name}.="（帰還まで".$t."時間）" if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));

とすると、(出港中)の代わりに(帰還まで10時間)などと出ます。既に着いているときは(帰還まで0時間)を表示します。

この辺だと思います。

お返事ありがとうございます。
テストしてみたところうまく作動いたしました＾＾

そこでもうひとつお願いがあるのですが、時間表示を人気度やごみの量のようなバーに変更することはできますでしょうか？
何度もすみません。ご検討いただければありがたいです＞＜

うまくいってよかったですね。
時間表示のバー表示ですが、可能かとは思いますが、
どのようにバーにするのかがよくわかりません。
バーが100%に近づくほど決算に近づくという感じでしょうか。

ちなみに、バー表示は
GetRankMessage(数値)
でできます。
元のルーチンはcustom/plug/detail.cgi
に入っています。

GetRankMessageをコピーして、
バーの幅などをカスタマイズした
GetRankMessage3などを
ここに新たに作っておくと便利です。

わかりにくい説明で申し訳ありません・・・。
バー表示にしたいのは船団が返ってくるまでの時間のところです。
倉庫ではおそらく無理だと思いますので、inc-item-data.cgiの方だけでもできたらいいと思いまして・・・。つまりバーが100％で帰還ということになります。

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

my $t = int((12-($subdata[0] - $main::NOW_TIME)/3600)/12*100);
$t = 0 if ($t < 0);
$t = 100 if ($main::NOW_TIME > $subdata[0]);

$ITEM[$no]->{name}.=" ".GetRankMessage($t*100)." " if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));

とすると、バー表示できます。残り時間を帰還に必要な時間で割っています。

ですが、厳密なものではありません。帰還に必要な時間は、１２時間にランダムで最大２時間を加えた時間になります。ですが、この時間はどこにも記録されないので、とりあえず１２時間で割っています。

このすると、帰還時間が１４時間に設定された船団は、２時間の間バーが0%のままで、2時間後にようやく1%になります。ですが、一方で帰還時間が１２時間に設定された船団は、２時間後には17%になります。

まぁこれでもよければ、上の仕組みで実装できます。ちなみに、ユーザー変数を使って正しい帰還時間を記録しておけば、正確な表示が可能になります。

お返事ありがとうございます。下記のように記述して見ましたが、エラーが出て分析できないようです。
私の記述が悪いと思いますので、申し訳ありませんが訂正お願いできないでしょうか。

$ret.="港に出てみたが，まだ船団が帰ってくる気配はないようだ。<br>";
my $t = int((12-($subdata[0] - $main::NOW_TIME)/3600)/12*100);
$t = 0 if ($t < 0);
$t = 100 if ($main::NOW_TIME > $subdata[0]);
$ITEM[$no]->{name}.=" ".GetRankMessage($t*100)." " if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));
$ret.="もう少し待ってみよう。</tr></table>";

また帰還時間の方ですが、14時間で割ってみたらどうなるのでしょうか。
14時間にすれば増える量こそ違いますが、1時間づつ均等に増えていくかと思いまして・・・。

説明不足で申し訳ありません。stock.cgiを変更しています。

$ITEM[$no]->{name}.="（出港中）" if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));
の部分を、

main::RequireFile('inc-sea.cgi');
my @subdata=main::ReadSeaSub("$DT->{id}-exp$no");

my $t = int((12-($subdata[0] - $main::NOW_TIME)/3600)/12*100);
$t = 0 if ($t < 0);
$t = 100 if ($main::NOW_TIME > $subdata[0]);

$ITEM[$no]->{name}.=" ".GetRankMessage($t*100)." " if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));

と変更します。

確かに、14で割っておけばいいと思います。12の数字を14にするだけでそうなると思います。

･･･、いまさらですが、「もう少し待ってみよう」のメッセージとともにバーを表示させたいということでしたか？現状では倉庫で表示されます。メッセージでも同じことができると思います。
・・・
と思いましたが、inc-item-cgi内でGetRankMessage($t*100)を使うとエラーが出てダメですね。

とりあえず、倉庫画面でバーを出すことは可能ですが、アイテム使用時は難しいかもしれません。

お返事ありがとうございます。
stock.cgiのほうはテストしてみたところ正常に稼動しました。
ひとまず14で行きたいと思います。

一応、「もう少し待ってみよう」の表示とともにバーを出すつもりだったのですが、倉庫で試してみたところ結構いい感じになったので、ひとまず倉庫表示で行きたいと思います。

お忙しいところ、わざわざ作成していただきありがとうございました。

はじめまして。
泉さんのゲームをプレイしたいので、サイトを教えてください。

以下のようにして、バーを追加しました。

$disp.=$TDB."種".$TDB."販売在庫".$TDB."販売価格".$TDB."自店保有".$TD.$TDB."熟成時間".$TDB."収穫物"･･･

$disp.=$TD."→";
$disp.=$TD.GetRankMessage(int((1-($DT->{_seed}->{"time$i"}-$NOW_TIME)/(86400+43200))*10000));
$disp.=$TD.GetTagImgManor($MYMANOR[3]).$MYMANOR[2];

これも、船団の帰還時間と同様な問題が発生しています。熟成にかかる時間は、inc-manor.cgiで設定されて、デフォルトでは「$ripetime=86400 + int(rand(43200));」です。即ち24時間＋ランダムに12時間です。ですが、この時間は保存されないので、熟成までの割合を出すために、36時間で割っています。ソース内の「86400+43200」はそのことを示しています。いきなり合計でもよいのですが。

一般の人にとって不思議に思う現象が発生するかもしれません。仮に、種を１個買って、たまたま熟成時間が36時間に設定されると0%と表示され、次にもう一つ買って今度は24時間に設定されると、33%と出ます。毎回変わるので%が大きくなるように買う人が出るかもしれません。

$ripetime=86400 + int(rand(43200));
を
$ripetime=86400;
として、86400で割るとすっきりするかもしれません。

こんな感じでいかがでしょうか。

御回答ありがとうございます。早速試してみたところ種保有時の表示の方はうまくいきました。
ですが、種を保有していないときは何故か、=971809%と表示されてしまいます。※前文の“=”は1ピクセルほどのバーです。
これを0％もしくは表示しないように設定できないでしょうか。
注文ばかりで申し訳ありません。

買っていないときのことを考えていませんでした。申し訳ありません。
該当箇所を以下のようにするといいと思います。

[0%で表示]
$disp.=$TD."→".$TD;
my $t = int((1-($DT->{_seed}->{"time$i"}-$NOW_TIME)/(86400+43200))*10000);
$t = 0 if(!$DT->{_seed}->{"time$i"});
$disp.=GetRankMessage($t);

[表示しない]
$disp.=$TD."→".$TD;
$disp.=GetRankMessage(int((1-($DT->{_seed}->{"time$i"}-$NOW_TIME)/(86400+43200))*10000)) if ($DT->{_seed}->{"time$i"});

･･･ちなみに、この手のバーが少し長いかなぁと思うのは自分だけでしょうか。もう少しコンパクトなバーに変更することができます。「custom/plug/detail.cgi」に、以下のようなGetRankMessage4を追加します。

sub GetRankMessage4
{
my($rank,$mode)=@_;
my $per=int($rank);
my $per2=int($rank/2);

return $per.(!$mode?"%":"") if $MOBILE;

my $bar="";
$bar ="<nobr>";
$bar.=qq|<img src="$IMAGE_URL/r.gif" width="|.( $per2).qq|" height="12">| if $per;
$bar.=qq|<img src="$IMAGE_URL/t.gif" width="|.(50-$per2).qq|" height="12">| if $per!=50 && !$mode;
$bar.=" ".$per;
$bar.="%" if !$mode;
$bar.="</nobr>";

return $bar;
}

GetRankMessageは、中身が10000で100%と出ますが、GetRankMessage4は変数が100のとき100%なので、これを使って、

my $t = int((1-($DT->{_seed}->{"time$i"}-$NOW_TIME)/(86400+43200))*100);
$t = 0 if(!$DT->{_seed}->{"time$i"});

$disp.=GetRankMessage4($t);

とすると半分の長さのバーになります。

追加ルーチンにも追加しておきたいと思います。

御対応ありがとうございます。テストしてみたところ正常に表示されるのを確認しました。
私も、バーをもう少し短くしたいと思っていましたので、早速コンパクトバージョンの方を導入させていただきました。
テストしてみたところ、通常の表示は問題ないのですが、50%の時のみバーの空き部分が切れてしまいます。
これは仕様なのでしょうか。一々突っ込みを入れてしまって本当に申し訳ありません；；

また、私のサイトでは、ほわいと様の追加プログラム“荘園複数設置”を入れているのですが、二つ目以降の荘園では、種の保有、未保有にかかわらず0%と表示されてしまいます。これはほわいと様の方に相談した方がよろしいでしょうか。

GetRankMessage4にミスがあったため、うまく作動していないようでした。以下のように修正していただければ、50%時も大丈夫かと思います。お手数おかけします。

$bar.=qq|<img src="$IMAGE_URL/r.gif" width="|.( $per2).qq|" height="12">| if $per;
$bar.=qq|<img src="$IMAGE_URL/t.gif" width="|.(50-$per2).qq|" height="12">| if $per!=50 && !$mode;
を
$bar.=qq|<img src="$IMAGE_URL/r.gif" width="|.( $per2).qq|" height="12">| if $per2;
$bar.=qq|<img src="$IMAGE_URL/t.gif" width="|.(50-$per2).qq|" height="12">| if $per2!=50 && !$mode;
とする。(行末のperをper2にする)

複数荘園のソースを見ました。
$DT->{_seed}->{"time$i}という部分を、
$DT->{$_seed}->{"time$i"}
としてはいかがでしょうか。数箇所すべてをこれに変えるとうまくいくかもしれません。

修正ありがとうございます。テストしてみたところ、50％時においても正常に表示されました。
また、複数荘園の方への御回答もありがとうございました。こちらも無事に表示されました。
バー表示にして初めて気がついたのですが、一括購入だと全ての種が同じ時間で熟成するみたいですね。一括ですとばらつきを気にする必要はなさそうです。まぁ、個別で購入される方もいらっしゃるでしょうけど・・・＾＾；

この度はご協力いただき本当にありがとうございました。また何かありましたらよろしくお願いいたします。

うまく動いてよかったです。
私の商人物語にもバーを適用したので、見やすくなったと思います。
今後ともよろしくお願いします。

ご報告ありがとうございます。
予期せぬエラーでした。原因はよくわかりませんが、
バックアップから復元することで対応いたしました。

問題なく入れました。すばやい対応をありがとうございます。

エラー状況 index.cgi の実行により発生。(2009/07/16 06:38:19)
エラー原因 「../program/inc-func.cgi」の 242行目付近に原因があるようです。
これは「inc-item-data.cgi」を修正することにより解決します。
エラー分析 ファイルが存在しません。イベントやアイテムデータを削除したためかもしれません。
Error Data Can't locate ./data/item/event/rebel.cgi in @INC (@INC contains: /usr/local/lib/perl5/5.8.9/BSDPAN /usr/local/lib/perl5/site_perl/5.8.9/mach /usr/local/lib/perl5/site_perl/5.8.9 /usr/local/lib/perl5/5.8.9/mach /usr/local/lib/perl5/5.8.9 .) at ../program/inc-func.cgi line 242.

原因が同じ箇所なので、何かしらの改造時に失敗があったものと考えられます。ご対応を宜しくお願いします。

ご連絡ありがとうございます。
半年以上改造していなかったので、今頃なぜエラーがでるのかよくわかりませんが、原因を調査したいと思います。恐らく、反乱イベントや投票制度の関係ではないかと考えています。

12:57現在貿易街で同じエラーメッセージが出ました。


エラー状況 index.cgi の実行により発生。(2009/07/20 12:57:11)
エラー原因 「../program/inc-func.cgi」の 242行目付近に原因があるようです。
これは「inc-item-data.cgi」を修正することにより解決します。
エラー分析 ファイルが存在しません。イベントやアイテムデータを削除したためかもしれません。
Error Data Can't locate ./data/item/event/rebel.cgi in @INC (@INC contains: /usr/local/lib/perl5/5.8.9/BSDPAN /usr/local/lib/perl5/site_perl/5.8.9/mach /usr/local/lib/perl5/site_perl/5.8.9 /usr/local/lib/perl5/5.8.9/mach /usr/local/lib/perl5/5.8.9 .) at ../program/inc-func.cgi line 242.


当方としては、決算時にエラーが起こっていると思うのですが、
その決算時に立ち会うことが出来ずに確信できずにいます。