# 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 Sunset Dead':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.'

	'<a href="exec:GT ''Komp'',''agent''">Site agentsvo property</a>'

	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'
	if gor_dorm = 7:act 'Read letter from Evgeniya':gt 'etoexhib', 'pos91'
	if camwhore = 1:act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
	if student > 0:act 'The Institute for Education Measurement':gt 'Komp', 'study'
	act 'Exit the browser':gt 'Komp', 'start'

	if internet = 0:
		cls
		'<center><b>Browser</b></center>'
		'<center><img src="images/pics/komp/eror.jpg"></center>'
		'You need to fill up online.'
	end

	act '<B>Quit your browser</B>':gt 'Komp','start'
end

if $ARGS[0] = 'sale':
	cla
	clr
	*clr
	minut += 60
	internetM -= 60
	elektro += 3
	internet -= 1

	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', 'brows'
		end
	end

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

if $ARGS[0] = 'remont':
	cla
	clr
	*clr
	minut += 60
	internetM -= 60
	elektro += 3
	internet -= 1
	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', 'brows'
end

if $ARGS[0] = 'porno':
	cla
	clr
	*clr
	minut += 60
	internetM -= 60
	manna += 5
	elektro += 3
	willpower += rand(5, 10)
	manna += rand(10, 50)
	horny += 30
	internet -= 1
	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>'
		'You spend some time watching porn.'
		act 'Finish':gt 'Komp', 'porno'
	end

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

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

if $ARGS[0] = 'pasians':
	cla
	clr
	*clr
	minut += 20
	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 20 minutes':gt 'Komp', 'pasians'
	act 'Close Solitaire':gt 'Komp', 'start'
end

if $ARGS[0] = 'znak':
	cla
	clr
	*clr
	minut += 60
	internetM -= 60
	manna += 5
	elektro += 3
	internet -= 1
	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', 'brows'
		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', 'brows'
		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', 'brows'
		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', 'brows'
		end
	end
	act 'Leave':gt 'Komp', 'brows'
end

if $ARGS[0] = 'kabtv':
	cla
	clr
	*clr
	minut += 60
	internetM -= 60
	elektro += 3
	internet -= 1
	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
	else
		'You don''t even own a TV yet!'
		act 'Leave':gt 'Komp', 'start'
	act 'Leave':gt 'Komp', 'start'
end

if $ARGS[0] = 'foto':
	cla
	*clr
	internetM -= 60
	elektro += 3
	internet -= 1
	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
	internet -= 1
	komprabota = rand(0, 10)
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'

	if komprabota = 0 and gorodokKomp = 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 and gorodokKomp = 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'

		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 and gorodokKomp = 0:
		'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'
	elseif komprabota > 4 and komprabota < 8 and StoryLine > 0 and Suspeh >= 90 and camwhore = 0:
		'You stumbled on the ad, which says, that one of the thematic websites require web models.'
		act 'Interest':
			cls
			minut += 5
			gs 'stat'
			'<center><img src="images/camwhore/camwhore1.jpg"></center>'
			'Quickly walking up the look of the ad, you know, what is this job you will have to expose her body in front of customers, fulfilling their wishes.'
			'For which, naturally, you will pay virtual currency, which management of the site will transfer real money to your Bank account.'
			'Resource of English language and registration from the CIS are prohibited there, so the chance, what who-you know in real life, very few.'
			'The amount of payment depends on the popularity of your room, the more you will be able to attract users, the more you earn, that is, it all depends on you.'

			act 'To fill in the questionnaire':
				cls
				camwhore += 1
				minut += 20
				gs 'stat'
				'<center><img src="images/camwhore/camwhore2.jpg"></center>'
				'Go to the website, you have registered yourself on it as a model. Ten minutes later, the questionnaire had already been approved and you can now earn money web model'
				act 'Finish':gt 'Komp','brows'
			end
			act 'Return':gt 'Komp','brows'
		end

		if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
		act '<B>Finish</B>':gt 'Komp','brows'
	else
		'We did not find anything suitable.'

		if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
		act '<B>Finish</B>':gt 'Komp','brows'
	end
end

if $ARGS[0] = 'kursak':
	cla
	*clr
	minut += 60
	internetM += 60
	elektro += 3
	internet -= 1
	manna -= 10
	kursovik = kursovik + RAND(intel/20,intel/10)
	if kursovik > 100:kursovik = 100
	'<center><b>Coursework</b></center>'
	'<center><img src="images/pics/komp/kursak.jpg"></center>'
	'You were an hour over the course work and prepare it on <<kursovik>>%.'

	act '<B>Finish</B>':gt 'Komp','start'
end

if $ARGS[0] = 'agent':
	cla
	clr
	*clr
	minut += 60
	internetM += 60
	elektro += 3
	internet -= 1
	gs 'stat'
	'<center><b>CAit estate agency</b></center>'
	'<center><img src="images/pics/komp/agent.jpg"></center>'
	'You are logged in estate agency.'
	'Here you can rent an apartment online in 6000 rubles.'
	''
	if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.'
	if karta >= 6000 and BuyHous ! 1:
		act 'Apartment for rent online':
			cla
			karta -= 6000
			housr = 1
			BuyHous = 2
			ArendHouseSL += 30
			'You get easy to rent an apartment in a residential area on the 30 days. Now you <B><<ArendHouseSL>> days</B> rental.'
			act '<B>Finish</B>':gt 'Komp','start'
		end
	end
	act '<B>Finish</B>':gt 'Komp','brows'
end

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

if $ARGS[0] = 'mfc':
	if sisterHere = 0:
		act 'Go to your mfc startpage':
			cls
			minut += 2
			gs 'stat'
			'<center><img src="images/camwhore/camwhore3.jpg"></center>'
			'You walked to your room on the website. At the moment you  <<camclients>> visitors.'

			act 'Further':gt 'komp','startpagemfc'
		end
		act 'Close tab':
			cls
			minut += 2
			topmfc = 1
			backmfc = 1
			tokens = 0
			camclients = 0
			gs 'stat'
			gt 'Komp','brows'
		end
	elseif sisterHere > 0:
		cls
		minut += 2
		topmfc = 1
		backmfc = 1
		tokens = 0
		camclients = 0
		gs 'stat'
		'<center><img src="images/camwhore/camwhore2.jpg"></center>'
		'You are not alone in the room.'
		act 'Close tab':gt 'Komp','brows'
	elseif mesec > 0:
		cls
		minut += 2
		topmfc = 1
		backmfc = 1
		tokens = 0
		camclients = 0
		gs 'stat'
		'<center><img src="images/camwhore/camwhore2.jpg"></center>'
		'You month, but because you have too unwell for the show  - sick, stomach hurts, dizzy, generally, not the best time to earn your money body...'
		act 'Close tab':gt 'Komp','brows'
	end
end

if $ARGS[0] = 'startpagemfc':
	if vgape > 0 or agape > 0:
		cls
		gs 'stat'
		'You feel bad too, to put on a show.'
		act 'Close tab':
			karta += tokens/2
			gt 'Komp','mfc'
		end
	else
		cls
		gs 'stat'
		'<center><img src="images/camwhore/camwhore3.jpg"></center>'
		'In your room  <<camclients>> visitors.'
		act 'To enable the webcam':gt 'komp','waitclients'
		act 'Logout':
			karta += tokens/2
			gt 'Komp','mfc'
		end
	end
end

if $ARGS[0] = 'waitclients':
	cls
	minut += 2
	manna -= 2
	willpower -= RAND(1,3)

	if vnesh < 25:
		if topmfc = 1 and backmfc = 1:
			if webpopular < 15:
				camclients += RAND(1,3)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(3,5)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(4,8)
			elseif webpopular >= 75:
				camclients += RAND(5,15)
			end
			chancetips = RAND(0,100)
			clientask = RAND(0,100)
			if chancetips >= 95:
				tokens += RAND(1,20)
			end
		end
	else
		if topmfc = 1 and backmfc = 1:
			if webpopular < 15:
				camclients += RAND(3,5)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(5,8)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(5,12)
			elseif webpopular >= 75:
				camclients += RAND(8,15)
			end
			chancetips = RAND(1,100)
			clientask = RAND(1,100)
			if chancetips >= 95:
				tokens += RAND(1,20)
			end
		end
	end
	if vnesh < 25:
		if topmfc = 0 and backmfc = 1:
			if webpopular < 15:
				camclients += RAND(1,3)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(1,5)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(5,10)
			elseif webpopular >= 75:
				camclients += RAND(6,15)
			end
			chancetips = RAND(2,90)
			clientask = RAND(5,100)
			if chancetips >= 85:
				tokens += RAND(1,20)
			end
		end
	else
		if topmfc = 0 and backmfc = 1:
			if webpopular < 15:
				camclients += RAND(3,6)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(5,10)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(7,12)
			elseif webpopular >= 75:
				camclients += RAND(10,15)
			end
			chancetips = RAND(2,90)
			clientask = RAND(10,100)
			if chancetips >= 85:
				tokens += RAND(1,20)
			end
		end
	end
	if vnesh < 25:
		if topmfc = 1 and backmfc = 0:
			if webpopular < 15:
				camclients += RAND(1,3)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(2,5)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(5,15)
			elseif webpopular >= 75:
				camclients += RAND(5,20)
			end
			chancetips = RAND(4,80)
			clientask = RAND(7,100)
			if chancetips >= 75:
				tokens += RAND(1,20)
			end
		end
	else
		if topmfc = 1 and backmfc = 0:
			if webpopular < 15:
				camclients += RAND(4,7)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(5,12)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(9,15)
			elseif webpopular >= 75:
				camclients += RAND(15,20)
			end
			chancetips = RAND(3,80)
			clientask = RAND(15,100)
			if chancetips >= 75:
				tokens += RAND(1,20)
			end
		end
	end
	if vnesh < 25:
		if topmfc = 0 and backmfc = 0:
			if webpopular < 15:
				camclients += RAND(1,4)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(3,10)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(10,20)
			elseif webpopular >= 75:
				camclients += RAND(10,30)
			end
			chancetips = RAND(6,50)
			clientask = RAND(10,100)
			if chancetips >= 45:
				tokens += RAND(1,20)
			end
		end
	else
		if topmfc = 0 and backmfc = 0:
			if webpopular < 15:
				camclients += RAND(3,8)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(3,15)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(10,20)
			elseif webpopular >= 75:
				camclients += RAND(10,30)
			end
			chancetips = RAND(4,50)
			clientask = RAND(20,100)
			if chancetips >= 45:
				tokens += RAND(1,20)
			end
	 	end
	end
	gs 'stat'

	if topmfc = 1 and backmfc = 1:
		'<center><img src="images/camwhore/camwhore3.jpg"></center>'
	end
	if topmfc = 0 and backmfc = 1:
		'<center><img src="images/camwhore/camwhore4.jpg"></center>'
	end
	if topmfc = 1 and backmfc = 0:
		'<center><img src="images/camwhore/camwhore5.jpg"></center>'
	end
	if topmfc = 0 and backmfc = 0:
		'<center><img src="images/camwhore/camwhore6.jpg"></center>'
	end

	'In your room  <<camclients>> visitors.'
	'You have <<tokens>> tokens.'

	act 'Wait for visitors':gt 'komp','waitclients'

	if topmfc = 1 and clientask >= 98:
		cls
		gs 'stat'
		'It seems, one of the visitors willing to pay you for, so you bared Breasts...'
		act 'To remove a bra':
			cls
			webpopular += 1
			minut += 2
			topmfc = 0
			horny += 5
			if webpopular < 15:
				tokens += RAND(10,25)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(15,25)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(25,50)
			elseif webpopular >= 75:
				tokens += RAND(50,150)
			end
			gs 'stat'

			'<center><img src="images/camwhore/camwhore7.jpg"></center>'
			'You stood up and so, so the camera could see better Breasts, slowly removed her bra, what immediately got the tokens.'

			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			webpopular -= 1
			gt 'Komp','waitclients'
		end
	end
	if backmfc = 1 and clientask >= 96 and clientask < 98:
		cls
		'One of the visitors asks you to remove your panties...'
		act 'Do':
			cls
			webpopular += 1
			minut += 2
			backmfc = 0
			horny += 5
			if webpopular < 15:
				tokens += RAND(10,25)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(15,25)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(25,50)
			elseif webpopular >= 75:
				tokens += RAND(50,150)
			end
			gs 'stat'

			'<center><img src="images/camwhore/camwhore8.jpg"></center>'
			'You slowly pulled off her panties, then briefly brought the camera, giving a better look at her pussy.'
			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			webpopular -= 1
			gt 'Komp','waitclients'
		end
	end
	if topmfc = 0 and clientask >= 94 and clientask < 96:
		cls
		'One of the visitors asks you to fondle your Breasts...'
		act 'Do':
			cls
			webpopular += 1
			minut += 2
			backmfc = 0
			horny += RAND(5,10)
			if webpopular < 15:
				tokens += RAND(15,25)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(20,30)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(50,100)
			elseif webpopular >= 75:
				tokens += RAND(50,150)
			end
			gs 'stat'

			'<center><img src="images/camwhore/camwhore10.jpg"></center>'
			'You lie down comfortably and start to knead and squeeze his hands over his chest, sometimes putting his mouth to one nipple, then to the second...'
			if horny >= 100:
				orgasm += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'But the excitement is so great, what you are not able to sustain them, but because capacete hand between her legs and then cum.'
			end
			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			webpopular -= 1
			gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and clientask = 93:
		cls
		'One of the visitors asks you to play with her pussy...'
		act 'Do':
			cls
			webpopular += 1
			minut += 2
			horny += RAND(5,10)
			if webpopular < 15:
				tokens += RAND(20,25)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(25,50)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(50,100)
			elseif webpopular >= 75:
				tokens += RAND(100,150)
			end
			gs 'stat'

			'<center><img src="images/camwhore/camwhore12.jpg"></center>'
			'You lie down comfortably and passing a hand between her legs, are the fingers rubbing her labia.'
			if horny >= 100:
				orgasm += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'In the process you yourself on notice, as the approaching wave of orgasm, but because roughly cum.'
			end
			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			webpopular -= 1
			gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and clientask = 92:
		cls
		'One of the visitors asks you to show him the closer your vagina...'
		act 'Do':
			cls
			webpopular += 1
			minut += 2
			if webpopular < 15:
				tokens += RAND(10,25)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(15,25)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(25,50)
			elseif webpopular >= 75:
				tokens += RAND(50,150)
			end
			gs 'stat'
			if analplugIN = 1:
				'<center><img src="images/camwhore/camwhore19.jpg"></center>'
			end
			if vagina = 0 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore18.jpg"></center>'
			end
			if vagina > 0 and vagina <= 10 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore13.jpg"></center>'
			end
			if vagina > 10 and vagina <= 15 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore14.jpg"></center>'
			end
			if vagina > 15 and vagina <= 25 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore15.jpg"></center>'
			end
			if vagina > 25 and vagina <= 35 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore16.jpg"></center>'
			end
			if vagina > 35 and analplugIN = 0:
				'<center><img src="images/camwhore/camwhore17.jpg"></center>'
			end
			'You do a request to the client for the coveted tokens.'
			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			webpopular -= 1
			gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and anus >= 30 and webpopular >= 50 and clientask = 91:
		cls
		'One of the visitors asks you to push on camera ass...'
		act 'To push':
			cls
			webpopular += 2
			sub += 2
			minut += 2
			backmfc = 0
			horny -= RAND(20,30)
			if vnesh > 25:
				tokens += RAND(50,100)
			else
				tokens += RAND(40,75)
			end
			if webpopular < 15:
				tokens += RAND(25,50)
			elseif webpopular >= 15 and webpopular < 35:
				tokens += RAND(50,100)
			elseif webpopular >= 35 and webpopular < 75:
				tokens += RAND(100,150)
			elseif webpopular >= 75:
				tokens += RAND(100,200)
			end
			gs 'stat'
			if analplugIN = 0:
				if cumanus > 0:
					'<center><img src="images/camwhore/camwhore74.jpg"></center>'
					'You turn your ass to the computer and extending his arms buttocks, begin to push, with shame feeling, as from your rectum follows the male sperm...'
					'Chat is broken from vulgar, and sometimes insulting comments, therefore, you soon stop this humiliating lesson...'
				else
					'<center><img src="images/camwhore/camwhore20,<<rand(0,7)>>.jpg"></center>'
					'You gettin ` on your knees and extending his arms buttocks, begin to push, with shame feeling, how to get out of your rectum.'
					'But greed overcomes the inconvenience, so you suffer a couple of seconds, giving foreigners a better look at your worn out ass...'
				end
			else
				'<center><img src="images/camwhore/camwhore21.jpg"></center>'
				'You get up from the bed and bending the knees a little, squat down in front of the door, throwing his hands behind his head.'
				'Your ass is butt plug, so you try not to overdo it, so she jumped...'
			end
			act 'Further':gt 'Komp','waitclients'
		end
		act 'Ignore':
			cls
			gt 'Komp','waitclients'
		end
	end

	if webpopular >= 15 and anus >= 15 and clientask = 89:
		cls
		gt 'kompMFCtwo'
	end

	if webpopular < 50 and clientask = 88:
		cls
		gt 'kompMFCtwo'
	end

	if webpopular >= 50 and vagina >= 35 and clientask = 87:
		cls
		gt 'kompMFCtwo'
	end

	if webpopular >= 35 and vagina >= 25 and alko >= 8 and clientask = 86:
		cls
		gt 'kompMFCtwo'
	end

	if webpopular >= 50 and vagina > 0 and anus > 0 and alko >= 8 and sub > 50 and clientask = 85:
		cls
		gt 'kompMFCtwo'
	end

	if backmfc = 0 and webpopular >= 25 and vagina >= 30 and anus >= 30 and alko >= 8 and clientask = 84:
		cls
		gt 'kompMFCtwo'
	end

	if backmfc = 0 and vagina > 20 and clientask = 83:
		cls
		gt 'kompMFCtwo'
	end

	if webpopular > 25 and backmfc = 0 and sub > 25 and vagina > 10 and prezik > 0 and clientask = 82:
		cls
		gt 'kompMFCtwo'
	end

	if backmfc = 0 and webpopular >= 50 and anus > 25 and clientask = 81:
		cls
		gt 'kompMFCtwo'
	end

	if backmfc = 0 and webpopular >= 50 and anus > 10 and vagina > 10 and sub > 50 and alko >= 6 and clientask = 80:
		cls
		gt 'kompMFCtwo'
	end

	if backmfc = 0 and clientask = 90:
		cls
		'One of the visitors asked, do you have a vibrator or Dildo...'
		gt 'kompMFC'
	end

	if topmfc = 1 and clientask < 80:
		act 'To remove a bra':
			cls
			minut += 2
			topmfc = 0
			horny += 5
			gs 'stat'

			if backmfc = 1:
				'<center><img src="images/camwhore/camwhore4.jpg"></center>'
			end
			if backmfc = 0:
				'<center><img src="images/camwhore/camwhore5.jpg"></center>'
			end
			'You slowly, on the camera I take off my bra, Stripping his young maiden breast.'
			act 'Further':gt 'Komp','waitclients'
		end
	end

	if topmfc = 0 and clientask < 80:
		act 'Play around with the chest':
			cls
			if webpopular < 15:
				camclients += RAND(3,6)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(5,10)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(10,20)
			elseif webpopular >= 75:
				camclients += RAND(15,35)
			end
			minut += 2
			horny += 5
			if alko >= 4:
				nippain = 1
			end
			chancetips = RAND(0,100)
			if chancetips >= 85:
				tokens += RAND(2,10)
			end
			gs 'stat'
			if alko >= 4:
				'<center><img src="images/camwhore/camwhore80.jpg"></center>'
			else
				'<center><img src="images/camwhore/camwhore9.jpg"></center>'
			end
			'You played with my Breasts, deliberately pretending, completely forgot about the camera and focus is entirely on having fun.'
			if horny >= 100:
				webpopular -= 1
				orgasm += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'But, It seems, you have not calculated your endurance, and therefore, unable to resist, run a hand between her legs and cumming in front of  <<camclients>> users completely free of charge.'
			end
			act 'Further':gt 'Komp','waitclients'
		end
	end

	if backmfc = 1 and clientask < 80:
		act 'Remove panties':
			cls
			minut += 2
			backmfc = 0
			horny += 5
			gs 'stat'
			if topmfc = 1:
				'<center><img src="images/camwhore/camwhore5.jpg"></center>'
			end
			if topmfc = 0:
				'<center><img src="images/camwhore/camwhore6.jpg"></center>'
			end
			'You slowly, on camera, panties came off, exposing my crotch.'
			act 'Further':gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and clientask < 80:
		act 'Play with the pussy':
			cls
			if webpopular < 15:
				camclients += RAND(5,10)
			elseif webpopular >= 15 and webpopular < 35:
				camclients += RAND(10,15)
			elseif webpopular >= 35 and webpopular < 75:
				camclients += RAND(10,30)
			elseif webpopular >= 75:
				camclients += RAND(15,40)
			end
			minut += 2
			horny += 5
			chancetips = RAND(0,100)
			if chancetips >= 75:
				tokens += RAND(10,15)
			end
			gs 'stat'

			'<center><img src="images/camwhore/camwhore11.jpg"></center>'
			'You with one hand playing with her pussy, another printing in the chat, so you were given tokens for more.'
			if horny >= 100:
				webpopular -= 1
				orgasm += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'But, It seems, you have not calculated your endurance, Wherefore came before  <<camclients>> users completely free of charge.'
			end
			act 'Further':gt 'Komp','waitclients'
		end
	end
	gs 'family'
	if sisterHere = 0:
		act 'To turn off the webcam':gt 'Komp','startpagemfc'
	elseif sisterHere > 0:
		cls
		topmfc = 1
		backmfc = 1
		karta += tokens/2
		gs 'stat'
		'<center><img src="images/camwhore/camwhore2.jpg"></center>'
		'Suddenly you hear, how clacking handle locked doors, and a moment later you hear persistent  "Light, let me in!"'
		'It seems, the show is over for today, so you start frantically to freshen up...'
		act 'Further':gt 'Komp','mfc'
	end
end

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