[fixed] willpower seeding, first batch. Leaving some behind after I clarify what can be done

locations/brother.qsrc

@@ -655,13 +655,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 +684,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
@@ -1232,16 +1244,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 +1343,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