スクリプトご利用ありがとうございます。

アトラスについてですが、これは保管倉庫に、船が帰還するまでの時間の目安をバーで表示させる改造です。
stockの該当箇所を
if ($no > 25 && $no < 38)
{

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

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


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


}

と変えています。コピー＆ペーストしてもおかしいままでしょうか。

船関係のアイテム番号が変わっているとうまくいかないと思います。

どのようにうまくいかないのか、エラーの内容などあれば具体的に教えていただけると、原因がわかるかもしれません。