glife/locations/vokdin

# vokdin
$din_vokzalg_kassi = {
	cls
	gs 'stat'
	'<center><h4>Ticket office</h4></center>'
	'<center><img src="images/qwest/alter/kassa.jpg"></center>'
	'A ticket to the city costs 200 <b>₽</b>, a ticket to Gadyukino costs 50 <b>₽</b>.'
	'The long-distance trains are at the station platforms between 11:00-11:30 and 18:00-18:30.'

	if money >= 200:
		act 'Buy a ticket to the City (200 <b>₽</b>)':
			cls
			money -= 200
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You pay for a ticket to the city, and board the local train waiting at the station.'
			'15 minutes later the train stops at the station near the village of Gadyukino.'

			act 'Continue towards the city':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stops at a small station. It''s abandoned, and there is not much activity outside.'

				act 'Continue towards the city':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/etogame/electri.jpg"></center>'
					'After 15 minutes the train stops at another small station. It''s abandoned, and there is not much activity outside.'

					act 'Continue towards the city':
						cls
						minut += 15
						gs 'stat'
						'<center><img src="images/etogame/electri.jpg"></center>'
						'After 15 minutes the train reaches its final stop, in the northern district of the City.'

						act 'Leave the train':minut += 5 & nroad = 0 & gt 'Vokzal'
					end

					act 'Leave the train':minut += 5 & nroad = 5 & gt 'road'
				end

				act 'Leave the train':minut += 5 & nroad = 10 & gt 'road'
			end

			act 'Leave the train at Gadyukino':minut += 5 & nroad = 15 & gt 'road'
		end
	end

	if money >= 50:
		act 'Buy a ticket to Gadyukino (50 <b>₽</b>)':
			cls
			money -= 50
			minut += 15
			gs'stat'

			'<center><img src="images/etogame/electri.jpg"></center>'
			'You pay for a ticket, and board the local train going to Gadyukino.'
			'After 15 minutes, the train stops at the station near the village of Gadyukino.'

			act 'Leave the train':minut += 5 & nroad = 15 & gt'road'
		end
	end

	act 'Leave the ticket office':minut += 1 & gt 'vokzalGin'
}

$din_vokzalg_kabinet = {
	cls
	gs 'stat'
	'When you walk past the station manager''s office, you notice a sign next to the door:'
	'"Cleaner wanted! 2 hours per day at any time, salary 250 <b>₽</b>. Ask inside for more info."'

	act 'Return to the train station':minut += 1 & gt 'vokzalGin'

	if hour >= 8 and hour <= 16:
		act 'Enter the office':
			cls
			gs 'stat'
			'You knock on the door and enter the station manager''s office. An elderly man looks up from the papers on his desk and says, "Can I help you?"'

			act 'Apologize and leave':minut += 1 & gt 'vokzalGin'

			if vokzalVork = 0:
				act 'Apply for the cleaning job':
					cls
					vokzalVork = 1
					minut += 15
					gs 'stat'
					'You give him a friendly nod: "Hello sir, I would like to apply for the cleaning job."'
					'He''s delighted, and somewhat surprised that he actually has a candidate at such low wages. "Excellent, come on in! Take a seat."'
					'He explains what you have to do while he takes your details: "Your job would be to wash the station floor, and clean both the restrooms. You can come work on any day you like, and can skip any day you don''t want to work."'
					'"You have to clean all three areas before the end of the day, otherwise we have to hire someone else finish it. If you have only cleaned part of the rooms, you do not get paid at all." In conclusion he shows you the maintenance closet where the cleaning supplies are stored and shakes your hand, before returning to his work.'

					act 'Leave the office':minut += 1 & gt 'vokzalGin'
				end
			end
		end
	end
}

$din_vokzalg_toilet_deyst = {
	if hapri = 0:
		act 'Comb your hair (0:03)':
			cla
			minut += 3
			hapri = 1

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end

	if mop = 1 and kosmetica > 0:
		act 'Apply make-up':
			cla
			*clr
			'<center><img src="images/etogame/mop.jpg"></center>'

			act 'Light make-up (0:03)':
				cla
				minut += 3
				kosmetica -= 1
				mop = 2
				'You quickly apply some mascara to highlight your eyes a little, and apply some lipstick.'

				if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
				if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
			end

			if kosmetica >= 2:
				act 'Normal make-up (0:05)':
					cla
					minut += 5
					kosmetica -= 2
					mop = 3
					'After applying a quick foundation you put on some lipstick, and then apply some eyeshadow and mascara to highlight your eyes more.'

					if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
					if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
				end
			end

			if kosmetica >= 3:
				act 'Heavy make-up (0:10)':
					cla
					minut += 10
					kosmetica -= 3
					vidageday -= 1
					mop = 4
					'You put a dense layer of make-up on your skin covering all your blemishes, and take ten minutes to make yourself look as pretty as you can.'

					if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
					if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
				end
			end
		end
	end

	!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
	!!Removed sweat =- 1 when cum is wiped off clothes
	!!clrbelo: Amount of clean panties available
	if spdirtyi > 0 or spdirtyn > 0:
		act 'Quick wash (0:15)':
			cla
			*clr

			if clrbelo > 0:
				clrbelo -= 1
				dirtbelo += 1
			elseif tanga = 1:
				tanga = 0
				dirtbelo += 1
			end

			dynamic $showerdin
			sweat -= 1
			minut += 15
			'<center><img src="images/pics/wash5.jpg"></center>'
			'You give yourself a quick wash, removing any trace of cum from your body.'

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end

	temp = arrpos('sparrloc',11)
	if sparrloc[temp] = 11 and sparrvol[temp] > 0:
		temp = 1
	else
		temp = arrpos('sparrloc',16)
		if sparrloc[temp] = 16 and sparrvol[temp] > 0:
			temp = 1
		else
			temp = 0
		end
	end
	if temp > 0 or spdirtyb > 0 :
		act 'Clean your face from sperm (0:05)':
			cla
			*clr
			mop = 1
			cumspclnt = 12
			gs 'cum_cleanup'
			sweat -= 1
			minut += 5
			'<center><img src="images/etogame/facesp.jpg"></center>'
			'You clean your face and get rid of any trace of cum.'

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end

	if spdirtyc > 0:
		act 'Wipe the cum off your clothes (0:10)':
			cla
			*clr
			cumspclnt = 6
			gs 'cum_cleanup'
			minut += 10
			'<center><img src="images/etogame/frotsp.jpg"></center>'
			'You wipe the cum off your clothes and thoroughly rinse out the stains with water.'

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end
	!!

	if sanpad > 0 and mesec > 0 and isprok = 0 and isprokp = 0 and tanga = 1:
		act 'Use a sanitary napkin (0:05)':
			cla
			*clr
			sanpad -= 1
			isprokp = 1
			minut += 5
			manna -= 5
			'<center><img src="images/pics/wash3.jpg"></center>'
			'You use a sanitary napkin.'
			act 'Finish':gt $locM, $metkaM
		end
	end
	
	if tampon > 0 and mesec > 0 and isprok = 0 and isprokp = 0:
		act 'Use a tampon (0:05)':
			cla
			*clr
			tampon -= 1
			isprok = 1
			minut =+ 5
			manna -= 5
			'<center><img src="images/pics/wash3.jpg"></center>'
			'You use a tampon.'

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end

	if horny >= 90:
		act 'Masturbate':
			cls
			orgasm += 1
			mastr += 1
			horny = 0
			gs 'stat'
			'<center><img src="images/qwest/alter/Ev/mastr.jpg"></center>'
			'You close the door to the toilet stall and quickly remove your clothes as you sit down on the toilet seat.'
			'Gently caressing your pussy lips, you then thrust in two fingers while you flick your thumb over your clit.'
			'Soon you hit a powerful orgasm, and you take a second to recover before you straighten your clothes, feeling ready to continue your day.'

			if vokzalToilet = 1:act 'Finish':dynamic $din_vokzalg_toilet_f
			if vokzalToilet = 2:act 'Finish':dynamic $din_vokzalg_toilet_m
		end
	end
}

$din_vokzalg_toilet_f = {
	cls
	vokzalToilet = 1
	gs 'stat'
	'<center><h4>The ladies'' room</h4></center>'
	'<center><img src="images/etogame/PublicToilet.jpg"></center>'
	'You open the door to the ladies'' room and go in.'

	act 'Leave':minut += 1 & dynamic $din_vokzalg_toilet

	dynamic $din_vokzalg_toilet_deyst
}

$din_vokzalg_toilet_m = {
	cls
	vokzalToilet = 2
	gs 'stat'
	'<center><h4>The men''s room</h4></center>'
	'<center><img src="images/etogame/PublicToilet.jpg"></center>'
	'You open the door to the men''s room and go in.'

	if bimbolevel >= 1:
		act 'Wait and see if someone finds you':gt 'vokBimbo', 'pos1'
		act 'Quickly enter a stall':gt 'vokBimbo', 'pos5'
	end
	act 'Leave':minut += 1 & dynamic $din_vokzalg_toilet

	dynamic $din_vokzalg_toilet_deyst
}

$din_vokzalg_toilet = {
	cls
	vokzalToilet = 0
	gs 'stat'

	'<center><h4>Pavlovsk train station interior</h4></center>'
	'<center><img src="images/qwest/alter/vokzal.jpg"></center>'
	'You are at the station''s restrooms, you can find the <a href="exec:minut += 1 & dynamic $din_vokzalg_toilet_f">ladies'' room</a> and <a href="exec:minut += 1 & dynamic $din_vokzalg_toilet_m">men''s room</a> here.'

	act 'Return to the station':minut += 1 & gt 'vokzalGin'
}

$din_vokazalg_podbros2 = {
	cls
	gs 'stat'
	'You give back the money you took from his wallet, but he acts insulted: "That''s not all of it! I had much more in my wallet, where is it!? I want it back now or we''re going to the police station! This is your last chance!"'

	act 'Give him your money':
		cls
		money = 0
		podbros = 1
		gs 'stat'
		'<center><h4>Pavlovsk train station interior</h4></center>'
		'<center><img src="images/qwest/alter/vokzal.jpg"></center>'
		'You don''t want a scandal. Who knows what could happen if you get arrested for theft? Hoping to placate him with a few bills of your own money, you decide to get your wallet. You pull out your own money, and start to count some of it out. Before you can finish, he pulls the entire pile out of your hands: "There it is! You''re lucky, girl... I''ll leave it at this, for just this once."'
		'Before you can object, he walks away with all of your money.'
		
		act 'Leave':minut += 1 & gt 'vokzalGin'
	end
}

$din_vokzalg_podbros = {
	cls
	gs 'stat'
	'<center><h4>Pavlovsk train station interior</h4></center>'
	'<center><img src="images/qwest/alter/vokzal.jpg"></center>'
	'As you reach for the wallet, a foot steps on it just before you can pick it up. You look up, straight into the eyes of a slim girl. She looks around quickly and then softly asks: "Want to share?"'

	act 'Keep it all for yourself':
		cls
		gs 'stat'
		'<center><h4>Pavlovsk train station interior</h4></center>'
		'<center><img src="images/qwest/alter/vokzal.jpg"></center>'
		'You tell the girl to get lost, and quickly push her away and snag the wallet before she can protest. As you remove the money from it and stuff it in your pocket, you feel a hand firmly grasping your shoulder. It''s the man who the wallet belongs to... that girl must have ratted you out!'
		'You sigh and give him the empty wallet back, hoping he won''t check. Unfortunately for you, he checks. He bellows: "Young lady, you have 5 seconds to give me my money back or we''re going to the police station!"'

		act 'Give him back the money you stole':dynamic $din_vokazalg_podbros2
	end

	act 'Let her have the wallet and leave':minut += 1 & gt 'vokzalGin'

	act 'Share the money':
		cls
		gs 'stat'
		'<center><h4>Pavlovsk train station interior</h4></center>'
		'<center><img src="images/qwest/alter/vokzal.jpg"></center>'
		'You pick up the wallet and drag the girl off to the side. Making sure you are not being watched, you quickly split the money in two even piles and give her half. She quickly walks away while you put your share in your pocket. Suddenly, you feel a hand firmly grasping your shoulder. It''s the man who the wallet belongs to...'
		'You sigh and give him the empty wallet back, hoping he won''t check. Unfortunately for you, he checks. He bellows: "Young lady, you have 5 seconds to give me my money back or we''re going to the police station!"'

		act 'Give him back the money you stole':dynamic $din_vokazalg_podbros2
	end
}

--- vokdin ---------------------------------