[fixed] burned old willpower stuff

locations/dinsister.qsrc

@@ -28,10 +28,8 @@ $sischecks = {
 	if narkossister = 1:
 		if StrongNarkota > 20:
 			*clr & cla
-			cla
 			gs'stat'
-			pcs_willpwr -= 10
-			pcs_mood -= 10
+			if pcs_mood > 10: pcs_mood -= 10
 			'<center><img <<$set_imgh>> src="images/pc/newfear.jpg"></center>'
 			*nl
 			'I can not approach her junked up like this.'
@@ -41,10 +39,8 @@ $sischecks = {
 		
 		if StrongNarkota <= 20:
 			*clr & cla
-			cla
 			gs'stat'
-			pcs_willpwr -= 10
-			pcs_mood -= 10
+			if pcs_mood > 10: pcs_mood -= 1
 			narkossister = 0
 			'<center><img <<$set_imgh>> src="images/pc/newfear.jpg"></center>'
 			*nl

locations/ender.qsrc

@@ -131,9 +131,7 @@ if $ARGS[0] = 'loss':
 		spafinloc = 14
 		sexvolume = 10
 		gs 'cum_manage'
-		pcs_mood -= 20
-		pcs_willpwr -= 20
-		if pcs_willpwr < 0:pcs_willpwr = 0
+		if pcs_mood > 20: pcs_mood -= 20
 		rape += 1
 
 		picrand = rand(1, 6)
@@ -535,9 +533,7 @@ if $ARGS[0] = 'surrender':
 		spafinloc = 14
 		sexvolume = 10
 		gs 'cum_manage'
-		pcs_mood -= 20
-		pcs_willpwr -= 20
-		if pcs_willpwr < 0:pcs_willpwr = 0
+		if pcs_mood > 20: pcs_mood -= 20
 		rape += 1
 
 		picrand = rand(1, 6)

locations/outdoors.qsrc

@@ -368,8 +368,7 @@ if $ARGS[0] = 'main':
 				if $pantyworntype ! 'none':gs 'panties', 'dispose' & '<b><font color="red">Your panties have been ruined and you discreetly remove and dispose of them.</font></b>'
 
 				gs 'sweat', 'add', 10
-				pcs_mood -= 3
-				pcs_willpwr -= 10
+				if pcs_mood > 20: pcs_mood -= 20
 				dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
 			end