不可解なdat落ちをなんとかしろ！

今の判定ルーチン

if($keika < 1){return 0;}#一日以上たっていないと対象外。
if($keika1 > $Rule150){return 1;}#150日ルール。
if($prsize >= 512){return 1;}#でかいのは落ち
my $ts = 0;
if($prsize < 1)#小さいのは即死判定
{
if($keika < $daresDay){return 0;}
$ts = threadSize($fName);
if($ts < $daresNum){$gPool=1;}
}
elsif($prsize > 32)#大きいのは 1,000超え判定
{
$ts = threadSize($fName);
if($ts > 980){$gPool=1;}
}
if($ts eq 0){return 0;}
if($daresNum <= $ts && $ts <=980){return 0;}