Explorar el Código

[fixed] moved two large blocks of text that were copypasted multiple times to gs calls so that they only need to be written out once

Spackled Lanturn hace 3 años
padre
commit
7cb822d759
Se han modificado 1 ficheros con 33 adiciones y 77 borrados
  1. 33 77
      locations/therapist.qsrc

+ 33 - 77
locations/therapist.qsrc

@@ -192,29 +192,7 @@ if $ARGS[0] = 'hypno':
 		gs 'stat'
 		if hypnostrengh <= 30:
 			if hypnotime < 1:
-				act 'Refuse':
-					minut += 5
-					cla
-					if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
-					'<font color=brown>'
-					if hypnostrength <= 5:
-						'Your body tenses, and you shake your head as you reject Dr. Pavlov''s suggestion to remove your clothing. Seeing that you might awaken, he quickly tells you to forget the idea of undressing. 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."'
-						act 'Wake up':gt 'therapist', 'hypnoEnd'
-					elseif hypnostrength <= 10:
-						'Your body tenses, and you frown as you resist Dr. Pavlov''s suggestion to strip. The doctor frowns but orders you to forget the idea of undressing, for now. You relax as you comply with his order to forget.'
-						'"Soon you will be unable to resist me, my dear," he murmurs as he lightly traces the shape of your breast through your clothes, "Then we will have some fun."'
-						act 'Wake up':gt 'therapist', 'hypnoEnd'
-					elseif hypnostrength <= 15:
-						'Your brow wrinkles, and you frown as you fight the doctor''s suggestion. He quickly tells you to forget that he asked. As the command fades from your memory, you relax once more.'
-						'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>," Dr. Pavlov mutters in mild frustration.'
-						act 'Wake up':gt 'therapist', 'hypnoEnd'
-					else
-						'You frown slightly as your hands start to move towards your waist to unfasten your clothes then return to your side before once again beginning to move. Your frown deepens, and Dr. Pavlov tells you to forget the command before the conflict awakens you. You relax once more as the doctor sighs in frustration.'
-						'"We are very close to a breakthrough, my little <i>Cunt</i>," he whispers in your ear as he caresses your breasts, making your nipples stiffen, "You won''t resist me much longer, and then you''ll be mine to enjoy."'
-						act 'Wake up':gt 'therapist', 'hypnoEnd'
-					end
-				end
+				act 'Refuse':gs 'therapist', 'hypnoResist'
 			else
 				! Dont know what $ARGS[0] would be appropriate here.. technically youre resisting stripping down, but it eventually ends up as some form of sex... The whole point is that once you give in youre under his control.
 				gs 'willpower', 'sex', 'resist'
@@ -223,27 +201,7 @@ if $ARGS[0] = 'hypno':
 				if will_cost <= pcs_willpwr:
 					act 'Refuse (<<will_cost>> Willpower)':
 						gs 'willpower', 'pay', 'resist'
-						minut += 5
-						cla
-						if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
-						'<font color=brown>'
-						if hypnostrength <= 5:
-							'Your body tenses, and you shake your head as you reject Dr. Pavlov''s suggestion to remove your clothing. Seeing that you might awaken, he quickly tells you to forget the idea of undressing. 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."'
-							act 'Wake up':gt 'therapist', 'hypnoEnd'
-						elseif hypnostrength <= 10:
-							'Your body tenses, and you frown as you resist Dr. Pavlov''s suggestion to strip. The doctor frowns but orders you to forget the idea of undressing, for now. You relax as you comply with his order to forget.'
-							'"Soon you will be unable to resist me, my dear," he murmurs as he lightly traces the shape of your breast through your clothes, "Then we will have some fun."'
-							act 'Wake up':gt 'therapist', 'hypnoEnd'
-						elseif hypnostrength <= 15:
-							'Your brow wrinkles, and you frown as you fight the doctor''s suggestion. He quickly tells you to forget that he asked. As the command fades from your memory, you relax once more.'
-							'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>," Dr. Pavlov mutters in mild frustration.'
-							act 'Wake up':gt 'therapist', 'hypnoEnd'
-						else
-							'You frown slightly as your hands start to move towards your waist to unfasten your clothes then return to your side before once again beginning to move. Your frown deepens, and Dr. Pavlov tells you to forget the command before the conflict awakens you. You relax once more as the doctor sighs in frustration.'
-							'"We are very close to a breakthrough, my little <i>Cunt</i>," he whispers in your ear as he caresses your breasts, making your nipples stiffen, "You won''t resist me much longer, and then you''ll be mine to enjoy."'
-							act 'Wake up':gt 'therapist', 'hypnoEnd'
-						end
+						gs 'therapist', 'hypnoResist'
 					end
 				else
 					act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -292,6 +250,27 @@ if $ARGS[0] = 'hypno':
 	end
 end
 
+if $ARGS[0] = 'hypnoResist':
+	minut += 5
+	cla
+	if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
+	'<font color=brown>'
+	if hypnostrength <= 5:
+		'Your body tenses, and you shake your head as you reject Dr. Pavlov''s suggestion to remove your clothing. Seeing that you might awaken, he quickly tells you to forget the idea of undressing. 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."'
+	elseif hypnostrength <= 10:
+		'Your body tenses, and you frown as you resist Dr. Pavlov''s suggestion to strip. The doctor frowns but orders you to forget the idea of undressing, for now. You relax as you comply with his order to forget.'
+		'"Soon you will be unable to resist me, my dear," he murmurs as he lightly traces the shape of your breast through your clothes, "Then we will have some fun."'
+	elseif hypnostrength <= 15:
+		'Your brow wrinkles, and you frown as you fight the doctor''s suggestion. He quickly tells you to forget that he asked. As the command fades from your memory, you relax once more.'
+		'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>," Dr. Pavlov mutters in mild frustration.'
+	else
+		'You frown slightly as your hands start to move towards your waist to unfasten your clothes then return to your side before once again beginning to move. Your frown deepens, and Dr. Pavlov tells you to forget the command before the conflict awakens you. You relax once more as the doctor sighs in frustration.'
+		'"We are very close to a breakthrough, my little <i>Cunt</i>," he whispers in your ear as he caresses your breasts, making your nipples stiffen, "You won''t resist me much longer, and then you''ll be mine to enjoy."'
+	end
+	act 'Wake up':gt 'therapist', 'hypnoEnd'
+end
+
 
 if $ARGS[0] = 'hypnoSuck':
 	if sound = 0:PLAY 'sound/rainstorm.mp3',10 & PLAY 'sound/clock.mp3',20 & PLAY 'sound/sucking.mp3',200
@@ -312,20 +291,7 @@ if $ARGS[0] = 'hypnoSuck':
 	swallow += 1
 	gs 'stat'
 
-	if hypnoTime < 10:
-		'"Get dressed, <i>Cunt</i>. Do it erotically, as much as you can."'
-		'He watches you getting dressed with a small smile on his face.</font>'
-	elseif $pantyworntype ! 'none':
-		'"Get dressed, <i>Cunt</i>, but forget the underwear. You didn''t wear any when you came, and you do not like to wear them. You enjoy the thought that people may notice that you do not wear underwear, maybe catch a glimpse of your naked pussy or ass."'
-		'He watches you getting dressed with a small smile on his face, especially enjoying the sight of you completely ignoring your underwear.</font>'
-		gs 'underwear', 'remove'
-		bedPanty = 2
-	else
-		'"Get dressed, <i>Cunt</i>. I see you didn''t wear underwear. Very good, you do not like to wear them. You enjoy the thought that people may notice that you do not wear underwear, maybe catch a glimpse of your naked pussy or ass."'
-		'He watches you getting dressed with a small smile on his face, especially enjoying the sight of you completely ignoring your underwear.</font>'
-		bedPanty = 2
-	end
-	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/dressup.mp4"></video></center>'
+	gs 'therapist', 'hypnoDress'
 	gs 'arousal', 'end'
 	gs 'stat'
 	act 'Wake up':gt 'therapist', 'hypnoEnd'
@@ -383,20 +349,7 @@ if $ARGS[0] = 'hypnoFuck':
 	end
 	'He groans, and you feel his cock contracting inside of you. "Cum, <i>Cunt</i>, cum now!" Holding your hips, he forces himself as deep into your body as possible, pushing everything he has into you, while you obey his order and orgasm on his tool. And he certainly has quite a lot to let out.'
 	'Finally he is done, and he pulls out of you. "That was amazing, <i>Cunt</i>."'
-	if hypnoTime < 10:
-		'"Get dressed, <i>Cunt</i>. Do it erotically, as much as you can."'
-		'He watches you getting dressed with a small smile on his face.</font>'
-	elseif $pantyworntype ! 'none':
-		'"Get dressed, <i>Cunt</i>, but forget the underwear. You didn''t wear any when you arrived, and you do not like to wear them. You enjoy the thought that people may notice that you do not wear underwear, maybe catching a glimpse of your naked pussy or ass."'
-		'He watches you getting dressed with a small smile on his face, especially enjoying the sight of you completely ignoring your underwear.</font>'
-		gs 'underwear', 'remove'
-		bedPanty = 2
-	else
-		'"Get dressed, <i>Cunt</i>. I see you didn''t wear underwear. Very good, you do not like to wear them. You enjoy the thought that people may notice that you do not wear underwear, maybe catching a glimpse of your naked pussy or ass."'
-		'He watches you getting dressed with a small smile on his face, especially enjoying the sight of you completely ignoring your underwear.</font>'
-		bedPanty = 2
-	end
-	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/dressup.mp4"></video></center>'
+	gs 'therapist', 'hypnoDress'
 	$orgasm_or = 'yes'
 	gs 'arousal', 'end'
 	gs 'stat'
@@ -443,6 +396,14 @@ if $ARGS[0] = 'hypnoAnal':
 	end
 	'He groans, and you feel his cock contracting inside of you. "Cum, <i>Cunt</i>, cum now!" Holding your hips, he forces himself as deep into your body as possible, pushing everything he has into you, while you obey his order and orgasm on his tool. And he certainly has quite a lot to let out.'
 	'Finally, he is done, and he pulls out of you. "That was amazing, <i>Cunt</i>."'
+	gs 'therapist', 'hypnoDress'
+	$orgasm_or = 'yes'
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Wake up':gt 'therapist', 'hypnoEnd'
+end
+
+if $ARGS[0] = 'hypnoDress':
 	if hypnoTime < 10:
 		'"Get dressed, <i>Cunt</i>. Do it erotically, as much as you can."'
 		'He watches you getting dressed with a small smile on his face.</font>'
@@ -457,13 +418,8 @@ if $ARGS[0] = 'hypnoAnal':
 		bedpanty = 2
 	end
 	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/dressup.mp4"></video></center>'
-	$orgasm_or = 'yes'
-	gs 'arousal', 'end'
-	gs 'stat'
-	act 'Wake up':gt 'therapist', 'hypnoEnd'
 end
 
-
 if $ARGS[0] = 'hypnoEnd':
 	minut += 5
 	CLOSE ALL