[CHANGED] !!! `Everything is new again` recoded !!! please review before merge

locations/_difficulty.qsrc

@@ -27,12 +27,7 @@ end &! --- getdifficulty ---
 !! easy peasy: 20
 !! use func('_difficulty','getexpadj')
 if $ARGS[0] = 'getexpadj':
-	!!Trait ''Everything is new again'', gained from the sg_tg start
-	if $start_type = 'sg_tg' and daystart <= 84: 
-		result = 10 * difficulty
-	else
-		result = 20 * difficulty
-	end
+	result = 20 * difficulty
 end &! --- getexpadj ---
 
 !! following function adjusts money gain by difficulty.

locations/cikl.qsrc

@@ -330,7 +330,8 @@ exhibition_outdoors = 0
 !!------------------------------------------------------------------------------------------------------------
 
 !!Trait ''Everything is new again'', gained from the sg_tg start
-if $start_type = 'sg_tg' and daystart = 85: gs 'traits', 'dbl_exp_lvl'
+!! on day 85 the value will reach 0 and the trait will be disabled
+if daystart < 86 and $start_type = 'sg_tg': pcs_traits['new_again'] = 85 - daystart
 
 !!------------------------------------------------------------------------------------------------------------
 !!	Succubus Level & hunger calcs

locations/exp_gain.qsrc

@@ -8,6 +8,7 @@ if ARGS[1] > 0:
 	if $ARGS[0] = 'stren_plus' and ARGS[2] = 0 and stren_plus_lvl > 50:
 		!!This is so that exp only is awarded to additional strength if it is high when you use steroids
 	else
+		if pcs_traits['new_again'] > 0: ARGS[1] *= 2
 		if pcs_stam <= 0:
 			if pcs_condition['lack_of_sleep'] >= 20:
 				dynamic "<<$ARGS[0]>>_exp += <<ARGS[1]>>/8"

locations/traits.qsrc

@@ -338,24 +338,5 @@ if $ARGS[0] = 'easy-orgasms':
 		end
 	end
 end
-
-if $ARGS[0] = 'dbl_exp_lvl':
-	!!Everything is new again expiry exp doubling so attributes and skills can continue to gain at normal rate called from cikl
-	x = 0
-	:att2loop
-	dynamic "<<$att_name[x]>>_exp = <<$att_name[x]>>_exp * 2"
-	x += 1
-	if x < arrsize ('$att_name'): jump 'att2loop'
-	killvar 'x'
-
-	x = 0
-	:skl2loop
-	dynamic "<<$skl_name[x]>>_exp = <<$skl_name[x]>>_exp * 2"
-	x += 1
-	if x < arrsize ('$skl_name'): jump 'skl2loop'
-	killvar 'x'
-end
-
-
 --- traits ---------------------------------