glife/locations/dorm.qsrc

# dorm
!!2021/08/13

if $ARGS[0] = 'start':
	*clr & cla
	minut += 5
	$menu_loc = 'dorm'
	$menu_arg = 'start'
	menu_off = 0
	gs 'stat'
	gs 'themes', 'indoors'
	'<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 go inside. It is pretty clean and in good shape. There is a older woman, with a very unpleasant and judgmental look on her face 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 tells you she is already judging you, as a face frowns into a look of disapproval.'
	if func('uniutil', 'student', 'not_enrolled'):
		menu_off = 1
		'Since you''re not attending the University, you know without a ID you are not allowed in the dorms. Unless you are on the guest list of a student you know.'
		act 'Leave': minut += 5 & gt 'city_island'
		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 pulling our your ID as you say. "I''m here to visit Djibril."' 
				'The woman gives you a look of complete disgust and remarks "What, your own kind not good enough for you? Go ahead and take care of those black cocks. He is on the eighth floor room 810." Then she turns away from you and goes back to what he was doing, not wanting to reply and possibly get in a argument that would cause her to call security, you say nothing and go get in the elevator to the eighth floor.'
				act 'Take elevator':gt '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 pulling our your ID as you say. "I''m here to visit Gosha."' 
				'The woman shakes her head in disapproval, as she remarks "Gosha''s new whore? What you sluts see in that scrawny bastard, I''ll never understand. He''s been through half of the dorm already. He is on the sixth floor room 602." Then she turns away from you and goes back to what she was doing, not wanting to reply and possibly get in a argument that would cause her to call security, you say nothing and go get in the elevator to the sixth floor.'
				reccoldorm = 1
				goshiflag = 1
				act 'Take elevator':gt '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 npc_rel['A84'] < 40:
					'You walk over to the counter pulling our your ID as you say. "I''m here to visit Kendra."' 
					'The woman gives you a look of complete disgust and remarks "Seems she has gotten tired of you, you''re no longer on the guest list. Now get out of here before I call security." Surprised Kendra removed you from her guest list, you turn and leave the dorm before the old woman calls security.'
					act 'Leave': minut += 5 & gt 'city_island'
				else
					'You walk over to the counter pulling our your ID as you say. "I''m here to visit Kendra."' 
					'The woman gives you a look of complete disgust and remarks "What, a man not good enough for you? Go ahead and go serve that black whore. She is on the eighth floor room 801." Then she turns away from you and goes back to what she was doing, not wanting to reply and possibly get in a argument that would cause her to call security, you say nothing and go get in the elevator to the eighth floor.'
					act 'Take elevator':gt 'dorm', 'elevator'
				end
			end
		end
	else
		act 'Show her your student ID':
			*clr & cla
			minut += 1
			'<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 moment then goes back to doing what ever it was, she was doing before you walked in. You head for the elevators.'
			act 'Take elevator':gt 'dorm', 'elevator'
		end
	end
	act 'Leave':gt 'city_island'
end

if $ARGS[0] = 'elevator':
	*clr & cla
	minut += 5
	$menu_loc = 'dorm'
	$menu_arg = 'elevator'
	menu_off = 0
	gs 'stat'
	gs 'themes', 'indoors'
	'<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. There is a line of buttons to all the different floors in the dorm building.'
	if func('uniutil', 'student', 'enrolled'):
		'Your dorm room is at the tenth floor'
	end
	act 'Go to sixth floor': gt 'dorm', 'sixth_floor'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
	act 'Go to tenth floor': gt 'dorm', 'tenth_floor'
	act 'Go to the first floor and leave the dorm':gt 'city_island'
end

if $ARGS[0] = 'sixth_floor':
	$loc = 'dorm'
	$loc_arg = 'sixth_floor'
	$menu_loc = 'dorm'
	$menu_arg = 'sixth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'Before you is the usual dorm hallway with dilapidated walls of the sixth floor. You can hear music and loud talking from drunk students escaping from some rooms.'

	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 then stands aside so you can walk in, closing the door after you.'
				act 'Enter':gt 'dorm', 'gosha_room'
			else
				!!not home text
				minut += 5
				gs 'stat'
				'You knock on the door, but no one answers. He must be asleep or not home.'
				act 'Leave':gt 'dorm', 'elevator'
			end
		end
	end

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

if $ARGS[0] = 'eighth_floor':
	$loc = 'dorm'
	$loc_arg = 'eighth_floor'
	$menu_loc = 'dorm'
	$menu_arg = 'eighth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'Before you is the usual dorm hallway with dilapidated walls of the eighth floor. You can hear music and loud talking from drunk students escaping from some rooms.'
	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. After a couple of seconds, Djibril opens the door. He smiles as he notices it''s you. "I was hoping you would stop by <<$pcs_nickname>>, come on in." He says as he invites you into his room.'
				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 'dorm', 'elevator'
			end
		end
	end

	if meet_kendra = 1:
		act 'Kendra''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):
				if kendra_busy ! daystart:
					if rand(1,5) = 1:
						'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/door.jpg"></center>'
						'As you get close to the door you can hear her voice. It is fairly loud and sounds harsh in tone, but you can''t quite make out what she is saying. You hear a muffled reply that sounds male. It sounds like she is busy, you could knock or just leave her to her company.'
						act 'Knock':
							kendra_busy = daystart
							*clr & cla
							'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/strapon_door.jpg"></center>'
							'You knock on the door. After a couple of seconds, Kendra opens the door. She is standing in the doorway completely naked other than the strapon harness buckled in place around her hips, with a large black dildo attached to it that she is playing with. "Well if it isn''t my new favorite white slave bitch. I am kinda busy at the moment, I am punishing one of my other slaves."'
							*nl
							'She starts to close the door before you can even say anything, then she stops and smiles at you, like she just had a good idea. "Or you could come in and watch." She stands aside to let you come in, holding the door open. As you glance in the room, you 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 is going to do to him, considering the strapon she is wearing. Is that 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?'
							gs 'arousal', 'erotic_nudity', 3
							gs 'stat'
							act 'Enter': gt 'dormev1', 'kendra_male_slave'
							act 'Decline':
								*clr & cla
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/strapon_door.jpg"></center>'
								'You shake your head no. "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 of that in time. Maybe next time then." Then she closes the door, as she does. You see her stroking her strapon as she heads for the young man. Once the door is closed you turn and leave yourself.'
								gs 'arousal', 'end'
								gs 'stat'
								act 'Leave':gt 'dorm', 'elevator'
							end
						end
						act 'Leave':gt 'dorm', 'elevator'
					else
						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big84.jpg"></center>'
						if npc_rel['A84'] < 40:
							'You knock on the door. After a couple of seconds, Kendra opens the door. "I told you last time, I don''t have time for games and I am tired of yours. Now get lost." She closes the door in your face.'
							act 'Leave':gt 'dorm', 'elevator'
						else
							'You knock on the door. After a couple of seconds, Kendra opens the door. "Well if it isn''t my new favorite white slave bitch. Well come in." She stands aside to let you come in, as you enter she closes the door.'
							act 'Enter': gt 'dorm', 'kendra_room_start'
						end
					end
				else
					'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/door.jpg"></center>'
					'As you get close to the door you can hear her voice. It is fairly loud and sounds harsh in tone, but you can''t quite make out what she is saying. You do hear a muffled reply that sounds male. She seems busy right now, you shouldn''t bother her.'
					act 'Leave':gt 'dorm', 'elevator'
				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 'dorm', 'elevator'
			end
		end
	end

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

if $ARGS[0] = 'tenth_floor':
	$loc = 'dorm'
	$loc_arg = 'tenth_floor'
	$menu_loc = 'dorm'
	$menu_arg = 'tenth_floor'
	$locM = 'dorm'
	$locM_arg = 'tenth_floor'
	menu_off = 0
	$location_type = 'public_indoors'
	killvar '$locclass'
	*clr & cla
	gs 'stat'
	'<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, that leads 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
	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 '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
	act 'Enter the women''s restroom': gt 'dorm', 'womens_restroom'
	act 'Leave':gt 'dorm', 'elevator'
	act 'Go to the shared shower':
		minut += 5
		obdysh = 1
		gt 'vann', 'start'
	end

	if func('uniutil', 'student', 'enrolled'):
		if courtletter_date <= daystart and courtletter_date ! 0:
			gt 'sentence', 'letter'
		end
		act 'Your room':gt 'dorm', 'dorm_room'
		act 'Go to the shared kitchen':
			minut += 5
			gt 'dorm', 'dorm_kitchen'
		end
		if week = 5 and hour > 18 and hour < 23:
			'You can hear music blasting in the corridor. It seems the Friday party is in full swing.'
			act 'The party':gt 'vecher', 'start'
		end
	end
end

if $ARGS[0] = 'kendra_room_start':
	menu_off = 1
	$location_type = 'event'
	reccoldorm = 0
	kendraflag = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/kendraroom/room.jpg"></center>'
	'There are two beds, one on each side of the window. There are various pictures and posters hanging on both sides of the room. One side also has a string of large lights hanging up as well. Just down from the beds on each side are two desks, against each wall. Both are decorated with slight differences. Near the door is a small couch and two wardrobes.'
	'As you walk in the room, she follows behind you as says. "What should I do with you today slave." You know it is a rhetorical question and she really doesn''t want you to answer. As you turn to look at her, you can tell she has something in mind that will likely either humiliate you are turn you into her submissive. Perhaps if you just go now you can avoid it, or maybe you should stay and see what happens.'
	act 'I should get going':
		*clr & cla
		npc_rel['A84'] -= 10
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big84.jpg"></center>'
		'You look over at the clock in her room. "I should really get going, sorry to have bothered you."'
		'She looks at you very annoyed. "What is this? I don''t have time for games. Don''t come back unless you are serious about playing." Then she grabs you by the arm and shoves you out the door, closing it behind you.'
		act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
	end
	act 'Wait to see what she does':
		npc_rel['A84'] += 1
		gt 'dorm', 'kendra_room_routing'
	end
end

if $ARGS[0] = 'kendra_room_routing':
	if kendra_dom = 0:
		gt 'dorm', 'kendra_room_0'
	elseif kendra_dom = 1:
		gt 'dorm', 'kendra_room_1'
	elseif kendra_dom = 2:
		gt 'dorm', 'kendra_room_2'
	elseif kendra_dom = 3:
		gt 'dorm', 'kendra_room_3'
	elseif kendra_dom = 4:
		gt 'dorm', 'kendra_room_4'
	elseif kendra_dom = 5:
		gt 'dorm', 'kendra_room_5'
	elseif kendra_dom = 6:
		gt 'dorm', 'kendra_room_6'
	elseif kendra_dom = 7:
		gt 'dorm', 'kendra_room_7'
	elseif kendra_dom = 8:
		gt 'dorm', 'kendra_room_8'
	elseif kendra_dom = 9:
		gt 'dorm', 'kendra_room_9'
	elseif kendra_dom = 10:
		gt 'dorm', 'kendra_room_10'
	elseif kendra_dom = 11:
		gt 'dorm', 'kendra_room_11'
	else
		kendra_dom = rand(0, 11)
		gt 'dorm', 'kendra_room_routing'
	end
end

if $ARGS[0] = 'kendra_room_0':
	menu_off = 1
	$location_type = 'event'
	kendra_dom = 1
	minut += 45
	gs 'stat'
	*clr & cla
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom1.jpg"></center>'
	'She goes over and sits on the bed, then kicks off her shoes. "Come over here and paint my toenails slave." You walk over and sit on the bed, she hands you some polish. You start putting on the polish only to have her smack you slightly. "No, not good enough start over." You get out the polish remover and clean her nails and repeat the process several times before she seems to be happy.'
	act 'Finish her toenails':
		*clr & cla
		minut += 15
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom1a.jpg"></center>'
		'She looks down as you are finishing up the last toes on her other foot. "I suppose that is good enough. Now hurry up and finish, I got things to do."'
		'"Yes mistress." You don''t rush and make sure you do a good job finishing her toenails, you blow on them until they dry.'
		'Once you have finally finished she pushes you off the bed. "Now go!"'
		'You stand up. "Yes mistress." Then you walk to the door and leave.'
		act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
	end
end

if $ARGS[0] = 'kendra_room_1':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 2
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom2_' + rand(1,2) + '.jpg"></center>'
	'She goes over and sits on the couch. "Come over here and clean my boots slave." You walk over and kneel down next to the couch, you start to grab some tissue to clean her boots but she stops you. "No use your tongue."'
	'You nod a bit. "Yes mistress." Then you start licking her boots clean, once you finish one you start on the other. A few times she smacks you on top of the head and points out a spot you missed, that you have to go back over.'
	'Once you have finally finished cleaning her boots she looks them over one last time and then points to the door. "Now go slave."'
	'You stand up. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'feet'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_2':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom3.jpg"></center>'
	'She goes over and grabs a bowl of water, with some other stuff. Then she sits on the couch. "Come over here and clean my feet slave." You walk over and kneel down next to the couch, you add a little soap to the water. Then use the cloth and water in the bowl to clean her feet'
	'She mostly ignores you and reads a magazine. Once you have finally finished cleaning her feet she looks them over and says. "Kiss them."'
	'You do as she says and kiss her feet, when you have kissed them enough, she then points to the door. "Now go slave."'
	'You stand up. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'feet'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_3':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 4
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom4.jpg"></center>'
	'She goes over and sits on the couch. "Come over here and clean my feet slave." You start to go get the bowl of water when she says. "No use your tongue."'
	'You nod a bit. "Yes mistress." You walk back over and kneel next to the couch. You remove her boots and then start licking her feet, after a bit you suck on her toes and lick her feet and legs half way up her calves there the boots had ended.'
	'Once you licked every cm of her feet and lower legs, then points to the door. "Now go slave."'
	'You stand up. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'feet'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_4':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 5
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom5.jpg"></center>'
	'Once inside she leads you over to her bed, then she opens the night stand and pulls out a collar. Which she promptly and tightly buckles around your neck, making it a little hard for you to breath and swallow. With that firmly in place she gets out a leash and attaches it to the collar. She pushes you down as she says. "Get down, like a good slave." You get down on your hands and knees. Then she leads you around the dorm room for a bit, before she finally takes you out into the hall. She leads you down the communal kitchen area and then to the lounge, where she gets some snacks and drinks for herself. Several people notice the two of you, some laugh, some just ignore it, while others give you or sometimes both of you disgusted looks.'
	*nl
	'Finally you make it back to the room, where she sits on the couch to watch a little tv while you stay on your hands and knees next to the couch waiting for her. After a bit she finally points to the door. "Now go slave, but put your collar and leash away first."'
	'You stand up taking off the collar and leash, you walk over and put them back in the draw she got them from. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_5':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 6
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom6.jpg"></center>'
	'She goes over and pulls her chair away from her desk before sitting down on it."Come over here slave." You walk over and stand next to her, she suddenly grabs you and pulls you across her lap, before you even know what is happening she starts spanking you.'
	'"You are such a worthless and bad slave." She says as she keeps spanking you.'
	'You grit your teeth against the pain. "I''m sorry mistress." You don''t even know what you did to upset her, she isn''t telling you and you know it would only make matters worse if you asked.'
	*nl
	'She starts pulling your clothes off, until she leaves you bare butt exposed, then she starts spanking you even harder. After some time it really starts to sting, you don''t know how long she has spanked you, long enough she seems to be getting tired.'
	'Finally she pushes you off her lap into the floor, as she stands up, she points to the door. "Now go slave."'
	'You stand up and get dressed again. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation'
	gs 'pain', 2, 'asscheeks', 'spank'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_6':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 7
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom7.jpg"></center>'
	'She goes over and pulls her chair away from her desk. She grabs a paddle that was laying on her desk before sitting down on the chair."Come over here slave." You walk over and lay yourself across her lap. You already know what she plans to do, at once she start paddling your ass.'
	'"You are such a worthless and bad slave." She says as she keeps spanking you.'
	'You grit your teeth against the pain. "I''m sorry mistress." You don''t even know what you did to upset her, she isn''t telling you and you know it would only make matters worse if you asked.'
	*nl
	'She starts pulling your clothes off, until she leaves you bare butt exposed, then she starts spanking you even harder. After some time it really starts to sting, you don''t know how long she has spanked you, long enough she seems to be getting tired.'
	'Finally she pushes you off her lap into the floor, as she stands up, she points to the door. "Now go slave."'
	'You stand up and get dressed again. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation'
	gs 'pain', 3, 'asscheeks', 'spank'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_7':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 8
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom8.jpg"></center>'
	'She goes over and sits on the couch. "Come over here." You walk over next to her. "Strip!" she commands you.'
	'You nod a bit. "Yes mistress." Then your remove your clothes and strip down.'
	'Once you naked she points to the floor right in front of her. "Get on your hands and knees."'
	*nl
	'You do as she commands, once in place she puts her feet up on your back. Then she leans back and start texting on her phone. Occasionally she laughs or makes comments about whoever she is texting but she never speaks to you.'
	'Once a hour or so has passed she removes her feet from your back and then points to the door. "Now go slave."'
	'You stand up and get dressed. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 60, 'sub', 'humiliation', 'inhibition'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_8':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 9
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom9.jpg"></center>'
	'She goes over and sits on the couch. "Come over here and strip." You walk over and strip naked while standing next to her. Once you are fully naked she says. "Now lick my shoes clean."'
	'You kneel down. "Yes mistress." Then you start licking her shoes and feet clean, once you finish one you start on the other. A few times she smacks you on top of the head and points out a spot you missed, that you have to go back over.'
	'Once you have finally finished cleaning her shoes and feet, she looks them over one last time and then points to the door. "Now go slave."'
	'You stand up. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'feet', 'inhibition'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_9':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 10
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom10.jpg"></center>'
	'Once inside she leads you over to her bed, then she turns toward you and says. "Strip!"'
	'As you strip you reply. "Yes mistress." She opens the night stand and pulls out a collar. Once you are fully naked she tightly buckles it around your neck, making it a little hard for you to breath and swallow. With that firmly in place she gets out a leash and attaches it to the collar. She pushes you down as she says. "Get down, like a good slave." You get down on your hands and knees.'
	*nl
	'Then she leads you around the dorm room for a bit, before she gets out the bowl and fills it with water. She places it down in front of you as she sits on the couch and starts texting on her phone. "Drink!" You start lapping up the water as best you can, once you are finished you just sit there quietly until she notices you again.'
	'After a bit she finally points to the door. "Now go slave, but put your collar and leash away first."'
	'You stand up taking off the collar and leash, you walk over and put them back in the draw she got them from. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'inhibition'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_10':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 11
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom11.jpg"></center>'
	'She goes over and sits down on the couch. "Come over here slave." You walk over and stand next to her. "Now strip!"'
	'As you strip you reply. "Yes mistress." Once you are naked she pulls you over her laps and starts spanking your bare ass with her hand.'
	'"You are such a worthless and bad slave." She says as she keeps spanking you.'
	*nl
	'You grit your teeth against the pain. "I''m sorry mistress." You don''t even know what you did to upset her, she isn''t telling you and you know it would only make matters worse if you asked.'
	'After some time it really starts to sting, you don''t know how long she has spanked you, long enough she seems to be getting tired.'
	'Finally she pushes you off her lap into the floor, as she stands up, she points to the door. "Now go slave."'
	'You stand up and get dressed again. "Yes mistress." Then you walk to the door and leave.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'inhibition'
	gs 'pain', 2, 'asscheeks', 'spank'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'kendra_room_11':
	menu_off = 1
	$location_type = 'event'
	*clr & cla
	kendra_dom = 12
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/kendra/femdom/femdom12.jpg"></center>'
	'As you enter you notice another African girl sitting on the couch as well. You assume another student and a friend of Kendra''s. Kendra goes over and sits down on the coffee table. "Come over here slave." You walk over and stand next to her. "Now strip!"'
	'You glance at the other girl and then you strip, as you reply. "Yes mistress."'
	'The other girl laughs. "I can''t believe you get these white bitches to do this shit.'
	'Once you are naked she pulls you over her laps and starts spanking your bare ass with a paddle. "I just train them to accept their natural place, deep down they all know where their place is and they crave us to put them their." Then she turns her face to you. "Don''t you slave."'
	*nl
	'You nod. "Yes mistress, I do." They both laugh at your response.'
	'She paddles you even harder now. You grit your teeth against the pain. "You should have seen what I did to that boy from biology."'
	'"Which one?" Her friend asks.'
	'"You know the one that was so confident, always hitting on us. Expecting us to to just fall to our knees and suck his dick the first day in class." She replies to her friend.'
	'"Oh ... him... yeah I remember him. What did you do to him?" Her friend asks.'
	*nl
	'Kendra laughs as she keeps paddling you, they almost seem to have forgotten you was here. "I fucked him with a strapon until I had an orgasm."'
	'"OH MY GOD! You did not." Her friend says in shock.'
	'"Oh I did, here look." She stops paddling you a moment to pull out her phone to show here friend. You can''t see what is on it but you can hear some grunting noise coming from the phone. They both start laughing.'
	*nl
	'"I can''t believe you got him to do that, next time you do that, call me. I want to fuck him." Soon they are talking about things they would like to do to this mysterious guy, while Kendra paddles you. After some time it really starts to sting, you don''t know how long she has spanked you, long enough she seems to be getting tired.'
	'Finally she pushes you off her lap into the floor, as she stands up, she points to the door. "Now go slave."'
	'You stand up and get dressed again. "Yes mistress." As you walk to the door, the two of them are still talking about the guy.'
	gs 'arousal', 'foreplay', 30, 'sub', 'humiliation', 'inhibition', 'group'
	gs 'pain', 3, 'asscheeks', 'spank'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go to eighth floor': gt 'dorm', 'eighth_floor'
end

if $ARGS[0] = 'gosha_room':
	menu_off = 1
	$location_type = 'event'
	reccoldorm = 0
	goshiflag = 0
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/gosharoom/gosha_room.jpg"></center>'
	'His room has two desks against the back well and two beds on either side of the room with a small path between them. Near the door is a small couch with a tv aginst the opposite wall.'
	'As soon as you sit down on the couch, he sits next to you and begins fondling your breasts and slowly undressing you.'
	gs 'arousal', 'foreplay', 3
	gs 'stat'
	act 'Stop him':
		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/gosharoom/gosha_room.jpg"></center>'
		'You push his hands away. "Stop I didn''t come for that."'
		'He stops and gives you a confused look. "Then why did you come?"'
		'You sigh a little. "I thought we could talk." Seeing his reaction you add. "Or maybe go for a walk instead?"'
		'He thinks on that a moment and then shurgs. "Sure ok, lets go for a walk."'
		act 'Go for a walk':
			*clr & cla
			gosh += 1
			minut += 60
			gs 'stat'
			'You go for a walk with Gosha. You have a great time, he''s a great conversationalist. You spend a hour walking around the campus with him pointing out different buildings and even introducing you to some of the other students. Before long he guides you back to the dorms. "Well I got some studying I need to do, I hope you decided to come by some other day and we can spend time together again." With that he walks into the building and you leave the university grounds.'
			act 'Leave':gt 'city_island'
		end
	end
	act 'Let him': gt 'dormev1', 'gosha_sex'
end

if $ARGS[0] = 'mens_restroom':
	$location_type = 'public_indoors'
	*clr & cla
	$menu_loc = 'dorm'
	$menu_arg = 'mens_restroom'
	$locM = 'dorm'
	$locM_arg = 'mens_restroom'
	menu_off = 0
	gs 'stat'
	'<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. Inside this room, stalls line the right side, with urinals on the far wall and rows of sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a> to the left. The room has a smell of disinfectant and stale piss.'
	act 'Leave': gt 'dorm', 'tenth_floor'
	
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
end

if $ARGS[0] = 'womens_restroom':
	$location_type = 'public_indoors'
	*clr & cla
	$menu_loc = 'dorm'
	$menu_arg = 'womens_restroom'
	$locM = 'dorm'
	$locM_arg = 'womens_restroom'
	menu_off = 0
	gs 'stat'
	'<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. Inside this room, stalls line the right side and rows of sinks, with <a href="exec:gt ''mirror'', ''start''">mirrors</a> to the left. The room has a smell of disinfectant.'
	act 'Leave': gt 'dorm', 'tenth_floor'
	
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
end


if $ARGS[0] = 'dorm_room':
	$sexloc = 'dorm'
	CLOSE ALL
	$loc_arg = 'dorm_room'
	$loc = 'dorm'
	$locM_arg = 'dorm_room'
	$locM = 'dorm'
    $location_type = 'private'
	$menu_loc = 'dorm'
	$menu_arg = 'dorm_room'
	menu_off = 0
	cla
	*clr
	odkomp = 1
	gs 'stat'
	'<center><b>Your room</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/obroom.jpg"></center>'
	'This is your room which you share with another girl named Vika Kirilova.'
	'At the right of the entrance, you find an old <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing).'
	'There''s a <a href="exec:gt ''mirror'',''start''">mirror</a> hanging on the wall.'
	'Your <a href="exec:gt ''bed'',''start''">bed</a> is positioned in one of the corners of the room.'
	if komp = 1:'There''s a <a href="exec:gt ''Komp'',''start''">laptop</a> lying on your bed.'
	*nl
	gs 'wardrobe', 'quickdress'
	gs 'exercise', 'start'
	if hour > 14 and hour < func('bordel', 'open_hour'):
		vika_sleep = 0
		if npc_rel['A220'] >= 60 and birthday = day and birthmonth = month and vikaslut = 1 and b_vika_present_Day ! daystart:
			'<a href="exec:gt''Vika''">Vika</a> seems excited when she notices you, trying to hide a box behind her back.'
		else
			'<a href="exec:gt''Vika''">Vika</a> is lying on her bed.'
		end
	elseif hour > func('bordel', 'close_hour') and hour < 8:
		vika_sleep = 1
		if vikaslut = 0:
			'<a href="exec:gt''Vika''">Vika</a> is sleeping in her bed after being out the whole night.'
		elseif vikaslut = 1:
			'<a href="exec:gt''Vika''">Vika</a> is sleeping in her bed after working hard in the brothel all night.'
		end
	end

	act 'Walk out in the corridor':
		if $clothingworntype ! 'nude':
			odkomp = 0
			minut += 5
			gt 'dorm', 'tenth_floor'
		else
			'You need to get dressed.'
		end
	end

	act 'Read the course literature (2:00)':
		cla
		menu_off = 1
		minut += 120
		intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
		gs 'stat'
		'You spend two hours reading the course literature. You feel like you''ve picked up some stuff from the book that will come in handy in time for the examination.'

		act 'Finish':gt 'dorm', 'dorm_room'
	end

	gs 'unicoursework', 'start', $loc, $loc_arg

dynamic $wearpan
dynamic $removepan
end

if $args[0] = 'dorm_kitchen':
	$loc_arg = 'dorm_kitchen'
	$loc = 'dorm'
    $location_type = 'private'
	$locclass = 'kitr'
	$menu_loc = 'dorm'
	$menu_arg = 'dorm_kitchen'
	menu_off = 0
	gs 'stat'
	'<center><b>in the dorm kitchen</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/obkitchen.jpg"></center>'
	'This is this floors large shared kitchen, it is fairly tidy. There is a lot of cabnits along two walls, two ovens and two refrigerators as well. There is several tables with chairs around them scattered around the room.'
	act 'Return to the corridor':gt 'dorm', 'tenth_floor'

	if eda > 0:
		'Your shelf in the refrigerator holds <b><<eda>></b> servings of food.'
		if edahot = 0:
			act 'Cook food (0:25)':
				cla
				*clr
				menu_off = 1
				minut += 25
				edahot += 1
				eda -= 1
				pcs_mood -= 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
				'You prepare a meal.'
!!can this code be checked as I combined this from another file to this one and I think I got most of the code correct for the kitched and dorm room above but please check to be sure
				gs 'obkitchen', 'food'
			end
		end
	end

	if edaD = 0 and eda = 0:'<b><font color = red>Your shelf in the refrigerator is bare, there is nothing left for you to eat.</font></b>'


	if edahot > 0:
		'A cooked meal is on the table.'
		gs 'obkitchen', 'food'
	end

	if pranik > 0:
		if pranik = 1:
			'You only have one more portion of tea biscuits.'
		else
			'You have enough tea biscuits for <b><<pranik>></b> more snacks.'
		end
		dynamic $pranik
	end

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

if $args[0] = 'food':
	act 'Eat cooked food':
		edahot = 0
		gt 'food', 'm_meal'
	end
end

--- dorm ---------------------------------