[added] willpower for talking and drinking with mitka

locations/mitka.qsrc

@@ -122,97 +122,113 @@ if $ARGS[0] = 'sex_chat':
 	'You greet him, "I''m doing fine, thanks."'
 	'Mitka smiles, "That''s great to hear, <<$pcs_nickname>>.", then he offers, "<<$mitkaInvitation>>"'
 	
-	! Sveta has never had sex with Mitka and Mitka has not seen Sveta nude in the forest multiple times
+	! Sveta has never had sex with Mitka and Mitka has not seen Sveta nude in the forest or river multiple times
 	if npc_QW['A63'] = 0:
 		*nl
 		'Mitka scratches his balls and adds with a grin: "Hey <<$pcs_nickname>>, do you want to have some fun?"'
 		if pcs_vag = 0:
 			if StoryLine = 1:
-				act 'I don''t know. My mother is obsessed with me staying a virgin.':
-					cla		
-					npc_rel['A63'] -= 1
-					pcs_dom += 1
-					gs 'stat'
-					
-					*nl
-					'You turn around and walk away from Mitka. You know it would be fun, but you promised your mother...'
-					act 'Walk away': gt $loc
-				end
-			else
-				act 'I don''t know. I''m still a virgin...':
-					cla
-					npc_rel['A63'] -= 1
-					pcs_dom += 1
-					gs 'stat'
-					
-					*nl
-					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-					act 'Walk away': gt $loc
-				end
-			end
-		end
-		if pcs_horny >= 50:
-			act 'Sounds tempting, but only a blowjob.':
-				*clr & cla
-				
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhome.jpg"></center>'
-				*nl
-				'Mitka takes you to '+iif(mitka_first_drink > 1, 'the familiar old trailer','an old trailer')+' in the woods.'
-				'Mitka sits down on a couch as you kneel in front of him. You take his cock out of his pants and start to suck...'
-				
-				npc_rel['A63'] += 5
-				npc_QW['A63'] = 1
-				gs 'boyStat', 'A63'
-				npc_sex['A63'] += 1
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'stat'
-				
-				act 'Swallow':
-					*clr & cla
-					mitkarand = rand(0,5)
-					if mitkarand = 5:
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum2.jpg"></center>'
-						*nl
-						'Mitka stands up and begins to furiously stroke his cock right in your face.'
-						'Within a minute Mitka is panting hard and suddenly you feel hot cum splattering onto your face and in your mouth.'
-						'You smile up at him and lick your lips, pleased with your efforts.'
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'I don''t know. My mother is obsessed with me staying a virgin. (<<will_cost>> Willpower)':
+						cla		
+						npc_rel['A63'] -= 1
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
 						
-						gs 'cum_call','face','A63',1
-					elseif mitkarand >= 3:
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum3.jpg"></center>'
 						*nl
-						'You bob your head up and down on his cock, trying to cram as much of his cock deep into your mouth. Sometimes you gag as it enters your throat.'
-						'Eventually, you feel Mitka''s cock pulse and a few seconds later your mouth is filled with his salty sperm. You quickly swallow it all down.'
+						'You turn around and walk away from Mitka. You know it would be fun, but you promised your mother...'
+						act 'Walk away': gt $loc
+					end
+				else
+					act 'I don''t know. My mother is obsessed with me staying a virgin. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			else
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'I don''t know. I''m still a virgin. (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A63'] -= 1
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
 						
-						gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
-						gs 'cum_call','mouth','A63',1
-						swallow += 1
-					else
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum1.jpg"></center>'
 						*nl
-						'Mitka stands, places his hands on the back of your head and roughly forces you to take his cock deep into your throat.'
-						'Slowly he builds up a rhythm and finally finishes in your mouth. He makes you swallow and lick him clean before removing his cock from your mouth.'
-						
-						gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
-						gs 'cum_call','mouth','A63',1
-						sub += 1
-						swallow += 1
+						'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
+						act 'Walk away': gt $loc
 					end
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Leave': gt $loc
+				else
+					act 'I don''t know. I''m still a virgin. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 			end
 		end
-		act 'No thanks':
-			cla
-			npc_rel['A63'] -= 1
-			gs 'stat'
+		act 'Sounds tempting, but only a blowjob.':
+			*clr & cla
 			
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhome.jpg"></center>'
 			*nl
-			'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-			act 'Walk away':gt $loc
+			'Mitka takes you to '+iif(mitka_first_drink > 1, 'the familiar old trailer','an old trailer')+' in the woods.'
+			'Mitka sits down on a couch as you kneel in front of him. You take his cock out of his pants and start to suck...'
+			
+			npc_rel['A63'] += 5
+			npc_QW['A63'] = 1
+			gs 'boyStat', 'A63'
+			npc_sex['A63'] += 1
+			gs 'arousal', 'bj', 10, 'sub'
+			gs 'stat'
+			
+			act 'Swallow':
+				*clr & cla
+				mitkarand = rand(0,5)
+				if mitkarand = 5:
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum2.jpg"></center>'
+					*nl
+					'Mitka stands up and begins to furiously stroke his cock right in your face.'
+					'Within a minute Mitka is panting hard and suddenly you feel hot cum splattering onto your face and in your mouth.'
+					'You smile up at him and lick your lips, pleased with your efforts.'
+					
+					gs 'cum_call','face','A63',1
+				elseif mitkarand >= 3:
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum3.jpg"></center>'
+					*nl
+					'You bob your head up and down on his cock, trying to cram as much of his cock deep into your mouth. Sometimes you gag as it enters your throat.'
+					'Eventually, you feel Mitka''s cock pulse and a few seconds later your mouth is filled with his salty sperm. You quickly swallow it all down.'
+					
+					gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
+					gs 'cum_call','mouth','A63',1
+					swallow += 1
+				else
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum1.jpg"></center>'
+					*nl
+					'Mitka stands, places his hands on the back of your head and roughly forces you to take his cock deep into your throat.'
+					'Slowly he builds up a rhythm and finally finishes in your mouth. He makes you swallow and lick him clean before removing his cock from your mouth.'
+					
+					gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
+					gs 'cum_call','mouth','A63',1
+					swallow += 1
+				end
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Leave': gt $loc
+			end
+		end
+		gs 'willpower', 'bj', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'No thanks (<<will_cost>> Willpower</font>)':
+				cla
+				npc_rel['A63'] -= 1
+				gs 'willpower', 'bj', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				
+				*nl
+				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
+				act 'Walk away':gt $loc
+			end
+		else
+			act 'No thanks. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	! Sveta is not the boys slut but has had sex with Mitka and she does not know Mira likes Mitka or Mira is the boys slut
 	elseif (npc_QW['A63'] > 0 and npc_QW['A63'] < 10) and (npc_QW['A60'] < 2 or npc_QW['A60'] >= 11):
@@ -244,7 +260,6 @@ if $ARGS[0] = 'sex_chat':
 				if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 				gs 'boyStat', 'A63'
 				npc_sex['A63'] += 1
-				sub += 1
 				gs 'cum_call','vagina','A63',1
 				gs 'arousal', 'vaginal', 10, 'sub'
 				gs 'arousal', 'end'
@@ -253,27 +268,40 @@ if $ARGS[0] = 'sex_chat':
 				act 'Leave': gt $loc
 			end
 			if pcs_vag = 0: 
-				act 'No, I''m still a virgin':
+				gs 'willpower', 'sex', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'No, I''m still a virgin. (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A63'] -= 2
+						gs 'willpower', 'sex', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						*nl
+						'You tell Mitka you are not ready to lose your virginity yet. You know it would be fun, but maybe another time...'
+						
+						act 'Leave': gt $loc
+					end
+				else
+					act 'No, I''m still a virgin. (<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', 'sex', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'No thanks, not today. (<<will_cost>> Willpower)':
 					cla
 					npc_rel['A63'] -= 2
-					pcs_dom += 1
+					gs 'willpower', 'sex', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					
 					*nl
-					'You tell Mitka you are not ready to lose your virginity yet. You know it would be fun, but maybe another time...'
+					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
 					
-					act 'Leave': gt $loc
+					act 'Walk away': gt $loc
 				end
-			end
-			act 'No thanks, not today':
-				cla
-				npc_rel['A63'] -= 2
-				gs 'stat'
-				
-				*nl
-				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-				
-				act 'Walk away': gt $loc
+			else
+				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		elseif mitkarand < 9:
 			'Can you give me a blowjob today?" Mitka asks.'
@@ -321,7 +349,6 @@ if $ARGS[0] = 'sex_chat':
 						
 						gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
 						gs 'cum_call','mouth','A63',1
-						sub += 1
 						swallow += 1
 					end
 					gs 'arousal', 'end'
@@ -330,15 +357,22 @@ if $ARGS[0] = 'sex_chat':
 					act 'Leave': gt $loc
 				end
 			end
-			act 'No thanks, not today':
-				cla
-				npc_rel['A63'] -= 2
-				gs 'stat'
-				
-				*nl
-				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-				
-				act 'Walk away': gt $loc
+			gs 'willpower', 'bj', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'No thanks, not today. (<<will_cost>> Willpower)':
+					cla
+					npc_rel['A63'] -= 2
+					gs 'willpower', 'bj', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					
+					*nl
+					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
+					
+					act 'Walk away': gt $loc
+				end
+			else
+				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		else
 			'"I want to do anal today. What do you think?" Mitka asks.'
@@ -366,7 +400,6 @@ if $ARGS[0] = 'sex_chat':
 				if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 				gs 'boyStat', 'A63'
 				npc_sex['A63'] += 1
-				sub += 1
 				gs 'cum_call','anus','A63',1
 				gs 'arousal', 'anal', 15, 'sub', 'rough'
 				gs 'arousal', 'end'
@@ -374,28 +407,41 @@ if $ARGS[0] = 'sex_chat':
 				
 				act 'Leave':gt 'gadukino'
 			end
-			if pcs_ass = 0: 
-				act 'No, I''ve never done anal before':
+			if pcs_ass = 0:
+				gs 'willpower', 'anal', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'No, I''ve never done anal before (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A63'] -= 2
+						gs 'willpower', 'anal', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						*nl
+						'You tell Mitka you are not ready to lose your anal virginity yet. You know it would be fun, but maybe another time...'
+						
+						act 'Leave': gt $loc
+					end
+				else
+					act 'No, I''ve never done anal before (<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'
+			if will_cost <= pcs_willpwr:
+				act 'No thanks, not today. (<<will_cost>> Willpower)':
 					cla
 					npc_rel['A63'] -= 2
-					pcs_dom += 1
+					gs 'willpower', 'anal', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					
 					*nl
-					'You tell Mitka you are not ready to lose your anal virginity yet. You know it would be fun, but maybe another time...'
+					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
 					
-					act 'Leave': gt $loc
+					act 'Walk away': gt $loc
 				end
-			end
-			act 'No thanks, not today':
-				cla
-				npc_rel['A63'] -= 2
-				gs 'stat'
-				
-				*nl
-				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-				
-				act 'Walk away': gt $loc
+			else
+				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 	! Sveta is not the boys slut and Sveta knows Mira likes Mitka and Mira is not the boys slut yet

locations/mitkabuh.qsrc

@@ -75,7 +75,7 @@ if $ARGS[0] = 'partyalone':
 			npc_rel['A63'] += rand(0,1)
 			npc_rel['A62'] += rand(0,1)
 			npc_rel['A61'] += rand(0,1)
-			gs 'drugs', 'alcohol', 'vodka', 2
+			gs 'drugs', 'alcohol', 'moonshine', 1
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
@@ -92,9 +92,22 @@ if $ARGS[0] = 'partyalone':
 
 			act 'Continue drinking':gt 'mitkabuh', 'partyalone'
 		end
-		act 'Leave': mitkabuhday = 0 & minut += 15 & gt 'gadroad'
-	! Sveta is drunk and is a sub or already had sex with Mitka or is the village whore
-	elseif gadriver_gang < 3 and (npc_QW['A63'] > 0 or sub >= 25):
+		gs 'willpower', 'drink', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)':
+				mitkabuhday = 0
+				minut += 15
+				gs 'willpower', 'drink', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				
+				gt 'gadroad'
+			end
+		else
+			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	! Sveta is drunk and already had sex with Mitka or is the village whore
+	elseif npc_QW['A63'] > 0 and gadriver_gang < 3:
 		*clr & cla
 		menu_off = 1
 		if mitkabuhday = 0:
@@ -208,11 +221,28 @@ if $ARGS[0] = 'partywithMira':
 					npc_rel['A62'] += rand(0,1)
 					npc_rel['A61'] += rand(0,1)
 					npc_rel['A60'] += rand(0,1)
-					gs 'drugs', 'alcohol', 'vodka', 2
+					gs 'drugs', 'alcohol', 'moonshine', 1
 					gs 'stat'
 					
 					act 'Continue drinking':gt 'mitkabuh','partywithMira'
 				end
+				gs 'willpower', 'drink', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Leave (<<will_cost>> Willpower)':
+						MiraLoc = 0
+						npc_drunk['A60'] = 0
+						mitkabuhmiraday = 0
+						mitkabuhday = 0
+						minut += 15
+						gs 'willpower', 'drink', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						gt 'gadroad'
+					end
+				else
+					act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			else
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/village/mira/girls_go.jpg"></center>'
@@ -227,8 +257,8 @@ if $ARGS[0] = 'partywithMira':
 	elseif alko >= 10 and mitkabuhday = 0:
 		*clr & cla
 		mitkabuhday = 1
-		! Sveta is the village whore and already had sex with Mitka or is a sub
-		if gadriver_gang < 3 and (npc_QW['A63'] > 0 or sub >= 25):
+		! Sveta already had sex with Mitka or is the village whore
+		if npc_QW['A63'] > 0 and gadriver_gang < 3:
 			if npc_QW['A63'] < 10:
 				gt 'mitkabuh','solo_1to9'
 			elseif npc_QW['A63'] = 10:
@@ -248,18 +278,27 @@ if $ARGS[0] = 'partywithMira':
 			*nl
 			'Mira attempts to pass you another shot glass full of liquor, but you refuse. You have already had too much tonight and are happy to just chat the rest of the night.'
 			if npc_drunk['A60'] < 10:
-				act 'Mira drinks the shot instead':
-					cla
-					minut += 30
-					npc_rel['A63'] += rand(0,1)
-					npc_rel['A62'] += rand(0,1)
-					npc_rel['A61'] += rand(0,1)
-					npc_rel['A60'] += rand(0,1)
-					npc_drunk['A60'] += rand(3,5)
-					gs 'stat'
-					
-					act 'Continue drinking':gt 'mitkabuh','partywithMira'
+				gs 'willpower', 'drink', 'force'
+				if will_cost <= pcs_willpwr:
+					act 'Make Mira drink the shot instead (<<will_cost>> Willpower)':
+						cla
+						minut += 30
+						npc_rel['A63'] += rand(0,1)
+						npc_rel['A62'] += rand(0,1)
+						npc_rel['A61'] += rand(0,1)
+						npc_rel['A60'] += rand(0,1)
+						npc_drunk['A60'] += 5
+						gs 'willpower', 'drink', 'force'
+						gs 'willpower', 'pay', 'force'
+						gs 'stat'
+						
+						act 'Continue drinking':gt 'mitkabuh','partywithMira'
+					end
+				else
+					act 'Make Mira drink the shot instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
+				
+				act 'Leave': MiraLoc = 0 & npc_drunk['A60'] = 0 & mitkabuhmiraday = 0 & mitkabuhday = 0 & minut += 15 & gt 'gadroad'
 			else
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/village/mira/girls_go.jpg"></center>'
@@ -285,9 +324,17 @@ if $ARGS[0] = 'partywithMira':
 				
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 				*nl
-				mirarand = rand(0,1)
-				if mirarand = 0:
-					'Mitka pours some of the brew into a clear plastic shot glass and hands it over to you.'
+				'Mitka pours some of the brew into a clear plastic shot glass and hands it over to you.'
+				act 'Drink the shot yourself':
+					cla
+					minut += 30
+					npc_rel['A63'] += rand(0,1)
+					npc_rel['A62'] += rand(0,1)
+					npc_rel['A61'] += rand(0,1)
+					npc_rel['A60'] += rand(0,1)
+					gs 'drugs', 'alcohol', 'moonshine', 1
+					gs 'stat'
+					
 					'You take the shot glass full of moonshine and quickly gulp it down, you cough and suck in your breath. Mira chats with the boys as they drink as well.'
 					'Mitka looks at you approvingly, "Good shit, right?"'
 					if mitka_first_drink = 1:
@@ -296,18 +343,50 @@ if $ARGS[0] = 'partywithMira':
 					else
 						'"Just as good as the last batch you made!" you reply.'
 					end
-					gs 'drugs', 'alcohol', 'vodka', 2
-					gs 'stat'
+					
+					act 'Continue drinking':gt 'mitkabuh','partywithMira'
+				end
+				gs 'willpower', 'drink', 'force'
+				if will_cost <= pcs_willpwr:
+					act 'Make Mira drink the shot instead (<<will_cost>> Willpower)':
+						cla
+						minut += 30
+						npc_rel['A63'] += rand(0,1)
+						npc_rel['A62'] += rand(0,1)
+						npc_rel['A61'] += rand(0,1)
+						npc_rel['A60'] += rand(0,1)
+						npc_drunk['A60'] += 5
+						gs 'willpower', 'drink', 'force'
+						gs 'willpower', 'pay', 'force'
+						gs 'stat'
+						
+						'Mira examines the glass''s contents for a moment, then gulps down the entire glass with a single toss of her head. Her eyes widen and she coughs a little, sucking in her breath with a smile. You chat with the boys as they drink as well.'
+						
+						act 'Continue drinking':gt 'mitkabuh','partywithMira'
+					end
 				else
-					'Mitka pours some of the brew into a clear plastic shot glass and hands it over to Mira.'
-					'Mira examines the glass''s contents for a moment, then gulps down the entire glass with a single toss of her head. Her eyes widen and she coughs a little, sucking in her breath with a smile. You chat with the boys as they drink as well.'
-					npc_drunk['A60'] += rand(3,5)
-					gs 'stat'
+					act 'Make Mira drink the shot instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-				
+
 				act 'Continue drinking':gt 'mitkabuh','partywithMira'
 			end
-			act 'Leave': MiraLoc = 0 & npc_drunk['A60'] = 0 & mitkabuhmiraday = 0 & mitkabuhday = 0 & minut += 15 & gt 'gadroad'
+			gs 'willpower', 'drink', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Leave (<<will_cost>> Willpower)':
+					MiraLoc = 0
+					npc_drunk['A60'] = 0
+					mitkabuhmiraday = 0
+					mitkabuhday = 0
+					minut += 15
+					gs 'willpower', 'drink', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					
+					gt 'gadroad'
+				end
+			else
+				act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		! Sveta is not drunk
 		elseif alko < 10:
 			act 'Drink with the boys':
@@ -318,7 +397,7 @@ if $ARGS[0] = 'partywithMira':
 				npc_rel['A62'] += rand(0,1)
 				npc_rel['A61'] += rand(0,1)
 				npc_rel['A60'] += rand(0,1)
-				gs 'drugs', 'alcohol', 'vodka', 2
+				gs 'drugs', 'alcohol', 'moonshine', 1
 				gs 'stat'
 				
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
@@ -335,7 +414,23 @@ if $ARGS[0] = 'partywithMira':
 
 				act 'Continue drinking':gt 'mitkabuh', 'partywithMira'
 			end
-			act 'Leave': MiraLoc = 0 & npc_drunk['A60'] = 0 & mitkabuhmiraday = 0 & mitkabuhday = 0 & minut += 15 & gt 'gadroad'
+			gs 'willpower', 'drink', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Leave (<<will_cost>> Willpower)':
+					MiraLoc = 0
+					npc_drunk['A60'] = 0
+					mitkabuhmiraday = 0
+					mitkabuhday = 0
+					minut += 15
+					gs 'willpower', 'drink', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					
+					gt 'gadroad'
+				end
+			else
+				act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		! Mira is not drunk
 		elseif npc_drunk['A60'] < 10:
 			act 'Watch Mira drink with the boys':
@@ -346,7 +441,7 @@ if $ARGS[0] = 'partywithMira':
 				npc_rel['A61'] += rand(0,1)
 				npc_rel['A60'] += rand(0,1)
 				minut += 30
-				npc_drunk['A60'] += rand(3,5)
+				npc_drunk['A60'] += 5
 				gs 'stat'
 				
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
@@ -391,7 +486,6 @@ if $ARGS[0] = 'solo_1to9':
 			if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 			gs 'boyStat', 'A63'
 			npc_sex['A63'] += 1
-			sub += 1
 			gs 'cum_call','vagina','A63',1
 			gs 'arousal', 'vaginal', 20, 'sub'
 			gs 'arousal', 'end'
@@ -425,7 +519,6 @@ if $ARGS[0] = 'solo_1to9':
 			gs 'boyStat', 'A63'
 			npc_sex['A63'] += 1
 			gs 'arousal', 'bj', 10, 'sub'
-			sub += 1
 			gs 'stat'
 			
 			act 'Make him cum':
@@ -504,7 +597,6 @@ if $ARGS[0] = 'solo_1to9':
 			if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 			gs 'boyStat', 'A63'
 			npc_sex['A63'] += 1
-			sub += 1
 			gs 'cum_call','anus','A63',1
 			gs 'arousal', 'anal', 15, 'sub', 'rough'
 			gs 'arousal', 'end'
@@ -557,7 +649,6 @@ if $ARGS[0] = 'solo_10':
 			npc_QW['A63'] = 11
 			gs 'boyStat', 'A61'
 			npc_sex['A61'] += 1
-			sub += 2
 			if mesec = 0:
 				gs 'cum_call','vagina','A61',1
 				gs 'arousal', 'vaginal', 10, 'sub'
@@ -582,51 +673,48 @@ if $ARGS[0] = 'solo_10':
 				end
 			end
 		end
-		if pcs_dom > 0:
-			act 'Protest':
+		act 'Protest':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
+			*nl
+			'You refuse, drunkenly trying to fight off the advancing Kolyamba while barely standing on your feet.'
+			'Your struggles piss Mitka off, who grabs you by the arm and leads you '+iif(sunWeather=1,'inside the trailer','into the bedroom of the trailer')+'.'
+			'Mitka whispers in your ear, "You want my dick so bad then you can have it this time. But, next time you will do as I say. Understand?"'
+			
+			act 'Moan in affirmation':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexnopublic.jpg"></center>'
 				*nl
-				'You refuse, drunkenly trying to fight off the advancing Kolyamba while barely standing on your feet.'
-				'Your struggles piss Mitka off, who grabs you by the arm and leads you '+iif(sunWeather=1,'inside the trailer','into the bedroom of the trailer')+'.'
-				'Mitka whispers in your ear, "You want my dick so bad then you can have it this time. But, next time you will do as I say. Understand?"'
+				'Mitka roughly rips all your clothes off, bends you over the bed and begins mercilessly pounding you. You''ve never seen him this way before, maybe everyone is just more drunk than usual and this will all blow over tomorrow.'
+				'All you can manage are moans as Mitka fucks you. They are so loud you are sure everyone else can hear you outside the bedroom. You can''t help but think to yourself that the other guys may start treating you differently after tonight.'
+				'He cums inside of you and then goes back to drinking with Kolyamba and Vasyan, leaving you naked on the bed. After a little while you sober up enough to get dressed and go sit back by the boys.'
 				
-				act 'Moan in affirmation':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexnopublic.jpg"></center>'
-					*nl
-					'Mitka roughly rips all your clothes off, bends you over the bed and begins mercilessly pounding you. You''ve never seen him this way before, maybe everyone is just more drunk than usual and this will all blow over tomorrow.'
-					'All you can manage are moans as Mitka fucks you. They are so loud you are sure everyone else can hear you outside the bedroom. You can''t help but think to yourself that the other guys may start treating you differently after tonight.'
-					'He cums inside of you and then goes back to drinking with Kolyamba and Vasyan, leaving you naked on the bed. After a little while you sober up enough to get dressed and go sit back by the boys.'
-					
-					npc_rel['A63'] += 1
-					npc_rel['A61'] -= 5
-					npc_QW['A63'] = 11
-					gs 'boyStat', 'A63'
-					npc_sex['A63'] += 1
-					sub += 5
-					if mesec = 0:
-						gs 'cum_call','vagina','A63',1
-						gs 'arousal', 'vaginal', 10, 'sub', 'rough'
+				npc_rel['A63'] += 1
+				npc_rel['A61'] -= 5
+				npc_QW['A63'] = 11
+				gs 'boyStat', 'A63'
+				npc_sex['A63'] += 1
+				if mesec = 0:
+					gs 'cum_call','vagina','A63',1
+					gs 'arousal', 'vaginal', 10, 'sub', 'rough'
+				else
+					gs 'cum_call','anus','A63',1
+					gs 'arousal', 'anal', 10, 'sub', 'rough'
+				end
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				if sunWeather = 1:
+					if MiraLoc ! 5:
+						act 'Sit down outside':gt 'mitkabuh','partyalone'
 					else
-						gs 'cum_call','anus','A63',1
-						gs 'arousal', 'anal', 10, 'sub', 'rough'
+						act 'Sit down outside':gt 'mitkabuh','partywithMira'
 					end
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					if sunWeather = 1:
-						if MiraLoc ! 5:
-							act 'Sit down outside':gt 'mitkabuh','partyalone'
-						else
-							act 'Sit down outside':gt 'mitkabuh','partywithMira'
-						end
+				else
+					if MiraLoc ! 5:
+						act 'Sit down in the trailer':gt 'mitkabuh','partyalone'
 					else
-						if MiraLoc ! 5:
-							act 'Sit down in the trailer':gt 'mitkabuh','partyalone'
-						else
-							act 'Sit down in the trailer':gt 'mitkabuh','partywithMira'
-						end
+						act 'Sit down in the trailer':gt 'mitkabuh','partywithMira'
 					end
 				end
 			end
@@ -660,7 +748,6 @@ if $ARGS[0] = 'solo_11andup_1boy':
 			if npc_QW['A63'] < 20: npc_QW['A63'] += 1
 			npc_sex[$boy[0]] += 1
 			gs 'arousal', 'bj', 10, 'sub'
-			sub += 1
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjpublic.jpg"></center>'
@@ -725,7 +812,6 @@ if $ARGS[0] = 'solo_11andup_1boy':
 			else
 				gs 'arousal', 'anal', 20, 'sub'
 			end
-			sub += 1
 			gs 'stat'
 			
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
@@ -796,8 +882,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 			if npc_QW['A63'] < 20: npc_QW['A63'] += 1
 			npc_sex[$boy[0]] += 1
 			npc_sex[$boy[1]] += 1
-			gs 'arousal', 'bj', 10, 'sub'			
-			sub += 1
+			gs 'arousal', 'bj', 10, 'sub'
 			gang += 1
 			gs 'stat'
 			
@@ -873,7 +958,6 @@ if $ARGS[0] = 'solo_11andup_2boys':
 			else
 				gs 'arousal', 'anal', 10, 'sub', 'rough'
 			end
-			sub += 1
 			gang += 1
 			gs 'stat'
 			
@@ -945,7 +1029,6 @@ if $ARGS[0] = 'solo_11andup_3boys':
 		npc_sex['A62'] += 1
 		gs 'boyStat', 'A61'
 		npc_sex['A61'] += 1
-		sub += 1
 		gang += 1
 		gs 'arousal', 'hj', 5, 'sub', 'gangbang'
 		if mesec = 0:

locations/mitkabuh_group.qsrc

@@ -116,12 +116,28 @@ if $ARGS[0] = 'partywithMira':
 			'"Just as good as the last batch you made!" you reply.'
 
 			npc_drunk['A60'] += 5
-			gs 'drugs', 'alcohol', 'moonshine'
+			gs 'drugs', 'alcohol', 'moonshine', 1
 			gs 'stat'
 			
 			act 'Continue drinking':gt 'mitkabuh_group','partywithMira'
 		end
-		act 'Leave': MiraLoc = 0 & npc_drunk['A60'] = 0 & mitkabuhmiraday = 0 & mitkabuhday = 0 & minut += 15 & gt 'gadroad'
+		gs 'willpower', 'drink', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)':
+				MiraLoc = 0
+				npc_drunk['A60'] = 0
+				mitkabuhmiraday = 0
+				mitkabuhday = 0
+				minut += 15
+				gs 'willpower', 'drink', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				
+				gt 'gadroad'
+			end
+		else
+			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	end
 end
 
@@ -141,7 +157,6 @@ if $ARGS[0] = 'group_sex':
 		if npc_QW['A60'] < 15: npc_QW['A60'] += 1
 		npc_sex[$boy[0]] += 1
 		npc_sex[$boy[1]] += 1
-		sub += 1
 		gang += 1
 		gs 'arousal', 'vaginal', 10, 'sub', 'gangbang'
 		gs 'arousal', 'bj', 10, 'sub', 'gangbang'
@@ -166,7 +181,6 @@ if $ARGS[0] = 'group_sex':
 			npc_rel[$boy[2]] += 1
 			npc_rel['A60'] += 1
 			npc_sex[$boy[2]] += 1
-			sub += 1
 			gang += 1
 			gs 'arousal', 'bj', 10, 'sub', 'gangbang'
 			gs 'stat'
@@ -241,7 +255,6 @@ if $ARGS[0] = 'group_bj':
 			if npc_QW['A60'] < 15: npc_QW['A60'] += 1
 			npc_sex[$boy[0]] += 1
 			npc_sex[$boy[1]] += 1
-			sub += 1
 			gang += 1
 			gs 'arousal', 'hj', 10, 'sub', 'gangbang'
 			gs 'arousal', 'bj', 10, 'sub', 'gangbang'
@@ -281,7 +294,6 @@ if $ARGS[0] = 'group_bj':
 					npc_rel[$boy[2]] += 1
 					npc_rel['A60'] += 1
 					npc_sex[$boy[2]] += 1
-					sub += 1
 					gang += 1
 					gs 'arousal', 'bj', 10, 'sub', 'gangbang'
 					gs 'stat'
@@ -372,7 +384,6 @@ if $ARGS[0] = 'group_bj':
 				if npc_QW['A60'] < 15: npc_QW['A60'] += 1
 				npc_sex[$boy[1]] += 1
 				npc_sex[$boy[2]] += 1
-				sub += 1
 				gang += 1
 				gs 'arousal', 'hj', 10, 'sub', 'gangbang'
 				gs 'arousal', 'bj', 10, 'sub', 'gangbang'
@@ -455,7 +466,6 @@ if $ARGS[0] = 'group_show':
 			npc_rel['A60'] += 1
 			if npc_QW['A63'] < 20: npc_QW['A63'] += 1
 			if npc_QW['A60'] < 15: npc_QW['A60'] += 1
-			sub += 1
 			gs 'stat'
 			
 			mitkapicrand = rand(0,3)
@@ -499,7 +509,6 @@ if $ARGS[0] = 'group_show':
 			npc_rel['A60'] += 1
 			if npc_QW['A63'] < 20: npc_QW['A63'] += 1
 			if npc_QW['A60'] < 15: npc_QW['A60'] += 1
-			sub += 1
 			gs 'stat'
 			
 			if sunWeather = 1:
@@ -619,7 +628,6 @@ if $ARGS[0] = 'group_anal':
 		if npc_QW['A63'] < 20: npc_QW['A63'] += 1
 		if npc_QW['A60'] < 15: npc_QW['A60'] += 1
 		npc_sex[$boy[0]] += 1
-		sub += 1
 		gs 'cum_call','anus',$boy[0],1
 		gs 'arousal', 'anal', 10, 'sub', 'rough', 'deepthroat'
 		gs 'arousal','end'