1
0
Selaa lähdekoodia

[added/removed] Added the "shave hair" hypno event to the therapist. Removed trailing spaces

anjuna krokus 5 kuukautta sitten
vanhempi
sitoutus
8468161c16
3 muutettua tiedostoa jossa 72 lisäystä ja 41 poistoa
  1. 14 9
      locations/hourly_events.qsrc
  2. 16 0
      locations/stat_display.qsrc
  3. 42 32
      locations/therapist.qsrc

+ 14 - 9
locations/hourly_events.qsrc

@@ -85,6 +85,11 @@ else
 		pcs_mood -= rand(2,5)
 	end
 
+	if hypnoHair > 0 and pcs_mood > 50:
+		if pubes > 3: pcs_mood -= rand(2, 5)
+		if pcs_leghair > 3: pcs_mood -= rand(2, 5)
+	end
+
 	if pcs_energy > 20: pcs_stam += stammax / max(5, 110-pcs_energy)
 	pcs_willpower_feeder += willpowermax*4/3
 	pcs_willpwr += pcs_willpower_feeder/100
@@ -113,7 +118,7 @@ else
 	if pcs_willpwr < willpowermax/4: will_counter -= 1
 end
 
-if will_counter <= -10: 
+if will_counter <= -10:
 	willpowermax -= 1
 	will_counter = 0
 end
@@ -157,11 +162,11 @@ else
 
 		if alko > 4:
 			vomit['hangover'] = 1
-		
+
 		elseif pregchem > 600 and pregchem < 2160 and rand(1,4) = 4:
 			vomit['morning_sick'] = 1
-		
-		elseif rand(1,100) = 100: 
+
+		elseif rand(1,100) = 100:
 			vomit['unlucky'] = 1
 		end
 	end
@@ -175,7 +180,7 @@ if alko > 0 and alkoblock = 0:
 	if alko >= 6:
 		if pcs_run > 0: run_deg -= 1
 		if vball_lvl >= 50: vball_deg -= 1
-		
+
 		if alko >= 10:
 			if pcs_stren > 10: stren_deg -= 1
 			if pcs_vital > 10: vital_deg -= 1
@@ -204,7 +209,7 @@ if $pantyworntype = 'none' and PCloPants > 0 and PCloPanties = 0 and $clothingwo
 	elseif pcs_traits['commando_lvl'] = 1:
 		mosol += 1
 	end
-	
+
 	if mosol >= 100: pcs_mood -= 5
 
 	if mosol >= 60 and pain['pubic'] < 80: gs 'pain', 1, 'pubic', 'ache'
@@ -223,14 +228,14 @@ end
 if pcs_hydra > 200: pcs_hydra = 200
 
 if mosol > 0:
-	if $pantyworntype ! 'none' or $clothingworntype = 'nude' or PCloPanties = 1: 
+	if $pantyworntype ! 'none' or $clothingworntype = 'nude' or PCloPanties = 1:
 		mosol -= rand(0,1)
 	end
 end
 
 if pcs_lipbalm > 0: pcs_lipbalm -= 1
 
-if sickstage = 1: 
+if sickstage = 1:
 	sick += 1
 	sicktimer += 1
 
@@ -242,7 +247,7 @@ end
 
 if sickstage = 2:
 	if sick > 0: sick -= 1
-	if sick <= 0: 
+	if sick <= 0:
 		sick = 0
 		sickstage = 0
 	end

+ 16 - 0
locations/stat_display.qsrc

@@ -360,6 +360,22 @@ if hypnoAddict > 0:
 	end
 end
 
+if hypnoHair > 0 and (pcs_pubes > 3 or pcs_leghair > 3):
+	if $stat_hypno_msg ! '':
+		$stat_hypno_msg += '<br>'
+		$stat_hypno_tooltip += '<br>'
+	end
+
+	if pcs_pubes > 3 and pcs_leghair > 3:
+		$stat_hypno_msg = 'Your legs and pubic mound feel rough to the touch, lowering your mood.'
+	elseif pcs_pubes > 3:
+		$stat_hypno_msg = 'Your pubic mound feels rough to the touch, lowering your mood.'
+	else
+		$stat_hypno_msg = 'Your legs feel rough to the touch, lowering your mood.'
+	end
+	$stat_hypno_tooltip = 'You should shave.'
+end
+
 if hypnoSchedule = 1:
 	if therapist_weekly_block = 0 and week = 4 and therapistday ! daystart:
 		if $stat_hypno_msg ! '':

+ 42 - 32
locations/therapist.qsrc

@@ -100,9 +100,9 @@ if $ARGS[0] = 'start':
 	'Stepping into the office of <a href="exec:dynamic $pavlov">Dr. Pavlov</a>, you are welcomed with a warm smile.'
 
 	*nl
-	
+
 	'When you look around the room, you are greeted by a warm and inviting atmosphere. The room is illuminated by large windows that overlook the forest beyond. At one end of the room there is a desk with a chair stacked with folders and books pertaining to hypnotherapy and other therapy materials. This includes a laptop that is closed and appears clean, as if it has been seldom used. You see an older <a href="exec: VIEW ''images/locations/pavlovsk/clinic/therapist/pavlovfamily.jpg''">photograph of Dr. Pavlov''s family</a> in which he appears to be about two decades younger.'
-	
+
 	gs 'stat'
 
 	if therapist_weekly_block = 0 or cheatVars['therapist_schedule'] > 0:
@@ -642,7 +642,7 @@ if $ARGS[0] = 'hypno':
 					*clr
 					if sound = 0: PLAY 'sound/rainstorm.mp3', 20 & PLAY 'sound/clock.mp3', 40
 
-					if PCloStyle2 = 4: 
+					if PCloStyle2 = 4:
 						'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 
 					else
@@ -850,7 +850,7 @@ if $ARGS[0] = 'firstHypnoStage':
 		*clr & cla
 		hypnoStripped = 1
 		hypnoTimesResistedStage = 0
-		if PCloStyle2 = 4: 
+		if PCloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 
 		else
@@ -1054,7 +1054,7 @@ if $ARGS[0] = 'secondHypnoStage':
 	act 'Strip naked':
 		*clr & cla
 		hypnoStripped = 1
-		if PCloStyle2 = 4: 
+		if PCloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 
 		else
@@ -1132,7 +1132,7 @@ if $ARGS[0] = 'thirdHypnoStage':
 	act '"Yes, <i>Master</i>."':
 		*clr & cla
 		hypnoStripped = 1
-		if PCloStyle2 = 4: 
+		if PCloStyle2 = 4:
 			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 
 		else
@@ -1222,8 +1222,8 @@ if $ARGS[0] = 'sleepProblems':
 		var1 = 10 - (willpowermax/20)
 		if     var1 <= 1:
 			var1 = 2
-		
-		elseif var1 >= 9: 
+
+		elseif var1 >= 9:
 			var1 = 9
 		end
 
@@ -1236,15 +1236,15 @@ if $ARGS[0] = 'sleepProblems':
 		end
 		willpowermax -= rand(4,8)
 
-		
+
 		'<font color="<<$hypnocolour>>">'
 		'"<i>Cunt</i>, what do you know about the black room?</font>"<br>"I know that everything that happens here I will not remember, <i>Master</i>."'
-		
+
 		'<font color="<<$hypnocolour>>">'
 		'"Good. Now take off your clothes."'
 		'</font>'
 		gs 'stat'
-		
+
 		act 'Take off your clothes':
 			minut += 5
 			*clr & cla
@@ -1252,7 +1252,7 @@ if $ARGS[0] = 'sleepProblems':
 			cumprecheck = 0
 			dick = 13
 			$dick_girth = 'massive'
-			if PCloStyle2 = 4: 
+			if PCloStyle2 = 4:
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
 
 			else
@@ -1262,7 +1262,7 @@ if $ARGS[0] = 'sleepProblems':
 			'<font color="<<$hypnocolour>>">'
 			'You get up from the couch and start to take off all of your clothing.'
 			'Sit down, <i>Cunt</i>.'
-			
+
 			act 'Sit down':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
@@ -1305,7 +1305,7 @@ if $ARGS[0] = 'sleepProblems':
 								'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/doggy1.mp4"></video></center>'
 								'<i>Master</i> grabs your hips. "Fuck! Cum <i>Cunt</i>! Cum now!" he yells out as he slams his dick painfully deep into you.'
 								'You cum hard on his cock and feel a huge amount of his cum flooding into you.'
-								
+
 								$cumdesciption3 = 'cum filled pussy'
 								$cumdesciption2 = 'pussy is full with fresh sperm, leaking out of you'
 
@@ -1318,7 +1318,7 @@ if $ARGS[0] = 'sleepProblems':
 									gt 'therapist', 'hypnoDress'
 								end
 							end
-						end		
+						end
 					end
 				end
 			end
@@ -1332,7 +1332,7 @@ if $ARGS[0] = 'hypnoResist':
 
 	if sound = 0: PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
 	'<font color="<<$hypnocolour>>">'
-	
+
 	if hypnoTimesResistedStage = 0:
 		'Your body tenses, and you shake your head as you reject Dr. Pavlov''s suggestion to <<$ARGS[1]>>. Seeing that you might awaken, he quickly tells you to forget the command he gave you. As the suggestion fades from your memory, you once again relax.'
 		'"Hmmm," Dr. Pavlov muses. "Your will is quite strong. It may take some time to break you, but you will break."'
@@ -1608,7 +1608,7 @@ if $ARGS[0] = 'fuck':
 	end
 
 	!! 50% | 0% chance
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0:
 		$therapistDoneFuckingDesc1 = '"This school girl pussy is too tight...! Cum now!"'
 
 	!! 17% | 33% chance
@@ -1637,7 +1637,7 @@ if $ARGS[0] = 'fuck':
 	killvar 'rand_num'
 
 	!! 50% | 0% chance
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0:
 		$therapistDoneFuckingDesc3 = '"Your little school girl pussy was amazing, Miss <<$pcs_lastname>>."'
 
 	!! 17% | 33% chance
@@ -1765,7 +1765,7 @@ if $ARGS[0] = 'hypnoFuck':
 	end
 
 	!! 50% | 0% chance
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0: 
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0,1) = 0:
 		$therapistDoneFuckingDesc1 = '"This school girl pussy is too tight...! Cum now, <i>Cunt</i>!"'
 
 	!! 17% | 33% chance
@@ -1794,8 +1794,8 @@ if $ARGS[0] = 'hypnoFuck':
 	killvar 'rand_num'
 
 
-	!! 50% | 0% chance 
-	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0: 
+	!! 50% | 0% chance
+	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and rand(0, 1) = 0:
 		$therapistDoneFuckingDesc3 = '"Your little schoolgirl pussy was amazing, <i>Cunt</i>."'
 
 	!! 17% | 33% chance
@@ -2042,7 +2042,7 @@ if $ARGS[0] = 'hypnoEnd':
 		else
 			$hypnoTxt0 += 'You feel aroused, and you try to close your legs as you walk out, subconsciously trying to keep your psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
 		end
-		
+
 		if hypnoTouchWhenever = 1:
 			rand_num = rand(1,4)
 			if     rand_num = 1:
@@ -2108,7 +2108,7 @@ if $ARGS[0] = 'hypnoEnd':
 
 		! clean up hypnocolour as leaving
 		killvar $hypnocolour
-		
+
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
 		*nl
 		if $hypnoTxt0 <> '': '<<$hypnoTxt0>>' & *nl
@@ -2225,7 +2225,7 @@ if $ARGS[0] = 'hypnoRandom':
 		*clr & cla
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		'"Now that I''ve sufficiently broken your resistance, we need to make sure you show up more often. From now on, you will feel that you NEED my hypnotism treatment. You will feel that you NEED to scheduled therapy sessions every Thursday. I have clients until 18:00 so come after then but before 19:00, I''m not going to wait here all night for you. Do you understand, Cunt?"' 
+		'"Now that I''ve sufficiently broken your resistance, we need to make sure you show up more often. From now on, you will feel that you NEED my hypnotism treatment. You will feel that you NEED to scheduled therapy sessions every Thursday. I have clients until 18:00 so come after then but before 19:00, I''m not going to wait here all night for you. Do you understand, Cunt?"'
 		'You nod "Yes, Master."'
 		hypnoSchedule = 1
 
@@ -2303,6 +2303,16 @@ if $ARGS[0] = 'hypnoRandom':
 
 		act 'Continue': gt 'therapist', 'hypnoEnd'
 
+	! sveta will now hate having body hair
+	elseif hypnoHair ! 1:
+		*clr & cla
+		hypnoRandomCounter = 0
+		hypnoHair = 1
+		'"I noticed that you have some stubble on your pussy and legs. Remove it and never let me see it again. From this point on, if you have any hair in these areas, you will feel disappointed and ashamed of yourself. You will feel like the hair in these areas is ugly, so you will shave it. If not, you will feel bad. Do you understand, Cunt?" he asks'
+
+		'"Yes, <i>Master</i>."'
+
+		act 'Continue': gt 'therapist', 'hypnoEnd'
 
 	! svesta will now get commando lvl 3
 	elseif wornPanties > 5 and wornPanties < 100:
@@ -2814,7 +2824,7 @@ if $ARGS[0] = 'hypnoProstitute':
 												act 'Continue':
 													*clr & cla
 													'You dress and step out of the car before the man drives away, leaving you alone at the gas station.'
-													
+
 													act 'Continue waiting':
 														gt 'therapist', 'hypnoProstitute'
 													end
@@ -2937,7 +2947,7 @@ if $ARGS[0] = 'hypnoProstitute':
 										act 'Continue':
 											*clr & cla
 											'You dress and step out of the car before the man drives away, leaving you alone at the gas station.'
-											
+
 											act 'Continue waiting':
 												gt 'therapist', 'hypnoProstitute'
 											end
@@ -3165,7 +3175,7 @@ if $ARGS[0] = 'hypnoProstitute':
 
 				end
 			end
-		
+
 		elseif hypnoProstRand = 7:
 			if hypnoProstDates[7] = daystart:
 				jump 'hypnoProstNothingHappens'
@@ -3185,7 +3195,7 @@ if $ARGS[0] = 'hypnoProstitute':
 			gs 'boyStat', $npclastgenerated
 			gs 'stat'
 
-			if rand(0,1) = 1: 
+			if rand(0,1) = 1:
 				$vehicleName = 'car'
 
 			else
@@ -3233,14 +3243,14 @@ if $ARGS[0] = 'hypnoProstitute':
 
 				act 'Get fucked.':
 					'The man fucks you hard and fast. He grunts loudly with each thrust and the car fills with the sounds of your wet pussy being rythmically pounded.'
-					
+
 					act 'Get filled':
 						'The man soon finishes with a loud groan. He pumps his seed deep inside of your pussy.'
 
 						act 'Continue':
 							'The man pulls his cock out of you and stands up. He fixes his trousers. You follow his lead, crawling out of the car and standing up.'
 							'Cum leaks from your used hole as you stand up.'
-						
+
 							act 'Ask for payment.':
 								randomResponse = rand(1,3)
 								if randomResponse = 1:
@@ -3389,11 +3399,11 @@ if $ARGS[0] = 'therapistFucked':
 
 	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/toSchool.mp4"></video></center>'
 
-	'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.' 
+	'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.'
 	'You feel happier because of this.'
 	pcs_mood += 1
 
-	act 'continue': 
+	act 'continue':
 		gt $menu_loc, $menu_arg
 	end
 end