glife/locations/uni_dorm.qsrc

# uni_dorm
!!2024/18/03 - Nutluck

if $ARGS[0] = 'start':
	*clr & cla
	minut += 5
	$menu_loc = 'uni_dorm'
	$menu_arg = 'start'
	menu_off = 0
	gs 'themes', 'indoors'
	minut += 1
	gs 'stat'
	$uni_dorm['floor'] = 'start'
	*clr & cla
	'<center><b><font color="maroon">Dormitory</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
	'You walk up to the dorm building and head inside. It''s pretty clean and in good shape. An older woman, with a very unpleasant and judgmental look on her face sits in a room just off the main hallway. It has a partially glass wall and a window, splitting it from the main room. She looks up at you as you enter, her look telling you she''s already judging you as her face frowns into a look of disapproval.'
	act 'Head outside':
		minut += 1
		killvar 'university_dorm'
		gt 'uni_grounds', 'main'
	end

	if func('homes_properties', 'can_live_here') or university['student'] = 1:
		act 'Show her your student ID':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
			'As you walk by, you take out your student ID and show it to her. She looks for just a second and nods before going back to what she was doing as you head for the elevators.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		end
	else
		menu_off = 1
		'Since you''re not attending the university and don''t have a student ID, you won''t be allowed access to the dorms unless you''re on the guest list of a student.'
		if DjibrilQW['invite'] = 1 and hour >= 8 and hour < 22:
			act 'I''m here to visit Djibril':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				'You walk over to the counter and pull out your ID. "I''m here to visit Djibril."' 
				'The woman gives you a look of complete disgust. "What, your own kind not good enough for you? Go ahead and take care of those black cocks. He''s on the eighth floor, room 810."' 
				'She turns away from you and goes back to what she was doing. Not wanting to get into an argument with her, you say nothing and quickly head for the elevator.'
				act 'Take the elevator': gt 'uni_dorm', 'elevator'
			end
		end

		if gosh > 0 and hour >= 8 and hour < 22:
			act 'I''m here to visit Gosha':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				'You walk over to the counter and pull out your ID. "I''m here to visit Gosha."' 
				'The woman shakes her head in disapproval. "You''re Gosha''s new whore? I''ll never understand what you sluts see in that scrawny bastard. He''s been through half of the dorm already! He''s on the sixth floor, room 602."' 
				'She turns away from you and goes back to what she was doing. Not wanting to get into an argument with her, you say nothing and quickly head for the elevator.'
				reccoldorm = 1
				goshiflag = 1
				act 'Take the elevator': gt 'uni_dorm', 'elevator'
			end
		end

		if meet_kendra = 1 and hour >= 8 and hour < 22:
			act 'I''m here to visit Kendra':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				if kendraQW['sub'] < 0:
					'You walk over to the counter and pull out your ID. "I''m here to visit Kendra."' 
					'The woman gives you a look of complete disgust. "It seems like she''s gotten tired of you since you''re no longer on the guest list. Now get out of here before I call security!"' 
					'Surprised, you turn and quickly leave.'

					act 'Head outside':
						killvar 'university_dorm'
						minut += 1
						gt 'uni_grounds', 'main'
					end
				else
					'You walk over to the counter and pull out your ID. "I''m here to visit Kendra."' 
					'The woman gives you a look of complete disgust. "What, a man not good enough for you? Go ahead and serve that black whore. She''s on the eighth floor, room 801."' 
					'She turns away from you and goes back to what she was doing. Not wanting to get into an argument with her, you say nothing and quickly head for the elevator.'
					act 'Take the elevator': gt 'uni_dorm', 'elevator'
				end
			end
		end

		if katjaQW['knows_dorm_room_number'] > 0 and yearstart > 1 and hour >= 8 and hour < 22:
			act 'I''m here to visit Katja':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				'You walk over to the counter and pull out your ID. "I''m here to visit Katja Meynold."' 
				'The woman smiles. "You''re one of Katja''s friends? She''s such a sweet girl. She''s on the second floor, room 204."'
				'She lets you in and you thank her before heading for the elevator.'
				act 'Take the elevator': gt 'uni_dorm', 'elevator'
			end
		end
		
		if artemQW['knows_dorm_room_number'] > 0 and yearstart > 1 and hour >= 8 and hour < 22:
			act 'I''m here to visit Artem':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				'You walk over to the counter and pull out your ID. "I''m here to visit Artem Chebotarev."' 
				'The woman smiles. "You''re one of Artem''s friends? He''s such a sweet boy. He''s on the second floor, room 209."'
				'She lets you in and you thank her before heading for the elevator.'
				act 'Take the elevator': gt 'uni_dorm', 'elevator'
			end
		end

		!!if AlbinaQW['dorm_invite'] = 1 and yearstart > 1 and hour >= 8 and hour < 22:
			!!act 'I''m here to visit Albina':
				!!*clr & cla
				!!'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				!!'You walk over to the counter and pull out your ID. "I''m here to visit Albina Barlovskaya."' 
				!!'"Oh. <i>Her</i>," the woman says with a disgusted frown. "That little whore needs some discipline. Her mother should be ashamed of herself for raising such a slut!"'
				!!'She gives you a judgmental stare. "Your ''friend'' is on the seventh floor, room 707." She points you at the elevator before going back to what she was doing.'
				!!'You''ve better things to do than stand around and argue with her, so you head for the elevator.'
				!!act 'Take the elevator': gt 'uni_dorm', 'elevator'
			!!end
		!!end
		
		!!if twins
			!!act 'I''m here to visit the twins':
				!!*clr & cla
				!!'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
				!!'You walk over to the counter and pull out your ID. "I''m here to visit Mia and Yana Radimova."'
				!!'The woman rolls her eyes. "Those two troublemakers really aren''t as funny as they think they are. Anyway, they''re up on the seventh floor, room 702."'
				!!'She lets you in and you thank her before heading for the elevator.'

				!!act 'Take the elevator': gt 'uni_dorm', 'elevator'
			!!end
		!!end
	end
end

if $ARGS[0] = 'elevator':
	$menu_loc = 'uni_dorm'
	$menu_arg = 'elevator'
	menu_off = 0
	gs 'themes', 'indoors'
	minut += 5
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/elevator.jpg"></center>'
	'You enter the dorm elevator. It seems to be in decent shape and fairly well maintained. The panel of floor numbers awaits your input.'
	if func('homes_properties', 'can_live_here'):
		'Your dorm room is on the tenth floor.'
	end

	act 'Go to the first floor and leave the dorm':
		killvar 'university_dorm'
		minut += 1
		gt 'uni_grounds', 'main'
	end
	act 'Go to the second floor': gt 'uni_dorm', 'second_floor'
	act 'Go to the sixth floor': gt 'uni_dorm', 'sixth_floor'
	!!act 'Go to the seventh floor': gt 'uni_dorm', 'seventh_floor'
	act 'Go to the eighth floor': gt 'uni_dorm', 'eighth_floor'
	act 'Go to the tenth floor': gt 'uni_dorm', 'tenth_floor'
end

if $ARGS[0] = 'second_floor':
	$loc = 'uni_dorm'
	$loc_arg = 'second_floor'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'second_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	minut += 1
	$uni_dorm['floor'] = 'second_floor'
	gs 'katja_meynold_schedule'
	gs 'artem_chebotarev_schedule'
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'Before you is the usual dorm hallway with the dilapidated walls of the second floor. You can hear music and loud talking from drunk students escaping from some rooms.'
	if totminut > uni_dorm['event_minut']:
		if hour > 2 and (week < 6 and hour < 15) or (week > 5 and hour < 11): 
			if rand(0,9) = 0: gt 'uni_dorm_events', 'dorm_floor'
		else
			if rand(0,4) = 0: gt 'uni_dorm_events', 'dorm_floor'	
		end
	end
	act 'Elevator': gt 'uni_dorm', 'elevator'
	if func('homes_properties', 'has_access', 'university_dorm'):
		act 'Go to the shared lounge': gt 'uni_dorm', 'dorm_lounge'
		act 'Go to the shared kitchen': gt 'uni_dorm', 'dorm_kitchen'
		act 'Enter the women''s shower': minut += 1 & gt 'uni_dorm', 'dorm_shower_women'
		gs 'willpower', 'exhib', 'self'
		if will_cost <= pcs_willpwr:
			act 'Enter the men''s shower (<<will_cost>> Willpower)':
				gs 'willpower', 'exhib', 'self'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'uni_dorm', 'dorm_shower_men'
			end
		else
			act 'Enter the men''s Shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Enter the women''s restroom': minut += 1 & gt 'uni_dorm', 'womens_restroom'

	gs 'willpower', 'exhib', 'self'
	if will_cost <= pcs_willpwr:
		act 'Enter the men''s restroom (<<will_cost>> Willpower)':
			gs 'willpower', 'exhib', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			gt 'uni_dorm', 'mens_restroom'
		end
	else
		act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	if katjaQW['knows_dorm_room_number'] > 0 and yearstart > 1:
		act 'Katja''s room':
			*clr & cla 
			if locat['katja'] = 24 or locat['katja']  = 31 or locat['katja']  = 35 or locat['katja']  = 51 or locat['katja']  = 52:
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'Katja opens the door. "Hey <<$pcs_nickname>>, come on in!" She stands aside to let you enter before closing the door behind you.'

				act 'Enter': gt 'katja_dorm', 'start'
			else
				if locat['katja'] = 29 and sofiaQW['know'] = 1 and rand(0,1) = 0 and week < 5:
					if rand(0,2) = 0 and sofiaQW['spying_day'] ! daystart:
						'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
						'You knock on the door and can clearly hear somebody in the room, but they don''t answer.'
						if pcs_prcptn > rand(30,70):
							gs 'exp_gain', 'prcptn', rand(1,2)
							'Listening a little more carefully, you''re sure that you can hear them having sex...'
							act 'Take a peek': gt 'sofia', 'spying'
						else
							act 'Open the door': gt 'sofia', 'not_spying'
						end
					else
						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big260.jpg"></center>'
						'Sofia opens the door. "Hey, <<$pcs_nickname>>! Katja is at the library right now and I have Maxim over, so I don''t really have time to talk. See you later!" she says before closing the door.'			
					end
				elseif (locat['katja'] = 32 or locat['katja'] = 33) and katjaQW['kitchen_day'] ! daystart:
					'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
					'You knock on the door, but no one answers. Noticing what time it is, you realise that Katja is likely in the shared kitchen.'
					act 'Check if Katja is in the kitchen': gt 'katja_pantyquest', 'kitchen',  'from_room'
				else
					'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
					'You knock on the door, but no one answers. She must be asleep or not home.'
				end
				minut += 5
				gs 'stat'

				act 'Leave': gt 'uni_dorm', 'second_floor'
			end
		end
	end
	if artemQW['knows_dorm_room_number'] > 0 and yearstart > 1:
		act 'Artem''s room':
			*clr & cla 
			if $locat['A2'] = 'dormroom_ studying_or _relaxing':
!				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big2.jpg"></center>'
				if artemQW['artlie'] = 2 or artemQW['artembrokenheart'] = 1 or artemQW['artemblok'] = 1:
					'You stand outside the dorm room, knocking on the door. The door is answered by Artem, who frowns as soon as he sees you. "I told you I never wanted to see you again! Please go away." He closes the door in your face without another word.'
					act 'Leave': gt 'uni_dorm', 'second_floor'
				else
					'You stand outside the dorm room, knocking on the door, hoping that Artem will come to the door.'
					'Artem opens the door smiling. "Hi <<$pcs_nickname>>. Come in, I was just studying but I can take a break." Once you walk inside, he closes the door and heads to the couch and takes a seat.'
					act 'Enter': gt 'artem_dorm', 'start'
				end
			else
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				'You knock on the door, but no one answers. He must be asleep or not home.'
				act 'Leave': gt 'uni_dorm', 'second_floor'
			end
		end
	end
end

if $ARGS[0] = 'sixth_floor':
	$loc = 'uni_dorm'
	$loc_arg = 'sixth_floor'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'sixth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	minut += 1
	$uni_dorm['floor'] = 'sixth_floor'
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'Before you is the usual dorm hallway with the dilapidated walls of the sixth floor. You can hear music and loud talking from drunk students escaping from some rooms.'
	if totminut > uni_dorm['event_minut']:
		if hour > 2 and (week < 6 and hour < 15) or (week > 5 and hour < 11): 
			if rand(0,9) = 0: gt 'uni_dorm_events', 'dorm_floor'
		else
			if rand(0,4) = 0: gt 'uni_dorm_events', 'dorm_floor'	
		end
	end
	act 'Elevator': gt 'uni_dorm', 'elevator'
	if func('homes_properties', 'has_access', 'university_dorm'):
		act 'Go to the shared lounge': gt 'uni_dorm', 'dorm_lounge'
		act 'Go to the shared kitchen': gt 'uni_dorm', 'dorm_kitchen'
		act 'Enter the women''s shower': minut += 1 & gt 'uni_dorm', 'dorm_shower_women'
		gs 'willpower', 'exhib', 'self'
		if will_cost <= pcs_willpwr:
			act 'Enter the men''s shower (<<will_cost>> Willpower)':
				gs 'willpower', 'exhib', 'self'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'uni_dorm', 'dorm_shower_men'
			end
		else
			act 'Enter the men''s Shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Enter the women''s restroom': minut += 1 & gt 'uni_dorm', 'womens_restroom'

	gs 'willpower', 'exhib', 'self'
	if will_cost <= pcs_willpwr:
		act 'Enter the men''s restroom (<<will_cost>> Willpower)':
			gs 'willpower', 'exhib', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			gt 'uni_dorm', 'mens_restroom'
		end
	else
		act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	if gosh > 0:
		act 'Gosha''s room':
			*clr & cla 
			if (week <= 4 and hour >= 16 and hour < 23 and rand(1, 2) = 2) or (week = 6 and hour >= 9 and hour < 23 and rand(1, 2) = 2) or (week = 7 and hour >= 9 and hour < 23 and rand(1, 3) >= 2):
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big83.jpg"></center>'
				'Gosha opens the door. "Hey <<$pcs_nickname>>, why don''t you come in?" He stands aside to let you enter before closing the door behind you.'

				act 'Enter': gt 'gosha', 'gosha_room'
			else
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				'You knock on the door, but no one answers. He must be asleep or not home.'

				act 'Leave': gt 'uni_dorm', 'elevator'
			end
		end
	end
end

if $ARGS[0] = 'seventh_floor':
	$loc = 'uni_dorm'
	$loc_arg = 'seventh_floor'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'seventh_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	minut += 1
	$uni_dorm['floor'] = 'seventh_floor'
	gs 'albina_uni_schedule'
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'Before you is the usual dorm hallway with the dilapidated walls of the seventh floor. You can hear music and loud talking from drunk students escaping from some rooms.'
	if totminut > uni_dorm['event_minut']:
		if hour > 2 and (week < 6 and hour < 15) or (week > 5 and hour < 11): 
			if rand(0,9) = 0: gt 'uni_dorm_events', 'dorm_floor'
		else
			if rand(0,4) = 0: gt 'uni_dorm_events', 'dorm_floor'	
		end
	end
	act 'Elevator': gt 'uni_dorm', 'elevator'
	if func('homes_properties', 'has_access', 'university_dorm'):
		act 'Go to the shared lounge': gt 'uni_dorm', 'dorm_lounge'
		act 'Go to the shared kitchen': gt 'uni_dorm', 'dorm_kitchen'
		act 'Enter the women''s shower': minut += 1 & gt 'uni_dorm', 'dorm_shower_women'
		gs 'willpower', 'exhib', 'self'
		if will_cost <= pcs_willpwr:
			act 'Enter the men''s shower (<<will_cost>> Willpower)':
				gs 'willpower', 'exhib', 'self'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'uni_dorm', 'dorm_shower_men'
			end
		else
			act 'Enter the men''s Shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Enter the women''s restroom': minut += 1 & gt 'uni_dorm', 'womens_restroom'

	gs 'willpower', 'exhib', 'self'
	if will_cost <= pcs_willpwr:
		act 'Enter the men''s restroom (<<will_cost>> Willpower)':
			gs 'willpower', 'exhib', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			gt 'uni_dorm', 'mens_restroom'
		end
	else
		act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	if AlbinaQW['dorm_invite'] = 1 and yearstart > 1:
		act 'Albina''s room':
			*clr & cla 
			if locat['albina'] = 7 or locat['albina'] = 8 or locat['albina'] = 10:
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big23.jpg"></center>'
				'You knock on the door, and after a few seconds, Albina opens it. "<<$pcs_nickname>>! Come in, come in." She stands aside to let you enter before closing the door behind you.'
				act 'Enter': gt 'albina_dorm', 'start'
			elseif locat['albina'] = 15:
				if AlbinaQW['stripper'] = 1:
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big23.jpg"></center>'
					'Just as you''re about to knock on the door, it flies open and Albina walks out with a large bag slung over her shoulder. She''s in such a hurry that she almost collides with you. "Oh. Sorry, <<$pcs_nickname>>. I didn''t see you there."'
					'"Clearly," you reply as you look at her bag. "Off to work?" you whisper and she nods.'
					'"Yes, and I''m going to be late if I don''t get a move on. Talk to you later, <<$pcs_nickname>>!" She hurries off without another word, leaving you alone in the hallway.'
					act 'Leave': gt 'uni_dorm', 'seventh_floor' & minut += 2
				else
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big23.jpg"></center>'
					'Just as you''re about to knock on the door, it flies open and Albina walks out with a large bag slung over her shoulder. She''s in such a hurry that she almost collides with you. "Oh. Sorry, <<$pcs_nickname>>. I didn''t see you there."'
					'"Clearly," you reply as you look at her bag. "Why are you in such a rush?" you ask, but she brushes you aside.'
					'"I just have somewhere I need to be and need to go now before I''m late. I''ll talk to you some other time, <<$pcs_nickname>>." She hurries off without another word, leaving you alone and confused in the hallway.'
					act 'Leave': gt 'uni_dorm', 'seventh_floor' & minut += 2
				end
			elseif locat['albina'] = 16:
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				'You knock on the door, but there''s no answer.'
				if AlbinaQW['stripper'] = 1:
					'You then remember what day it is and realise that she''s at work and won''t be back until the early hours of the morning, so you head back to the elevator.'
					act 'Leave': gt 'uni_dorm', 'elevator'
				else
					'You have no idea where she would be at this time of night, so you head back to the elevator.'
					act 'Leave': gt 'uni_dorm', 'elevator'
				end
			elseif locat['albina'] = 26:
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				if AlbinaQW['know_uni_sex'] = 0:
					'You knock on the door, but don''t recieve an answer.'
					'Listening carefully, you can faintly hear her on the other side of the door...'
					if rand(0,1) = 0:
						AlbinaQW['know_uni_sex'] = 1
						gs 'stat'
						'Placing your ear to the door, you can hear a bed squeaking, accompanied by Albina''s loud moans and a boy grunting.'
						'<b>"FUCK YES, JUST LIKE THAT! DON''T STOP, I''M GONNA FUCKING CUM!!"</b>'
						'Seeing that you''re not going to get an answer anytime soon, you step away from the door.'
						act 'Leave': gt 'uni_dorm', 'seventh_floor' & minut += 2
					else
						'Placing your ear to the door, you can hear a faint gagging sound and the voice of a boy that you can''t quite place.'
						'"Fuck, keep sucking my dick like that, I''m gonna cum!"'
						'Realising that they''re almost finished, you back away from the door before you''re caught.'
						act 'Leave': gt 'uni_dorm', 'seventh_floor' & minut += 2
					end
				else
					'You knock on the door, but don''t receive an answer. Hearing the faint sound of her bed squeaking and flesh slapping against flesh, you remember that she''s normally having sex right about now.'
					'You back away from the door, knowing you won''t get an answer.'
					act 'Leave': gt 'uni_dorm', 'seventh_floor' & minut += 2
				end
			else
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				'You knock on the door, but there''s no answer. She''s either asleep or isn''t home.'
				act 'Leave': gt 'uni_dorm', 'seventh_floor'
			end
		end
	end
	
	!!if twins
		!!act 'Twin''s room':
		!!end
	!!end
end

if $ARGS[0] = 'eighth_floor':
	$loc = 'uni_dorm'
	$loc_arg = 'eighth_floor'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'eighth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	minut += 1
	$uni_dorm['floor'] = 'eighth_floor'
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	if func('homes_properties', 'has_access', 'university_dorm'):
		'Before you is the usual dorm hallway with the dilapidated walls of the eighth floor. You can hear music and loud talking from drunk students escaping from some rooms, after living in the dorms for a bit. You now know this floor is often referred to as the African floor or the Blacks floor, all of the African students assigned to your dorm building where all assigned dorm rooms on this floor and no one else is assigned a room on this floor.'
	else
		'Before you is the usual dorm hallway with the dilapidated walls of the eighth floor. You can hear music you do notice the music sounds different, as in it is not the kind of music you are not as familiar with, their is also loud talking from some of the room. Most of it you can''t make out but sometimes when you can it is not in Russian.'
	end
	if totminut > uni_dorm['event_minut']:
		if hour > 2 and (week < 6 and hour < 15) or (week > 5 and hour < 11): 
			if rand(0,9) = 0: gt 'uni_dorm_events', 'dorm_floor8'
		else
			if rand(0,4) = 0: gt 'uni_dorm_events', 'dorm_floor8'	
		end
	end
	act 'Elevator': gt 'uni_dorm', 'elevator'
	if func('homes_properties', 'has_access', 'university_dorm'):
		act 'Go to the shared lounge': gt 'uni_dorm', 'dorm_lounge'
		act 'Go to the shared kitchen': gt 'uni_dorm', 'dorm_kitchen'
		act 'Enter the women''s shower': minut += 1 & gt 'uni_dorm', 'dorm_shower_women'
		gs 'willpower', 'exhib', 'self'
		if will_cost <= pcs_willpwr:
			act 'Enter the men''s shower (<<will_cost>> Willpower)':
				gs 'willpower', 'exhib', 'self'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'uni_dorm', 'dorm_shower_men'
			end
		else
			act 'Enter the men''s Shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Enter the women''s restroom': minut += 1 & gt 'uni_dorm', 'womens_restroom'

	gs 'willpower', 'exhib', 'self'
	if will_cost <= pcs_willpwr:
		act 'Enter the men''s restroom (<<will_cost>> Willpower)':
			gs 'willpower', 'exhib', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			gt 'uni_dorm', 'mens_restroom'
		end
	else
		act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	if DjibrilQW['invite'] = 1:
		act 'Djibril'' room':
			*clr & cla
			if (week <= 4 and hour >= 16 and hour < 23 and rand(1, 2) = 2) or (week = 6 and hour >= 9 and hour < 23 and rand(1, 2) = 2) or (week = 7 and hour >= 9 and hour < 23 and rand(1, 3) >= 2):
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big82.jpg"></center>'
				'You knock on the door, and after a few seconds, Djibril opens it. He smiles as he notices it''s you. "I was hoping you would stop by <<$pcs_nickname>>. Come on in."'

				act 'Enter': gt 'djibril', 'djibril_room'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
				minut += 5
				gs 'stat'
				'You knock on the door, but no one answers. He must be asleep or not home.'

				act 'Leave':gt 'uni_dorm', 'eighth_floor'
			end
		end
	end

	if meet_kendra = 1:
		act 'Kendra''s room':
			*clr & cla
			if (week <= 4 and hour >= 17 and hour < 23 and rand(1, 2) = 2) or (week <= 6 and hour >= 9 and hour < 20 and rand(1, 2) = 2) or (week = 7 and hour >= 9 and hour < 23 and rand(1, 3) >= 2):
				if kendra_busy ! daystart:
					if rand(1,5) = 1:
						'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/door.jpg"></center>'
						'You can hear Kendra''s voice as you get close to the door. It''s fairly loud and sounds harsh in tone, but you can''t quite make out what she''s saying. You hear a muffled reply that sounds male. It sounds like she''s already busy. You could knock or just leave her to her company.'

						act 'Leave': gt 'uni_dorm', 'eighth_floor'
						act 'Knock':
							kendra_busy = daystart
							*clr & cla
							'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/strapon_door.jpg"></center>'
							if kendraQW['sub'] < 0:
								'You knock on the door, and after a few seconds, Kendra opens it. She is completely naked and wearing a strapon harness around her hips. She plays with the large black dildo attached to it as she frowns at you. "I told you last time, I don''t have time for games and I''m tired of yours! Now get lost, I''m busy!" She then slams the door in your face.'

								act 'Leave': gt 'uni_dorm', 'eighth_floor'
							else
								if kendra_male_slave = 0:
									'You knock on the door, and after a few seconds, Kendra opens it. She is completely naked and wearing a strapon harness around her hips. She plays with the large black dildo attached to it as she looks at you.  "Well if it isn''t my new favorite white slave bitch. I''m kind of busy punishing one of my other slaves right now."'
									'She starts to close the door before you can reply, then stops and smiles at you. "You could come in and watch." She holds the door open and stands aside to let you enter. You glance into the room and see a naked college boy kneeling next to the couch. When he notices you, he blushes bright red and moves to cover himself up, but stops with one look from Kendra and instead just lowers his gaze to the floor. You have no doubt what she''s going to do to him, but is it something you want to watch? It could be interesting and you might learn something from her as well. On the other hand, do you want to humiliate him more than he already is?'
								else
									'You knock on the door. After a few seconds, Kendra opens the door. She is completely naked and wearing a strapon harness around her hips. She plays with the large black dildo attached to it as she looks at you. "Well if it isn''t my new favorite white slave bitch. I''m punishing one of the boys again. Want to come in and watch again?"'
									'She holds the door open and stands aside to let you enter. You glance into the room and see the same college boy kneeling naked next to the couch, just like last time. When he notices you, he blushes bright red, this time not trying to cover himself up, instead just lowers his gaze to the floor. You know what she''s going to do to him after watching last time. Is it something you want to watch again? Is this something you might want to learn to do to others yourself? There are a few boys you know that it might be fun to do it with.'
								end
								gs 'arousal', 'erotic_nudity', 3
								gs 'stat'

								act 'Enter': gt 'kendra', 'kendra_male_slave'
								act 'Decline':
									*clr & cla
									'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/strapon_door.jpg"></center>'
									if kendra_male_slave = 0:
										if kendraQW['sub'] >= 10:
											'You shake your head. "No thanks. You look busy and I don''t want to disturb you..."'
											'She laughs loudly and roughly grabs your chin in her hand. "You may leave, after you get down on the floor and kiss my boot like the good little white slave that you are."'
											gs 'willpower', 'humiliation', 'resist', 'hard'
											if will_cost <= pcs_willpwr:
												act 'Refuse (<<will_cost>> Willpower)':
													*clr & cla
													kendraQW['sub'] -= 5
													gs 'willpower', 'pay', 'resist'
													gs 'stat'
													'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
													'You glance around and see a few other students in the hall and feel yourself already blushing at the idea of kissing her boots. You shake you head. "No I can''t..."'
													'She gets a angry look in her face. "Fine then don''t come back." Followed by her slamming the door in your face. You don''t think she really means to never come back.'
													act 'Leave': gt 'uni_dorm', 'eighth_floor'
												end
											else
												act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
											end	
											act 'Get down':
												*clr & cla
												kendraQW['sub'] += 1
												'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/kiss_boot.jpg"></center>'
												'You glance around seeing a few other students in the hallway, then you get down on your hands and knees in front of her. You bend over forward until your face is in front of her boot. You then kiss her boot, you can hear some murmers from others and a few laughs. She steps away from you and closes the door. "That''s a good little bitch, now you may leave." Once the door is closed you stand back up and walk off.'
												gs 'arousal', 'BDSM', 1, 'humiliation', 'sub'
												gs 'arousal', 'end'
												gs 'stat'
												act 'Leave': gt 'uni_dorm', 'eighth_floor'
											end
										else
											'You shake your head. "No thanks. You look busy and I don''t want to disturb you..."'
											'She laughs loudly and roughly grabs your chin in her hand. "Aww so shy, adorable... but I will break you in time. Maybe next time then." She closes the door and you turn to leave.'
											act 'Leave': gt 'uni_dorm', 'eighth_floor'
										end
									else
										if kendraQW['sub'] >= 10:
											'You shake your head. "No thanks. Last time was entertaining, but I didn''t come to see that again."'
											'She laughs loudly and roughly grabs your chin in her hand. "You may leave, after you get down on the floor and kiss my boot like the good little white slave that you are."'
											gs 'willpower', 'humiliation', 'resist', 'hard'
											if will_cost <= pcs_willpwr:
												act 'Refuse (<<will_cost>> Willpower)':
													*clr & cla
													kendraQW['sub'] -= 5
													gs 'willpower', 'pay', 'resist'
													gs 'stat'
													'You glance around and see a few other students in the hall and feel yourself already blushing at the idea of kissing her boots. You shake you head. "No I can''t..."'
													'She gets a angry look in her face. "Fine then don''t come back." Followed by her slamming the door in your face. You don''t think she really means to never come back.'
													act 'Leave': gt 'uni_dorm', 'eighth_floor'
												end
											else
												act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
											end	
											act 'Get down':
												*clr & cla
												kendraQW['sub'] += 1
												'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/kiss_boot.jpg"></center>'
												'You glance around seeing a few other students in the hallway, then you get down on your hands and knees in front of her. You bend over forward until your face is in front of her boot. You then kiss her boot, you can hear some murmers from others and a few laughs. She steps away from you and closes the door. "That''s a good little bitch, now you may leave." Once the door is closed you stand back up and walk off.'
												gs 'arousal', 'BDSM', 1, 'humiliation', 'sub'
												gs 'arousal', 'end'
												gs 'stat'
												act 'Leave': gt 'uni_dorm', 'eighth_floor'
											end
										else
											'You shake your head. "No thanks. Last time was entertaining, but I didn''t come to see that again."'
											'She laughs loudly and roughly grabs your chin in her hand. "Your loss. I might have let you take a turn with him, or maybe not." She closes the door and you turn to leave.'
											act 'Leave': gt 'uni_dorm', 'eighth_floor'
										end
									end
									gs 'arousal', 'end'
									gs 'stat'

									act 'Leave': gt 'uni_dorm', 'eighth_floor'
								end
							end
						end
					else
						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big84.jpg"></center>'
						if kendraQW['sub'] < 0:
							'You knock on the door, and after a few seconds, Kendra opens it. "I told you last time, I don''t have time for games and I''m tired of yours. Now get lost." She slams the door in your face.'

							act 'Leave': gt 'uni_dorm', 'eighth_floor'
						else
							if kendraQW['sub'] >= 10:
								'You knock on the door, and after a few seconds, Kendra opens it. "Well if it isn''t my new favorite white slave bitch. Come in." She stands aside to let you enter before closing the door behind you.'
							else
								'You knock on the door, and after a few seconds, Kendra opens it. "So you came to worship your ebony mistress and learn how to become a proper white slave. Come in and let your lessons begin." She stands aside to let you enter before closing the door behind you.'
							end
							act 'Enter': gt 'kendra', 'kendra_room_start'
						end
					end
				else
					'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/door.jpg"></center>'
					'You can hear Kendra''s voice as you get close to the door. It''s fairly loud and sounds harsh in tone, but you can''t quite make out what she''s saying. You do hear a muffled reply that sounds male. It sounds like she''s busy right now, so you shouldn''t bother her.'

					act 'Leave': gt 'uni_dorm', 'eighth_floor'
				end
			else
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/door.jpg"></center>'
				'You knock on the door, but no one answers. She must be asleep or not home.'

				act 'Leave': gt 'uni_dorm', 'eighth_floor'
			end
		end
	end
end

if $ARGS[0] = 'tenth_floor':
	killvar 'will_cost'
	$loc = 'uni_dorm'
	$loc_arg = 'tenth_floor'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'tenth_floor'
	$locM = 'uni_dorm'
	$locM_arg = 'tenth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	minut += 1
	$uni_dorm['floor'] = 'tenth_floor'
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	if func('uniutil', 'student', 'enrolled'):
		'Before you is the dorm hallway with it''s dilapidated walls leading to your dorm room. You can hear music and loud talking from drunk students escaping from some rooms.'
	else
		'Before you is the usual dorm hallway with dilapidated walls. You can hear music and loud talking from drunk students escaping from some rooms.'
	end
	if totminut > uni_dorm['event_minut']:
		if hour > 2 and (week < 6 and hour < 15) or (week > 5 and hour < 11): 
			if rand(0,9) = 0: gt 'uni_dorm_events', 'dorm_floor'
		else
			if rand(0,4) = 0: gt 'uni_dorm_events', 'dorm_floor'	
		end
	end
	act 'Go outside':
		killvar 'university_dorm'
		minut += 6
		gt 'uni_grounds', 'main'
	end
	act 'Elevator': gt 'uni_dorm', 'elevator'

	if func('homes_properties', 'has_access', 'university_dorm'):
		gs 'courtletter'
		act 'Your room': gt 'uni_dorm', 'dorm_room'
		act 'Go to the shared lounge': gt 'uni_dorm', 'dorm_lounge'
		act 'Go to the shared kitchen': gt 'uni_dorm', 'dorm_kitchen'
		act 'Enter the women''s shower': minut += 1 & gt 'uni_dorm', 'dorm_shower_women'
		gs 'willpower', 'exhib', 'self'
		if will_cost <= pcs_willpwr:
			act 'Enter the men''s shower (<<will_cost>> Willpower)':
				gs 'willpower', 'exhib', 'self'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'uni_dorm', 'dorm_shower_men'
			end
		else
			act 'Enter the men''s Shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Enter the women''s restroom': minut += 1 & gt 'uni_dorm', 'womens_restroom'

	gs 'willpower', 'exhib', 'self'
	if will_cost <= pcs_willpwr:
		act 'Enter the men''s restroom (<<will_cost>> Willpower)':
			gs 'willpower', 'exhib', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			gt 'uni_dorm', 'mens_restroom'
		end
	else
		act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

!!	commented out until parties are added back in
!!	if (home_owned[11] = 1 or university['student'] = 1) and week = 5 and hour > 18 and hour < 23:
!!		'You can hear music blasting in the corridor. It sounds like the Friday night party is in full swing.'
!!		act 'The party': minut += 1 & gt 'vecher', 'start'
!!	end
end

if $args[0] = 'dorm_lounge':
	$loc_arg = 'dorm_lounge'
	$loc = 'uni_dorm'
    $location_type = 'private'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_lounge'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b>Dorm Lounge</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_lounge.jpg"></center>'
	'This is the large shared lounge for this floor. It is fairly tidy, with a few little squares. A tv on along a wall creates one side of the square while couches or chairs make up the other three sides, with just enough space between them to allow people to enter or leave the little squares. Several such entertainment squares line the room with a few vending machines.'
	act 'Return to the corridor': gt 'uni_dorm', $uni_dorm['floor']
	act 'Watch tv': gt 'uni_dorm', 'dorm_lounge_watch_tv'
	act 'Relax': gt 'uni_dorm', 'dorm_lounge_relax'
	!!act 'Buy snacks':
!!I commented this out because I have no clue how to do this, if you know how to do it. Just have it charge what the kiosk does for snacks/drink and then return to this room.
end

if $args[0] = 'dorm_lounge_watch_tv':
	$loc_arg = 'dorm_lounge_watch_tv'
	$loc = 'uni_dorm'
    $location_type = 'private'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_lounge_watch_tv'
	menu_off = 0
	minut += 30
	pcs_mood += 15
	gs 'stat'
	*clr & cla
	'<center><b>Dorm Lounge TV</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_lounge.jpg"></center>'
	'You take a seat on one of the couches and watch a little tv, there is not a lot on but it kills a little time.'
	act 'Return to the corridor': gt 'uni_dorm', $uni_dorm['floor']
	act 'Keep watching tv': gt 'uni_dorm', 'dorm_lounge_watch_tv'
end

if $args[0] = 'dorm_lounge_relax':
	$loc_arg = 'dorm_lounge_relax'
	$loc = 'uni_dorm'
    $location_type = 'private'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_lounge_relax'
	menu_off = 0
	minut += 15
	pcs_mood += 5
	gs 'stat'
	*clr & cla
	'<center><b>Dorm Lounge Relax</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_lounge.jpg"></center>'
	'You take a seat on one of the couches and just chill out for a bit relaxing.'
	act 'Return to the corridor': gt 'uni_dorm', $uni_dorm['floor']
	act 'Keep relaxing': gt 'uni_dorm', 'dorm_lounge_relax'
end

if $args[0] = 'dorm_kitchen':
	$loc_arg = 'dorm_kitchen'
	$loc = 'uni_dorm'
    $location_type = 'private'
	$locclass = 'kitr'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_kitchen'
	menu_off = 0
	food_loc = 0
	minut += 1
	gs 'kit_din'
	gs 'katja_meynold_schedule'
	gs 'stat'
	*clr & cla
	'<center><b>Dorm Kitchen</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_kitchen.jpg"></center>'
	'The large shared kitchen for this floor. It is fairly tidy, with a lot of cabinets along two of the walls. Two ovens and two refrigerators, as well as several tables with chairs around them, are scattered around the room.'
	if (locat['katja'] = 32 or locat['katja'] = 33) and $uni_dorm['floor'] = 'second_floor':
		if katjaQW['kitchen_day'] ! daystart:
			'You see '+iif(katjaQW['know_katja_uni'] = 0 and ($start_type['loc'] ! 'sg' and $start_type['magic'] = 'tg'), 'a cute redheaded girl', '<a href="exec:gt ''katja_pantyquest'', ''kitchen''">Katja</a>')+iif((katjaQW['pantiesQWstage'] < 3 or (katjaQW['pantiesQWstage'] = 3 and katjaQW['slut'] < 65) or katjaQW['pantiesQWstage'] = 4) and katjaQW['take_of_panties_day'] ! daystart, 'sitting in a chair.', 'standing at the kitchen table.')
		else
			if locat['katja'] = 32:
				'You see '+iif(katjaQW['know_katja_uni'] = 0 and ($start_type['loc'] ! 'sg' and $start_type['magic'] = 'tg'), 'a cute redheaded girl', 'Katja')+' at the kitchen tables coking.'
			else
				'You see '+iif(katjaQW['know_katja_uni'] = 0 and ($start_type['loc'] ! 'sg' and $start_type['magic'] = 'tg'), 'a cute redheaded girl', 'Katja')+' at the table eating her dinner.'
			end
		end
	end

	act 'Return to the corridor': gt 'uni_dorm', $uni_dorm['floor']
	if  $uni_dorm['floor'] = 'tenth_floor':
		if mc_inventory['food_basic'] > 0:
			if edahot = 0:
				$edagot = '<a href="exec:dynamic $edagotd">Cook a meal</a>'
			else
				$edagot = ''
			end
			'Your shelf in the refrigerator holds enough food for <b><<mc_inventory[''food_basic'']>></b> ' + iif(mc_inventory['food_basic'] = 1, 'serving', 'servings') + '. <<$edagot>>'
		else
			'<b><font color="red">Your shelf in the refrigerator is bare. There is nothing left for you to eat.</font></b>'
		end

		if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'

		dynamic $edasnack
		dynamic $sandwich

		dynamic $dritea
		dynamic $edaD
		dynamic $pranik
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	end
	dynamic $driwater
	dynamic $fill_bottle
end

if $ARGS[0] = 'mens_restroom':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'mens_restroom'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'mens_restroom'
	$locM = 'uni_dorm'
	$locM_arg = 'mens_restroom'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Men''s Restroom</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/restrooms/bathroom_mens.jpg"></center>'
	'You peek around the corner. Stalls line the right side of the room, with urinals on the far wall and rows of sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a> to the left. The room smells strongly of disinfectant and stale piss.'
	act 'Leave': gt 'uni_dorm', $uni_dorm['floor']
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
!!if this has a shower function tied to it, can that be removed now that we have actual showers
end

if $ARGS[0] = 'womens_restroom':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'womens_restroom'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'womens_restroom'
	$locM = 'uni_dorm'
	$locM_arg = 'womens_restroom'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Women''s Restroom</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/restrooms/bathroom_womens.jpg"></center>'
	'You peek around the corner. Stalls line the right side of the room, with rows of sinks with <a href="exec:gt ''mirror'', ''start''">mirrors</a> to the left. The room smells strongly of disinfectant.'
	act 'Leave': gt 'uni_dorm', $uni_dorm['floor']
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
!!if this has a shower function tied to it, can that be removed now that we have actual showers
end

if $ARGS[0] = 'dorm_shower_men':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'dorm_shower_men'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_shower_men'
	$locM = 'uni_dorm'
	$locM_arg = 'dorm_shower_men'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Men''s Communal Showers</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/showers/empty.jpg"></center>'
	'You open the door and walk down to the end of the L shaped hall to peek around the corner. In the nearest corner is a small alcove of lockers and a couple of benches, closest to the entry point is two rows of sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. On the other side of the room a walk way leads off to the communal <a href="exec:gt ''uni_dorm'', ''mens_shower''">showers</a>.'
	act 'Leave': gt 'uni_dorm', $uni_dorm['floor']
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
!!if this has a shower function tied to it, can that be removed now that we have actual showers
end

if $ARGS[0] = 'dorm_shower_women':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'dorm_shower_women'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_shower_women'
	$locM = 'uni_dorm'
	$locM_arg = 'dorm_shower_women'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Women''s Communal Showers</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/showers/empty.jpg"></center>'
	'You open the door and walk down to the end of the L shaped hall, which takes you to the main area of the communal shower room. In the nearest corner is a small alcove of lockers and a couple of benches, closest to the entry point is two rows of sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. On the other side of the room a walk way leads off to the communal <a href="exec:gt ''uni_dorm'', ''womens_shower''">showers</a>.'
	act 'Leave': gt 'uni_dorm', $uni_dorm['floor']
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
end

if $ARGS[0] = 'mens_shower':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'mens_shower'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'mens_shower'
	$locM = 'uni_dorm'
	$locM_arg = 'mens_shower'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Men''s Showers</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/showers/empty_showers.jpg"></center>'
	'The room is currently empty, inside you can see a line of showers with small baskets on the wall just under the shower heads to store your shampoo and other products in while someone showers. There is a small drain in the floor.'
	act 'Leave': gt 'uni_dorm', 'dorm_shower_men'
	gs 'din_van', 'private'
end

if $ARGS[0] = 'womens_shower':
	$location_type = 'public_indoors'
	$loc = 'uni_dorm'
	$loc_arg = 'womens_shower'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'womens_shower'
	$locM = 'uni_dorm'
	$locM_arg = 'womens_shower'
	menu_off = 0
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">Dormitory - Women''s Showers</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/showers/empty_showers.jpg"></center>'
	'The room is currently empty, inside you can see a line of showers with small baskets on the wall just under the shower heads to store your shampoo and other products in while someone showers. There is a small drain in the floor.'
	act 'Leave': gt 'uni_dorm', 'dorm_shower_women'
	gs 'din_van', 'private'
end

if $ARGS[0] = 'dorm_room':
	$sexloc = 'uni_dorm'
	CLOSE ALL
	$loc_arg = 'dorm_room'
	$loc = 'uni_dorm'
	$locM_arg = 'dorm_room'
	$locM = 'uni_dorm'
    $location_type = 'private'
	$menu_loc = 'uni_dorm'
	$menu_arg = 'dorm_room'
	menu_off = 0
	odkomp = 1
	gs 'themes', 'indoors'
	minut += 1
	gs 'stat'
	*clr & cla
	'<center><b>Your dorm room</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_room/room.jpg"></center>'
	'This is the dorm room you share with Vika.'
	'Your <a href="exec:gt ''bed'',''start''">bed</a> is positioned in one of the corners of the room. Your <a href="exec:gt ''stol'' ,''start''">desk</a> sits at the foot of it.'
	if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
	if mc_inventory['mag_porn'] > 0: 'You''ve hidden your porn magazines under the mattress of your bed.'
	
	if hour > 14 and hour < func('bordel', 'open_hour'):
		vika_inroom = 1
		vika_sleep = 0
		if npc_rel['A220'] >= 60 and birthday = day and birthmonth = month and vikaslut = 1 and b_vika_present_Day ! daystart:
			$vikatext = '<a href="exec:gt''Vika''">Vika</a> seems excited when she notices you. She is trying to hide a box behind her back.'
		else
			$vikatext =  '<a href="exec:gt''Vika''">Vika</a> is lying on her bed.'
		end
		gs 'music_actions', 'not_alone'
	elseif hour > func('bordel', 'close_hour') and hour < 8:
		vika_inroom = 1
		vika_sleep = 1
		if vikaslut = 0:
			$vikatext = '<a href="exec:gt''Vika''">Vika</a> is sleeping in her bed after being out the whole night.'
		elseif vikaslut = 1:
			$vikatext = '<a href="exec:gt''Vika''">Vika</a> is sleeping in her bed after working hard in the brothel all night.'
		end
		gs 'music_actions', 'no_music'
	end

	if mc_inventory['tech_computer'] = 1:
		!! It is possible to say that the university Wifi filters out porn and webcam sites, in which case will need to allow the player to choose mobile net to watch porn or do webcam shows
		gs 'internet_mobile', 'get_access', 'free'
		!!TODO: This is for now until we decide how to handle these two with different scenarios
		!! 1. Sveta knows Vika is a slut but still keeps the pristine facade
		!! 2. Sveta is working in the brothel too
		!! 3. Sveta knows Vika works in the brothel and Vika knows Sveta is just as big a slut as she is.
		if vika_inroom = 1:
			acces['noporn'] = 1
			access['nocamshow'] = 1
			$access['noporn'] = 'You shouldn''t watch porn with Vika in the room!'
			$access['nocamshow'] ='You can''t do any webcam shows with Vika in the room!'
		end
		'Your <a href="exec:gt ''Komp'',''start''">computer</a> sits on your desk.'
	end

	'To the left of the entrance is an old <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a>.'
	'There''s a <a href="exec:gt ''mirror'',''start''">mirror</a> hanging on the wall.'

	if mc_inventory['contraceptive_pill'] > 0 and mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0:
		'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers, as are your <a href="exec:gt ''stol'', ''bc''">condoms</a>.'
	elseif mc_inventory['contraceptive_pill'] > 0:
		'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
	elseif mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0:
		'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
	end

	*nl
	'Your <a href="exec:gt ''alarmclock'', ''start''">alarm clock</a> is set to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>> during the week and <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>> during the weekend. It is currently turned ' + iif(alarmVars['alarmOn'] = 0, '<a href="exec: alarmVars[''alarmOn''] = 1 & gt $loc, $loc_arg">OFF</a>.', '<a href="exec: alarmVars[''alarmOn''] = 0 & gt $loc, $loc_arg">ON</a>.')
	*nl
	gs 'exercise', 'start'

	'<<$vikatext>>'
	killvar '$vikatext'

	act 'Walk out to the corridor':
		if $clothingworntype ! 'nude':
			odkomp = 0
			gt 'uni_dorm', 'tenth_floor'
		else
			msg'<b><font color = red>You need to get dressed first.</font></b>'
			gt 'uni_dorm', 'dorm_room'
		end
	end

	act 'Leave the campus':
		if $clothingworntype ! 'nude':
			minut += 15
			odkomp = 0
			gt 'city_island'
		else
			msg'<b><font color = red>You need to get dressed first.</font></b>'
			gt 'uni_dorm', 'dorm_room'
		end
	end

	act 'Relax on your bed': gt 'bed', 'start'

	dynamic $wearpan
	dynamic $removepan

	gs 'prostitution_functions', 'prostitute_outfit_at_home'
	
	if func('homes_properties', 'is_current_home') ! -1:
		act 'Set your dorm room as your main home': gs 'homes_properties', 'set_home' & gt 'uni_dorm', 'dorm_room'
	end
	!! Removed the check to see if Sveta has access to the place as the check happens before Sveta reaches 
	!! this location, at the "Go to your room" actions.
	gs 'music_actions', 'music_icon'
end

--- uni_dorm ---------------------------------