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

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で行きたいと思います。

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

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

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