glife/locations/sitr.qsrc

# sitr

CLOSE ALL
$metka = ''
$loc = 'sitr'
$menu_loc = 'sitr'
$menu_arg = ''
menu_off = 0
$location_type = 'private'
$locclass = 'livingr'
act 'Go to the corridor':gt 'korr'

clr
minut += 1
elektro += 1
gs 'stat'
gs 'themes', 'indoors'
'<center><b><font color="maroon">Living room</font></b></center>'

if remsitr = 0:
	if TV = 0 or komp = 0:
		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sitr.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sitr1.jpg"></center>'
	end

	$zal = 'A cramped room'
	$zal2 = 'faded wall'
elseif remsitr = 1:
	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sitr2.jpg"></center>'
	$zal = 'A modern, bright room'
	$zal2 = 'papered walls with light'
end
if TV = 0:$TV = 'a great place for a TV, if you had one.'
if TV = 1:$TV = 'an old CRT <a href="exec:gt ''TV'', ''start''">TV</a>'
if TV = 2:$TV = 'a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>'
! WD: Missing Code to buy / Upgrade Sofa, Uninitialised ~ 'divan'
if divan = 0:$divan = '<a href="exec:gt ''divan'', ''start''">an old sofa</a>'
if divan = 1:$divan = '<a href="exec:gt ''divan'', ''start''">a luxurious leather sofa</a>'
if komp = 0:$komp = ''
if komp = 1:$komp = ' with a <a href="exec:gt ''Komp'', ''start''">computer</a> on top of it'


! WD: Missing Code to buy / Upgrade table, Uninitialised ~ 'stol'
if stol = 0:$stol = 'an old wooden <a href="exec:gt ''stol'', ''start''">table</a>'
if stol = 1:$stol = 'a new <a href="exec:gt ''stol'', ''start''">table</a>'
if obruch > 0: '<br>A hula hoop stands in corner of the room. '
if skak > 0: 'A jump rope is on a shelf. '
if bookYog > 0: 'A yoga mat is rolled up in a corner. '
'<<$zal>>, <<$divan>> stands next to the <<$zal2>>. In front of the sofa is <<$TV>>. In front of the window is <<$stol>><<$komp>>.'
if mishka > 0: 'On a shelf is <<mishka>> teddy bear'

*nl
!gs'husb' - do not delete!
gs'subkid'

gs 'exercise', 'start'

*nl
!!housegostrand = rand(1, 20)
!!if husband > 0 and husbandrink ! 10 and week = 5 and hour > 17 and hour < 21 and housegostrand > 15:gt 'sitr', 'guest'

if husband > 0 and husbandrink ! 10 and husbandrinkday ! daystart:
	if week < 6:
		if hour > 17 and hour <= 22:'<a href="exec:gt ''husb'', ''start''">Your husband sits on the couch and watches television.</a>'
	else
		if hour > 7 and hour < 17:
			'<a href="exec:gt ''husb'', ''start''">Your husband sits on the couch and watches television.</a>'
		elseif hour > 17 and hour <= 22:
			'<a href="exec:gt ''husb'', ''start''">Your husband sits on the couch and watches television.</a>'
		end
	end
end

if student > 0 and kursovik < 100:
	act 'Do some coursework (1:00)':
		cla
		*clr
		minut += 60
		kursovik += rand(pcs_intel / 20, pcs_intel / 10)

		if kursovik > 100:kursovik = 100

		pcs_mood -= 10
		'<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
		'You work on your courses homework and are about <<kursovik>> percent done.'

		act 'Exit':gt 'sitr'
	end
end

!!Storing and picking up the guitar
if ml_guitarWithMe = 1:
	act 'Place the guitar next to your desk': 
		ml_guitarWithMe = 0
		ml_guitarAtHome = 1
		gt $loc
	end
elseif ml_guitarAtHome = 1:
	act 'Pick up the guitar':
		ml_guitarWithMe = 1
		ml_guitarAtHome = 0
		gt $loc
	end
end

!!Guitar practice 
if ml_guitar = 1 and (ml_chordbook = 1 or ml_guitarlessoncount > 0) and ml_performed_minutes <= ml_maxperform_minutes:
	act 'Practice guitar (0:30)': gt 'music_bedroomPractice', 'guitar'
end
		
if ml_online['account'] = 0 and internet > 0:
	act 'Set up an online music account (0:30)': gt 'music_onlinemusic', 'setupAccount'
end

!! Streaming music 
if ml_online['account'] = 1 and internet > 0 and ml_performed_minutes <= ml_maxperform_minutes:
	if pcs_inhib < 30:
		if pcs_inhib < 10: 
			$diff = 'hard'
		elseif pcs_inhib < 20: 
			$diff = 'medium'
		else 
			$diff = 'easy'
		end
		gs 'willpower', 'skill', 'self', $diff
		will_cost = (will_cost * 3) - (pcs_perform)

		if will_cost <= pcs_willpwr:
			act 'Live stream (1:00) (<<will_cost>> Willpower)': 
				inhib_exp += rand(1,3)	
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'music_onlinemusic', 'liveStream'
			end
		else	
			act 'Live stream (1:00) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else 
		act 'Live stream (1:00)': gt 'music_onlinemusic', 'liveStream'			
	end
end

!! Recording music
if ml_performed_minutes <= ml_maxperform_minutes:
	if pcs_inhib < 20:
		if pcs_inhib < 10: 
			$diff = 'medium'
		elseif pcs_inhib < 20: 
			$diff = 'easy'
		end
		gs 'willpower', 'skill', 'self', $diff

		if will_cost <= pcs_willpwr:
			act 'Record a song with your phone (0:30) (<<will_cost>> Willpower)': 
				inhib_exp += rand(1,2)	
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'music_onlinemusic', 'recordSong'
			end							
			if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
				act 'Record and edit a song (2:00) (<<will_cost>> Willpower)': 
					inhib_exp += rand(1,2)	
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					gt 'music_onlinemusic', 'recordAndEditSong' 
				end						
			end
		else	
			act 'Record a song (0:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			act 'Record and edit a song (1:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'				
		end
	else
		act 'Record a song with your phone (0:30)': gt 'music_onlinemusic', 'recordSong'
		if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
			act 'Record and edit a song (1:30)': gt 'music_onlinemusic', 'recordAndEditSong'
		end	
	end
end


!!Uploading recorded music if there are any not uploaded yet
if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
	if pcs_inhib < 30:
		if pcs_inhib < 10: 
			$diff = 'hard'
		elseif pcs_inhib < 20: 
			$diff = 'medium'
		else 
			$diff = 'easy'
		end
		gs 'willpower', 'skill', 'self', $diff

		will_cost = (will_cost * 2) - (pcs_perform)
		if will_cost <= pcs_willpwr:
			act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
		else	
			act 'Upload music (<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 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
end

act 'Go out on the balcony': gt 'balkon','start'

gs 'events', 'read'

if dildo > 0 and pcs_horny >= 50:
	act 'Masturbate':
		*clr & cla
		minut += 30
		stat['mast'] += 1
		if pcs_inhib < 30:inhib_exp += rand(1,3)
		pcs_vag += 1
		if husband > 0 and husbandrink ! 10:
			if week > 5 or week < 6 and hour > 16:
				cla
				*clr
				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m11.jpg"></center>'
				'You sit down on the couch and push a dildo into your pussy.'

				if hour > 17 and hour <= 22:'<<$husName>> looks at you, stunned by your sudden act of lewdness.'
				if hour = 16 or hour > 22:'<<$husName>> enters the room, after he heard moans from outside.'

				if harakHusb = 0:
					'"What are you doing?", <<$husName>> asks.'
					'"I''m sorry dear, but I really need it and you''re always busy, " you reply, without stopping to masturbate.'
					'"And how often do you that", he asks.'
					'"Every now and then, sometimes I put it in the ass too, would you like to watch me?" you ask him'

					if izvratH = 0:
						husband -= 1
						'"I think I''ll step outside until you are done", he says and leaves the apartment. You continue to satisfy yourself, but are a bit sad, he didn''t ''help'' you.'
						pcs_horny = 0
						orgasm += 1

						act 'Finish':gt 'sitr'
					elseif izvratH = 1:
						'"Well, I''m...I''m not sure", he stutters.'
						'"So, what do you want?", you ask'

						act 'Put on a show':
							cla
							*clr
							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
							'You pull out the dildo from your pussy and wink at your husband, then you push the dildo into your ass. <<$husName>> watches closely as the dildo moves in and out. You notice the obvious bulge in trousers.'
							'"Dear, is there anything else you want?", you ask, smiling at him.'
							'"Can I join?", he asks you a little embarrassed.'

							act 'Solve':
								cla
								*clr
								analorgasm += 1
								orgasm += 1
								pcs_horny = 0
								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m13.jpg"></center>'
								'<<$husName>> takes out his dick and starts to masturbate right in-front of you, you''re surprised, because you expected he''d to fuck you or something like that a long the line. You sigh silently and continue to fuck your ass with the dildo. <<$husName>> now masturbates furiously, as you moaning becomes louder. Both of you realize, it won''t be long until either of you cums.'
								'With a final thrust, it''s you, who experiences the first orgasm and it''s so strong, that you fall off the couch onto the floor. You talk your dildo out of your ass and lick it clean, while locking eyes with your husband. He finds this incredibly erotic and it takes him merely a few more seconds to cum, spraying his salty fluids over the couch and carpet. In the afterbliss of both of your orgasms you kiss each other passionately.'

								act 'Finish':gt 'sitr'
							end
						end
					end
				elseif harakHusb = 1:
					'"I guess sex with me isn''t enough?", he asks.'
					'"I''m sorry dear, but I really need it and you''re always busy", you reply, without stopping to masturbate.'
					'"Well then, why don''t you show me everything then? I''d love to watch", he says.'
					'"Do you want to see me putting in my ass too?" you ask'

					if izvratH = 0:
						husband += 1
						husbizvradd += 1
						'"No, not yet, and that''s enough for now", he says and sits down on a chair. You continue to satisfy yourself rapidly and soon orgasm in front of your husband. <<$husName>> applauds you. "Bravo! Care to do it again?", he says chuckling.'
						'"Anytime for such a lovely audience, but I need a quick break", you laugh and take the dildo out of your pussy.'
						pcs_horny = 0
						orgasm += 1

						act 'Finish':gt 'sitr'
					elseif izvratH = 1:
						husband += 1
						'"And what are you going to show me now?", he asks.'
						'"Whatever you would like to see", you answer.'

						act 'Put on a show':
							cla
							*clr
							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m12.jpg"></center>'
							'You move your dildo slowly into your ass. <<$husName>> watches closely as the dildo moves in and out of your ass. You notice the bulge in his pants.'
							'It''s hard for you not to look at it, therefore you ask him, if he would like to participate somehow.'
							'"Now that you ask", he says, "you could blow me, while pump that toy into your ass." So he unbuttons his pants and takes his cock out.'

							act 'Blowjob':
								cla
								*clr
								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
								'You start to suck on his flaccid penis, while you continue to pleasure yourself, by pumping that dildo in and out of your ass. After a short while, <<$husName>>s dick became rock hard, when it finally is, he says "Time for me to fuck that hole."'

								gs 'boyStat', $HusID
								act 'Anal Sex':
									picrand = 88
									gt 'sex', 'anal'
								end
							end
						end
					end
				elseif harakHusb = 2:
					'"Is your hole itching?" he asks.'
					'"I''m sorry dear, but I really need it and you''re always busy", you reply, without stopping to masturbate.'

					if izvratH = 0:
						husband += 1
						husbizvradd += 1
						'"Well then, open your mouth", he orders you, pulls out his cock and pushes it into your mouth by force. He holds you by the hair and fucks your mouth, while telling you not to stop masturbating. Soon after he becomes tired of your mouth, "Now take out that damn toy, time for me to scratch your itch."'

						gs 'boyStat', $HusID
						act 'Spread your legs':
							picrand = 88
							gt 'sex', 'vag'
						end
					elseif izvratH = 1:
						husband += 1
						SUB += 1
						'<<$husName>> orders you to put your toy into your ass and you submissively oblige to do so. "Now open you mouth and suck me off", he tells you.'

						act 'Blowjob':
							cla
							*clr
							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m14.jpg"></center>'
							'You start to suck on his flaccid penis, while you continue to pleasure yourself, by pumping that dildo in and out of your ass. After a short while, <<$husName>>s dick became rock hard, when it finally is, he says "Time for me to fuck your ass-pussy."'

							gs 'boyStat', $HusID
							act 'Anal Sex':
								picrand = 88
								gt 'sex', 'anal'
							end
						end
					end
				end
			else
				'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
				'Unable to control yourself anymore you immediately reach for your dildo so you can finally take care of your lustful desires. You waste no time to attach the suction base of the dildo onto the floor before lowering yourself slowly to it''s tip.'
				'Shivers run down your spine as you feel that thick head spreading your pussy-lips and soon the whole length begin to slide deep inside your hole. A throaty moan overwhelms the room when that delicious cock finally bottoms out in your cunt, sending you to the heavens and back.'
				'After shifting your legs and getting more comfortable you start to rock your hips and bounce on it, moaning louder and louder as you keep increasing the power and pace of your thrusts- soon hammering your ass against the cold floor time and time again. It takes you just a few minutes to reach that so wanted orgasm, your toes curling tightly as that wonderful feeling run through your entire body...'
				'Soon you''re twitching onto that dildo and juices drip down its length, soaking the floor beneath you. You take a few deep breaths and a smile grows along your face after cumming so hard there. That was just what you needed!'

				$orgasm_or = 'yes'
				gs 'arousal', 'vaginal_dildo', 10
				gs 'arousal', 'end'
				
				act 'Breathe':gt 'sitr'
			end
		else
			'<center><video autoplay loop src="images/shared/sex/mast/mastr.mp4"></video></center>'
			'Unable to control yourself anymore you immediately reach for your dildo so you can finally take care of your lustful desires. You waste no time to attach the suction base of the dildo onto the floor before lowering yourself slowly to it''s tip.'
			'Shivers run down your spine as you feel that thick head spreading your pussy-lips and soon the whole length begin to slide deep inside your hole. A throaty moan overwhelms the room when that delicious cock finally bottoms out in your cunt, sending you to the heavens and back.'
			'After shifting your legs and getting more comfortable you start to rock your hips and bounce on it, moaning louder and louder as you keep increasing the power and pace of your thrusts- soon hammering your ass against the cold floor time and time again. It takes you just a few minutes to reach that so wanted orgasm, your toes curling tightly as that wonderful feeling run through your entire body...'
			'Soon you''re twitching onto that dildo and juices drip down its length, soaking the floor beneath you. You take a few deep breaths and a smile grows along your face after cumming so hard there. That was just what you needed!'

			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal_dildo', 10
			gs 'arousal', 'end'
			
			act 'Breathe':gt 'sitr'
		end
	end
end

--- sitr ---------------------------------