説明不足で申し訳ありません。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)を使うとエラーが出てダメですね。

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