glife/locations/sbReksHome

# sbReksHome
CLOSE ALL
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'event'
gs'dinParty'

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
if (indorf = 0) and ((sisboyparty_day + 2 = daystart) or (hour > 21)):
	$ARGS[0] = ''
	cls
	'<center><b><font color = maroon>Rex''s Apartment</font></b></center>'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_' + rand(1,5) + '.jpg"></center>'
	*nl 'Drunk and disheveled, Anya bursts into the room. You noticed that her hair, and all over her clothes she is smeared in sticky sperm. Anya stopped you and said:' 
	'"We should move our asses and go home <<$pcs_nickname>>, or mommy will kill us both, if you don''t come home tonight."'
	if Rex_save =1 and Rex_Love =0:'As you leave the apartment, you gently kiss Rex on the cheek, thanking for the evening.'
	if Rex_Love =1:'As you leave the apartment, you passionate kiss Rex on the lips, "Thank you for a lovely evening."'
	if party_boys_in >=1:'As you leave the apartment, some drunk guys tell you they will miss you and sleep well, while laughing to each other.'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Go home':minut += 15 & gt'bedrPar'
end

if $ARGS[0] = 'party':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 15
	sisboyparty = 1
	sisboypartyQW += 1
	alkoParty = 0
	if sbReksHomeIn = 0:sbReksHomeIn = 1
	party_girls_talk = 0
	girls_smoke = 0
	party_dj = 0
	dj_beer = 0
	dj_thank = 0
	dj_bad = 0
	dj_boobs = 0
	party_boys_drink = 0
	Rex_save = 0
	party_boys_in = 0
	rex_talk =0
	rex_sex =0
	drunk_sveta = 0
	iralenasleep = 0
	sister_party_dom = 0
	sister_party_talk = 0
	gs'stat'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
	'You arrive at Rex''s apartment, for the weekend party. Going inside with the others, the loud music drowned out any noise from outside. As soon as you are inside several boys immediately start offering you drinks.'
	act 'Drink':
		cls
		minut += 5
		alko += 1
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		alkoParty += 1
		gs'stat'
		'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
		'In all this mess you are unable to find a clean cup and are handed a full bottle of booze. Clinking glasses with the bottle, you put your lips to the mouth of the bottle and turn it up, gulping down several swigs of strong drink, noticing the effects almost at once.'
		'The party has just begun, you can still walk through the apartment and find something to do.'
		act 'Move away':gt'sbReksHome','party_home'
	end
end

!room Rex
if $ARGS[0] = 'party_home':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Rex''s Room</font></b></center>'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
	'Sitting at a table and drinking with your friends, sitting to one side of you sharing a bottle as always is <a href="exec:GT ''lena'',''lena''">Lena</a> who is always fun, her slightly more reserved friend <a href="exec:GT ''ira'',''ira''">Ira</a>, and always up beat <a href="exec:GT ''reks'',''party''">Rex</a>.'
	'To your other side sits your sister <a href="exec:GT ''sister_party'',''sister_party''">Anya</a> drinking already and <a href="exec:GT ''roma''">Roma</a>, whom himself sits just a bit away looking more serious than normal, plus lots of <a href="exec:GT ''party_girls'',''party_girls''">girls</a> and <a href="exec:GT ''party_boys'',''party_boys''">guys</a> you barely know.'
	if alko < 3:'One of the guys offers you a bottle to <a href="exec:GT ''sbReksHome'',''party_drink''">drink</a> from as they say "A little more to set the mood."'
	!You''re drunk
	if alko >= 3:
		*clr
		gs'stat'
		'<center><b><font color = maroon>Rex''s Room</font></b></center>'
		'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_1_' + rand(1,5) + '.jpg"></center>'
		'After awhile everyone gets up to go dance and drink. Only a few <a href="exec:GT ''party_girls'',''party_girls''">girls</a>, are left in the room, who are fun to hang out and gossip with.'
		iif(party_girls_talk >= 2,'You <a href="exec:GT ''party_girls'',''talk''">chat</a> and gossip with them. One of the girls pulls out some marijuana and invites all of you to <a href="exec:GT ''party_girls'',''smoke''">have a smoke</a>.','You <a href="exec:GT ''party_girls'',''talk''">chat</a> and gossip with them.')
		if pcs_mood = 100 and pcs_horny >= 50 and girls_smoke > 1:
			'All the girls are in a good mood, and several of them excited pull you with them to have some <a href="exec:GT ''party_girls'',''fun''">fun</a>.'
		end
	end
	act 'Go to the living room':gt'sbReksHome','party_gost'
end

!Drink
if $ARGS[0] = 'party_drink':
	cls
	minut += 5
	alko += 1
	cumspclnt = 2
	gs 'cum_cleanup'
	pcs_breath = 0
	alkoParty += 1
	gs'stat'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
	'Someone hands you a half full bottle of booze, putting your lips to the mouth of the bottle, you turn it up and gulp down several swigs of strong drink, noticing the effects almost at once.'
	'The party has just begun, you can still walk through the apartment and find something to do.'
	act 'Move away':gt $locM,$metkaM
end

!Rex Lounge
if $ARGS[0] = 'party_gost':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	if alko < 3:
		'<center><b><font color = maroon>Living room</font></b></center>'
		'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_3.jpg"></center>'
		'This is a large living room, hardly anyone is here, most are all still sitting in the other room talking and drinking. Only one <a href="exec:GT ''party_boy'',''party_boy''">guy</a> is in here tinkering with a turntable.'
	elseif alko >= 3:
		'<center><img src="images/locations/pavlovsk/resident/rekshome/party/reksparty_4_' + rand(1,8) + '.jpg"></center>'
		'The party is in full swing. In one corner a <a href="exec:GT ''party_boy'',''party_boy''">guy</a> the party DJ is spinning the beats at the turntable. You want to give it a try and <a href="exec:gt ''dinParty'', ''dance''">spin some beats</a>.'
		'<a href="exec:GT ''roma''">Roma</a> and <a href="exec:GT ''sister_party'',''sister_party''">Anya</a> are locked together having fun dancing.'
		if Rex_Love =0:'<a href="exec:GT ''reks'',''party''">Rex</a> is having fun dancing with some <a href="exec:GT ''party_girls'',''party_girls''">girls</a>.'
		if Rex_Love =1:'You are dancing with some <a href="exec:GT ''party_girls'',''party_girls''">girls</a> and <a href="exec:GT ''reks'',''party''">Rex</a>, who looks at you with loving eyes.'
		'<a href="exec:GT ''lena'',''lena''">Lena</a> and <a href="exec:GT ''ira'',''ira''">Ira</a> are having fun in the company of drunken <a href="exec:GT ''party_boys'',''party_boys''">guys</a>.'
	end
	act 'Go to the Rex''s room':gt'sbReksHome','party_home'
	act 'Go to the kitchen':gt'sbReksHome','party_kuh'
	act 'Go to the bathroom':gt'sbReksHome','party_toilet'
	act 'Leave Rex''s home': gt 'pavCommercial'
end

!Kitchen Rex
if $ARGS[0] = 'party_kuh':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Kitchen</font></b></center>'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/party/kuh.jpg"></center>'
	'The kitchen is spacious, but kinda dirty. The kitchen table is covered in cans and bottles of beer as well as 5th''s of booze. You can grab any bottle you want and <a href="exec:GT ''sbReksHome'',''party_drink''">drink</a>.'
	if party_dj =1 and dj_beer < 1:'You grab two bottles and <a href="exec:gt ''dinParty'', ''dj''">take</a> them for the DJ.'
	if alko >= 3: 'Some <a href="exec:GT ''party_boys'',''party_boys''">guys</a> bang their empty drinks down on the table, refilling they offer a cup to you and try to get you to <a href="exec:GT ''party_boys'',''drink''">drink</a> with them.'
	act 'Go to the living room':gt'sbReksHome','party_gost'
end

!Toilet Rex
if $ARGS[0] = 'party_toilet':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	if alko > 3 and rand(1,100) <= 30:gt 'dinParty', 'party_toilet_event'
	'<center><b><font color = maroon>Toilet</font></b></center>'
	'<center><img src="images/locations/pavlovsk/resident/rekshome/toilet.jpg"></center>'

	'Here you can wash your face, freshen up or touch up your make up at <a href="exec:GT ''mirror'',''start''">mirrors</a>.'
	if pcs_horny > 50:'Feeling yourself ready to burst with desire, you can''t take it anymore and begin to <a href="exec:gt ''dinParty'', ''toilet_mast''">masturbate</a>.'
	act 'Go to the living room':gt 'sbReksHome','party_gost'
	if spdirtyv > 0 or spdirtyb > 0:
		act 'Clean the sperm from your face (0:10)':
			cla
			*clr
			pcs_makeup = 1
			cumspclnt = 9
			gs 'cum_cleanup'
			cumspclnt = 13
			gs 'cum_cleanup'
			if pcs_sweat > 19 : pcs_sweat -= 5
			minut += 10
			'<center><img src="images/shared/home/bathroom/facesp.jpg"></center>'
			*nl
			'You clean your face and get rid of any trace of cum.'

			act 'Move away':gt 'sbReksHome','party_toilet'
		end
	end
end

--- sbReksHome ---------------------------------