Merge remote-tracking branch 'julzor/master'

locations/burger.qsrc

@@ -18,20 +18,12 @@ if $ARGS[0] = 'start':
 
 	if BistroBoss > 0:'<a href="exec:gt ''burger'', ''boss''">The Office of the Director</a> Anatoly Borisovich'
 
-	act 'Leave the diner':
-		cla
-		minut += 1
-		gt 'down'
-	end
+	act 'Leave the diner': minut += 1 & gt 'down'
 
 	act 'Order from the menu (0:05)':gs 'food_menu'
-	if money >= 315:
-		act 'Order take-out (0:20) (315<b>₽</b>)':money -= 315 & gt 'food', 'f_food'
-	end
+	if money >= 315: act 'Order take-out (0:20) (315<b>₽</b>)':money -= 315 & gt 'food', 'f_food'
 
-	if IvanPodstavaQW = 2:
-		act 'Go into the office to Anatoly Borisovich':gt 'burger', 'office'
-	end
+	if IvanPodstavaQW = 2: act 'Go into the office to Anatoly Borisovich':gt 'burger', 'office'
 
 	if posuda = 0:
 		act 'Ask about work':gt 'burger', 'apply'
@@ -39,13 +31,9 @@ if $ARGS[0] = 'start':
 		act 'Go to the manager':gt 'burger', 'manager'
 	end
 
-	if posuda >= 1 and posudaday ! daystart and NoBistroWork = 0 and PersSecWork = 0:
-		act 'Wash the dishes for 70 <b>₽</b> (1:00)':gt 'burger', 'dishes'
-	end
+	if posuda >= 1 and posudaday ! daystart and NoBistroWork = 0 and PersSecWork = 0: act 'Wash the dishes for 70 <b>₽</b> (1:00)':gt 'burger', 'dishes'
 
-	if posudaA >= 1 and posudaAday ! daystart and hour < 10 and NoBistroWork = 0 and PersSecWork = 0:
-		act 'Wash the floor for 70 <b>₽</b> (1:00)':gt 'burger', 'floor'
-	end
+	if posudaA >= 1 and posudaAday ! daystart and hour < 10 and NoBistroWork = 0 and PersSecWork = 0: act 'Wash the floor for 70 <b>₽</b> (1:00)':gt 'burger', 'floor'
 end
 
 if $ARGS[0] = 'office':
@@ -160,7 +148,15 @@ if $ARGS[0] = 'dishes':
 			'"Would you like to dine somewhere outside of this hole?"'
 		end
 
-		act 'Refuse':gt 'burger', 'start'
+		gs 'willpower', 'misc', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gt 'burger', 'start'
+			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 'Agree':
 			*clr & cla
@@ -194,15 +190,12 @@ if $ARGS[0] = 'dishes':
 						*clr & cla
 						bistroQW = 50
 						guy += 1
-						gs 'boyStat', 'A74'
-						sexpartkno = 1
 						swallow += 1
-						spafinloc = 12
-						gs 'cum_manage'
+						gs 'boyStat', 'A74'
+						gs 'cum_call', 'mouth', 'A74', 1
 						average[23] = 1
 						averageH[23] = 160
 						averageB[23] = pcs_hips
-						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj.jpg"></center>'
 						'You squat down in front of Anatoly, he unbuttons his pants and pulls out his penis. You lean over his hard cock and kiss it, feeling its warmth. You run your tongue along his cock finally putting it in your big wet mouth and start to suck his dick.'
 						'Soon Anatoly groans and you feel a spurt of warm liquid like in your mouth. You are giving your best to swallow all of his cum, trying not to choke. Anatoly straightens his clothes and leaves.'
@@ -429,12 +422,11 @@ if $ARGS[0] = 'dishes':
 				act 'Use your mouth':
 					*clr & cla
 					guy += 1
-					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj3.jpg"></center>'
 					'Still standing in front of Ivan you bend over even more gently lick his member with your tongue, again and again. Finally your lips wrap around his cock and begin to suck it. His curly pubes tickle your nose with every movement, as you put his whole member in your mouth.'
 					'Ivan finally lets out a loud moan and without warning begins to cum in your mouth. A Jet of hot liquid hits you in the mouth. Your eyes widen, but you continue to suck his seed-spewing dick until finally you have a mouth full of semen. As your mouth can not contain it anymore it emerges on your lips and runs down Ivan''s member.'
 
-					gs 'arousal', 'bj', 3, 'sub'
+					gs 'arousal', 'bj', 3, 'sub', 'prostitution'
 					gs 'stat'
 
 					act 'Swallow cum and clean his cock':
@@ -442,11 +434,8 @@ if $ARGS[0] = 'dishes':
 						minut += 2
 						swallow += 1
 						gs 'boyStat', 'A76'
-						sexpartkno = 1
-						spafinloc = 12
-						gs 'cum_manage'
+						gs 'cum_call', 'mouth', 'A76', 1
 						money += 500
-						slutty += 1
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj4.jpg"></center>'
 						'You squat in front of the manager and swallow his sperm before licking the remnants of his semen off of the still standing, but quickly lowering penis.'
@@ -467,7 +456,6 @@ if $ARGS[0] = 'dishes':
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					bistroQW = 56
-					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj1.jpg"></center>'
 					'You escape from Ivan''s hands who was not expecting such a reaction. He glares at you, "You suck off Borisovich but get squeamish with his deputy?" You are taken aback by these words. How does he know about what happened in the fitting room. Apparently your thoughts are reflected on your face and Ivan chuckles. "Yes Borisovich himself bragged about it. If you thought, Borisovich wouldn''t tell anyone you''re an idiot. But I won''t tell anyone. And I''m offering you a decent reward. So, be a good girl and show me what you can do with this mouth of yours. "'
 					gs 'willpower', 'bj', 'resist', 'medium'
@@ -475,7 +463,6 @@ if $ARGS[0] = 'dishes':
 						act 'That''s bullshit! (<<will_cost>> Willpower)':
 							*clr & cla
 							gs 'willpower', 'pay', 'resist'
-							gs 'stat'
 							gt 'burger', 'start'
 						end
 					else
@@ -485,12 +472,11 @@ if $ARGS[0] = 'dishes':
 						*clr & cla
 						bistroQW = 55
 						guy += 1
-						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj3.jpg"></center>'
 						'Still standing in front of Ivan you bend over even more gently lick his member with your tongue, again and again. Finally your lips wrap around his cock and begin to suck it. His curly pubes tickle your nose with every movement, as you put his whole member in your mouth.'
 						'Ivan finally lets out an audible moan and without warning begins to cum in your mouth. A Jet of hot liquid hits you in the mouth. Your eyes widen, but you continue to suck his seed-spewing dick until finally you have a mouth full of semen. You can not contain it anymore and as it emerges on your lips and runs down Ivan''s member.'
 
-						gs 'arousal', 'bj', 3, 'sub', 'deepthroat'
+						gs 'arousal', 'bj', 3, 'sub', 'deepthroat', 'prostitution'
 						gs 'stat'
 
 						act 'Swallow his cum and clean his cock':
@@ -498,12 +484,8 @@ if $ARGS[0] = 'dishes':
 							minut += 2
 							swallow += 1
 							gs 'boyStat', 'A76'
-							sexpartkno = 1
-							spafinloc = 12
-							gs 'cum_manage'
+							gs 'cum_call', 'mouth', 'A76', 1
 							money += 500
-							slutty += 1
-							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj4.jpg"></center>'
 							'You squat in front of the manager and swallow his sperm as you began to lick the remnants of his semen off of the still standing, but quickly lowering penis.'
 							'Finally Ivan sinks back, completely satisfied and gives you 500 <b>₽</b> for the work you have done.'
@@ -533,16 +515,14 @@ if $ARGS[0] = 'dishes':
 				*clr & cla
 				swallow += 1
 				gs 'boyStat', 'A76'
-				sexpartkno = 1
-				spafinloc = 12
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'A76', 1
 				money += 500
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bjud.jpg"></center>'
 				'You crawl under the table and Ivan pulls out his penis in front of your face. You wrap your lips around it and begin to suck trying to get it into your mouth as deeply as possible. It is cramped and uncomfortable under the table, but you cope with it and after a few minutes of skilfully sucking him off you get Ivan to release his semen into your mouth. You quickly start to swallow, trying to avoid getting your clothes dirty.'
 				'Afterwards, Ivan takes out 500 <b>₽</b> and hands them to you.'
 
-				gs 'arousal', 'bj', 3, 'sub'
+				gs 'arousal', 'bj', 3, 'sub', 'prostitution'
 				gs 'arousal', 'end'
 				gs 'stat'
 
@@ -556,19 +536,14 @@ if $ARGS[0] = 'dishes':
 			*clr & cla
 			bistroQW = 65
 			'You come to the office, but it is closed. The deputy manager comes over to you and tells you with a chuckle, "What <<$pcs_nickname>>? Can''t work without a dick? I know all about you and our general manager. But he is not here until the end of the week. And if you do not want me to tell other people how you earn a living, then you will go to the office and serve me."'
-			''
 
 			act 'Nod obediently':
 				*clr & cla
 				swallow += 1
+				facial += 1
 				gs 'boyStat', 'A75'
-				sexpartkno = 1
-				spafinloc = 12
-				gs 'cum_manage'
-				sexpartkno = 1
-				sexvolume = 6
-				spafinloc = 11
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'A75', 1
+				gs 'cum_call', 'face', 'A75', 1
 				guy += 1
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj21.jpg"></center>'
 				'You go into the office and kneel before the deputy manager. He takes out his member and puts it in your face showering you with the smell of his unwashed crotch. You lick the salty cock and, with a sigh of despair, begin to suck him. The pimply jerk lasts just a few of your movements and begins to violently cum in your mouth. You can''t keep all his semen in your mouth and it runs down your lips.'
@@ -587,6 +562,17 @@ if $ARGS[0] = 'dishes':
 				'After these words, he calls two movers over and says'
 				'"Guys would you like to blow off some steam on this nymph? Don''t worry, she enjoys it. She is here to serve. Am I right <<$pcs_nickname>>?'
 
+				gs 'willpower', 'group', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						bistroQW = 61 
+						gt 'burger', 'start'
+					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 'Yes':
 					*clr & cla
 					bistroQW = 70
@@ -597,25 +583,22 @@ if $ARGS[0] = 'dishes':
 					'You begin to diligently suck and stroke the cocks of the three man. Soon they groan and one of them grabs your head with one hand, holding his erect cock with the other.'
 
 					gs 'arousal', 'bj', 3, 'sub', 'group'
-					gs 'arousal', 'hj', 3, 'sub', 'group'
-					minut -= 3
+					gs 'arousal', 'hj', -3, 'sub', 'group'
 					gs 'stat'
 
 					act 'Let them cum on you':
 						*clr & cla
 						gs 'boyStat', 'A75'
-						sexpartkno = 1
-						spafinloc = 11
+						gs 'cum_call', 'face', 'A75', 1
 						gs 'npcgeneratec', 0, 'Moving Man', rand(18,40)
 						gs 'boystat', $npclastgenerated
-						spafinloc = 11
+						gs 'cum_call', 'face', 'unknown'
 						gs 'npcgeneratec', 0, 'Moving Man', rand(18,40)
 						gs 'boystat', $npclastgenerated
-						spafinloc = 11
-						facial += 1
+						gs 'cum_call', 'face', 'unknown'
+						facial += 3
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/tri2.jpg"></center>'
 						'Hot jets of sperm slap you in the face, you close your eyes and just feel the stinky seed on your skin. Soon after the sprays of semen stop and your face is all covered with a thick layer of sticky cum. The guys look satisfied and laugh at you. Afterwards they exit the warehouse leaving you by yourself.'
-						''
 
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -623,18 +606,6 @@ if $ARGS[0] = 'dishes':
 						act 'Leave':gt 'burger', 'start'
 					end
 				end
-				gs 'willpower', 'group', 'resist', 'medium'
-				if will_cost <= pcs_willpwr:
-					act 'Refuse (<<will_cost>> Willpower)':
-						*clr & cla
-						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
-						bistroQW = 61 
-						gt 'burger', 'start'
-					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	
 			end
 		end
 	elseif bistroQW >= 65 and soplakTimes ! 3:
@@ -646,24 +617,20 @@ if $ARGS[0] = 'dishes':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj31.jpg"></center>'
 			'You kneel in front of the kid sitting in a chair and begin to diligently suck his dick. You caress his cock and testicles with your tongue while simoultaneously stroking his shaft with your hand.'
 
-			gs 'arousal', 'bj', 3, 'sub'
-			gs 'arousal', 'hj', 3, 'sub'
-			minut -= 3
+			gs 'arousal', 'bj', 3, 'sub', 'prostitution'
+			gs 'arousal', 'hj', -3, 'sub', 'prostitution'
 			gs 'stat'
 
 			act 'Continue':
 				*clr & cla
+				swallow += 1
 				gs 'boyStat', 'A75'
-				sexpartkno = 1
-				spafinloc = 12
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'A75', 1
 				money += 300
-				slutty += 1
 				soplakTimes1 += 1
 				if soplaktimes1=10:set soplaktimes=3
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum19.jpg"></center>'
 				'A hot jet of sperm slaps you in the mouth, while you continue to stroke his member. You are careful not to spill a drop of the nasty smelling liquid out of your mouth. Finally the stream dries up and you swallow the sperm. He grins and tosses 300 <b>₽</b> on the floor. You pick them up and hide them in your pocket as you rise up from your knees and leave the office.'
-				''
 
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -690,14 +657,14 @@ end
 
 if $ARGS[0] = 'floor':
 	menu_off = 1
-	cla
-	*clr
+	*clr & cla
 	posudaAday = daystart
 	minut += 60
 	posuda += 1
-	pcs_mood -= 15
+	if pcs_mood > 15: pcs_mood -= 15
 	money += 70
 	gs 'sweat', 'add', 10
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
 	'You wash the floors of the bistro for an hour. Afterwards you are given 70 <b>₽</b> for your work.'
 
@@ -832,7 +799,6 @@ if $ARGS[0] = 'boss':
 					act 'Leave (<<will_cost>> Willpower)':
 						*clr & cla
 						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
 						gt 'burger', 'start'
 					end
 				else
@@ -842,15 +808,14 @@ if $ARGS[0] = 'boss':
 					*clr & cla
 					money += 300
 					swallow += 1
-					spafinloc = 12
-					gs 'cum_manage'
+					gs 'boyStat', 'A74'
+					gs 'cum_call', 'mouth', 'A74', 1
 					BistroBoss = 2
 					BistroBossDay = daystart
-					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/city/anatoly/sex/bj2.jpg"></center>'
 					'You kneel down and take the money from the floor. Anatoly Borisovich pulls his already hard member out and holds it in front of your face. You wrap your lips around it and begin to suck as the hard cock fills your mouth. Anatoly Borisovich grits his teeth with pleasure "Suck it slut and don''t forget to swallow every last drop!" You feel his sperm hit the inside of your mouth and begin to quickly swallow his cum to prevent yourself from choking. After you finish, Anatoly Borisovich puts his dick back in his pants. "Now get out."'
 
-					gs 'arousal', 'bj', 5, 'sub'
+					gs 'arousal', 'bj', 5, 'sub', 'prostitution'
 					gs 'arousal', 'end'
 					gs 'stat'
 
@@ -872,7 +837,6 @@ if $ARGS[0] = 'boss':
 			act 'Leave (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
 				gt 'burger', 'start'
 			end
 		else
@@ -884,14 +848,13 @@ if $ARGS[0] = 'boss':
 			menu_off = 1
 			money += 300
 			swallow += 1
-			spafinloc = 12
-			gs 'cum_manage'
+			gs 'boyStat', 'A74'
+			gs 'cum_call', 'mouth', 'A74', 1
 			BistroBossDay = daystart
-			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/city/anatoly/sex/bj2.jpg"></center>'
 			'You kneel down and take the money from the floor. Anatoly Borisovich pulls his already hard member out and holds it in front of your face. You wrap your lips around it and begin to suck as the hard cock fills your mouth. Anatoly Borisovich grits his teeth with pleasure "Suck it slut and don''t forget to swallow every last drop!" You feel his sperm hit the inside of your mouth and begin to quickly swallow his cum to prevent yourself from choking. After you finish, Anatoly Borisovich puts his dick back in his pants. "Now get out."'
 
-			gs 'arousal', 'bj', 5, 'sub'
+			gs 'arousal', 'bj', 5, 'sub', 'prostitution'
 			gs 'arousal', 'end'
 			gs 'stat'
 

locations/dimalina.qsrc

@@ -110,7 +110,6 @@ if $ARGS[0] = 'Listen':
 	'Lina bites her lips and look around the room. It''s evident that she doesn''t want to at first, but eventually she begins to pose in playfully and innocent ways, following Dimka''s suggestions. As you watch, the drug in your blood kicks into high gear and you begin to get aroused and your mind drifts to inappropriate thoughts.'
 	act 'Keep watching':
 		*clr & cla
-		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/linased/D5.jpg"></center>'
 		'"Hey! I have an idea..." Lina is sitting on her knees with a puzzled expression as Dimka moves closer and suddenly starts to pull her top up, revealing her bra before she can properly react and stop him.'
 		'"Hey! What are you doing?!"'
@@ -122,13 +121,12 @@ if $ARGS[0] = 'Listen':
 		if will_cost <= pcs_willpwr:
 			act 'Try to help her (<<will_cost>> Willpower)':
 				gs 'willpower', 'pay', 'self'
-				gs 'stat'
 				gt 'dimalina', 'Help'
 			end
 		else
 			act 'Try to help her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		act 'Keep Watching': gt 'dimalina', 'Watch'
+		act 'Keep Watching': gt 'dimalina', 'watch'
 		act 'Fantasize about... Lina?!':
 			*clr & cla
 			gs 'stat'
@@ -147,7 +145,7 @@ if $ARGS[0] = 'Listen':
 			else
 				act 'Try to help her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-			act 'Keep Watching': gt 'dimalina', 'Watch'
+			act 'Keep Watching': gt 'dimalina', 'watch'
 		end
 		act 'Fantasize about... Dimka?!':
 			*clr & cla
@@ -167,7 +165,7 @@ if $ARGS[0] = 'Listen':
 			else
 				act 'Try to help her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-			act 'Keep Watching': gt 'dimalina', 'Watch'
+			act 'Keep Watching': gt 'dimalina', 'watch'
 		end
 	end
 end
@@ -190,10 +188,10 @@ if $ARGS[0] = 'Help':
 	gs 'pain', 2, 'wrists', 'bind'
 	gs 'pain', 2, 'mouth', 'bind'
 	gs 'stat'
-	act 'Watch helplessly': gt 'dimalina', 'Watch'
+	act 'Watch helplessly': gt 'dimalina', 'watch'
 end
 	
-if $ARGS[0] = 'Watch':
+if $ARGS[0] = 'watch':
 	*clr & cla
 	menu_off = 1
 	gs 'stat'
@@ -302,7 +300,7 @@ if $ARGS[0] = 'dimkalina2':
 				else
 					act 'Cause a distraction (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-				act 'Do nothing': gt 'dimalina', 'Watch2'
+				act 'Do nothing': gt 'dimalina', 'watch2'
 				act 'Fantasize about Lina':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/linased/F2.jpg"></center>'
@@ -322,7 +320,7 @@ if $ARGS[0] = 'dimkalina2':
 					else
 						act 'Cause a distraction (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 					end
-					act 'Do nothing': gt 'dimalina', 'Watch2'
+					act 'Do nothing': gt 'dimalina', 'watch2'
 				end
 				act 'Fantasize about Dimka':
 					*clr & cla
@@ -343,7 +341,7 @@ if $ARGS[0] = 'dimkalina2':
 					else
 						act 'Cause a distraction (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 					end
-					act 'Do nothing': gt 'dimalina', 'Watch2'
+					act 'Do nothing': gt 'dimalina', 'watch2'
 				end
 			end
 		end
@@ -419,8 +417,8 @@ if $ARGS[0] = 'dimkalina3':
 		act 'Hide the pills (<<will_cost>> Willpower)':
 			*clr & cla
 			pcs_mood += 10
-			gs 'stat'
 			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/linased/D2.jpg"></center>'
 			'Gritting your teeth, you look to Dimka. He''s distracted adjusting some settings, so you throw the pills into your clothes and hide them. Relieved that he hasn''t noticed, you put on the gag ball. Fortunately, this time it''s you who put this thing on and manage to do so without hurting your jaw. Dimka ends what he was doing and looks at you with an expression of satisfaction on his face.' 
 			'"Look Slut, if you behave, the next time I will give you a gift. OK?"'
@@ -1193,13 +1191,13 @@ end
 
 if $ARGS[0] = 'Femdomdream':
 	*clr & cla
-	menu_off = 1	
+	menu_off = 1
+	pcs_horny += 10
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/linased/FD.jpg"></center>'
 	'You can''t believe it. He is there, trapped, chained, impotent and all yours. Is time that he pays for all his misdeeds. Oh... You are going to love this, that thing in his cock is just the opening. Chains, wax, leather, pain, and blood. When you end... If... You end, he will be a mockery of his current self. Slavish, knowing his place in a new gynocracy... And the best? He will love everything you have done because that will be his true self. And all thanks to that beautiful woman who is kissing and undressing you.'
 	'"Happy anniversary, darling."'
 	'You awake feeling aroused'
-	pcs_arousal += 10
 end
 }
 --- dimalina ---------------------------------

locations/din_van.qsrc

@@ -13,6 +13,8 @@ $showerdin = {
 		cumspclnt = 18
 	end
 	gs 'cum_cleanup'
+	body_write = 0
+	face_write = 0
 	pcs_hairbsh = 0
 	pcs_makeup = 1
 	if frost > 0:frost = 0

locations/stat_display.qsrc

@@ -170,15 +170,15 @@ if cheatNoSweat = 0:
 end
 
 if body_write > 1 and face_write = 0:
-	$stat_wirting_msg = 'Your body is inscribed with derogatory graffiti.'
+	$stat_writing_msg = 'Your body is inscribed with derogatory graffiti.'
 elseif body_write = 1 and face_write = 0:
-	$stat_wirting_msg = 'Your body is an obscene sign.'
+	$stat_writing_msg = 'Your body is an obscene sign.'
 elseif body_write = 0 and face_write > 1:
-	$stat_wirting_msg = 'Your face is covered with writing obscene epithets.'
+	$stat_writing_msg = 'Your face is covered with writing obscene epithets.'
 elseif body_write = 0 and face_write = 1:
-	$stat_wirting_msg = 'On your face humiliating label.'
+	$stat_writing_msg = 'On your face humiliating label.'
 elseif body_write > 1 and face_write > 1:
-	$stat_wirting_msg = 'Your body and face painted with obscene graffiti.'
+	$stat_writing_msg = 'Your body and face painted with obscene graffiti.'
 else
 	$stat_writing_msg = ''
 end
@@ -1363,7 +1363,7 @@ if cheatStatusIcons = 0:
 
 	if cumcondslip > 0: $statusIconBarTab += '<td><a href="exec:msg ''You feel sick and you are wondering about the used condom you never found. Maybe those two things are related?''"><img title="You feel sick. Click to find out more." height = 54 src="images/system/icon/status_icons/stuck_condom.png"></a></td>'
 		
-	if $stat_wirting_msg ! '': $statusIconBarTab += '<td><a href="exec:msg $stat_wirting_msg"><img title="<<$stat_wirting_msg>>" height = 54 src="images/system/icon/status_icons/body_writing.png"></a></td>'
+	if $stat_writing_msg ! '': $statusIconBarTab += '<td><a href="exec:msg $stat_writing_msg"><img title="<<$stat_writing_msg>>" height = 54 src="images/system/icon/status_icons/body_writing.png"></a></td>'
 	
 	$statusIconBarTab += '</tr></table>'
 	$stat_msg += func('cleanHTML',$statusIconBarTab)
@@ -1825,7 +1825,7 @@ if enable_extra_msg = 1:
 	!!	breast status
 	gs 'lact_lib','breast_stat_disp'
 
-	if $stat_wirting_msg ! '': $stat_msg += '<br><b><font color = red><<$stat_wirting_msg>></font></b>'
+	if $stat_writing_msg ! '': $stat_msg += '<br><b><font color = red><<$stat_writing_msg>></font></b>'
 	
 	if recuperation = 1: $stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'