# mod_iwhore_innapt

if $ARGS[0] = 'start':
	*clr & cla
	minut += 1
	gs 'mod_iwhore_innapt','guardian_route'
	gs 'mod_iwhore_innapt','guardian_maid'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
	'You are in front of the door.'
	if whore_beginner_day < daystart:
		act 'Ring the bell':
			if inna_varvara_pimp = 11:
				*clr & cla
				minut += 1
				GuardianLoc[hour] = 3
				deriagin_entry = 1
				'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/doc.jpg"></center>'
				'Man: "Oh it''s you... . Hi <<$pcs_firstname>>...Inna wait for you"<br>"...Everybody know me here...but i know no one...it''s not comfortable..."<br>Man: "I''m sorry you are right...I''m Deriagin, Deriagin Utkin; you can call me Doc... . I''m happy to see you are good."<br>"...Well...thanks... Now that i think ...i remember to hear speaking about you...and you were probably the man with Inna and Mechislav in the video..."<br>Man: "That''s right...but plaese enter, feel at home."'
				act 'Enter': gt 'mod_iwhore_innapt','entry'
				act 'Move away from the door':gt 'mod_iwhore_innapodz', 'etaj_5'
			elseif inna_varvara_pimp = 12:
				inna_varvara_pimp = 13
				if GuardianLoc[hour] ! 0:
					GuardianLoc[hour] = 4
					Guardian_cleaner = 0
					if yana_entry < 1:
						*clr & cla
						minut += 1
						yana_entry = 1
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yana1.jpg"></center>'
						'A middle aged woman open the door... "I don''t buy nothing."...and quickly slam it right on your face.'
						act '"...??..."': gt 'mod_iwhore_innapt','start'
					elseif yana_entry = 1:
						*clr & cla
						minut += 1
						yana_entry = 2
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yana2.jpg"></center>'
						'Woman: "Hey! Are you deaf?"'
						act '"...But..."': gt 'mod_iwhore_innapt','start'
					elseif yana_entry = 2:
						*clr & cla
						minut += 1
						yana_entry = 3
						gs 'stat'
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
						'Woman: "What the ...? Go away before i lose my patience."'
						act '"Hey! I sell nothing!"':
							*clr & cla
							minut += 2
							'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
							'Woman: "...Uhmmm..."<br>"Uhhmmm...what?"<br>Woman: "Spin around."<br>"What?"<br>Woman: "I have to check you: spin around."'
							act 'Spin':
								*clr & cla
								minut += 4
								'<center><video autoplay loop src="mod/iwhore/images/characters/pavlovsk/resident/yana/spin.mp4"></video></center>'
								'"Happy?"<br>Woman: "A little more..."<br>"Ufff!"<br>Woman: "..."'
								wait 9000
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
								'"What the fuck? HEY!!!!"<br>The woman slammed the door while you spinning...you feel a dumb...'
								act 'Bell tormentor!':
									*clr & cla
									gs 'stat'
									'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
									'"What''s wrong with you? Bring me to Inna immediately!"<br>Woman: "Pfff!...Sorry <<$pcs_nickname>>...i could not resist...Pfff!"<br>"How do you...?"<br>Woman: "...Yes i know you. I''m Yana by the way, Yana Sorokin. Hope you are not mad...really...it was really funny...hehehe."<br>"Uhmmppff!"<br>Woman: "...Come on enter... . Don''t be mad you made my day."<br>"I cannot say it was a pleasure... . Is Inna in there?"<br>Woman: "...Maybe...snoop around."'
									act 'Enter': gt 'mod_iwhore_innapt','entry'
								end
							end
							act '"Hey! Bring me to Inna! I need to talk her!"':
								*clr & cla
								minut += 1
								gs 'stat'
								'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
								'Woman: "Boring...ok <<$pcs_nickname>>...come in."<br>"Hey! Do i know you?"<br>Woman: "...Not yet, but i know you. I''m Yana, Yana Sorokin. While you are <<$pcs_firstname>> <<$pcs_lastname>>...a party pooper..."<br>"Uhmmppff!"<br>Woman: "...Come on enter...or i''ll shut the door again."<br>"Funny really funny... . Is Inna in there?"<br>Woman: "...Maybe...snoop around."'
								act 'Enter': gt 'mod_iwhore_innapt','entry'
							end
						end
					else
						*clr & cla
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
						'"Yana..."<br>Yana: "Hi <<$pcs_nickname>>...enter."<br>"...Is Inna in there?"<br>Yana: "...Maybe...snoop around honey."'
						act 'Enter': gt 'mod_iwhore_innapt','entry'
					end
				else
					Guardian_cleaner = 4
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestovoz/door3.jpg"></center>'
					'Inna: "..."<br>"Hi..."<br>"...I''ll be in my room... . If you need something you know where to find me."'
					act 'Enter':gt 'mod_iwhore_innapt','entry'
				end
			else
				minut += 1
				if inna_varvara_pimp = 13:
					if GuardianLoc[hour] ! 0:
						GuardianLoc[hour] = 4
						Guardian_cleaner = 0
					else
						Guardian_cleaner = 4
					end
				end
				if GuardianLoc[hour] = 0:
					*clr & cla
					if inna_varvara_pimp = 12:
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestooz/door3.jpg"></center>'
						'Inna: "..."<br>"..."<br>Inna: "...Reach me in my room... ."'
					else
						'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestooz/door'+rand(0,2)+'.jpg"></center>'
						'Inna: "Hi girl...need something? Enter..."'
					end

					act 'Enter': gt 'mod_iwhore_innapt','entry'
				elseif GuardianLoc[hour] = 1:
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/mieszko/door.jpg"></center>'
					'Mechislav: "<<$pcs_nickname>>..."'
					act 'Enter': gt 'mod_iwhore_innapt','entry'
				elseif GuardianLoc[hour] = 2:
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/gavriil/gavriildoor.jpg"></center>'
					'Gavriil: "This house id open for you."'
					act 'Enter': gt 'mod_iwhore_innapt','entry'
				elseif GuardianLoc[hour] = 3:
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/doc.jpg"></center>'
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yana2.jpg"></center>'
					'Doc: "<<$pcs_nickname>>..."'
					act 'Enter': gt 'mod_iwhore_innapt','entry'
				elseif GuardianLoc[hour] = 4:
					*clr & cla
					'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/yanaentry.jpg"></center>'
					'Yana: "Hi <<$pcs_nickname>>...enter."<br>"Yana..."'
					act 'Enter': gt 'mod_iwhore_innapt','entry'
				else
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
					'No one answer'
					act 'Move away from the door':gt 'mod_iwhore_innapodz', 'etaj_5'
				end
			end
		end
	else
		act 'Ring the bell':
			*clr & cla
			minut += 1
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptdoor.jpg"></center>'
			'No one answer'
			act 'Move away from the door':gt 'mod_iwhore_innapodz', 'etaj_5'
		end
	end
	act 'Move away from the door':gt 'mod_iwhore_innapodz', 'etaj_5'
end

if $ARGS[0] = 'entry':
	music_loop = 0
	CLOSE ALL
	if sound = 0:PLAY 'sound/korr.mp3',30
	$locM_arg = 'hallway'
	$locM = 'mod_iwhore_innapt'
	$loc_arg = 'hallway'
	$loc = 'mod_iwhore_innapt'
	$location_type = 'private'
!	$location_type = 'indoors'
	minut += 1
	killvar '$locclass'
	*clr & cla
	gs 'stat'
	!gs 'rolanapt' , 'rolanroute'
	'<center><h4><font color="maroon">Entry</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/entry.jpg"></center>'
	'The entry... . "This dog is scaring... ." You know it''s embalmed but still it''s scaring...'

	act 'Hallway': gt 'mod_iwhore_innapt','hallway'
	act 'Living room': gt 'mod_iwhore_innapt', 'livingroom'
	act 'Leave apartment': gt 'mod_iwhore_innapodz', 'etaj_5'
end

if $ARGS[0] = 'hallway':
	music_loop = 0
	CLOSE ALL
	if sound = 0:PLAY 'sound/korr.mp3',30
	$locM_arg = 'hallway'
	$locM = 'mod_iwhore_innapt'
	$loc_arg = 'hallway'
	$loc = 'mod_iwhore_innapt'
	$location_type = 'private'
!	$location_type = 'indoors'
	minut += 1
	killvar '$locclass'
	*clr & cla
	gs 'stat'
	!gs 'rolanapt' , 'rolanroute'
	'<center><h4><font color="maroon">Hallway</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/hallway.jpg"></center>'
	'The hallway ...'

	act 'Entry': gt 'mod_iwhore_innapt','entry'

	if inna_varvara_pimp = 12 and GuardianLoc[hour] = 0:
		act 'Second room on the left': gt 'mod_iwhore_begin', 'pimped4'
	else
		act 'Second room on the left': gt 'mod_iwhore_innapt', 'roomin'
	end
	act 'First room on the right': gt 'mod_iwhore_innapt', 'roommec'
	act 'Last door': gt 'mod_iwhore_innapt', 'roomdoc'
	act 'Second room on the right': gt 'mod_iwhore_innapt', 'roomgav'
	act 'First room on the left': gt 'mod_iwhore_innapt', 'guestroom'
	if inna_varvara_pimp >= 20:
		act 'Door': gt 'mod_iwhore_innapt','surveillance'
	else
		act 'Door': gt 'mod_iwhore_innapt','sealedroom'
	end
end

if $ARGS[0] = 'roomin':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Inna''s bedroom</font></h4></center>'
	if month >= 3 and month =< 5:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ibed0.jpg"></center>'
	elseif month >= 6 and month =< 8:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ibed1.jpg"></center>'
	elseif month >= 9 and month =< 11:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ibed2.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ibed3.jpg"></center>'
	end
	if GuardianLoc[hour] = 0:
		if inna_varvara_pimp = 12:
			!cla
			'Inna is here undressing; you wonder if you should ... .<a href="exec:gt ''mod_iwhore_begin'', ''pimped4''">talk</a> to her or  <a href="exec:gt ''mod_iwhore_innapt'', ''hallway''">leave</a>  '
		elseif inna_varvara_pimp = 13:
			'A female body is wrapped... . She should be <a href="exec:gt ''mod_iwhore_begin'', ''pimped4''">Inna</a> ... . You wonder if you have to wake up her... .'
		else
			'<a href="exec:gt ''mod_iwhore_innapt'', ''guardian_room''">Inna</a> is here... .'
		end
	else
		if inna_varvara_pimp = 13:
			'A female body is wrapped... . She should be <a href="exec:gt ''mod_iwhore_begin'', ''pimped4''">Inna</a> ... . You wonder if you have to wake up her... .'
		else
			'"I guess i know what Inna likes to receive as present...but i doubt she need more..."'
		end
	end
	if Krestovoz_pimp_day < daystart:''
	act 'Room': gt 'mod_iwhore_innapt','innaguest'
	act 'Leave the room': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'innaguest':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Inna''s guest room</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ibed.jpg"></center>'
	'"Well...nothing strange...right?"'
	act 'Leave the room': gt 'mod_iwhore_innapt','roomin'
end

if $ARGS[0] = 'roommec':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$locM_arg = 'roommec'
	$locM = 'mod_iwhore_innapt'
	$loc_arg = 'roommec'
	$loc = 'mod_iwhore_innapt'
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Mechislav''s bedroom</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/mecbed.jpg"></center>'
	'"Never seen something like that... . I can use a yakuzi!"'

	if GuardianLoc[hour] = 1:'<a href="exec:gs ''mod_iwhore_innapt'', ''guardian_room''">Mechislav</a> lays on the bed...'

	act 'Mechislav''s bath': gt 'mod_iwhore_innapt','mecbath'
	act 'Have a bath (0:30)':
		cla
		*clr
		gs 'stat'
		minut += 30
		pcs_sweat = 7 + rand(0,4)
		pcs_mood += 20
		pcs_skin += 1
		gs 'mod_iwhore_dincollect' , 'showerdin'
		if frost > 0:frost = 0
		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
		*nl
		'While the bathtub fills up you get undressed and then dip a toe into the water. It''s just the right temperature so you climb in and let yourself sink into the warm water.'
		*nl
		*nl

		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		if normbuffpick = 1:
			*nl
			'<b>You notice that your muscles are starting to show through your skin.</b>'
			act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
		end
		act '"Wash" your pussy':
			cla
			*clr
			minut += 10

			'<center><video src="images/shared/home/bathroom/wash7.mp4"></center>'
			*nl
			'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water. It feels really good and soon a warmth begins to grow in your abdomen.'

			if pcs_inhib < 30:inhib_exp += rand(1,3)
			pcs_mood += 15
			pcs_willpwr += 15
			$orgasm_or = 'yes'
			gs 'arousal', 'masturbate', 10
			gs 'arousal', 'end'

			gs 'mod_iwhore_dincollect' , 'dryOff'
		end

		gs 'mod_iwhore_dincollect' , 'dryOff'
		gs 'mod_iwhore_dincollect' , 'brit'
	end
	act 'Leave the room': gt 'mod_iwhore_innapt','hallway'

end

if $ARGS[0] = 'mecbath':
	CLOSE ALL
	$loc_arg = 'mecbath'
	$loc = 'mod_iwhore_innapt'
	$locM_arg = 'mecbath'
	$locM = 'mod_iwhore_innapt'
	$location_type = 'bathroom'
	cla & *clr
	gs 'stat'
	'<center><b><font color = maroon>Bathroom</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/mecbath.jpg"></center>'
	'The bath is small but fully functional.'
	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'

	!WD: heal chafe
	if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'

	if tampon = 0 and sanpad = 0:
		'<font color="red">You have no tampons left.</font>'
	elseif tampon = 1:
		'<font color="red">You have only <<tampon>> tampon left.</font>'
	else
		'You have <<tampon>> tampons.'
	end
	if sanpad = 0 and tampon = 0:
		'<font color="red">You have no pads left.</font>'
	elseif sanpad = 1:
		'<font color="red">You have only <<sanpad>> pads left.</font>'
	else
		'You have <<sanpad>> pads.'
	end
	'<a href="exec:msg ''Your body fat is = (<<salo>>)''">Check weight on the scales</a>'


	if painkiller > 0:
		$pluralS = 's'
		if painkiller = 1:$pluralS = ''
		'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
		if pain['total'] > 0 and pain['killer'] = 0:
			act 'Take a painkiller':
				cla
				pain['killer'] += 1
				painkiller -= 1
				pcs_hydra += 20
				gs 'stat'

				*nl
				'You take a painkiller and gulp it down with a glass of water.'

				act 'Finish':gt $loc, $loc_arg
			end
		end
	end

	if bcream_have > 0:
		'<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
	end

	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:gs ''mod_iwhore_dincollect'' , ''pirManage''">Manage Piercings.</a>'

	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into breast implants.</a>'
	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from breast implants.</a>'


	act 'Exit': gt 'mod_iwhore_innapt','roommec'
	act 'Take a shower (0:15)':
		cla
		*clr
		minut += 15
		if shampoo > 0:
			shampoo -= 1
		else
			'You can use Inna''s shampoo.'
		end
		gs 'mod_iwhore_dincollect' , 'showerdin'
		if frost > 0:frost = 0
		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
		*nl
		'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spots and then rinse off.'
		*nl
		if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		if normbuffpick = 1:
			*nl
			'<b>You notice that your muscles are starting to show through your skin.</b>'
			act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
		end

		if pcs_horny >= 40:
			act 'Use the shower head on your pussy':

				*clr & cla
				'<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
				*nl
				'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'

				if pcs_inhib < 30:inhib_exp += rand(1,3)
				pcs_mood += 15
				pcs_willpwr += 15
				$orgasm_or = 'yes'
				gs 'arousal', 'masturbate', 10
				gs 'arousal', 'end'

				if hypnoAddict ! 0:
					'You unconsciously avoid spraying water into your vagina.'
				else
					cumspclnt = 8
					gs 'cum_cleanup'
				end

				gs 'mod_iwhore_dincollect' , 'dryOff'
			end
		end
		gs 'mod_iwhore_dincollect' , 'dryOff'
		gs 'mod_iwhore_dincollect' , 'brit'
	end




	gs 'mod_iwhore_dincollect' , 'bteeth'
	gs 'mod_iwhore_dincollect' , 'tampon'
	gs 'mod_iwhore_dincollect' , 'enema'
	gs 'din_van', 'prvt_pee'
	gs 'mod_iwhore_dincollect' , 'basin'
	gs 'mod_iwhore_dincollect' , 'brit'
	gs 'mod_iwhore_dincollect' , 'removepan'
	gs 'mod_iwhore_dincollect' , 'wearpan'

	if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
		act 'Do a pregnancy test':
			cla
			pregtest -= 1
			gs 'stat'
			if pregchem > 120:
				knowpreg = 1
				thinkpreg = 1
				'The test shows the two strips: you''re pregnant!'
			else
				knowpreg = 0
				'The test shows one band: you''re not pregnant.'
			end
			act 'Finish':gt 'rolanbath', 'start'
		end
	end

	if $clothingworntype = 'nude':
		act 'Wear clothes (0:05)':
			*clr & cla
			minut = 5
			'<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
			'You get dressed'
			gs 'clothing', 'wear_last_worn'
			gs 'stat'
			act 'Return': gt $loc, $loc_arg
		end
	else
		act 'Remove clothes (0:05)':
			*clr & cla
			minut = 5
			'<center><video autoplay loop src="images/shared/Accessories/computer/webcam/undress1.mp4"></video></center>'
			'You remove your clothing'
			gs 'clothing', 'strip'
			gs 'stat'
			act 'Return': gt $loc, $loc_arg
		end
	end

	if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
		act 'Rub ointment onto your pussy (0:05)':
			cla
			mosal_time = (daystart * 100) + hour
			minut += 5
			mosolmaz -= 1
			mosol -= 5
			'You take a tube of cream and rub it onto your itchy vulva.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
		act 'Do a pregnancy test (0:05)':
			cla
			minut += 5
			pregtest -= 1
			gs 'stat'
			 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				'As you look at the test in your hand, you are?'
				act 'Horrified':gt 'din_van', 'HorrifiedReact1'
				act 'Concerned':gt 'din_van', 'ConcernedReact1'
				act 'Excited':gt 'din_van', 'ExcitedReact1'
			elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				'As you look at the test in your hand, you are?'
				act 'Excited':gt 'din_van', 'ExcitedReact1'
				act 'Aroused':gt 'din_van', 'ArousedReact1'
			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				gt 'din_van', 'WifeReact1'
			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid > 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				gt 'din_van', 'WifeReact2'
			elseif pcs_pregtalk = 1:
				'The test showed two strips. You are pregnant.'
			else
				knowpreg = 0
				'The test showed one band. Not pregnant.'
			end

			act 'Finish':gt $loc, $loc_arg
		end
	end

	!!breast pump is now in the menu, not on the screen
	if breastpump > 0 and bp_unbox >= 1:
		act 'Use breast pump':
			gt 'lact_lib', 'bp_milking'
		end
	elseif breastpump > 0 and bp_unbox <= 0:
		'<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Unbox</a> your breast pump'
	end

end

if $ARGS[0] = 'roomdoc':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Doc''s bedroom</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/docbed.jpg"></center>'
	'That''s a simple bedroom with a working desk.'
	if GuardianLoc[hour] = 4 and week < 5:
		'<a href="exec:gs ''mod_iwhore_innapt'', ''guardian_room''">Doc</a> is here...'
	else
		''
	end
	act 'Office': gt 'mod_iwhore_innapt','docoff'
	act 'Leave the room': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'docoff':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
!	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Doc''s office</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/docooffice.jpg"></center>'
	'It''s standard office'
	if GuardianLoc[hour] = 4 and week > 5:
		'<a href="exec:gs ''mod_iwhore_innapt'', ''guardian_room''">Doc</a> is doing something with papers...'
	else
		''
	end
	act 'Room': gt 'mod_iwhore_innapt','roomdoc'
end

if $ARGS[0] = 'roomgav':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Gavriil''s bedroom</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/gavbed.jpg"></center>'
	'...'
	if GuardianLoc[hour] = 2:'<a href="exec:gs ''mod_iwhore_innapt'', ''guardian_room''">Gavriil</a> is reading a book while he''s lifting some weight...'

	act 'Gavriil''s gym': gt 'mod_iwhore_innapt','gavgym'
	act 'Leave the room': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'gavgym':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Gavriil''s gym</font></h4></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/gavgym.jpg"></center>'
	'...'
	act 'Return Gavriil''s room': gt 'mod_iwhore_innapt','roomgav'
end

if $ARGS[0] = 'guestroom':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Guest Room</font></h4></center>'
	if GuardianLoc[hour] = 3:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/yanabedr1.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/yanabedr0.jpg"></center>'
	end
!	'This is the guest room. Here stay Yana when she need it.'
	'That seems a guest room...'
	if GuardianLoc[hour] = 3:'<a href="exec:gs ''mod_iwhore_innapt'', ''guardian_room''">Yana</a> is here...'

	act 'Room': gt 'mod_iwhore_innapt','storageroom'
	act 'Leave the room': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'storageroom':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$location_type = 'private'
	$locclass = 'bedr'
	gs 'stat'
	'<center><h4><font color="maroon">Storage Room</font></h4></center>'
	if Guardian_cleaner = 0:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/istorageroom.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/storageroom.jpg"></center>'
	end
	'This is the Storage room. Right next to Yana''s door.'
	act 'Leave the room': gt 'mod_iwhore_innapt','guestroom'
end

if $ARGS[0] = 'livingroom':
	CLOSE ALL

	*clr & cla
	$locM_arg = 'livingroom'
	$locM = 'mod_iwhore_innapt'
	$loc_arg = 'livingroom'
	$loc = 'mod_iwhore_innapt'
	minut += 1
	$locclass = 'livingr'
	gs 'stat'
	'<center><b><font color = maroon>Living Room</font></b></center>'

	if Guardian_cleaner = 0:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/iliving.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/living.jpg"></center>'
	end

	if inna_varvara_pimp = 11:
		'The living room... . <a href="exec:gt ''mod_iwhore_begin'', ''pimped2''">Inna</a> lays on the sofa...'
	else
		'The living room...'
	end

	act 'Kitchen': gt 'mod_iwhore_innapt', 'kitchen'
	act 'Bathroom': gt 'mod_iwhore_innapt', 'housebath'
	act 'Hallway': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'kitchen':
	CLOSE ALL
	cla
	*clr
	minut += 1
	$locclass = 'kitr'
	gs 'stat'
	'<center><b><font color = maroon>Kitchen</font></b></center>'
	if Guardian_cleaner = 0:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/ikitchen.jpg"></center>'
		'"The kitchen ...is a mess..."'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/kitchen.jpg"></center>'
		'"A fully functional cleaned kitchen...."'
	end

!	act 'Look in the fridge': gt 'mod_iwhore_innapt', 'holodil'
	act 'Leave the room': gt 'mod_iwhore_innapt','entry'
	act 'Drink water (0:05)':
		cla
		minut += 5
		if water >= 80:
			'You don''t need any more water.'
		else
			water += 80
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 0
			'You gladly drink a glass of water.'
		end
		act 'Get up from the table':gt 'mod_iwhore_innapt','kitchen'
	end

end

if $ARGS[0] = 'sealedroom':
	CLOSE ALL
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><b><font color = maroon>Sealed room</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/hallway.jpg"></center>'
	'This room is closed.'

	act 'Nothing you can do.': gt 'mod_iwhore_innapt','hallway'
end


if $ARGS[0] = 'surveillance':
	CLOSE ALL
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><b><font color = maroon>Sealed room</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/surveillance.jpg"></center>'
	'A lot of tv screen send video of Pavlovsk''s street...'
	act 'Leave': gt 'mod_iwhore_innapt','hallway'
end

if $ARGS[0] = 'housebath':
	CLOSE ALL
	$loc_arg = 'housebath'
	$loc = 'mod_iwhore_innapt'
	$locM_arg = 'housebath'
	$locM = 'mod_iwhore_innapt'
	$location_type = 'bathroom'
	cla & *clr
	gs 'stat'

	'<center><b><font color = maroon>Bathroom</font></b></center>'
	if Guardian_cleaner = 0:
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/bathdildo.jpg"></center>'
		'"The bath...and...uhmmm...dildos almost everywhere... ."<br>The dildo in the bathtub seems to be recently used... .'
	else
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/resident/apartment/aptinna/bath.jpg"></center>'
		'The bath is stunning.'
	end
	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'

	!WD: heal chafe
	if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'

	if tampon = 0 and sanpad = 0:
		'<font color="red">You have no tampons left.</font>'
	elseif tampon = 1:
		'<font color="red">You have only <<tampon>> tampon left.</font>'
	else
		'You have <<tampon>> tampons.'
	end
	if sanpad = 0 and tampon = 0:
		'<font color="red">You have no pads left.</font>'
	elseif sanpad = 1:
		'<font color="red">You have only <<sanpad>> pads left.</font>'
	else
		'You have <<sanpad>> pads.'
	end
	'<a href="exec:msg ''Your body fat is = (<<salo>>)''">Check weight on the scales</a>'


	if painkiller > 0:
		$pluralS = 's'
		if painkiller = 1:$pluralS = ''
		'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
		if pain['total'] > 0 and pain['killer'] = 0:
			act 'Take a painkiller':
				cla
				pain['killer'] += 1
				painkiller -= 1
				pcs_hydra += 20
				gs 'stat'

				*nl
				'You take a painkiller and gulp it down with a glass of water.'

				act 'Finish':gt $loc, $loc_arg
			end
		end
	end

	if bcream_have > 0:
		'<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
	end

	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:gs ''mod_iwhore_dincollect'' , ''pirManage''">Manage Piercings.</a>'

	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into breast implants.</a>'
	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from breast implants.</a>'


	act 'Return to the hallway': gt 'mod_iwhore_innapt','hallway'
	act 'Take a shower (0:15)':
		cla
		*clr
		minut += 15
		if shampoo > 0:
			shampoo -= 1
		else
			'You can use Inna''s shampoo.'
		end
		gs 'mod_iwhore_dincollect' , 'showerdin'
		if frost > 0:frost = 0
		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
		*nl
		'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spots and then rinse off.'
		*nl
		if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		if normbuffpick = 1:
			*nl
			'<b>You notice that your muscles are starting to show through your skin.</b>'
			act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
		end

		if pcs_horny >= 40:
			act 'Use the shower head on your pussy':

				*clr & cla
				'<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
				*nl
				'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'

				if pcs_inhib < 30:inhib_exp += rand(1,3)
				pcs_mood += 15
				pcs_willpwr += 15
				$orgasm_or = 'yes'
				gs 'arousal', 'masturbate', 10
				gs 'arousal', 'end'

				if hypnoAddict ! 0:
					'You unconsciously avoid spraying water into your vagina.'
				else
					cumspclnt = 8
					gs 'cum_cleanup'
				end

				gs 'mod_iwhore_dincollect' , 'dryOff'
			end
		end
		gs 'mod_iwhore_dincollect' , 'dryOff'
		gs 'mod_iwhore_dincollect' , 'brit'
	end

	act 'Have a bath (0:30)':
		cla
		*clr
		gs 'stat'
		minut += 30
		pcs_sweat = 7 + rand(0,4)
		pcs_mood += 20
		pcs_skin += 1
		gs 'mod_iwhore_dincollect' , 'showerdin'
		if frost > 0:frost = 0
		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
		*nl
		'While the bathtub fills up you get undressed and then dip a toe into the water. It''s just the right temperature so you climb in and let yourself sink into the warm water.'
		*nl
		*nl

		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		if normbuffpick = 1:
			*nl
			'<b>You notice that your muscles are starting to show through your skin.</b>'
			act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
		end
		act '"Wash" your pussy':
			cla
			*clr
			minut += 10

			'<center><video src="images/shared/home/bathroom/wash7.mp4"></center>'
			*nl
			'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water. It feels really good and soon a warmth begins to grow in your abdomen.'

			if pcs_inhib < 30:inhib_exp += rand(1,3)
			pcs_mood += 15
			pcs_willpwr += 15
			$orgasm_or = 'yes'
			gs 'arousal', 'masturbate', 10
			gs 'arousal', 'end'

			gs 'mod_iwhore_dincollect' , 'dryOff'
		end

		gs 'mod_iwhore_dincollect' , 'dryOff'
		gs 'mod_iwhore_dincollect' , 'brit'
	end


	gs 'mod_iwhore_dincollect' , 'bteeth'
	gs 'mod_iwhore_dincollect' , 'tampon'
	gs 'mod_iwhore_dincollect' , 'enema'
	gs 'din_van', 'prvt_pee'
	gs 'mod_iwhore_dincollect' , 'basin'
	gs 'mod_iwhore_dincollect' , 'brit'
	gs 'mod_iwhore_dincollect' , 'removepan'
	gs 'mod_iwhore_dincollect' , 'wearpan'

	if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
		act 'Do a pregnancy test':
			cla
			pregtest -= 1
			gs 'stat'
			if pregchem > 120:
				knowpreg = 1
				thinkpreg = 1
				'The test shows the two strips: you''re pregnant!'
			else
				knowpreg = 0
				'The test shows one band: you''re not pregnant.'
			end
			act 'Finish':gt 'rolanbath', 'start'
		end
	end

	if $clothingworntype = 'nude':
		act 'Wear clothes (0:05)':
			*clr & cla
			minut = 5
			'<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
			'You get dressed'
			gs 'clothing', 'wear_last_worn'
			gs 'stat'
			act 'Return': gt $loc, $loc_arg
		end
	else
		act 'Remove clothes (0:05)':
			*clr & cla
			minut = 5
			'<center><video autoplay loop src="images/shared/Accessories/computer/webcam/undress1.mp4"></video></center>'
			'You remove your clothing'
			gs 'clothing', 'strip'
			gs 'stat'
			act 'Return': gt $loc, $loc_arg
		end
	end

	if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
		act 'Rub ointment onto your pussy (0:05)':
			cla
			mosal_time = (daystart * 100) + hour
			minut += 5
			mosolmaz -= 1
			mosol -= 5
			'You take a tube of cream and rub it onto your itchy vulva.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
		act 'Do a pregnancy test (0:05)':
			cla
			minut += 5
			pregtest -= 1
			gs 'stat'
			 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				'As you look at the test in your hand, you are?'
				act 'Horrified':gt 'din_van', 'HorrifiedReact1'
				act 'Concerned':gt 'din_van', 'ConcernedReact1'
				act 'Excited':gt 'din_van', 'ExcitedReact1'
			elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				'As you look at the test in your hand, you are?'
				act 'Excited':gt 'din_van', 'ExcitedReact1'
				act 'Aroused':gt 'din_van', 'ArousedReact1'
			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid = 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				gt 'din_van', 'WifeReact1'
			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid > 0 and pcs_pregtalk = 0:
				knowpreg = 1
				thinkpreg = 1
				gt 'din_van', 'WifeReact2'
			elseif pcs_pregtalk = 1:
				'The test showed two strips. You are pregnant.'
			else
				knowpreg = 0
				'The test showed one band. Not pregnant.'
			end

			act 'Finish':gt $loc, $loc_arg
		end
	end

	!!breast pump is now in the menu, not on the screen
	if breastpump > 0 and bp_unbox >= 1:
		act 'Use breast pump':
			gt 'lact_lib', 'bp_milking'
		end
	elseif breastpump > 0 and bp_unbox <= 0:
		'<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Unbox</a> your breast pump'
	end

end


!iif(proseventrand <= 8, 'blow job', iif(proseventrand <= 14, 'sex', 'anal'))

!0inna
!1mec
!2gav
!3yana
!4doc
if $ARGS[0] = 'guardian_route':
	if GuardianLocSet ! DayStart:
		GuardianLoc[0] = iif(week < 6, 4, 3)
		GuardianLoc[1] = iif(week < 6, 4, 3)
		GuardianLoc[2] = iif(week < 6, 4, 3)
		GuardianLoc[3] = iif(week < 6, 4, 3)
		GuardianLoc[4] = iif(week < 6, 4, 3)
		GuardianLoc[5] = iif(week < 6, 4, 3)
		GuardianLoc[6] = iif(week < 6, 4, 3)

		GuardianLoc[7] = 0
		GuardianLoc[8] = 0
		GuardianLoc[9] = 1
		GuardianLoc[10] = 1
		GuardianLoc[11] = 2
		GuardianLoc[12] = 2
		if week = 1:Guardian_number = rand(0,3)
		if week = 2:Guardian_number = rand(0,3)
		if week = 3:Guardian_number = rand(0,3)
		if week = 4:Guardian_number = rand(0,3)
		if week = 5:Guardian_number = rand(0,3)
		if week = 6:Guardian_number = 3
		if week = 7:Guardian_number = 3

		GuardianLoc[13] = Guardian_number
		GuardianLoc[14] = Guardian_number
		GuardianLoc[15] = Guardian_number
		GuardianLoc[16] = Guardian_number
		GuardianLoc[17] = Guardian_number
		GuardianLoc[18] = Guardian_number

		GuardianLoc[19] = iif(week < 6, 4, 3)
		GuardianLoc[20] = iif(week < 6, 4, 3)
		GuardianLoc[21] = iif(week < 6, 4, 3)
		GuardianLoc[22] = iif(week < 6, 4, 3)
		GuardianLoc[23] = iif(week < 6, 4, 3)
		GuardianLocSet = DayStart
	end
end

if $ARGS[0] = 'guardian_maid':
	if GuardianCleanSet < DayStart:
		if week = 1:Guardian_cleaner = rand(0,3)
		if week = 2:Guardian_cleaner = rand(0,3)
		if week = 3:Guardian_cleaner = rand(0,3)
		if week = 4:Guardian_cleaner = rand(0,3)
		if week = 5:Guardian_cleaner = rand(0,3)
		if week = 6:Guardian_cleaner = rand(0,4)
		if week = 7:Guardian_cleaner = rand(0,4)
		GuardianCleanSet = DayStart + 7
	end
end

if $ARGS[0] = 'guardian_room':
!	if Krestovoz_pimp_day < daystart:'You can ask to <a href="exec:gt ''mod_iwhore_begin'', ''guardian_room''">Inna</a> the protection... .'
	if GuardianLoc[hour] = 0:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestovoz/bed0b.jpg"></center>'
		'Inna: "..."'
		act 'Chat':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestovoz/bed0b.jpg"></center>'
			'Inna: "Uh? What now?"'
			act '"Ok ok message received... sorry to bother you."':gt 'mod_iwhore_innapt','guardian_room'
		end
		act '"Nothing, sorry to bother you."': gt 'mod_iwhore_innapt','roomin'
	elseif GuardianLoc[hour] = 1:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/mieszko/renew0.jpg"></center>'
		'"Hi Mechislav..."<br>Mechislav: "Hi <<$pcs_nickname>>"'
		act 'Chat':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/mieszko/door.jpg"></center>'
			'You have a little chat with Mechislav.'
			act 'Leave':gt 'mod_iwhore_innapt','guardian_room'
		end
		act '"Nothing, sorry to bother you."': gt 'mod_iwhore_innapt','roommec'
	elseif GuardianLoc[hour] = 2:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/gavriil/gav0.jpg"></center>'
		'"Hi Gavriil...do i bother you?"<br>Gavriil: "Hi <<$pcs_nickname>>...don''t worry...my ears are free."'
		act 'Chat':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/gavriil/gav2.jpg"></center>'
			'You have a little chat with Gavriil'
			act 'Leave':gt 'mod_iwhore_innapt','guardian_room'
		end
		act '"Nothing, sorry to bother you."': gt 'mod_iwhore_innapt','roomgav'
	elseif GuardianLoc[hour] = 3:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/renew1.jpg"></center>'
		'"...Yana..."<br>Yana: "...<<$pcs_nickname>>..."'
		act 'Chat':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/renew1.jpg"></center>'
			'You have a little chat with Yana'
			act 'Leave':gt 'mod_iwhore_innapt','guardian_room'
		end
		act '"Nothing, sorry to bother you."': gt 'mod_iwhore_innapt','guestroom'
	elseif GuardianLoc[hour] = 4:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/doc.jpg"></center>'
		'"Hi ...uhmmm...Doc?..."<br>Doc: "Uh? Oh! Hi <<$pcs_nickname>>..."'
		act 'Chat':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/doc.jpg"></center>'
			'You have a little chat with Deriagin.'
			act 'Leave':gt 'mod_iwhore_innapt','guardian_room'
		end
		act '"Nothing, sorry to bother you."': gt 'mod_iwhore_innapt','roomdoc'
	else

		''
	end
	if inna_varvara_pimp >= 15 and (Krestovoz_pimp_protection ! 1 or Krestovoz_pimp_day < daystart):
!	if inna_varvara_pimp >= 15 and Krestovoz_pimp_protection ! 1:
		if inna_varvara_pimp = 15:
			act 'Ask about the tryout week.': gs 'mod_iwhore_dincollect','renewal'
		else
			if Krestovoz_pimp_day < daystart:
				act 'Ask for a renewal': gs 'mod_iwhore_dincollect','renewal'
			end
		end
	else
		''
	end


end

if $ARGS[0] = 'renewal':

end
!	gs 'mod_iwhore_innapt','guardian_route'
--- mod_iwhore_innapt ---------------------------------