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

[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);

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

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