Merge remote-tracking branch 'oldentree/willpower_seeding'

locations/brother.qsrc

@@ -296,61 +296,63 @@ if $ARGS[0] = 'start':
 
 			if hour >= 23 and hour < 24 and brotherSex > 4 and brotherNightSex ! daystart:
 				'As you approach your sleeping brother, he suddenly opens his eyes and looks at you.'
-				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
-					'"<<$pcs_nickname>>, help me sleep," he begs while throwing back the blanket, revealing his erection.'
+				!!sub/dom dialog needs fixing
+				!!if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
+				!!	'"<<$pcs_nickname>>, help me sleep," he begs while throwing back the blanket, revealing his erection.'
+				!!	gs 'boyStat', 'A34'
+				!!	brotherSexCount -= 1
+				!!	brotherNightSex = daystart
+
+				!!	gs 'brother', 'brotherSexStart'
+				!!else
+				'He points to the mound under his blanket, "Sis, I can''t get any sleep, can you help?"'
+				cla
+				act 'Help him out':
 					gs 'boyStat', 'A34'
+					'"Yes, I know what to do," you say with a smile while he pulls down his pants, showing you his hard cock.'
 					brotherSexCount -= 1
 					brotherNightSex = daystart
 
 					gs 'brother', 'brotherSexStart'
-				else
-					'He points to the mound under his blanket, "Sis, I can''t get any sleep, can you help?"'
+				end
+				act 'He''s on his own there':
+					'"You''ve got two perfectly good hands for that," you reply with a smile as you turn around to leave.'
 					cla
-					act 'Help him out':
-						gs 'boyStat', 'A34'
-						'"Yes, I know what to do," you say with a smile while he pulls down his pants, showing you his hard cock.'
-						brotherSexCount -= 1
-						brotherNightSex = daystart
-
-						gs 'brother', 'brotherSexStart'
-					end
-					act 'He''s on his own there':
-						'"You''ve got two perfectly good hands for that," you reply with a smile as you turn around to leave.'
-						cla
-						act 'Leave':gt 'sitrPar'
-						exit
-					end
+					act 'Leave':gt 'sitrPar'
+					exit
 				end
+				!!end
 			end
 
 			if father_go = 1 and hour >= 18 and hour < 23 and brotherSex > 4 and brotherEvSex ! daystart:
 				'When you get close, Kolka turns to you.'
-				if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
+				!!sub/dom dialog needs fixing
+				!!if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
+					!!gs 'boyStat', 'A34'
+					!!'"Come on, <<$pcs_nickname>>, you have work to do!" Your brother drops his pants, exposing his hard <<npc_dick[''A34'']>> cm dick. "And be quiet, you don''t want to wake up <<$npc_nickname[''A29'']>> and dad."'
+					!!brotherSexCount -= 1
+					!!brotherEvSex = daystart
+
+					!!gs 'brother', 'brotherSexStart'
+				!!else
+				'"Sis, I''ve got a problem," he points to the lump in his pants. "Can you help me solve it?"'
+				cla
+				act 'Help him out':
 					gs 'boyStat', 'A34'
-					'"Come on, <<$pcs_nickname>>, you have work to do!" Your brother drops his pants, exposing his hard <<npc_dick[''A34'']>> cm dick. "And be quiet, you don''t want to wake up <<$npc_nickname[''A29'']>> and dad."'
+					'A huge smile crosses your face, "I know what will solve this problem. Take off your pants, but be quiet."'
+					'Kolka starts to take off his pants, his erect <<npc_dick[''A34'']>> cm cock quickly popping out.'
 					brotherSexCount -= 1
 					brotherEvSex = daystart
 
 					gs 'brother', 'brotherSexStart'
-				else
-					'"Sis, I''ve got a problem," he points to the lump in his pants. "Can you help me solve it?"'
+				end
+				act 'That is so his problem':
+					'"Poor little Kolka, they sell porn in the local shops. I''m sure you can work out the rest," you chuckle quietly as you leave.'
 					cla
-					act 'Help him out':
-						gs 'boyStat', 'A34'
-						'A huge smile crosses your face, "I know what will solve this problem. Take off your pants, but be quiet."'
-						'Kolka starts to take off his pants, his erect <<npc_dick[''A34'']>> cm cock quickly popping out.'
-						brotherSexCount -= 1
-						brotherEvSex = daystart
-
-						gs 'brother', 'brotherSexStart'
-					end
-					act 'That is so his problem':
-						'"Poor little Kolka, they sell porn in the local shops. I''m sure you can work out the rest," you chuckle quietly as you leave.'
-						cla
-						act 'Leave':gt 'sitrPar'
-						exit
-					end
+					act 'Leave':gt 'sitrPar'
+					exit
 				end
+				!!end
 			end
 		end
 	end
@@ -416,26 +418,28 @@ if $ARGS[0] = 'playfootball':
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 			'The boys hesitate before one of them responds, "Err... nothing."'
 
-			if pcs_dom > 0 and kolkaseepornday ! daystart:
-				'You can tell they''re lying, so you decide to tease them, "I know, you''re talking about which boys in school you want to kiss, aren''t you?"'
-				'They glare at you and shout, "No!"'
-				'"We wanted to—" Mishan starts before getting cut off when your brother elbows him in the side.'
-				'"Shut up! Don''t tell her," Kolka says sharply. Next thing you know, Kolka and Mishan are arguing, while Zhendos stands there watching them with an annoyed look.'
-				'"Hey, it’s not a big deal. I was just kidding," you say.'
-				'"Porn!" Zhendos blurts out, causing your brother and his friend to stop arguing and fall silent. "We wanted to go watch some porn but you’re here."'
-				'You see Kolka’s face flush red with embarrassment while Mishan laughs and Zhendos rolls his eyes.'
-				'"A girl like you would just get grossed out," Mishan says proudly. "All girls are like that."'
-				act 'Leave':gt $loc, $metka
-				act 'Prove them wrong':
-					*clr & cla
-					gs 'stat'
-					'You tell them if they''re going to watch porn, they''ll need a babysitter. The boys don''t look very pleased, but you don''t give them a choice.'
-					'They have found a spare key for an AV lounge in the school that is not used at this time of day and you all sneak in.'
-
-					act 'Go watch porn':minut += 5 & gt 'seeporn'
-				end
-
-			elseif npc_QW['A34'] >=3 and kolkaseepornday ! daystart:
+			!!sub/dom dialog needs fixing
+			!!if pcs_dom > 0 and kolkaseepornday ! daystart:
+				!!'You can tell they''re lying, so you decide to tease them, "I know, you''re talking about which boys in school you want to kiss, aren''t you?"'
+				!!'They glare at you and shout, "No!"'
+				!!'"We wanted to—" Mishan starts before getting cut off when your brother elbows him in the side.'
+				!!'"Shut up! Don''t tell her," Kolka says sharply. Next thing you know, Kolka and Mishan are arguing, while Zhendos stands there watching them with an annoyed look.'
+				!!'"Hey, it’s not a big deal. I was just kidding," you say.'
+				!!'"Porn!" Zhendos blurts out, causing your brother and his friend to stop arguing and fall silent. "We wanted to go watch some porn but you’re here."'
+				!!'You see Kolka’s face flush red with embarrassment while Mishan laughs and Zhendos rolls his eyes.'
+				!!'"A girl like you would just get grossed out," Mishan says proudly. "All girls are like that."'
+				!!act 'Leave':gt $loc, $metka
+				!!act 'Prove them wrong':
+					!!*clr & cla
+					!!gs 'stat'
+					!!'You tell them if they''re going to watch porn, they''ll need a babysitter. The boys don''t look very pleased, but you don''t give them a choice.'
+					!!'They have found a spare key for an AV lounge in the school that is not used at this time of day and you all sneak in.'
+
+					!!act 'Go watch porn':minut += 5 & gt 'seeporn'
+				!!end
+
+			!!elseif npc_QW['A34'] >=3 and kolkaseepornday ! daystart:
+			if npc_QW['A34'] >=3 and kolkaseepornday ! daystart:
 				'Kolka hesitates for a moment before giving you a funny look, "Actually, <<$pcs_nickname>>, we want to go watch some porn but we weren''t sure with having you around... But I think a girl like you could handle it."'
 				act 'Leave':gt $loc, $metka
 				act 'Show interest':
@@ -655,13 +659,17 @@ if $ARGS[0] = 'showbody':
 		'As you finish studying, Kolka, flush red with excitement, turns to you, "<<$pcs_nickname>>, I have to learn about human anatomy, but I am having trouble with it. Can you help me?"'
 		'Confused, you ask, "What do you mean?"'
 		'"Well, um..." Kolka hesitates. "Can you show me what girls look like..."'
-		if sub < 30:
-			act'Refuse':
+		gs 'willpower', 'exhib', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act'Refuse (<<will_cost>> Willpower)':
 				cla
+				gs 'willpower', 'pay', 'resist'
 				'Incredulously, you ask, "How the fuck can I do that? Should I just take off my clothes in front of you and let you gawk at me? I''m your sister!"'
 				'Kolka backs down in embarrassment, "You''re right, I''m sorry. I shouldn''t have asked."'
 				act 'Finish':gt $loc, $metka
 			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>'
 		end
 
 		act'"Huh..."':
@@ -680,7 +688,15 @@ if $ARGS[0] = 'showbody':
 	elseif npc_QW['A34'] > 3:
 		act'Undress again':gt'brother','brother_voyeur_ev4'
 
-		if sub < 30: act'Enough for today':gt $loc, $metka
+		gs 'willpower', 'exhib', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Enough for today (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gt $loc, $metka
+			end
+		else
+			act 'Enough for today (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 		exit
 	else
 		act 'Finish':gt $loc, $metka
@@ -839,39 +855,40 @@ if $ARGS[0] = 'brotherSexEnd':
 	minut += 15
 	gs 'arousal', 'end'
 	gs 'stat'
-	if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
-			'Panting, Kolka looks at you and says, "That was great, <<$pcs_nickname>>!" He puts his softening cock back in his pants, "Just remember, this is our little secret!" He quickly turns his attention to something else.'
-			act 'Leave': gt 'sitrPar'
-		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
-			'Kolka lets out a deep yawn, "Ah, thanks <<$pcs_nickname>>. You''re the best." The words barely leave his lips before he''s back under the blanket and dozing off.'
-			act 'Leave': gt 'sitrPar'
-		elseif $loc = 'sitrPar':
-			'Still somewhat out of breath, Kolka pats your head gently and says, "Nice one, <<$pcs_nickname>>, you''re well trained. Now remember, don''t tell anyone!" He quickly falls asleep.'
-			act 'Leave': gt 'sitrPar'
-		else
-			minut -= 15
-			gs 'stat'
-			'Kolka gives you an appreciative nod, "Nice one, <<$pcs_nickname>>, you''re well trained. Now, don''t tell anyone!"'
-			act 'Continue':gt $loc, $metka
-		end
+	!!sub/dom dialog needs fixing
+	!!if sub > 0 or (evgenQW >= 4 and pav_slut >= 75):
+		!!if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
+			!!'Panting, Kolka looks at you and says, "That was great, <<$pcs_nickname>>!" He puts his softening cock back in his pants, "Just remember, this is our little secret!" He quickly turns his attention to something else.'
+			!!act 'Leave': gt 'sitrPar'
+		!!elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+			!!'Kolka lets out a deep yawn, "Ah, thanks <<$pcs_nickname>>. You''re the best." The words barely leave his lips before he''s back under the blanket and dozing off.'
+			!!act 'Leave': gt 'sitrPar'
+		!!elseif $loc = 'sitrPar':
+			!!'Still somewhat out of breath, Kolka pats your head gently and says, "Nice one, <<$pcs_nickname>>, you''re well trained. Now remember, don''t tell anyone!" He quickly falls asleep.'
+			!!act 'Leave': gt 'sitrPar'
+		!!else
+			!!minut -= 15
+			!!gs 'stat'
+			!!'Kolka gives you an appreciative nod, "Nice one, <<$pcs_nickname>>, you''re well trained. Now, don''t tell anyone!"'
+			!!act 'Continue':gt $loc, $metka
+		!!end
+	!!else
+	if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
+		'With a wide grin on his face, Kolka tells you, "Many thanks, <<$pcs_nickname>>, you''ve helped me a lot." He resumes his prior business.'
+		act 'Leave': gt 'sitrPar'
+	elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
+		'Completely sated, Kolka mumbles to you, "Thanks <<$pcs_nickname>>, you''re the best..." In just a few seconds, he''s already dozing off into a blissfull sleep.'
+		act 'Leave': gt 'sitrPar'
+	elseif $loc = 'sitrPar':
+		'Kolka gives his deflating member a quick shake, "Thanks, <<$pcs_nickname>>, you saved me. Now I can finally sleep..." He slides under his covers and promptly falls asleep.'
+		act 'Leave': gt 'sitrPar'
 	else
-		if $loc = 'sitrPar' and father_go = 1 and hour >= 18 and hour < 23:
-			'With a wide grin on his face, Kolka tells you, "Many thanks, <<$pcs_nickname>>, you''ve helped me a lot." He resumes his prior business.'
-			act 'Leave': gt 'sitrPar'
-		elseif $loc = 'sitrPar' and npc_rel['A34'] >= 80:
-			'Completely sated, Kolka mumbles to you, "Thanks <<$pcs_nickname>>, you''re the best..." In just a few seconds, he''s already dozing off into a blissfull sleep.'
-			act 'Leave': gt 'sitrPar'
-		elseif $loc = 'sitrPar':
-			'Kolka gives his deflating member a quick shake, "Thanks, <<$pcs_nickname>>, you saved me. Now I can finally sleep..." He slides under his covers and promptly falls asleep.'
-			act 'Leave': gt 'sitrPar'
-		else
-			minut -= 15
-			gs 'stat'
-			'Kolka lets out a very satisfied sigh, "Ah, thanks so much for that, <<$pcs_nickname>>. I gotta go." He puts his drained cock back into his pants and leaves.'
-			act 'Continue':gt $loc, $metka
-		end
+		minut -= 15
+		gs 'stat'
+		'Kolka lets out a very satisfied sigh, "Ah, thanks so much for that, <<$pcs_nickname>>. I gotta go." He puts his drained cock back into his pants and leaves.'
+		act 'Continue':gt $loc, $metka
 	end
+	!!end
 end
 
 if $ARGS[0] = 'brotherSexCount':
@@ -1232,16 +1249,30 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 		'"You know," Kolka points at your naked bottom.'
 		'"I don''t know, I think this has gone too far already," you answer indignantly.'
 		'"Please, show me!" Kolka pleads.'
-		if sub < 30:
-			act'Refuse and get dressed':gt $loc, $metka
+
+		gs 'willpower', 'exhib', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse and get dressed (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gt $loc, $metka
+				end
+		else
+			act 'Refuse and get dressed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act'Give Kolka a closer look':gt 'brother','brother_voyeur_ev7'
 	elseif npc_QW['A34'] > 4:
 		'Your brother points to your legs, "<<$pcs_nickname>>, can you show me?" He moves his arms apart, mimicking you spreading your legs.'
 		'A small thrill runs up your spine, "Again?"'
 		'"Again," he grins. "Please?"'
-		if sub < 30:
-			act'Refuse and get dressed':gt $loc, $metka
+
+		gs 'willpower', 'exhib', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse and get dressed (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gt $loc, $metka
+				end
+		else
+			act 'Refuse and get dressed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act'Give Kolka another close up look':gt 'brother','brother_voyeur_ev7'
 	end
@@ -1317,8 +1348,15 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 				'You ask him, "What now?" You smile at him, because you''re pretty sure you know what''s coming.'
 				'Kolka smiles back, "Will you lie on the floor again?"'
 			end
-			if sub < 30:
-				act'Refuse and get dressed':gt $loc, $metka
+
+			gs 'willpower', 'exhib', 'resist', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Refuse and get dressed (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'resist'
+					gt $loc, $metka
+					end
+			else
+				act 'Refuse and get dressed (<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 down on the floor':gt 'brother','brother_voyeur_ev8'
 		end