# mod_iwhore_innapodz

!SETTINGS:
CLOSE ALL
gs 'themes', 'indoors'
$loc_arg = ''
$loc = 'mod_iwhore_innapodz'
!elevator does not work
if liftnotwork_day ! daystart: liftnotwork_count = 1
!Apartment Uncle Misha
!how much money for sex give boys

!================================================================================================!
!FLOORS: ---------------------------Entrance to the town-------------------------------------- FLOORS:!
!================================================================================================!
!housemates

if $ARGS[0] = 'housemates':
	menu_off = 1
	*clr & cla
	minut +=1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/housemates.jpg"></center>'
	'Floor 1  - Apartment number 1:... - Apartment number 2:... - Apartment number 3:...'
	'Floor 2  - Apartment number 4:... - Apartment number 5:... - Apartment number 6:...'
	'Floor 3  - Apartment number 7:... - Apartment number 8:... - Apartment number 9:...'
	'Floor 4  - Apartment number 10:... - Apartment number 11:... - Apartment number 12:...'
	'Floor 5  - Apartment number 13:... - Apartment number 14:... - Apartment number 15:...'

	act 'Leave': gt 'mod_iwhore_innapodz', 'etaj_1'
end
!!locked in Pavlovsk, floor 1
if $ARGS[0] = 'etaj_1' or $ARGS[0] = '':
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'etaj_1'
	menu_off = 0
	CLOSE ALL
	if sound = 0:PLAY 'sound/podezd.mp3',30
	gs 'stat'
	'<center><b><font color = maroon>Ground floor of the apartment building</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/podezd2.jpg"></center>'
	'<center>A dirty and poorly maintained stairwell, the same as any other in your town.</center>'


	if inna_varvara_pimp >= 2:
		'There''s a <a href="exec: gs ''mod_iwhore_innapodz'',''housemates''">list</a> of the people who live here on the wall. People names of residents are carefully scratched from the list... . You know no one here.'
	else
		'There''s a <a href="exec: gs ''mod_iwhore_innapodz'',''housemates''">list</a> of the people who live here on the wall. People names of residents are carefully scratched from the list... . You know Inna lives on the fifth floor.'
	end
	'Someone put up some <a href="exec:gt ''mod_iwhore_innapodz'',''pod_objava''">advertisements</a> on the wall, near the entrance.'
	act 'Leave the building':gt 'pav_complex', 'start'

	act 'Go up to the second floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_2'
	act 'Take the elevator': gt 'mod_iwhore_innapodz','lift','etaj_1'
end
!floor2
if $ARGS[0] = 'etaj_2':
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'etaj_2'
	menu_off = 0
	gs 'stat'
	'<center>2nd floor of the apartment building</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/etaj2.jpg"></center>'
	'<center>The second floor stairwell is clean and well maintained. It was renovated not long ago, and the inhabitants do their best to keep it clean.</center>'


	act 'Go down to the first floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_1'
	act 'Go up to the third floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_3'



	act 'Take the elevator': gt 'mod_iwhore_innapodz','lift','etaj_2'
end
!floor 3
if $ARGS[0] = 'etaj_3':
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'etaj_3'
	menu_off = 0
	gs 'stat'
	'<center>3rd floor of the apartment building</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/etaj3.jpg"></center>'
	'<center>The third floor stairwell was renovated not long ago, but some hoodlums already sprayed graffiti on the walls.</center>'


	act 'Go down to the second floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_2'
	act 'Go up to the fourth floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_4'

	act 'Take the elevator': gt 'mod_iwhore_innapodz','lift','etaj_3'
end
!floor 4
if $ARGS[0] = 'etaj_4':
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'etaj_4'
	menu_off = 0
	gs 'stat'
	'<center>4th floor of the apartment building</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/etaj4.jpg"></center>'
	'<center>A dirty and poorly maintained stairwell. The inhabitants don''t seem to care about how it looks.</center>'
	''

	act 'Go down to the third floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_3'
	act 'Go up to the fifth floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_5'


	act 'Take the elevator': gt 'mod_iwhore_innapodz','lift','etaj_4'
end
!floor 5
if $ARGS[0] = 'etaj_5':
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'etaj_5'
	menu_off = 0
	gs 'stat'
	'<center>Floor #5</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/etaj5.jpg"></center>'
	'<center>The fifth floor stairwell looks much like most of the other floors, though it has a final set of stairs at the other end of the hall that go up to the roof.</center>'

	if inna_varvara_pimp >= 2:
		if inna_varvara_pimp > 10:
			act 'Inna''s apartment':gt 'mod_iwhore_innapt', 'start'
		elseif inna_varvara_pimp = 4:
			act 'Slip the signed photo':gt 'mod_iwhore_begin', 'slipped'
		elseif inna_varvara_pimp = 5 or inna_varvara_pimp = 6:
			act '...':gt 'mod_iwhore_begin', 'slipped'
		elseif inna_varvara_pimp = 8 or inna_varvara_pimp = 9:
			act '...':gt 'mod_iwhore_begin', 'slipped'
		elseif inna_varvara_pimp = 10:
			gt 'mod_iwhore_begin', 'pimp'
		else
			act 'Look for the woman':gt 'mod_iwhore_begin', 'start'
		end
	end

	act 'Go down to the fourth floor': minut += 1 & gt 'mod_iwhore_innapodz','etaj_4'
	act 'Go up to the roof': minut += 1 & gt 'mod_iwhore_innapodz', 'roof'
	act 'Take the elevator': gt 'mod_iwhore_innapodz','lift','etaj_5'
end
!!roof
if $ARGS[0] = 'roof':
	$loc_arg = 'roof'
	$menu_loc = 'mod_iwhore_innapodz'
	$menu_arg = 'roof'
	menu_off = 0
	gs 'stat'
	'<center>Roof</center>'
	if month >= 11 or month <= 3:
		!!if hour >= 8 and hour <= 21:
			!!'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/roof/roofw.jpg"></center>'
		!!else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/roof/roofw.jpg"></center>'
		!!end
	else
		if hour >= 8 and hour <= 21:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/roof/roof.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/roof/roofn.jpg"></center>'
		end
	end
	'<center>The roof is fairly flat, with the roof access door in a raised part in the middle of the roof. Along one of the walls is another door to some type of storage or maintenances access. There is several ventilation stacks on the roof as well.</center>'

	act 'Go down to the fifth floor':
		if PCloswimwear = 1 or $clothingworntype = 'nude':
			msg '<center><font color = red>You need to get dressed first</font></center>'
			gt 'mod_iwhore_innapodz','roof'
		else
			minut += 1
			gt 'mod_iwhore_innapodz','etaj_5'
		end
	end
	if PCloswimwear = 1 or $clothingworntype = 'nude':
		act 'Change back into clothes':
			minut += 5
			gs 'underwear', 'wear'
			gs 'clothing', 'wear_last_worn'
			gt 'mod_iwhore_innapodz','roof'
		end
	end
	if temper >= 15 and hour >= 8 and hour <= 20:
		if (ARRSIZE('danilovich_swimsuit') + ARRSIZE('scandalicious_swimsuit') + ARRSIZE('scandalicious_bikinis') + ARRSIZE('allure_swimsuit') + ARRSIZE('allure_bikinis') + ARRSIZE('nerdvana_swimsuit') + ARRSIZE('nerdvana_bikinis')) > 0 and PCloswimwear ! 1:
			act 'Change into a bikini':gt 'changingroom', 'view_swim_list'
		end
		if PCloswimwear = 1:
			act 'Sunbathe (1:00)':
				cla
				*clr
				minut += 60
				inhib_exp += rand(1,3)
				if pcs_sweat < 35: pcs_sweat += 5
				pcs_mood += 5
				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/zagar1.jpg"></center>'

				if krem = 0:
					pcs_tan += 1
					'You lie down to sunbathe.'
				elseif krem > 0:
					krem -= 1
					pcs_tan += 3
					'You put the sunblock on your body and lied down on the roof to sunbathe.'
				end

				act 'Get Up':gt 'mod_iwhore_innapodz', 'roof'
			end
		end
	end
end

!================================================================================================!
!ELEVATOR: ------------------------------------------------------------------------------------ ELEVATOR:!
!================================================================================================!
!the lift
if $ARGS[0] = 'lift':
	menu_off = 1
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator.jpg"></center>'
	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''mod_iwhore_innapodz'',''elev_objava''">notification</a> in the elevator.</center>'
	act 'Push button: floor 1': gt 'mod_iwhore_innapodz','etaj_1'
	act 'Push button: floor 2': gt 'mod_iwhore_innapodz','etaj_2'
	act 'Push button: floor 3': gt 'mod_iwhore_innapodz','etaj_3'
	act 'Push button: floor 4': gt 'mod_iwhore_innapodz','etaj_4'
	act 'Push button: floor 5': gt 'mod_iwhore_innapodz','etaj_5'
	pod_lift_ev = RAND(0,100)
	if pod_lift_ev <=5:
		*clr & cla
		minut +=1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/elevator'+rand(1,2)+'.jpg"></center>'
		'When the elevator door opens, you see a naked woman standing in it! She looks at you in panic and is frantically pressing all the elevator buttons. You''re too baffled to do anything until it''s too late. The door is already closed again, and the elevator is moving away from you.'
		act 'Leave': minut += 1 & gt 'mod_iwhore_innapodz',$ARGS[1]
	elseif pod_lift_ev <=10 or liftnotwork_count =< 0:
		*clr & cla
		minut +=1
		liftnotwork_day = daystart
		liftnotwork_count -= 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/liftnotwork.jpg"></center>'
		'The building supervisor put a sign on the elevator: "Dear tenants, the elevator is out of order for today. Don''t worry, I should have it working again by tomorrow!"'
		act 'Leave': minut += 1 & gt 'mod_iwhore_innapodz',$ARGS[1]
	end
	killvar 'pod_lift_ev'
end

!elevator ads
if $ARGS[0] = 'elev_objava':
		*clr & cla
		minut +=1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator_ob'+rand(1,2)+'.jpg"></center>'
	act 'Continue': gt 'mod_iwhore_innapodz','lift'
end

!locked ads
if $ARGS[0] = 'pod_objava':
		menu_off = 1
		*clr & cla
		minut +=1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/pod_ob'+rand(1,2)+'.jpg"></center>'
	act 'Continue': gt 'mod_iwhore_innapodz','etaj_1'
end




--- mod_iwhore_innapodz ---------------------------------