fix: chclass pen is exactly full ttl

Change rppenstep in chclass pen to rpstep,
and different formula for lvl >60.

Irpg/Main.pm

@@ -158,7 +158,10 @@ sub penalize {
         $pen_key = 'pen_title';
     }
     elsif ($type eq "chclass") {
-        $pen = int($opts->{rpbase} * ($opts->{rppenstep}**$rps->{$username}{level}));
+        $pen = $rps->{$username}{level} <= 60 ?
+                int( $opts->{rpbase} * ($opts->{rpstep}**$rps->{$username}{level})) :
+                int(($opts->{rpbase} * ($opts->{rpstep}**60))
+                    + (86400*($rps->{$username}{level} - 60)));
         $reason = 'training';
         $pen_key = 'pen_class';
     }