glife/locations/Komp

# Komp
if $ARGS[0] = 'start':
	cla
	clr
	elektro += 5
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'With the computer happily welcomes you start window.'

	act 'Play Patience (0:15)':gt 'Komp', 'pasians'

	if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
	if GameCD2 > 0:act 'Play SunDead':gt 'KGZstart'
	if GameCD3 > 0:act 'Play Albido':gt 'FSstart'

	!!act 'SunReview of the Dead':gt 'KGZstart'

	if internet > 0:
		internet = internetM / 60
		'You''ve got <<internet>> hours of Internet'

		act 'Browser':gt 'Komp', 'brows'
	end

	if karta >= 10:
		'You can pay online through your bank account. 1 hour internet costs 10 rubles. On account of <<karta>>rubles.'

		act 'Pay online bank account':
			cla
			intinp = input ("How much money to put on the internet? (h = 10 rubles)")

			if intinp <= 0 or intinp * 10 > karta:
				'Invalid amount.'
			elseif intinp * 10 <= karta:
				inttime = intinp * 10
				karta -= inttime
				internetM += intinp * 60
				internet = internetM / 60
				'You paid <<inttime>> hours of Internet, you now have <<internet>> hours of the Internet. Your account was removed <<intinp>> rubles.'
			end

			act 'Get out of the payment system':gt 'Komp', 'start'
		end
	end

	act 'Shut down the computer':
		cla
		gt 'Komp', 'fin'
	end
end

if $ARGS[0] = 'brows':
	cla
	clr
	*clr
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You entered into a search engine.'

	act 'Apartment repair site (0:15)':gt 'Komp', 'remont'

	if housr = 1 and husband = 0:act 'Rent your apartment':gt 'Komp', 'sale'

	act 'Porno (0:15)':gt 'Komp', 'porno'
	act 'Singles (0:15)':gt 'Komp', 'znak'

	if hour < 20 and hour > 7:act 'Jobs.su':gt 'Komp', 'rabota'

	act 'Cable TV services (0:15)':gt 'Komp', 'kabtv'
	act 'Online game':gt 'KGstart'

	if shantfoto > 0:act 'Search photos heroine in "In the ass."':gt 'Komp', 'foto'

	act 'Exit the browser':gt 'Komp', 'start'
end

if $ARGS[0] = 'sale':
	cla
	clr
	*clr
	minut += 2

	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are logged in to the site for free ads.'

	if obkvsdam = 0 and housrA = 1:
		act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
	elseif obkvsdam > 0:
		act 'Check responses to your ad':
			cla
			if obkvsdam = 1:
				'No one has responded to your apartment ad'
			elseif obkvsdam > 1:
				if obkvsdam = 2:predsumm = 7000
				if obkvsdam = 2:predsumm = 8000
				if obkvsdam = 2:predsumm = 9000
				if obkvsdam = 2:predsumm = 10000
				'Want to stay in your apartment for a month (<<predsumm>> rubles).'

				act 'Rent':
					sdaday = day
					sdamonth = month + 1
					housr = 0
					money += predsumm
					gt 'Komp', 'start'
				end
			end

			act 'Leave':gt 'Komp', 'start'
		end
	end

	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'remont':
	cla
	clr
	*clr
	minut += 15
	internetM -= 60
	elektro += 3
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are logged in apartment repairs.'

	if housr = 1:
		if rembedr = 0:
			act 'Refurbished bedrooms (50,000 rubles)':
				if money >= 50000:
					cla
					rembedr = 1
					money -= 50000
					'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
				else
					cla
					'Unfortunately, you will not have enough money.'
				end

				act 'Leave':gt 'Komp', 'remont'
			end
		end

		if remsitr = 0:
			act 'Renovate hall (50,000 rubles)':
				if money >= 50000:
					cla
					remsitr = 1
					money -= 50000
					'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
				else
					cla
					'Unfortunately, you will not have enough money.'
				end

				act 'Leave':gt 'Komp', 'remont'
			end
		end

		if remkorr = 0:
			act 'Repair corridor (50,000 rubles)':
				if money >= 50000:
					cla
					remkorr = 1
					money -= 50000
					'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
				else
					cla
					'Unfortunately, you will not have enough money.'
				end

				act 'Leave':gt 'Komp', 'remont'
			end
		end

		if remvanr = 0:
			act 'Renovate the bathroom (50,000 rubles)':
				if money >= 50000:
					cla
					remvanr = 1
					money -= 50000
					'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
				else
					cla
					'Unfortunately, you will not have enough money.'
				end

				act 'Leave':gt 'Komp', 'remont'
			end
		end

		if remkuhr = 0:
			act 'Renovate a kitchen (50,000 rubles)':
				if money >= 50000:
					cla
					remkuhr = 1
					money -= 50000
					'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
				else
					cla
					'Unfortunately, you will not have enough money.'
				end

				act 'Leave':gt 'Komp', 'remont'
			end
		end
	end

	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'porno':
	cla
	clr
	*clr
	minut += 15
	internetM -= 60
	manna += 5
	elektro += 3
	willpower += rand(5, 10)
	manna += rand(10, 50)
	horny += 5
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You went to a porn site.'

	$pornomastr = {
		cls
		minut += 15
		sweat += 1
		horny += rand(10, 25)

		if divanmastr = 0:divanmastr = 1 & mastr += 1

		gs 'stat'
		'<center><img src="images/pics/kompmas.jpg"></center>'
		'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'

		if horny >= 100:
			orgasm += 1
			horny = 0
			'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
		end

		act 'Finish':divanmastr = 0 & gt 'Komp', 'porno'

		if horny >= 50:act 'Proceed':dynamic $pornomastr
	}

	act 'Watch porn':
		cla
		'<center><img src="images/etogame/porno.jpg"></center>'
		gt 'Komp', 'porno'
	end

	if horny >= 50:act 'Masturbate (0:15)':dynamic $pornomastr

	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'pasians':
	cla
	clr
	*clr
	minut += 15
	manna += 5
	elektro += 3
	willpower += rand(5, 10)
	manna += rand(10, 50)

	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You entertained for an hour unfolding of solitaire on the computer.'

	act 'Lay another 15 minutes':gt 'Komp', 'pasians'
	act 'Close Solitaire':gt 'Komp', 'start'
end

if $ARGS[0] = 'znak':
	cla
	clr
	*clr
	minut += 15
	internetM -= 60
	manna += 5
	elektro += 3
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are logged on to a dating site.'
	'Selection of boys is only possible if there is no boyfriend.'

	if bfA <= 0:
		act 'To pick up a guy with a gentle disposition':
			cla
			gs 'boy'
			gs 'boyfrend', 'start'
			stopboy = 0
			harakBoyA = 0
			'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'

			act 'Leave':gt 'Komp', 'start'
		end

		act 'To pick up a guy with a common character':
			cla
			gs 'boy'
			gs 'boyfrend', 'start'
			stopboy = 0
			harakBoyA = 1
			'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'

			act 'Leave':gt 'Komp', 'start'
		end

		act 'To pick up a guy with a strong character':
			cla
			gs 'boy'
			gs 'boyfrend', 'start'
			stopboy = 0
			harakBoyA = 2
			'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'

			act 'Leave':gt 'Komp', 'start'
		end
	end

	if gor_dorm = 8:
		act 'Pick of suitors for Eugenia':
			cla
			gor_dorm = 9

			'You shoveled dozens of profiles, Before choosing a suitable in all respects candidates and sent them a letter with a proposal to meet.'
			'Now we have to wait her turn, what_is-anything with them or not.'

			act 'Leave':gt 'Komp', 'start'
		end
	end
	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'kabtv':
	cla
	clr
	*clr
	minut += 15
	internetM -= 60
	elektro += 3
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are logged in to the website provider of cable TV.'

	if kabel = 1:
		'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'

		act 'Abandon cable TV':
			cla
			kabel = 1
			money -= 300
			'You have disconnected cable channels, paying the current month'
			gt 'Komp', 'kabtv'
		end
	elseif kabel = 0 and TV = 1:
		'You do not have a cable TV'

		act 'Connect cable TV':
			cla
			'Unfortunately for viewing cable television requires a more modern TV'
			gt 'Komp', 'kabtv'
		end
	elseif kabel = 0 and TV >= 2:
		'You do not have a cable TV'

		act 'Connect Cable TV (300 rubles per month)':
			cla
			kabel = 1
			'You hooked up cable TV services'
			gt 'Komp', 'kabtv'
		end
	end

	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'foto':
	cla
	*clr
	internetM -= 60
	elektro += 3
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are logged in to the social network "in the ass."'

	if shantfoto > 0:
		act 'Search':
			cla
			minut += 60
			fotsearchrand = rand(0, 10)

			if fotsearchrand <= 7:
				'You did not find anyone, maybe better luck later.'

				act 'Finish':gt 'Komp', 'foto'
			end

			if fotsearchrand > 7:
				shantfoto -= 1
				'You found the heroine a photo shoot'
				gerofotorand = rand(0, 100)

				if gerofotorand > 30:
					'Judging by the photos on her page this poor girl and take her with nothing.'

					act 'Finish':gt 'Komp', 'foto'
				end

				if gerofotorand >= 5 and gerofotorand <= 30:
					shantsr += 1
					'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'

					act 'Finish':gt 'Komp', 'foto'
				end

				if gerofotorand < 5:
					shantbog += 1
					'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'

					act 'Finish':gt 'Komp', 'foto'
				end
			end
		end
	end

	act 'Browser':gt 'Komp', 'brows'
end

if $ARGS[0] = 'rabota':
	cla
	*clr
	minut += 60
	internetM -= 60
	komprabota = rand(0, 10)
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'

	if komprabota = 0:
		'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'

		if vnesh < 30:
			'But you are under this description does not fit'
		elseif vnesh >= 30:
			act 'Go at':gt 'qjob', 'var1'
		end

		if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'

		act 'Finish':gt 'Komp', 'brows'
	elseif komprabota = 1:
		'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'

		if vnesh < 30:'But you are under this description does not fit'

		if vnesh >= 30:
			act 'Go at':gt 'qjob', 'var2'
		end

		if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'

		act 'Finish':gt 'Komp', 'brows'
	elseif komprabota > 1 and komprabota < 5:
		'You found an ad:"The artist is required naturschitsa, simpotichnoy appearance, cash 1, 000 rubles."'

		if vnesh < 15:
			'But you are under this description does not fit'
		elseif vnesh >= 15:
			act 'Go at':gt 'qjob', 'var3'
		end

		if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'

		act 'Finish':gt 'Komp', 'brows'
	elseif komprabota > 4:
		'You did not find anything suitable.'

		if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'

		act 'Finish':gt 'Komp', 'brows'
	end
end

if $ARGS[0] = 'fin':gt $locM, $metkaM

--- Komp ---------------------------------