glife/locations/kafe.qsrc

# kafe

if $ARGS[0] = 'start':
	$metka = 'start'
	$loc = 'kafe'
	$menu_loc = 'kafe'
	$menu_arg = 'start'
	menu_off = 0
	kafe_food = (pcs_ate + pcs_drank)
	$location_type = 'public_indoors'
	CLOSE ALL
	if sound = 0:PLAY 'sound/cafe.mp3',30
	gs 'stat'
	gs 'kit_din'
	'<center><b><font color="maroon">The Roadhouse</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
	'With its bright neon signs, pictures of flashy American muscle cars and pop-art, and a jukebox playing popular music ranging from the 50s to the 80s, The Roadhouse is something of a specialty diner, having been designed to have a retro, American feel. From the outside, the place doesn’t look very big, but in reality the diner is quite spacious, comfortably able to fit a well stocked bar, a moderately sized dinning area while also offering a handful of private booths tucked away in darker corners of the diner, and even boasting a dance floor with a small stage to play live music when available.'
	'Sitting at one end of the bar, you see <a href="exec:gt ''kafe'', ''vlad''">the owner</a> of the diner, busy with paperwork.'
	*nl
	'They serve American style meals'
	*nl
	act 'Leave the diner': minut += 5 & gt 'street'

	act 'Sit down at a table': gt 'kafe', 'table'
end

if $ARGS[0] = 'table':
	$metka = 'table'
	$loc = 'kafe'
	$menu_loc = 'kafe'
	$menu_arg = 'table'
	menu_off = 0
	$location_type = 'public_indoors'
	*clr & cla
	gs 'stat'
	'<center><b><font color="maroon">The Roadhouse</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
	'With its bright neon signs, pictures of flashy American muscle cars and pop-art, and a jukebox playing popular music ranging from the 50s to the 80s, The Roadhouse is something of a specialty diner, having been designed to have a retro, American feel. From the outside, the place doesn’t look very big, but in reality the diner is quite spacious, comfortably able to fit a well stocked bar, a moderately sized dinning area while also offering a handful of private booths tucked away in darker corners of the diner, and even boasting a dance floor with a small stage to play live music when available.'
	'Sitting at one end of the bar, you see <a href="exec:gt ''kafe'', ''vlad''">the owner</a> of the diner, busy with paperwork.'
	*nl
	'They serve American style meals'

	act 'Get up from the table':gt 'kafe', 'start'

	act 'Order from the menu (0:05)':gs 'food_menu'
	if kafe_food < (pcs_ate + pcs_drank):
		if rand(1, 10) > 5:
			gs 'boy'
			'A man comes over to your table <<$boybody>> <<$boybod>> <<$boyface>> introducing himself as <<$boydesc>>.'
			xgt 'kafe', 'razvod'
		end
	end
end

if $ARGS[0] = 'vlad':
	$menu_loc = 'kafe'
	$menu_arg = 'vlad'
	menu_off = 0
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">The Roadhouse</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'

	if npc_rel['A41'] = 0:'At the end of the bar sits a short, but very broad caucasian, he''s writing something.'
	if npc_rel['A41'] > 0:'At the end of the bar sits the owner of the diner, Givi K. He''s writing something.'

	if workKafe = 0:
		if GiviSex >= 2 and Givisexday < 1 and Venera < 4:
			act 'Have some fun with Givi':
				*clr & cla
				Givisexday = 1
				GiviSex += 1
				'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
				'You go behind the bar to Givi and tell him you want to do something.'
				'"Wow, <<$pcs_nickname>> you must be so bored!" says Givi K. unbuttoning his pants.'

				act 'To kneel':
					*clr & cla
					harakBoy = 2
					gs 'boyStat', 'A41'
					npc_sex[$boy] += 1
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
					'You bend down so the customers can''t see you behind the bar and kneel before Givi, as he takes out his member.'
					gs 'oral', 'start'
					'Givis grabs you by the hair and pulls your mouth deeply on to his cock.'
					gs 'arousal', 'bj', 15, 'sub'
					gs 'stat'

					act 'Continue to suck.':
						*clr & cla
						swallow += 1
						'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
						'A hot jet of sperm hits the back of your throat. You start to swallow his cum, and <<$boydesc>> continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
						gs 'cum_call','mouth',$boy,1
						'"Best waitress, ever!" Says Givi as he gives you 500 <b>₽</b>.'
						money += 500
						gs 'arousal', 'end'
						gs 'stat'

						act 'Leave':gt 'kafe', 'start'
					end
				end
			end
		end
	else
		if GiviSex >= 2 and Givisexday < 1 and Venera < 4:
			act 'Have some fun with Givi':
				*clr & cla
				Givisexday = 1
				GiviSex += 1
				'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
				'You go behind the bar to Givi and tell him his paperwork will be much easier after taking a break.'
				'"Have I got something you want?" asks K. Givi not interested in your answer. He takes you by the hand.'
				gs 'stat'

				act 'Kneel':
					*clr & cla
					smenaKafe += 1
					harakBoy = 2
					gs 'boyStat', 'A41'
					npc_sex[$boy] += 1
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/barbj.jpg"></center>'
					'You bend down so the customers can''t see you behind the bar and kneel before Givi, as he takes out his member'
					gs 'oral', 'start'
					'Givis grabs you by the hair and pulls your mouth deeply on to his cock.'
					gs 'arousal', 'bj', 15, 'sub'
					gs 'stat'

					act 'Continue to suck.':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum31.jpg"></center>'
						'A hot jet of sperm hits the back of your throat. You start to swallow cum, and <<$boydesc>> continues to cum in your mouth. Finally the flow of hot, pungent liquid stops.'
						gs 'cum_call','mouth',$boy,1
						swallow += 1
						gs 'arousal', 'end'
						gs 'stat'

						act 'Leave':gt 'kafe', 'start'
					end
				end
			end
		end

		act 'Resign':
			cla
			work = 0
			workKafe = 0
			pay = smenaKafe * 600
			money += pay
			smenaKafe = 0
			'Givi Karapetovich sadly shakes his head, "Okay, here''s your <<pay>> <b>₽</b> and employment history. Go."'

			act 'Leave':gt 'kafe', 'start'
		end
	end

	if workKafe > 0 and week > 1 and week < 5:'Hi, <<$pcs_nickname>>. Skipping work?'
	if workKafe > 0 and week > 4:'Well, hello <<$pcs_nickname>>!'
	if npc_rel['A41'] = 1 and workKafe < 1:'He looks up waiting for you to speak.'

	if npc_rel['A41'] = 0:
		npc_rel['A41'] = 1
		'Hello! I''m Givi Karapetovich, owner of the diner. What do you want?'
	end

	if (work = 0 and workKafe = 0 and cheatWork = 0) or (workKafe = 0 and cheatWork = 1):
		act 'Apply for a job at the diner':
			cla
			'You ask Givi if he has any job openings at the diner.'
			*nl
			if hotcat < 4:'No no no, you would scare all the customers away. You need to improve your appearance, try better clothing, use makeup, brush your hair. You look just terrible.'
			if hotcat >= 5:
				'"Of course you want to work here, who doesn’t?" Givi says with a dreamy sigh, "The rockabilly music, greaser subculture, and 1950s pop art — I love everything about that time in American culture, which is why I invested every penny I had bringing this place to life!" he says with a grand flourish. He continues to gush about American culture for what seems like forever, until you finally clear your throat and bring him back to reality.'
				'Annoyed that you interrupted him, he scoffs and gives you a stern look. "So many people don’t understand what I’m trying to do here. Customers demand I serve more Russian cuisine and all these "bands" can’t even play a halfway decent Johnny Cash song!" You can see him grinding his teeth as he talks. "In the end, I’m left with no choice but to give into their demands or lose customers…" He takes a deep breath and rubs his temples. "I try to introduce some culture to Russia, and all I get in return is complaints…"'
				*nl
				'After a moment, his anger has subsided and he looks to have mellowed a bit. "Right…so you want to work here." Givi gives you a once over, examining you from head to toe. "Alright, these are the working conditions." He says flatly.'
				'"The diner is open from 12 to 22 every day, except on Mondays. You’ll work Tuesdays, Wednesdays and Thursdays, and I expect you to be here between 11 and 12, before we open. If you do not come to work, that day will not count towards your salary, which is paid on the 25th of each month. Each shift you’ll earn 600 ₽, plus whatever you bring in as tips. You also get the added bonus of free meals."'
				*nl
				'He pauses for a moment, as if making sure you absorbed everything he said. "Oh, and one more thing." Givi holds out his hand, "I''ll be taking your work book. I need dedicated employees and can’t have you applying for other jobs while working here. So, are you interested?"'

				act 'Take the job':
					cla
					*nl
					work = 1
					workKafe = 1
					smenaKafe = 0
					'You hand over your work book, and with a smile Givi takes it. "Don''t forget: work is every Tuesday, Wednesday and Thursday, and you need to be here between 11 and 12."'

					act 'Leave':gt 'kafe', 'start'
				end
			end

			act 'Leave':gt 'kafe', 'start'
		end
	end

	act 'Leave':gt 'kafe', 'start'
end

if $ARGS[0] = 'work':
	$menu_loc = 'kafe'
	$menu_arg = 'work'
	menu_off = 0
	$location_type = 'event'
	*clr & cla
	minut += 5
	gs 'stat'
	smenaKafe += 1
	'<center><b><font color="maroon">The Roadhouse</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
	'You have arrived for work at the diner, Givi K. writes in a book that you came to work on time and stands behind the bar. The kitchen cook is a sturdy young caucasian, Ashot. Another waitress Irina is preparing for work. Tamara the dishwasher is cleaning the sink.'

	act 'Start work':
		cla
		minut = 0
		hour = 12
		npc_rel['A41'] += rand(5, 10)
		gt 'kafe', 'workPred'
	end

	act 'Resign':
		cla
		work = 0
		workKafe = 0
		pay = smenaKafe * 600
		money += pay
		smenaKafe = 0
		'Givi Karapetovich sadly shakes his head, "Okay, here''s your <<pay>> <b>₽</b> and employment history. Go."'

		act 'Leave':gt 'kafe', 'start'
	end
end

if $ARGS[0] = 'workPred':
	$menu_loc = 'kafe'
	$menu_arg = 'workPred'
	menu_off = 0
	$metka = 'workPred'
	$loc = 'kafe'
	$location_type = 'event'
	*clr & cla
	gs 'kit_din'
	gs 'stat'
	'<center><b><font color="maroon">The Roadhouse</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
	'You''re at work in the café, the cook <a href="exec:gt ''kafe2'', ''ashot''">Ashot</a> is busy in the kitchen. Your fellow server <a href="exec:gt ''kafe2'', ''ira''">Ira</a> waits tables with customers. The owner <a href="exec:gt ''kafe2'', ''givi''">Givi K.</a> is standing behind the bar.'
	'A small door leads to the <a href="exec:gt ''kafe2'', ''toilet''">toilets</a>.'

	if npc_rel['A41'] > 60:npc_rel['A41'] = 60
	if npc_rel['A41'] > 50 and GiviSex = 0:npc_rel['A41'] = 50

	if IrinaSlut = 1 and hour = 22:
		*clr & cla
		IrinaSlut = 2
		gs 'stat'
		'<center><b><font color="maroon">The Roadhouse</font></b></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/kafe.jpg"></center>'
		'Your shift has finished and Ira has disappeared somewhere. Looking around you see that Givi is nowhere to be seen. Tamara has slipped out the door, and Ashot is putting the dishes away.'

		act 'Search for missing Ira':
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/irinaslut.jpg"></center>'
			'You walk to the back room from as a pleased looking Givi emerges, fastening his belt. He smiles at you and says, "What a good whore you found me. Help cleaning her up. After what she has done this guy does not have anything left."'
			'You go into the back room and see Irina there bent over. Sperm is sprayed all over her naked butt. Ira blissfully moans "Such a thrill, I''ve never done something this naughty before."'

			gs 'arousal', 'voyeur_sex', 15
			gs 'stat'

			act 'Clean Ira and take her home':
				cla
				minut += 15
				gs 'stat'
				'Taking a napkin you wipe the cum from her ass, help her to feet and sort her out. Ira, regaining her senses, looks at you with a beatific smile "That Givi is chock-bellied ugly, but he fucked me like I''ve never been fucked before. I even lost consciousness from an orgasm."'
				'Ira is still floating in ecstasy, so you decide to walk her home. At her front door, she kisses you on the lips and leaves.'

				gs 'arousal', 'end'
				gs 'stat'

				act 'Go home': minut += 5 & gt 'street'
			end

			if pcs_horny >= 50:
				act 'Lick off her "problem"':
					*clr & cla
					pcs_horny += 10
					minut += 5
					gs 'boyStat', 'A41'
					gs 'cum_call','mouth',$boy,1
					gs 'boyStat', 'A93'
					npc_sex[$boy] += 1
					gs 'arousal', 'cuni_give', 5
					gs 'arousal', 'rimming_give', 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/irinaslut2.jpg"></center>'
					'You kneel behind Ira, her reddening holes telling you she has just been fucked in her pussy and ass. You begin to lick up the sperm.'
					'Ira moans, "Oh, it''s so nice, why was I afraid of this before?"'

					act 'Swallow sperm and take Ira home':
						cla
						'You swallow the sperm, help her to her feet and sort her out. Ira, regaining her senses, looks to you with a beatific smile "That Givi is chock-bellied ugly, but he fucked me like I''ve never been fucked before. I even lost consciousness from an orgasm."'
						swallow += 1
						'Ira is still floating in ecstasy, so you decide to walk her home. At her front door, she kisses you on the lips and leaves.'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Go home': minut += 5 & gt 'street'
					end
					gs 'willpower', 'swallow', 'force', 'medium'
					if will_cost <= pcs_willpwr:
						act 'Spit sperm into her mouth (<<will_cost>> Willpower)':
							*clr & cla
							gs 'willpower', 'pay', 'force'
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/irinaslut3.jpg"></center>'
							'You take Iras head in your hands and lift her face to yours. She readily opens her mouth and you spit the sperm into it.'
							gs 'arousal', 'kiss', 5, 'dom'
							gs 'stat'

							act 'Kiss':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/irinaslut4.jpg"></center>'
								'You move your lips to Ira and start kissing her exchanging the sperm between your mouths. Finally you both swallow some of the semen.'
								swallow += 1
								gs 'arousal', 'kiss', 5, 'dom'
								gs 'stat'

								act 'Take Ira home':
									cla
									minut += 15
									'You wipe the remaining sperm off your face, help her to her feet and sort her out. Ira,regaining her senses, looks to you with a beatific smile "That Givi is chock-bellied ugly, but he fucked me like I''ve never been fucked before. I even lost consciousness from an orgasm."'
									'Ira is still floating in ecstasy, so you decide to walk her home. At her front door, she kisses you on the lips and leaves.'
									gs 'arousal', 'end'
									gs 'stat'

									act 'Go home': minut += 5 & gt 'street'
								end
							end

							act 'Take Ira home':
								cla
								minut += 15
								swallow += 1
								gs 'stat'
								'You wiped the remnants of sperm off your face, help her to feet and sort her out. Ira, regaining her senses, looks to you with a beatific smile "That Givi is chock-bellied ugly, but he fucked me like I''ve never been fucked before. I even lost consciousness from an orgasm."'
								'Ira is still floating in ecstasy, so you decide to walk her home. At her front door, she kisses you on the lips and leaves.'

								act 'Go home': minut += 5 & gt 'street'
							end
						end
					else
						act 'Spit sperm into her mouth (<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
		end
	elseif hour < 22:
		act 'Serve tables':
			*clr & cla
			minut += 30
			pcs_mood -= rand(0,2)
			znarand = rand(0, 1200)
			chai = rand(0, pcs_apprnc/4 + pcs_servng/2)

			if pcs_servng < 100:servng_exp += 1
			if pcs_vital < 30:vital_exp += 1 + rand(0,steroid_dose) & steroidcheck = 1
			if steroidcheck = 1 and steroid_dose > 0 and rand(1,5) <= steroid_dose:clit_size += rand(0,1) & killvar 'steroidcheck'

			money += chai

			if chai = 0:pcs_willpwr -= 5 & pcs_mood -= 5

			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/waitress_client.jpg"></center>'
			if chai = 0:
				'You serve customers at a table and they didn''t leave a tip. They are not obliged to but on your wages you are still not happy about it.'
			else
				'You serve customers at a table and receive <<chai>> <b>₽</b> as tip.'
			end

			act 'Move away':gt 'kafe', 'workPred'

			if znarand > pcs_apprnc or pcs_lover < 3:
				kaferand = rand(0, 100)

				if kaferand = 0:
					*clr & cla
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/kafe1.jpg"></center>'
					'Serving a table at one of the private booths you see two men seducing a pretty drunk girl. Pretty soon she is on her knees sucking on both of their cocks. One of the men is looking at you with a clear invitation to join them.'

					act 'Leave':gt 'kafe', 'workPred'

					if daystart > 10 and stat['vaginal'] > 0:
						act 'Join them':
							kafesexrand = 1
							picrand = 13
							guy += 2
							girl += 1
							gang += 1
							gs 'arousal', 'bj', 15, 'sub', 'group'
							gs 'stat'

							xgt 'sexdvanadva', 'var'
						end
					end
				elseif kaferand = 1:
					*clr & cla
					gs 'stat'
					gs 'npcgeneratec', 0, 'Customer', rand(18,40)
					gs 'boyStat', $npclastgenerated
					$boy[0] = $boy
					gs 'npcgeneratec', 0, 'Customer', rand(18,40)
					$boy[1] = $npclastgenerated
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/kafe2.jpg"></center>'
					'You serve a table in the attic, with two men. Each time you come by they try to pinch or slap your butt, or run their hands under your skirt.'

					act 'Leave':gt 'kafe', 'workPred'

					if daystart > 10 and stat['vaginal'] > 0:
						act 'Succumb':
							kafesexrand = 1
							picrand = 17
							guy += 2
							xgt 'sexdvoe', 'var'
						end
					end
				elseif kaferand = 2 and pcs_apprnc > 60:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/waitress_client.jpg"></center>'
					'At the table in a separate room sits a man. He looks at you appreciatively and says, "Girl, want to keep me company?" You notice the bulge in his trousers, he''s obviously aroused.'
					act 'Leave':gt 'kafe', 'workPred'
					act 'Sit down next to him':
						*clr & cla
						'You sit down next to the client. And look at him waiting for what he would do. He takes your hand and puts it on his crotch.'
						act 'Leave':gt 'kafe', 'workPred'
						if pcs_horny >= 50 or stat['bj'] > 0:
							act 'Unbutton his pants':
								*clr & cla
								dick = rand(12, 21)
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_2.jpg"></center>'
								'You undo his pants and hold the warm and hard <<dick>> cm cock, covered with veins and a small drop of crimson on the head.'
								act 'Masturbate him':
									*clr & cla
									guy += 1
									money += 500
									gs 'stat'
									'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_hj.jpg"></center>'
									'Clasping your fingers around his member you start to masturbate him, the man fairly quickly groans and discharges on your hand. Then you wipe his penis with a tissue and he gives you 500 <b>₽</b> for your work.'
									gs 'arousal', 'hj', 5, 'sub', 'prostitution'
									gs 'stat'

									act 'Leave':gt 'kafe', 'workPred'
								end
								act 'Suck his dick':
									*clr & cla
									guy += 1
									'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_bj.jpg"></center>'
									gs 'dinsex','bj_random'
									gs 'arousal', 'bj', 5, 'sub', 'prostitution'
									gs 'stat'
									act 'Take the sperm in your mouth':
										*clr & cla
										'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_bj2.jpg"></center>'
										swallow += 1
										gs 'cum_call','mouth',$boy,1
										gs 'dinsex','bj_swallow_random'
										gs 'arousal', 'end'
										money += 700
										gs 'stat'

										act 'Leave':gt 'kafe', 'workPred'
									end
								end
							end
						end
					end
				elseif kaferand = 3 and pcs_apprnc > 60:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/waitress_client.jpg"></center>'
					'At the table in a separate room sits a man. He looked appreciatively at you and says, "Girl, can you help? I have prepared a great tip for you, but accidentally dropped it under the table. And I myself have eaten too much so that I can no longer bend down..." you notice he is undoing the fly on his trousers, his intention is obvious.'
					act 'Leave':gt 'kafe', 'workPred'
					act 'Crawl under the table':
						*clr & cla
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_3_1.jpg"></center>'
						'"Well, now." You reply.'
						'You could do with the tip and getting onto all fours, you climb under the table. You do find a 500 ruble note there, but when you reach for it, the mans shoe lowers onto the edge of it. He unzips his pants, pulls out his penis and points at it.'
						act 'Leave':gt 'kafe', 'workPred'
						if pcs_horny >= 50 or stat['bj'] > 0:
							act 'Suck':
								*clr & cla
								guy += 1
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_3_2.jpg"></center>'
								'You knew there was no such thing as a free lunch.'
								'Still, you need these five hundred <b>₽</b>, so you take his cock in your hand and guide it straight into your mouth. The next five minutes, you carefully lick and suck it. Finally, the customer makes several short jerky movements with his hips and starts to pour hot cum into your mouth.'
								gs 'arousal', 'bj', 5, 'sub', 'prostitution'
								gs 'stat'
								act '....':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_3_3.jpg"></center>'
									'Filling your mouth to the brim, he takes his foot off the cash and you are finally able to pick it up.'
									gs 'cum_call','face',$boy,1,'','',10
									gs 'cum_call','mouth',$boy,1,'','',30
									gs 'arousal', 'end'
									money += 500
									gs 'stat'

									act 'Leave':gt 'kafe', 'workPred'
								end
							end
						end
					end
				elseif kaferand = 4:
					*clr & cla
					pcs_horny += 5
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand.jpg"></center>'
					'Going into one of the booths you see a girl leaning over a guy sucking him.'
					act 'Tactfully leave':
						*clr & cla
						money += 300
						gs 'stat'
						'You tactfully leave the booth, and after a couple of minutes they leave you a 300 <b>₽</b> tip.'
						act 'Leave':gt 'kafe', 'workPred'
					end
					act 'Break it up':
						*clr & cla
						gs 'stat'
						'You indignantly declare that the diner is not a brothel and people are trying to eat in here.'
						iverand = rand(0, 2)
						if iverand = 0:'The guy calls you a bitch and he and his girlfriend quickly leave the diner without leaving a tip.'
						if iverand = 1:'The guy says you are a fucking whore and calls you frigid, finishes in his girlfriends mouth and leaves without leaving a tip.'
						if iverand = 2:
							'The guy gets out a 500 ruble bill, "For your discretion."'
							act 'Expel them':gt 'kafe', 'workPred'
							act 'Discreetly leave':
								*clr & cla
								money += 500
								gs 'stat'
								'You take the money and leave the couple to their own devices.'
								act 'Leave':gt 'kafe', 'workPred'
							end
						end
						act 'Leave':gt 'kafe', 'workPred'
					end

					if stat['bj'] > 10 and swallow > 5 and pcs_horny >= 50:
						act 'Giggle flirtatiously':
							*clr & cla
							gs 'stat'
							'The girl looks up from the penis and waves her hand inviting you to join.'

							act 'Tactfully leave':
								*clr & cla
								money += 300
								gs 'stat'
								'You tactfully leave the booth, and after a couple of minutes they leave you a 300 <b>₽</b> tip.'

								act 'Leave':gt 'kafe', 'workPred'
							end

							act 'Kneel before the guy':
								*clr & cla
								if SergeaAndKatjaSex = 0:SergeaAndKatjaSex = 1 & guy += 1
								'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrandbj.jpg"></center>'
								'You kneel down and start to suck his dick. You and the girl both work enthusiastically on his erect cock, kissing each other in the process.'
								gs 'arousal', 'bj', 5, 'sub', 'prostitution'
								gs 'stat'

								act '....':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrandcum.jpg"></center>'
									'Finally the stimulation is too much for the guy. Hot sperm gets into your mouth and a little on your face. You and the Girl lick the dick until it''s nice and clean.'
									gs 'cum_call','face',$boy,1,'','',10
									gs 'cum_call','mouth',$boy,1,'','',30
									if SergeaAndKatjaQW = 0:
										SergeaAndKatjaQW = 1
										'After the blowjob the guy introduces himself, "I am Sergei and this is Katja. I didn''t know such a hot waitresses worked here."'
									end
									gs 'arousal', 'end'
									gs 'stat'

									act 'Leave':gt 'kafe', 'workPred'
								end
							end
						end
					end
				elseif kaferand = 5:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand.jpg"></center>'
					'Serving tables you accidentally notice as a girl is leaning over and blowing her boyfriend.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 6:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand3.jpg"></center>'
					'Going into one of the stalls you see a couple of girls sitting there. One of them is on her knees licking the others vagina.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 7:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand4.jpg"></center>'
					'Passing the dance floor where teens mess around you see one drunken girl sitting on her haunches sucking cock.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 8:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand5.jpg"></center>'
					'Walking past the bar you see a girl squatting down, sucking some guys dick as he drinks beer ..'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 9:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand6.jpg"></center>'
					'Going into one of the stalls you see that there is a cheerful company of young people and one of the beautiful girls is being fucked doggy style right in front of the table.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 10:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand7.jpg"></center>'
					'On the dance floor girls are dancing and having fun.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 11:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand8.jpg"></center>'
					'You see how the two drunken girls unashamedly kiss each other passionately.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 12:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand9.jpg"></center>'
					'You see a drunk girl crawl under the table like she has lost something. As she hikes up her skirt you can see she is not wearing panties. Almost all of the diner can see everything.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 13:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand10.jpg"></center>'
					'You see as a drunken couple playing with each other. The girl licks his cock and the guy is pouring champagne into her mouth.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 14:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand11.jpg"></center>'
					'You happen to notice that a couple of fun chatting girls are not only chatting, but one of the girls put her hand into her friends panties and caresses her girlfriend there.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 15:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand12.jpg"></center>'
					'You see a girl on the dance floor dancing and being groped. Her skirt is slowly being lifted, but the girl apparently does not mind.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 16:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand13.jpg"></center>'
					'Going into one of the stalls you see guys playing cards with some girls. It looks like they are losing at strip-poker sitting in their underwear.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 17:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand14.jpg"></center>'
					'You see two guys dancing with a girl touching her everywhere and lifting her skirt. The girl reacts by laughing without even trying to cover up how much the rest of the customers are staring.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 18:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand15.jpg"></center>'
					'You see how a guy on the dance floor kisses a girl and runs his hand under her skirt practically fucking her with his fingers through her panties.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 19:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand16.jpg"></center>'
					'You see a drunk girl, legs spread, skirt hitched and no panties as a cheerful young man fucks her pussy with his fingers.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 20:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand17.jpg"></center>'
					'You see a guy hugging a drunken girl. He takes a mouthful of beer and pours it into her mouth with a kiss as a second guy massages her boobs.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 21:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand18.jpg"></center>'
					'Going into the attic you see two guys on either end of a girl who sucks cock as her bare ass wiggles with the second man fucking her as deeply as possible.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 22:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand19.jpg"></center>'
					'You see a young girl on the dance floor practically dancing in her underwear with a young guy groping her.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 23:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand20.jpg"></center>'
					'You see two young guys bending a girl over and miming sex with her, all laughing hysterically.'
					gs 'arousal', 'voyeur', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand = 24:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand21.jpg"></center>'
					'Going into one of the stalls you see a man licking a girl''s pussy in front of some other guy as she is lying on her back and catching a buzz from smoking a cigarette.'
					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'

					act 'Leave':gt 'kafe', 'workPred'
				elseif kaferand >= 90 and (opusk > 0 or gnewQW = 5) and pirsA = 0:
					*clr & cla
					pirsA = 1
					PirsA1_owned = 1
					! WD: Unused ~ 'pirsday'
					! pirsday = day
					'<center><img <<$set_imgh>> src="images/pc/body/piercings/a1.jpg"></center>'
					'You are called to one of the clients, you go to the table and notice that in front of you are the real criminals.'
					'When you get to the table, the leader tells you to come closer to him. As soon as you do, you are grabbed very hard and painfully by the neck.'
					'The leader tells you, "Bitch, open your mouth." You obediently open your mouth, he looks back at you and slaps you very hard. "I do not see a pierced tongue. Whores should wear piercings so that a decent person can immediately understand what they are."'
					'The leader turns to his mobsters and tells them it is necessary to fix you. At the same moment you are grabbed and strong arms carry you out of the diner, you are thrown into the back seat of the jeep and it drives off.'
					'The drive is not very long, riding up to what looks like a jail, the jeep honks and gates open soundlessly. The jeep pulls up by the territory cottages. A strong man drags you out of the car and into the basement.'
					'The basement has all the tools set out ready. You sit on a chair and a heavily tattooed orangutan comes up to you with a clip and a pair of scissors, he pull your tongue out of your mouth and pierces it with lightning speed. Into the bleeding wound in your tonuge he attaches a small bar.'
					'Damn, it''s very painful. You moan with your tongue hanging out, the bandits laughing at your pain. Finally your tongue is freed. Tears roll down your cheeks as the bandits escort you out of the cottages.'

					act 'Go home': minut += 5 & gt 'street'
				elseif kaferand > 25 and (opusk > 0 or gnewQW = 5) and pirsA > 0 and hour >= 12 and hour <= 19 and cafe_mobster ! daystart:
					*clr & cla
					cafe_mobster = daystart
					'The Mob boss beckons you to his table. You approached him with trembling knees.''He looks at you like a boa constrictor at a rabbit and says, "Whore, open your mouth." You open your mouth obediently and quickly stick out your tongue.'
					if pirsA  = 10000:
						i = 1
						:looptongue_pir

						if dyneval('RESULT = PirsA<<i>>_owned') = 1:
							pirsA = i
						else
							i += 1
							jump 'looptongue_pir'
						end
						pierWearCount += 1
						'The leader asks you where your tongue piercing is. You produce it from your pocket and shakily manage to fit it and screw it tight.'
					end
					'The leader takes you by the face and you freeze under his piercing gaze. "All the same, good job guys. Okay whore, get under the table and entertain me."'

					act 'Get under the table':
						*clr & cla
						if glavar = 0:glavar = 1
						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj23.jpg"></center>'
						'You obediently crawl under the table and pull out the leader''s penis from his pants. Dutifully you caress it with your tongue and start sucking.'
						'The ringleader, as if made of stone, did not flinch a muscle as he empties his balls into your mouth.'
						gs 'arousal', 'bj', 15, 'sub'
						horand = rand(1, 100)
						if horand > pcs_horny:pcs_horny += 10 & 'You were not satisfied'
						$orgasm_or = 'no'
						if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'You orgasm'
						$orgasm_or = 'yes'
						gs 'cum_call','mouth',$boy,1
						'You swallow all his sperm and suck him dry.'
						gs 'arousal', 'end'
						gs 'stat'

						act 'return to work':gt 'kafe', 'workPred'
					end
				end
			elseif znarand <= pcs_apprnc and pcs_lover < 3:
				*clr & cla
				gs 'boy'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/waitress_client.jpg"></center>'
				'At the table sits a <<$boybody>> <<$boybod>> <<$boyface>> guy. He is <<$boyClo>>'
				'You take his order, and when you bring him the bill, he asks if he could meet you.'

				act 'No':
					cla
					money += 10
					'The man is angry he leaves you a 10 <b>₽</b> tip and goes.'

					act 'Move away':gt 'kafe', 'workPred'
				end

				act 'Yes':
					cla
					money += 100
					gs 'boyfrend', 'start'
					stopboy = 0
					'The man is glad that you do not mind dating him. He introduces himself as <<$boydesc>> and asks for your phone number, promising to call you back tomorrow.'
					'Then he leaves you a hundred <b>₽</b> tip and goes.'

					act 'Move away':gt 'kafe', 'workPred'
				end
			end
		end
	elseif hour >= 22:
		act 'Finish shift and go home':
			cla
			if GiviSex = 0 and npc_rel['A41'] < 90 or pcs_apprnc < 0:
				'Givi nods his head at you, "Goodbye, <<$pcs_nickname>>."'
				act 'Leave':
					cla
					minut += 5
					gt 'kafeend'
				end
			else
				gt 'kafe2', 'givipredlog'
			end
		end
	end
end

if $ARGS[0] = 'razvod':
	$menu_loc = 'kafe'
	$menu_arg = 'razvod'
	menu_off = 0
	$location_type = 'event'
	cla
	act 'Get up from the table':gt 'kafe', 'start'

	act 'Order from the menu (0:05)':gs 'food_menu'

	deyst = rand(0, 3)
	if deyst = 0:
		'<<$boydesc>> invites you to dance.'
		act 'Dance with him':gt 'cafe2', 'dance'
		if pcs_horny < 75:
			act 'Leave': minut += 5 & gt 'street'
		end
	elseif deyst = 1:
		'<<$boydesc>> asks permission to sit down at the same table as you.'
		act 'Drink with him':gt 'cafe2', 'booze'
		gs 'willpower', 'drink', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				minut +5
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	elseif deyst = 2:
		'<<$boydesc>> invites you to a nearby party which he is going to.'
		act 'Agree to party':gt 'cafe2', 'kompashka'
		gs 'willpower', 'drink', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				minut +5
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	elseif deyst = 3:
		'<<$boydesc>> is incredibly drunk and you feel tipsy just from the smell of booze on him. "Hey baby, got some spare time? Come have fun in the toilet."'
		act 'Meet in bathroom':gt 'cafe3', 'toilet'
		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				minut +5
				gs 'stat'
				if hotcat >= 6:
					'"Come on, baby, I will give you two thousand <b>₽</b>. Daddy wants to have fun."'
					act 'Meet in bathroom':
						money += 2000
						gt 'cafe3', 'toilet'
					end
				else
					'"Well, okay, get out of here, you are ugly anyway."'
				end
				gs 'willpower', 'prostitution', 'resist', 'medium'
				if will_cost <= pcs_willpwr:
					act 'Tell him to fuck off (<<will_cost>> Willpower)':
						*clr & cla
						gs 'willpower', 'pay', 'resist'
						minut +5
						gs 'stat'
						gt 'street'
					end
				else
					act 'Tell him to fuck off (<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
			act 'Leave (<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

--- kafe ---------------------------------