[fixed] updated burger code

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'