[added] willpower to workhosp by the furry one and small fixes by me

locations/WorkHosp.qsrc

@@ -11,7 +11,7 @@ if $ARGS[0] = 'start':
 	gs 'stat'
 	'<center><b><font color="maroon">Clinic</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
-	'The hospital staff are hard at work, with many patients waiting in the lobbies.  Doctors and nurses rush from office to office trying to keep the flow of patients going as quickly as possible.'
+	'The hospital staff are hard at work, with many patients waiting in the lobbies. Doctors and nurses rush from office to office trying to keep the flow of patients going as quickly as possible.'
 	jobhosprand = rand(0, 9)
 
 	act 'Work in the Operating Room (1:00)':
@@ -57,7 +57,7 @@ if $ARGS[0] = 'start':
 					picrand = 11
 					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
 					'You begin to secretly masturbate whenever nobody is watching.'
-					$orgasm_or = 'custom'
+					$orgasm_or = 'yes'
 					$orgasm_txt = 'Gradually a pleasant warmth and sensation radiates from your needy sex, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
 					gs 'arousal', 'masturbate', 15
 					gs 'stat'
@@ -93,7 +93,7 @@ if $ARGS[0] = 'start':
 		cls
 		'<center><b><font color="maroon">Clinic</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
-		'Your shift ended.'
+		'Your shift has ended.'
 
 		act 'Go home':gt 'street'
 	end
@@ -102,16 +102,14 @@ end
 if $ARGS[0] = 'milit':
 	cla
 	military = 1
-	'"Listen, I am scheduled to work this weekend, but I have plans. Here''s the deal: War games are often held not far from the city and well, according to the rules, they need doctors on site before they can begin. Don''t worry, you will have a doctor with you, so the most you''ll need to do is apply some bandages. If you feel up to it, on Saturday you can catch a bus at the clinic between 6 and 9. Oh yeah, I almost forgot! The pay for two days is 5000."'
-
+	'"Listen, I am scheduled to work this weekend, but I have plans. Here''s the deal, War games are often held not far from the city and well, according to the rules, they need doctors on site before they can begin. Don''t worry, you will have a doctor with you, so the most you''ll need to do is apply some bandages. If you feel up to it, on Saturday you can catch a bus at the clinic between 6 and 9. Oh yeah, I almost forgot! The pay for two days is 5000 <b>₽</b>. So what do you say?" asks Kat.'
 
 	act 'Move away':gt 'WorkHosp', 'start'
 end
 
 if $ARGS[0] = '0':
     $location_type = 'event'
-	cla
-	*clr
+	cla & *clr
 	katprorand = rand(0, 2)
 
 	if katprorand = 0:
@@ -120,7 +118,7 @@ if $ARGS[0] = '0':
 		xgt 'lezbsex', 'var'
 	elseif katprorand = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex7.jpg"></center>'
-		'You and Kat just began to fondle each other when a patient entered the room. You backed away from her trying to pretend that nothing was happening.  On the contrary, Kat did not hesitate and was lying on the couch with her legs spread wide, proudly showing off her wet pussy.  She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing, while looking hungrily at the guy and inviting him to join in the fun.'
+		'You and Kat just began to fondle each other when a patient entered the room. You backed away from her trying to pretend that nothing was happening. On the contrary, Kat did not hesitate and was lying on the couch with her legs spread wide, proudly showing off her wet pussy. She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing, while looking hungrily at the guy and inviting him to join in the fun.'
 		gs 'arousal', 'cuni_give', 10, 'lesbian'
 		gs 'stat'
 		act 'Leave':gt 'WorkHosp', 'start'
@@ -134,14 +132,14 @@ if $ARGS[0] = '0':
 			gs 'boyStat', $npclastgenerated
 			gt 'podrsex', 'suck'
 			gs 'arousal', 'cuni_give', 10, 'lesbian'
-			gs 'arousal', 'vaginal', 10, 'unkown'
+			gs 'arousal', 'vaginal', 10, 'unknown'
 			minut -= 10
 			gs 'arousal', 'end'
 			gs 'stat'
 		end
 	elseif katprorand = 2:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex8.jpg"></center>'
-		'While your tryst with Kate was in full swing, two doctors came in. You were both so engrossed with each other, that you didn''t even notice them until they started to caress you. You both spread your legs wider, inviting them to join the fun.'
+		'While Kat and you are in full swing, two doctors enter the room. You are both engrossed with each other, that you didn''t even notice them until they started to caress you. You both spread your legs wider, inviting them to join the fun.'
 
 		act 'Entertain them':
 			gang += 1
@@ -155,19 +153,18 @@ if $ARGS[0] = '0':
 			gs 'WorkHosp', 'randdoc'
 			if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop'
 			if docfuck[randdoc] = 1:guy += 1
-			xgt 'sexdvanadva', 'var'
 			gs 'arousal', 'bj', 10, 'group'
 			gs 'arousal', 'vaginal', 10, 'group'
 			minut -= 10
 			gs 'arousal', 'end'
 			gs 'stat'
+			xgt 'sexdvanadva', 'var'
 		end
 	end
 end
 
 if $ARGS[0] = '1':
-	cla
-	*clr
+	cla & *clr
 	mastrrand = rand(0, 1)
 
 	if mastrrand = 0:
@@ -175,75 +172,117 @@ if $ARGS[0] = '1':
 		'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room but you are so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
 		gs 'arousal', 'masturbate', 10
 		gs 'stat'
-		if pcs_horny < 50:act 'Break and run':gs 'arousal', 'end' & gt 'WorkHosp', 'start'
-
-		act 'Go along with it':
-			guy += 1
-			picrand = 12
-			gs 'WorkHosp', 'randdoc'
-			if docfuck[randdoc] = 1:guy += 1
-			gt 'sex', 'minet'
+		if pcs_horny < 50:
+			
+			act 'Break and run':
+				gs 'arousal', 'end'
+				gt 'WorkHosp', 'start'
+			end
+			
+			gs 'willpower', 'sex', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Go along with it (<<will_cost>> Willpower)':
+					guy += 1
+					picrand = 12
+					gs 'WorkHosp', 'randdoc'
+					if docfuck[randdoc] = 1:guy += 1
+					gs 'willpower', 'pay', 'self'
+					gt 'sex', 'minet'
+				end
+			else
+				act 'Go along with it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		end
 	else
 		picrand = rand(12, 13)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex10.jpg"></center>'
 		'As you lose yourself in pleasure, two doctors come into the room. You are so distracted, that you only notice them when they start to openly masturbate in front of you.'
-
+		gs 'arousal', 'masturbate', 10
+		gs 'stat'
+		
 		if pcs_horny < 50:
-			act 'Leave':gt 'WorkHosp', 'start'
-		end
-
-		act 'Play with them':
-			sexpartkno = 1
-			gs 'WorkHosp', 'randdoc'
-			$boy[1] = $boy
-			$boydesc[1] = $boydesc
-			if docfuck[randdoc] = 1:guy += 1
-			:docloop2
-			gs 'WorkHosp', 'randdoc'
-			if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop2'
-			if docfuck[randdoc] = 1:guy += 1
-			xgt 'sexdvoe', 'var'
-			gs 'arousal', 'bj', 10, 'group'
-			gs 'arousal', 'vaginal', 10, 'group'
-			minut -= 10
+			
+		act 'Leave':
 			gs 'arousal', 'end'
-			gs 'stat'
+			gt 'WorkHosp', 'start'
+		end
+		
+		gs 'willpower', 'sex', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Play with them (<<will_cost>> Willpower)':
+				sexpartkno = 1
+				gs 'WorkHosp', 'randdoc'
+				$boy[1] = $boy
+				$boydesc[1] = $boydesc
+				if docfuck[randdoc] = 1:guy += 1
+				:docloop2
+				gs 'WorkHosp', 'randdoc'
+				if $boydesc = $boydesc[1]:docfuck[randdoc] -= 1 & jump 'docloop2'
+				if docfuck[randdoc] = 1:guy += 1
+				gs 'arousal', 'bj', 10, 'group'
+				gs 'arousal', 'vaginal', 10, 'group'
+				minut -= 10
+				gs 'willpower', 'pay', 'self'
+				gs 'arousal', 'end'
+				gs 'stat'
+				xgt 'sexdvoe', 'var'
+			end
+		else
+			act 'Play with them (<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
 
 if $ARGS[0] = '2':
-	cla
-	*clr
+	*clr & cla
 	picrand = rand(13, 15)
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
 	'A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him, as he can''t seem to get an erection and it''s causing him depression. You realize that it''s all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan, and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.'
-	act 'Oust him':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
-	act 'Give him what he wants':guy += 1 & gt 'sex', 'minet'
+	
+	act 'Oust him':
+		medcn_exp += rand (0,1) 
+		gt 'WorkHosp', 'start'
+	end
+	
+	gs 'willpower', 'sex', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Give him what he wants (<<will_cost>> Willpower)':
+			guy += 1
+			gs 'willpower', 'pay', 'self'
+			gt 'sex', 'minet'
+		end
+	else
+		act 'Give him what he wants (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 end
 
 if $ARGS[0] = '3':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
-	'A pretty patient comes into the room and the doctor tries to examine her.  Then she touches his trousers near his poorly hidden erection.  The doctor glances at you with a question in his eyes.'
+	'A pretty patient comes into the room and the doctor tries to examine her. Then she touches his trousers near his poorly hidden erection. The doctor glances at you with a question in his eyes.'
+	
 	act 'Ask if she actually needs treatment':medcn_exp += rand (0,1) & gt 'WorkHosp', 'start'
-     
-	act 'Play along':
-		guy += 1
-		girl += 1
-		lesbian += 1
-		picrand = 13
-		sexpartkno = 1
-		gs 'WorkHosp', 'randdoc'
-		if docfuck[randdoc] = 1:guy += 1
-		gt 'podrsex', 'suck'
-		gs 'arousal', 'cuni_give', 10, 'group'
-		gs 'arousal', 'vaginal', 10, 'group'
-		minut -= 10
-		gs 'arousal', 'end'
-		gs 'stat'
+    
+	gs 'willpower', 'sex', 'self'
+	if will_cost <= pcs_willpwr: 
+		act 'Play along (<<will_cost>> Willpower)':
+			guy += 1
+			girl += 1
+			lesbian += 1
+			picrand = 13
+			sexpartkno = 1
+			gs 'WorkHosp', 'randdoc'
+			if docfuck[randdoc] = 1:guy += 1
+			gt 'podrsex', 'suck'
+			gs 'arousal', 'cuni_give', 10, 'group'
+			gs 'arousal', 'vaginal', 10, 'group'
+			minut -= 10
+			gs 'willpower', 'pay', 'self'
+			gs 'arousal', 'end'
+			gs 'stat'
+		end
+	else
+		act 'Play along (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end