glife-shopfix/locations/dorm

# dorm
if $ARGS[0] = 'start':
	cla
	*clr
	minut += 5
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Dormitory</font></b></center>'
	'<center><img src="images/locations/city/island/university/dorm/dorm.jpg"></center>'


	if student =0:
		'Since you are not a student you are not allowed to go in unless you''re visiting someone you know.'

		act 'Leave':gt 'down'

		if afra > 0 and hour < 22 and hour >= 7:
			act 'I''m here to see DeMarcus':
				cla
				'You said that you are here to see DeMarcus. The janitor chuckled, "Whore, sleeping with niggers, go jump on his black cock."'
				reccoldorm = 1
				demarcusflag = 1

				act 'Enter':gt 'dorm', 'korr'
			end
		end

		if gosh > 0 and hour >= 8 and hour < 22:
			act 'I''m here to see Gosha':
				cla
				'You said that you are here to see Gosha. The janitor chuckled, "Gosha''s new bitch? What you sluts see in that scrawny bastard, I''ll never understand. Fucked half the dorm already. Heh, go to your stud, bitch."'
				reccoldorm = 1
				goshiflag = 1

				act 'Enter':gt 'dorm', 'korr'
			end
		end
		
		if afra > 20 and afragang = 1 and kendra > 0 and hour >= 8 and hour < 22:
			act 'I''m here to see Kendra':
				cla
				'You said that you are here to see Kendra. The janitor chuckled, "Go on, have fun!"'
				reccoldorm = 1
				kendraflag = 1

				act 'Enter':gt 'dorm', 'korr'			
			end
		end
		
		if afra > 10 and afragang = 1 and hour >= 8 and hour < 22:
			act 'I''m here to see the african students':
				cla
				'You said that you are here to see the african students. The janitor chuckled, "Whore, sleeping with niggers, go jump on their black cocks."'
				reccoldorm = 1
				afraflag = 1

				act 'Enter':gt 'dorm', 'korr'	
			end
		end
	else
		act 'Enter':
			cla
			minut += 5
			reccoldorm = 1
			gt 'dorm', 'korr'
		end
	end

	act 'Leave':
		cla
		minut += 5
		reccoldorm = 0
		gt 'down'
	end
end

if $ARGS[0] = 'korr':
	$metkaM = 'korr'
	$locM = 'dorm'
    $location_type = 'public_indoors'
	cla
	clr
	*clr
	gs 'stat'
	'<center><img src="images/locations/city/island/university/dorm/obkorr.jpg"></center>'
	'Before you is a usual hostel hallway with dilapidated walls, out of some rooms music and the yelling of drunken students is heard.'

	act 'Leave':
		cla
		minut += 5
		reccoldorm = 0
		gt 'down'
	end

	if student > 0:
		act 'Your room':gt 'obroom', 'start'

		act 'Go to the shared kitchen':
			minut += 5
			gt 'obkitchen'
		end

		act 'Go to the shared bathroom':
			minut += 5
			obdysh = 1
			gt 'vann', 'start'
		end

		if week = 5 and hour > 18 and hour < 23:
			'In the corridor rumbles music it seems the Friday party is in full swing.'

			act 'The party':gt 'vecher', 'start'
		end
	end
	
	if afra > 0 and hour < 22 and hour >= 7:
		act 'DeMarcus'' room':
			cla
			afrand = rand(1, 2)

			if afrand = 1:
				minut += 5
				gs 'stat'
				'You knocked on the door, but he is not there.'

				act 'Leave':gt 'dorm', 'korr'
			elseif afrand = 2:
				gt 'dorm', 'demarcusfuck'
			end
		end
	end

	if afra > 10 and hour >= 8 and hour < 22:
		act 'African students'' room':
			cls
			minut += 5
			gs 'stat'
			afrand = rand(1, 2)

			if afrand = 1:
				'You knocked on the door, but there was no answer.'
				act 'Leave':minut += 5 & gt 'dorm', 'korr'
			elseif afrand = 2:
				minut += 120
				if afragang = 0:afragang = 1 & guy += 6
				gt 'dorm', 'afragangfuck'
			end
		end
	end

	if afra > 20 and afragang = 1 and hour >= 8 and hour < 22:
		act 'Kendra''s room':
			cls
			gt 'dorm', 'kendrafuck'
			minut += 15
			gs 'stat'
		end
	end

	if gosh > 0 and hour >= 8 and hour < 22:
		act 'Gosha''s room':
			cla
			minut += 15
			gs 'stat'
			'Gosha opens the door and invites you inside'

			act 'Walk into Gosha''s Room':
				cla
				gt 'dorm', 'goshifuck'
			end

			act 'Go for a walk with Gosha':
				cla
				gosh += 1
				minut += 120
				gs 'stat'
				'You walk with Gosha, it is very interesting.  He is a great conversationalist and gallant.'

				act 'Leave':gt 'dorm', 'korr'
			end
		end
	end
	
	if reccoldorm = 1:
		if demarcusflag = 1:demarcusflag = 0 & gt 'dorm', 'demarcusfuck'
		if goshiflag = 1:goshiflag = 0 & gt 'dorm', 'goshifuck'
		if afraflag = 1:afraflag = 0 & gt 'dorm', 'afragangfuck'
		if kendraflag = 1:kendraflag = 0 & gt 'dorm', 'kendrafuck'
	end
end

if $ARGS[0] = 'demarcusfuck':
	cla
    $location_type = 'event'
	reccoldorm = 0
	demarcusflag = 0
	gs 'boyStat', 82
	*clr
	'You knocked on the door. After a couple of seconds the door opened and you see a large African. He smiled when he saw your snow-white smile and invited you to his room. There he quickly cleared a quite luxurious table for a student and invited you to sit at the table.'
	if afra < 17:
		afrand1 = rand(1,afra)
	else
		afrand1 = rand(1,17)
	end
	gs 'stat'
	act 'Drink with DeMarcus':
		cla
		cls
		minut += 120
		'You drank wine with DeMarcus and he began to grope your the chest. Then he raised your T-shirt and began to suck your nipples and play with your breasts, you become very wet.'
		if demarkus = 0:guy += 1 & demarkus = 1
		sexpartkno = 1
		if afrand1 = 1:
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra.jpg"></center>'
			'DeMarcus lays you on the bed, and pulls out his huge black cock. Spreading your legs apart he enters your pussy.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out on your stomach.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 2:
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra1.jpg"></center>'
			'DeMarcus lays you on the floor, and pulls out his huge black cock. Spreading your legs apart he enters your pussy.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out on your stomach.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 3:
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra2.jpg"></center>'
			'DeMarcus pushes you to all fours on the bed, he pulled out his huge black cock and spreads apart your ass cheeks before pushing his thick cock into your pussy.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out on your ass.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 4:
			spafinloc = 3
			gs 'cum_manage'
			afra += 1
			pcs_ass += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra4.jpg"></center>'
			'DeMarcus pushes you to all fours on the bed, he pulled out his huge black cock and spreads apart your ass cheeks before pushing his thick cock into your asshole.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out on your ass.'
			$orgasm_or = 'yes'
			gs 'arousal', 'anal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 5:
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra24.jpg"></center>'
			'DeMarcus pushes you to all fours on the bed, he pulled out his huge black cock and salms into your pussy stretching it to the limit.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out on your ass.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 6:
			spafinloc = 3
			gs 'cum_manage'
			afra += 1
			pcs_ass += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra16.jpg"></center>'
			'DeMarcus pushes you face down on the bed and pulled out his huge black cock. Spreading your legs apart he enters your asshole.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out.'
			$orgasm_or = 'yes'
			gs 'arousal', 'anal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 7:
			spafinloc = 3
			gs 'cum_manage'
			afra += 1
			pcs_ass += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra13.jpg"></center>'
			'DeMarcus lays on he bed and easily picks you up and you pushes your asshole down on his huge black cock.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out.'
			$orgasm_or = 'yes'
			gs 'arousal', 'anal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 8:
			spafinloc = 3
			gs 'cum_manage'
			afra += 1
			pcs_ass += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra20.jpg"></center>'
			'DeMarcus lays on the bed, you stradle him and force your asshole down on his huge black cock.'
			'You ride his thick cock until you orgasm a few times on his cock. He cums inside you and passes out.'
			$orgasm_or = 'yes'
			gs 'arousal', 'anal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 9:
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra11.jpg"></center>'
			'DeMarcus lays on he bed and easily picks you up and you pushes your pussy down on his huge black cock.'
			'DeMarcus brutally pounds you with his huge tool, you orgasm a few times on his cock. He cums inside you and passes out.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		elseif afrand1 = 10 or afrand1 = 11:
			afrand2 = rand(1,9)
			if afrand2 = 1:'<center><img src="images/characters/city/university/boy/djibril/sex/afra3.jpg"></center>'
			if afrand2 = 2:'<center><img src="images/characters/city/university/boy/djibril/sex/afra18.jpg"></center>'
			if afrand2 = 3:'<center><img src="images/characters/city/university/boy/djibril/sex/afra23.jpg"></center>'
			if afrand2 = 4:'<center><img src="images/characters/city/university/boy/djibril/sex/afra31.jpg"></center>'
			if afrand2 = 5:'<center><img src="images/characters/city/university/boy/djibril/sex/afra33.jpg"></center>'
			if afrand2 = 6:'<center><img src="images/characters/city/university/boy/djibril/sex/afra35.jpg"></center>'
			if afrand2 = 7:'<center><img src="images/characters/city/university/boy/djibril/sex/afra37.jpg"></center>'
			if afrand2 = 8:'<center><img src="images/characters/city/university/boy/djibril/sex/afra38.jpg"></center>'
			if afrand2 = 9:'<center><img src="images/characters/city/university/boy/djibril/sex/afra40.jpg"></center>'
			pcs_throat += 1
			spafinloc = 11
			gs 'cum_manage'
			afra += 1
			VAF += 1
			'DeMarcus pushes you to your knees and pushes your mouth down his huge black cock.'
			'While DeMarcus fucked your mouth with his black cock, and you carefully massaged and fingered your pussy. When DeMarcus took out cock and began to cum on your face, you orgasmed.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'bj', 20
			gs 'arousal', 'end'
			minut -= 20
			gs 'stat'
		elseif afrand1 = 12 or afrand1 = 13:
			afrand2 = rand(0,6)
			if afrand2 = 0:'<center><img src="images/characters/city/university/boy/djibril/sex/afra10.jpg"></center>'
			if afrand2 = 1:'<center><img src="images/characters/city/university/boy/djibril/sex/afra14.jpg"></center>'
			if afrand2 = 2:'<center><img src="images/characters/city/university/boy/djibril/sex/afra32.jpg"></center>'
			if afrand2 = 3:'<center><img src="images/characters/city/university/boy/djibril/sex/afra34.jpg"></center>'
			if afrand2 = 4:'<center><img src="images/characters/city/university/boy/djibril/sex/afra36.jpg"></center>'
			if afrand2 = 5:'<center><img src="images/characters/city/university/boy/djibril/sex/afra39.jpg"></center>'
			if afrand2 = 6:'<center><img src="images/characters/city/university/boy/djibril/sex/afra41.jpg"></center>'
			pcs_throat += 1
			spafinloc = 11
			gs 'cum_manage'
			afra += 1
			VAF += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra10.jpg"></center>'
			'DeMarcus pushes you to your knees and you wrap your lips around his huge black cock.'
			'While DeMarcus fucked your mouth with his black cock, and you carefully massaged and fingered your pussy. When DeMarcus took out cock and began to cum on your face, you orgasmed.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'bj', 20
			gs 'arousal', 'end'
			minut -= 20
			gs 'stat'
		else
			spafinloc = 1
			gs 'cum_manage'
			afra += 1
			pcs_vag += 1
			'<center><img src="images/characters/city/university/boy/djibril/sex/afra42.jpg"></center>'
			'DeMarcus lays you on the bed, and pulls out his huge black cock. Spreading your legs apart he slams ino your pussy.'
			'While DeMarcus brutal pounds you with his member, you orgasm a few times on his dick. Then he pulls out and cums on you abused pussy.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal', 20, 'rough'
			gs 'arousal', 'end'
			gs 'stat'
		end
		gs 'stat'
		act 'Leave':gt 'dorm', 'korr'
	end
end

if $ARGS[0] = 'afragangfuck':
    $location_type = 'event'
	reccoldorm = 0
	afraflag = 0
	hour += 2
	'You knocked on door and are greeted by a black giant. He grabs you by the arm and drags you into the room in which you see five Africans. They surrounded you and start to grab for your breasts and ass. The only words you understand are Cumdump, whore, white trash, bimbo slut.'
	afrand = rand(1, afra)

	if afrand = 1:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra5.jpg"></center>'
	elseif afrand = 2:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra6.jpg"></center>'
	elseif afrand = 3:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra7.jpg"></center>'
	elseif afrand = 4:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra8.jpg"></center>'
	elseif afrand = 5:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra9.jpg"></center>'
	elseif afrand = 6:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra12.jpg"></center>'
	elseif afrand = 7:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra17.jpg"></center>'
	elseif afrand = 8:
	'<center><img src="images/characters/city/university/boy/djibril/sex/afra19.jpg"></center>'
	elseif afrand = 9:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra21.jpg"></center>'
	elseif afrand = 10:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra22.jpg"></center>'
	elseif afrand = 11:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra25.jpg"></center>'
	elseif afrand = 12:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra26.jpg"></center>'
	elseif afrand >= 13:
		'<center><img src="images/characters/city/university/boy/djibril/sex/afra27.jpg"></center>'
	end

	gs 'stat'
	afraboy = 6
	:afraboys
	gs 'npcgeneratec', 0, 'african student', rand(18,22)
	gs 'npcgenext', 'dick', 3
	$npc_thdick[$npclastgenerated] = $npctempgn[4]
	npc_dick[$npclastgenerated] = npctempgn[5]
	npc_Malen[$npclastgenerated] = rand(10,15)
	gs 'boyStat', $npclastgenerated
		fucloc = rand(0,2)
		if fucloc = 0:
			sexpartkno = 1
			cumprecheck = 1
			gs 'arousal', 'vaginal', 20
			gs 'stat'
			gs 'cum_manage'
		elseif fucloc = 1:
			gs 'arousal', 'anal', 20
			gs 'stat'
		else
			gs 'arousal', 'bj', 20
			gs 'stat'
			end
		!random finishes, 17 and 18 default to spafinloc = 0
		fucloc = rand(0,18)
		if fucloc < 3:
			spafinloc = 1
		elseif fucloc < 6:
			spafinloc = 3
		elseif fucloc < 8:
			spafinloc = 4
		elseif fucloc < 10:
			spafinloc = 12
		elseif fucloc < 12:
			spafinloc = 11
		elseif fucloc = 12:
			spafinloc = 8
		elseif fucloc = 13:
			spafinloc = 13
		elseif fucloc = 14:
			spafinloc = 14
		elseif fucloc = 15:
			spafinloc = 15
		elseif fucloc = 16:
			spafinloc = 16
		end
		gs 'cum_manage'
		afraboy -= 1
	if afraboy > 0: jump 'afraboys'
	gang += 1
	afra += 1
	
	'The Africans have stripped and started to play with your body like a toy, giving you all sorts of poses and fucking you in all your holes in turns.'
	'While they fucked you in all your holes you orgasmed a few times and African cum covers almost your entire body.'
	$orgasm_or = 'yes'
	gs 'arousal', 'vaginal', 20
	gs 'arousal', 'anal', 20
	gs 'arousal', 'bj', 20
	gs 'arousal', 'hj', 20
	gs 'arousal', 'end'
	minut -= 20
	gs 'stat'
	act 'Leave':gt 'dorm', 'korr'
end

if $ARGS[0] = 'kendrafuck':
    $location_type = 'event'
	reccoldorm = 0
	kendraflag = 0
	gs 'stat'
	if kendra = 5:
		'Kendra comes out of the room and invited you in, she is not thinking long undressed and offers her pussy for you to service.'

		act 'Unclothed':
			cla
			lesb += 1
			gs 'stat'
			'Kendra slides on the strapon and fucks you hard.'
			picrand = rand(1, 5)
			'<center><img src="images/characters/city/university/girl/kendra/sex/kendrastrap<<picrand>>.jpg"></center>'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal_strap', 20, 'sub'
			gs 'stat'
			act 'Leave':gt 'dorm', 'korr'
		end
	elseif kendra =4:
		'The lovely African Kendra comes out of her room, and suggests you get another tattoo, after which she will allow you to lick her.'
		act 'Leave':gt 'dorm', 'korr'

		act 'Get a tattoo':
			cla
			minut += 60
			kendra = 5
			tat = 5
			gs 'stat'

			if tatlip = 1 or tatlip = 3:
				'"Agaa. So you already have it? Well done, good bitch. Now get to work!"'
			else

				if rand(1, 2) = 1:
					tatlip = 1
					'<center><img src="images/pc/body/tattoos/lip/tatlip1.jpg"></center>'
				else
					tatlip = 3
					'<center><img src="images/pc/body/tattoos/lip/tatlip3.jpg"></center>'
				end

				if tatlip > 1 and tatlip ! 3:
					'Kendra sees that you already have a tattoo on your lip. "Nothing, it''s a quick fix." - she says, and tattoos your lip with the tattoo for a cocksucker. She does it so masterfully that the old tattoo is not noticeable.'
				else
					tattCount += 1
					'Kendra fills you on the lip of the tattoo of a cocksucker.'
				end
			end

			act 'Give yourself to Kendra':
				cla
				lesb += 1
				'<center><img src="images/characters/city/university/girl/kendra/sex/kendrastrap1.jpg"></center>'
				'Kendra undresses and puts you on all fours, she slides on a strapon and pushes it in your pussy.'
				$orgasm_or = 'yes'
				gs 'arousal', 'vaginal_strap', 20, 'sub'
				gs 'stat'
				act 'Leave':gt 'dorm', 'korr'
			end
		end
	elseif kendra =3:
		'The lovely African Kendra comes out of her room, and suggests you get another tattoo, after which she will allow you to lick her.'

		act 'Leave':gt 'dorm', 'korr'

		act 'Get a tattoo':
			cla
			minut += 60
			kendra = 4
			tat = 4
			gs 'stat'

			if tatvag = 3 or tatvag = 18:
				'<center><img src="images/pc/body/tattoos/pubic/tatvag3.jpg"></center>'
				'Kendra says that you already have such a stigma, a predatory smile and savory otveschshivaem you slap on the vagina.'
			else

				if rand(1, 2) = 1:
					tatvag = 3
					'<center><img src="images/pc/body/tattoos/pubic/tatvag3.jpg"></center>'
				else
					tatvag = 18
					'<center><img src="images/pc/body/tattoos/pubic/tatvag18.jpg"></center>'
				end

				if tatvag ! 18 and tatvag ! 3:
					'Kendra sees that you already have a tattoo above your pussy. "Nothing, it''s a quick fix." - she says, and tattoos you above the pussy with the whore for blacks tattoo over the old one. She does it so masterfully that old tattoo is not noticeable.'
				else
					tattCount += 1
					'Kendra tattoos you above the pussy with the whore for blacks tattoo.'
				end
			end

			act 'Lick Kendra':
				cla
				*clr
				lesb += 1
				'<center><img src="images/characters/city/university/girl/kendra/sex/kendra3.jpg"></center>'
				'Kendra undresses and pushes your face to start licking her pussy. You skillfully run your tongue in her juicy pussy and Kendra orgasms violently.'
				gs 'arousal', 'cuni_give', 20, 'sub'
				gs 'stat'
				act 'Leave':gt 'dorm', 'korr'
			end
		end
	elseif kendra = 2:
		'The lovely African Kendra comes out of her room, and suggests you get another tattoo, after which she will allow you to lick her.'

		act 'Leave':gt 'dorm', 'korr'

		act 'Get a tattoo':
			cla
			minut += 60
			kendra = 3
			tat = 3
			gs 'stat'

			if tatplech = 4:
				'<center><img src="images/pc/body/tattoos/shoulder/tatshldr4.jpg"></center>'
				'Kendra sees your tattoo on the shoulder showing you are a whore for blacks, grins and goes to bed'
			elseif tatplech = 0:
				tatplech = 4
				tattCount += 1
				'<center><img src="images/pc/body/tattoos/shoulder/tatshldr4.jpg"></center>'
				'Kendra tattoos your shoulder with the symbol of a whore for blacks.'
			elseif tatplech > 0 and tatplech ! 4:
				tatplech = 4
				'<center><img src="images/pc/body/tattoos/shoulder/tatshldr4.jpg"></center>'
				'Kendra sees that you already have a tattoo on his shoulder. "Nothing, it''s a quick fix." - she says, tattoos your shoulder with the symbol of a whore for blacks over the old tattoo. She does it so masterfully that old tattoo is not noticeable.'
			end

			act 'Lick Kendra':
				cls
				lesb += 1
				'<center><img src="images/characters/city/university/girl/kendra/sex/kendra2.jpg"></center>'
				'Kendra undresses and pushes your face to start licking her pussy. You skillfully run your tongue in her juicy pussy and Kendra orgasms violently'
				gs 'arousal', 'cuni_give', 20, 'sub'
				gs 'stat'
				act 'Leave':gt 'dorm', 'korr'
			end
		end
	elseif kendra = 1:
		'The lovely African Kendra comes out of her room, and suggests you get another tattoo, after which she will allow you to lick her.'

		act 'Leave':gt 'dorm', 'korr'

		act 'Get a tattoo':
			cls
			minut += 60
			kendra = 2
			tat = 2
			gs 'stat'

			if tatankle = 1 or tatankle = 2:
				'<center><img src="images/pc/body/tattoos/foot/tatankle2.jpg"></center>'
				'Oh, what an independent girl, you''ve already got one. Now you can do what you came for.'
			elseif tatankle = 0:
				tatankle = 2
				tattCount += 1
				'<center><img src="images/pc/body/tattoos/foot/tatankle2.jpg"></center>'
				'Kendra tattoos your ankle with the symbol of a whore for blacks.'
			elseif tatankle > 2:
				tatankle = 2
				'<center><img src="images/pc/body/tattoos/foot/tatankle2.jpg"></center>'
				'Kendra sees that you already have a tattoo on your ankle. "Nothing I can''t fix." She says, before tattooing your ankle with the symbol of a whore for blacks over the old tattoo. She does it so masterfully that the old tattoo is not noticeable.'
			end

			act 'Lick Kendra':
				cls
				repa = 9
				lesb += 1

				if kendrasex = 0:kendrasex = 1 & girl = girl + 1

				pcs_horny += 20
				'<center><img src="images/characters/city/university/girl/kendra/sex/kendra.jpg"></center>'
				'Kendra undresses and pushes your face to start licking her pussy. You skillfully run your tongue in her juicy pussy and Kendra orgasms violently'
				gs 'arousal', 'cuni_give', 20, 'sub'
				gs 'stat'
				act 'Leave':gt 'dorm', 'korr'
			end
		end
	elseif kendra = 0:
		'A pretty African comes out of the room, she introduces herself as Kendra and says that he knows you are a Bitch for Africans. She invites you to get a proper tattoo, after which whe will allow you to lick her.'

		act 'Leave':gt 'dorm', 'korr'

		act 'Get a tattoo':
			cla
			minut += 60
			kendra = 1
			tat = 1
			gs 'stat'

			if tatupb = 4 or tatupb = 29:
				'<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck<<tatupb>>.jpg"></center>'
				'Oh, so you already have the slut as a tramp stamp? No need to waste time here! Come on, eat my pussy, whore.'
			elseif tatupb = 0:
				tatupb = 4
				tattCount += 1
				'<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck4.jpg"></center>'
				'Kendra tattoos a tramp stamp with the word "Slut."'
			elseif tatupb > 0 and tatupb ! 4:
				tatupb = 4
				'<center><img src="images/pc/body/tattoos/trampStamp/tatlowbck4.jpg"></center>'
				'Kendra sees that you already have a tramp stamp. "Nothing I can''t fix." She says, before tattooing a tramp stamp with the word "Slut" over the old tattoo. She does it so masterfully that the old tattoo is not noticeable.'
			end

			act 'Lick at Kendra':
				cla
				*clr

				if kendrasex = 0:kendrasex = 1 & girl += 1

				lesb += 1
				'<center><img src="images/characters/city/university/boy/djibril/sex/afra30.jpg"></center>'
				'Kendra undresses and pushes your face to start licking her pussy. You skillfully run your tongue in her juicy pussy and Kendra orgasms violently'
				gs 'arousal', 'cuni_give', 20, 'sub'
				gs 'stat'
				act 'Leave':gt 'dorm', 'korr'
			end
		end
	end
end

if $ARGS[0] = 'goshifuck':
    $location_type = 'event'
	reccoldorm = 0
	goshiflag = 0
	gs 'boyStat', 83
	minut += 60
	sexpartkno = 1
	if goshsex = 0:goshsex = 1 & guy += 1

	'As soon as you walk into Gosha''s room he begins fondling your breasts, and slowly undressing you.'
	gs 'arousal', 'foreplay', 10
	gs 'stat'
	srand = rand(1, 3)

	if srand = 1:
		gs 'cum_manage'
		picrand = rand(1, 5)

		if picrand = 1:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh2.jpg"></center>'
		if picrand = 2:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh11.jpg"></center>'
		if picrand = 3:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh13.jpg"></center>'
		if picrand = 4:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh14.jpg"></center>'
		if picrand = 5:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh15.jpg"></center>'

		'Gosha slides his cock into your pussy while he fucked you, you orgasm and then he cums inside you.'
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 20
		gs 'arousal', 'end'
		gs 'stat'
	elseif srand = 2:
		spafinloc = 12
		gs 'cum_manage'
		picrand = rand(1, 5)

		if picrand = 1:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh.jpg"></center>'
		if picrand = 2:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh3.jpg"></center>'
		if picrand = 3:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh4.jpg"></center>'
		if picrand = 4:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh5.jpg"></center>'
		if picrand = 5:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh7.jpg"></center>'

		'Gosha pushes you to your knees and fucks you in the mouth, then he pulls out and cums on your face.'
		gs 'arousal', 'bj', 20
		gs 'arousal', 'end'
		gs 'stat'
	elseif srand = 3:
		anal += 1
		spafinloc = 3
		gs 'cum_manage'
		picrand = rand(1, 5)

		if picrand = 1:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh6.jpg"></center>'
		if picrand = 2:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh8.jpg"></center>'
		if picrand = 3:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh9.jpg"></center>'
		if picrand = 4:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh10.jpg"></center>'
		if picrand = 5:'<center><img src="images/characters/city/university/boy/gosha/sex/gosh12.jpg"></center>'

		'Gosha lubricates your asshole and starts flexing his fingers, then he pushes his dick in your ass. He fucks you and cums inside you.'
		$orgasm_or = 'yes'
		gs 'arousal', 'anal_finger', 20
		gs 'arousal', 'anal', 20
		gs 'arousal', 'end'
		minut -= 20
		gs 'stat'
	end
	gs 'stat'
	act 'Leave':gt 'dorm', 'korr'
end

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