Browse Source

[Changed] Changed actions that require willpower to make it more realistic

ADCSux 2 years ago
parent
commit
e451792ce7
1 changed files with 100 additions and 91 deletions
  1. 100 91
      locations/gloryhole.qsrc

+ 100 - 91
locations/gloryhole.qsrc

@@ -402,60 +402,68 @@ if $ARGS[0] = 'pussy':
 	gs 'stat'
 	if protect ! 1:
 		gs 'dinSex', 'std_trigger'
-		act 'Allow him to cum inside':
-			*clr & cla
-			gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
-			'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
-			gs 'cuminsidereact', 'an unknown guy from the gloryhole'
-			gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Get dressed': gt 'gloryhole', 'start'
-		end
-		gs 'willpower', 'cum_inside', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Quickly turn around and get on your knees (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'cum_inside', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
-				act 'Let him cum in your mouth':
+		
+		if tabletkicheck  = 0:
+			gs 'willpower', 'cum_inside', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Allow him to cum inside (<<will_cost>> WillPower)':
 					*clr & cla
-					gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
-					'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
-					'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-					gs 'arousal', 'bj', 10, 'unknown', 'sub'
+					gs 'willpower', 'pay', 'resist'
+					gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
+					'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
+					'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
+					gs 'cuminsidereact', 'an unknown guy from the gloryhole'
+					gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
 					minut -= 9
 					gs 'arousal', 'end'
 					gs 'stat'
 					act 'Get dressed': gt 'gloryhole', 'start'
 				end
-				gs 'willpower', 'swallow', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'Let him cum on your face (<<will_cost>> Willpower)':
-						*clr & cla
-						gs 'willpower', 'swallow', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						facial += 1
-						gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-						gs 'arousal', 'hj', 10, 'unknown', 'sub'
-						minut -= 9
-						gs 'arousal', 'end'
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
-						'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+			else
+				act 'Allow him to cum inside (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		else:
+			act 'Allow him to cum inside':
+				*clr & cla
+				gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
+				'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
+				gs 'cuminsidereact', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Get dressed': gt 'gloryhole', 'start'
+			end
+		end
+		
+		act 'Quickly turn around and get on your knees':
+			*clr & cla
+			gs 'stat'
+			act 'Let him cum in your mouth':
+				*clr & cla
+				gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
+				'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
+				gs 'arousal', 'bj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Get dressed': gt 'gloryhole', 'start'
+			end
+			act 'Let him cum on your face':
+				*clr & cla
+				facial += 1
+				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'hj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
+				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
 
-						act 'Get dressed': gt 'gloryhole', 'start'
-					end
-				else
-					act 'Let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
+				act 'Get dressed': gt 'gloryhole', 'start'
 			end
-		else
-			act 'Quickly turn around and get on your knees (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	else
 		if sexcontra = 4:
@@ -500,21 +508,25 @@ if $ARGS[0] = 'anal':
 		gs 'arousal', 'anal', 5, 'unknown', 'sub'
 		gs 'stat'
 		
-		gs 'willpower', 'anal', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Stop (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'anal', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'arousal', 'end'
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/analpain.jpg"></center>'
-				'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
-				act 'Leave': gt $loc, $loc_arg
-			end
-		else
-			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		if pcs_ass < 10:
+				if will_cost <= pcs_willpwr:
+					act 'Stop (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'anal', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/analpain.jpg"></center>'
+						'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
+						act 'Leave': gt $loc, $loc_arg
+					end
+				else
+					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 		end
+		gs 'willpower', 'anal', 'resist'
+		
+
 		act 'Let him cum in your ass':
 			*clr & cla
 			gs 'cum_call', 'anus', 'an unknown guy from the gloryhole'
@@ -528,58 +540,55 @@ if $ARGS[0] = 'anal':
 
 			act 'Get up': gt 'gloryhole', 'start'
 		end
-		gs 'willpower', 'cum_inside_anal', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Let him cum all over your ass (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'cum_inside_anal', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
-				gs 'arousal', 'anal', 10, 'unknown', 'sub'
-				minut -= 9
-				gs 'arousal', 'end'
-				gs 'stat'
-				
-				'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghcumonass.jpg"></center>'
-				'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
 
-				act 'Get up': gt 'gloryhole', 'start'
-			end
-		else
-			act 'Let him cum all over your ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		act 'Turn around, kneel and let him cum in your mouth':
+		act 'Let him cum all over your ass':
 			*clr & cla
-			gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
-			'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-			gs 'arousal', 'bj', 10, 'unknown', 'sub'
+			gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
+			gs 'arousal', 'anal', 10, 'unknown', 'sub'
 			minut -= 9
 			gs 'arousal', 'end'
 			gs 'stat'
+			
+			'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghcumonass.jpg"></center>'
+			'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
 
 			act 'Get up': gt 'gloryhole', 'start'
 		end
+
 		gs 'willpower', 'swallow', 'resist'
 		if will_cost <= pcs_willpwr:
-			act 'Turn around, kneel and let him cum on your face (<<will_cost>> Willpower)':
+			act 'Turn around, kneel and let him cum in your mouth (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'swallow', 'resist'
 				gs 'willpower', 'pay', 'resist'
-				facial += 1
-				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-				gs 'arousal', 'hj', 10, 'unknown', 'sub'
+				gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
+				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
+				'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
+				gs 'arousal', 'bj', 10, 'unknown', 'sub'
 				minut -= 9
 				gs 'arousal', 'end'
 				gs 'stat'
-				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
-				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
 
 				act 'Get up': gt 'gloryhole', 'start'
 			end
 		else
-			act 'Turn around, kneel and let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			act 'Turn around, kneel and let him cum in your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
+
+		act 'Turn around, kneel and let him cum on your face':
+			*clr & cla
+			facial += 1
+			gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+			gs 'arousal', 'hj', 10, 'unknown', 'sub'
+			minut -= 9
+			gs 'arousal', 'end'
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
+			'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+
+			act 'Get up': gt 'gloryhole', 'start'
+		end
+
 	end
 end