はじめまして。
このたびワールドアトラスを設置することになり、追加スクリプトをいくつか使わせていただきました。
事後報告になりましたが、ありがとうございます。

今テストをしている段階なのですが、過去ログNo.401を参考にさせていただいて下記の説明どおり変更してみたのですが、上手くいきません。
初心者なので、お手数ですが再度ご説明いただけるとうれしいのですが。

＞説明不足で申し訳ありません。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));
と変更します。

どうぞよろしくお願いいたします。