glife/locations/Komp

# Komp
if $ARGS[0] = 'start':
	cla
	clr
	elektro += 5
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'Your computer starts up and loads Windows.'

	act 'Play Patience (1:00)':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 student > 0 and kursovik < 100:'<a href="exec:GT ''Komp'',''kursak''">Get some of your course work done.</a>'
	
	if $LOC = 'shulga_room':
		internet = 100000
		act 'Browser':gt 'Komp', 'brows'
	else
		'You have <<internet>> hours of Internet access remaining.'
		if internet > 0:
			act 'Browser':gt 'Komp', 'brows'
		end
	end

	act 'Shut your computer down':
		if $LOC = 'shulga_room':
			internet = internetS
		end
		cla
		gt 'Komp', 'fin'
	end
end

if $ARGS[0] = 'brows':
	cls
	gs 'stat'
	if internet = 0:
		'<center><b>Browser</b></center>'
		'<center><img src="images/pics/komp/eror.jpg"></center>'
		'You need to buy more Internet access.'
	else

		'<center><img src="images/pics/komp.jpg"></center>'
		'You go to Google.'

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

		act 'Interior design website (1:00)':gt 'Komp', 'remont'

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

		act 'Porn (1:00)':gt 'Komp', 'porno'
		act 'Search for love (1:00)':gt 'Komp', 'znak'

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

		act 'Cable TV services (1:00)':gt 'Komp', 'kabtv'
		act 'Online gaming':gt 'KGstart'
		if bankAccount > 0: act 'Online banking': gt 'Komp', 'bank'

		if shantfoto > 0:act 'Search for the heroine you photoed on "Assbook" wesite':gt 'Komp', 'foto'
		if gor_dorm = 7:act 'Read letter from Eugene':gt 'etoexhib', 'pos91'
		if camwhore = 1:act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
		if SchoolAtestat = 0 or student > 0:act 'Spend time studying':gt 'Komp', 'study'
	end

	act '<B>Close the browser</B>':gt 'Komp','start'
end

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

	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You log into to a popular free ads website.'

	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 advert'
			elseif obkvsdam > 1:
				if obkvsdam = 2:predsumm = 7000
				if obkvsdam = 3:predsumm = 8000
				if obkvsdam = 4:predsumm = 9000
				if obkvsdam = 5:predsumm = 10000
				'Wants to stay in your apartment for a month (<<predsumm>> <b>₽</b>).'

				act 'Rent it out':
					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
	elektro += 3
	internet -= 1
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are log in to a local interior designers website.'

	if housr = 1:
		if rembedr = 0:
			act 'Refurbished bedrooms (50,000 <b>₽</b>)':
				if money >= 50000:
					cla
					rembedr = 1
					money -= 50000
					'You pay the money and just like magic, it''s all done and looks fabulous.'
				else
					cla
					'Unfortunately, you do not have enough money.'
				end

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

		if remsitr = 0:
			act 'Renovate hall (50,000 <b>₽</b>)':
				if money >= 50000:
					cla
					remsitr = 1
					money -= 50000
					'You pay the money and just like magic, it''s all done and looks fabulous.'
				else
					cla
					'Unfortunately, you do not have enough money.'
				end

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

		if remkorr = 0:
			act 'Repair corridor (50,000 <b>₽</b>)':
				if money >= 50000:
					cla
					remkorr = 1
					money -= 50000
					'You pay the money and just like magic, it''s all done and looks fabulous.'
				else
					cla
					'Unfortunately, you do not have enough money.'
				end

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

		if remvanr = 0:
			act 'Renovate the bathroom (50,000 <b>₽</b>)':
				if money >= 50000:
					cla
					remvanr = 1
					money -= 50000
					'You pay the money and just like magic, it''s all done and looks fabulous.'
				else
					cla
					'Unfortunately, you do not have enough money.'
				end

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

		if remkuhr = 0:
			act 'Renovate a kitchen (50,000 <b>₽</b>)':
				if money >= 50000:
					cla
					remkuhr = 1
					money -= 50000
					'You pay the money and just like magic, it''s all done and looks fabulous.'
				else
					cla
					'Unfortunately, you do 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
	manna += 5
	elektro += 3
	willpower += rand(5, 10)
	manna += rand(10, 50)
	horny += 30
	internet -= 1
	gs 'stat'

	$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 your computer and with one hand begin to fondle your breasts, then click on a link to something really dirty.'
		'You let go of the mouse and start rubbing your pussy, imagining you''re the woman in the video. The fantasy and your touching are getting you hot and bothered.'

		if horny >= 100:
			orgasm += 1
			horny = 0
			'Suddenly a your muscles tighten and you cum powerfully, moaning gently.'
		end

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

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

	
	if internet = 0:
		'<center><b>Browser</b></center>'
		'<center><img src="images/pics/komp/eror.jpg"></center>'
		'You need to buy more Internet access.'

	act '<B>Close the browser</B>':gt 'Komp','start'

	else
		'<center><img src="images/pics/komp.jpg"></center>'
		'You go to a porn site.'

		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 (1:00)':dynamic $pornomastr

		act 'Leave':gt 'Komp', 'brows'
	end
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 entertain yourself for an hour playing solitaire on the computer.'

	act 'Play for another 20 minutes':gt 'Komp', 'pasians'
	act 'Enough Solitaire':gt 'Komp', 'start'
end

if $ARGS[0] = 'znak':
	cla
	clr
	*clr
	minut += 60
	manna += 5
	elektro += 3
	internet -= 1
	gs 'stat'
	'<center><img src="images/pics/komp.jpg"></center>'
	'You are log on to a dating site.'
	'There''s plenty of hot men, if you''re single.'

	if gor_dorm = 8:
		act 'Pick someone suitable for Eugenia':
			cla
			gor_dorm = 9

			'You shovel through dozens of profiles, before choosing a candidate suitable in all regards and send them a message with a proposal to meet.'
			'Now the waiting game, let''s hope it works out for her.'

			act 'Leave':gt 'Komp', 'brows'
		end
	elseif housrA = 0:
		manna += 3
		willpower += rand(5, 10)
		manna += rand(10, 50)
		'You spend time looking at the various profiles, but it won''t let you register unless you have your own home.'
		'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
	else
		if bfA <= 0:
			act 'Look for a kind man':
				cla
				gs 'boy'
				gs 'boyfrend', 'start'
				stopboy = 0
				harakBoyA = 0
				'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'

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

			act 'Look for a normal guy':
				cla
				gs 'boy'
				gs 'boyfrend', 'start'
				stopboy = 0
				harakBoyA = 1
				'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'

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

			act 'Look for a strong man':
				cla
				gs 'boy'
				gs 'boyfrend', 'start'
				stopboy = 0
				harakBoyA = 2
				'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'

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

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

	if kabel = 1:
		'You have a cable TV (subscription: 300 <b>₽</b> per month payable on the 25th)'

		act 'Cancel cable TV':
			cla
			kabel = 0
			money -= 300
			'Your cable channels have been canceled, diconnection charge 300 <b>₽</b>'
			gt 'Komp', 'kabtv'
		end
	elseif kabel = 0 and TV = 1:
		'You do not have cable TV'

		act 'Connect cable TV':
			cla
			'Unfortunately your TV is too old for cable'
			gt 'Komp', 'kabtv'
		end
	elseif kabel = 0 and TV >= 2:
		'You do not have cable TV'

		act 'Connect Cable TV (300 <b>₽</b> per month)':
			cla
			kabel = 1
			'You''re hooked up to cable TV services'
			gt 'Komp', 'kabtv'
		end
	else
		'You don''t even have a TV!'
		act 'Leave':gt 'Komp', 'start'
	end
	act 'Leave':gt 'Komp', 'start'
end

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

	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 from the photo shoot'
				gerofotorand = rand(0, 100)

				if gerofotorand > 30:
					'Judging by the photos on her page this poor girl and not worth blackmailing.'

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

				if gerofotorand >= 5 and gerofotorand <= 30:
					shantsr += 1
					'Judging by the photos on her page she is an unknown middle class girl. You send her photo and ask for 5000 <b>₽</b> to be transferred to your account.'

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

				if gerofotorand < 5:
					shantbog += 1
					'Judging by the photos on her page this lady has a position in society worth protecting. You send her photo and ask for 30,000 <b>₽</b> to be transferred to your account.'

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

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

if $ARGS[0] = 'rabota':
	cla
	*clr
	minut += 60
	internet -= 1
	komprabota = rand(0, 10)
	if $LOC = 'shulga_room':komprabota = rand(5, 15)
	gs 'stat'

	if internet = 0:
		'<center><b>Browser</b></center>'
		'<center><img src="images/pics/komp/eror.jpg"></center>'
		'You need to buy more Internet access.'

		act '<B>Close the browser</B>':gt 'Komp','start'

	else

		'<center><img src="images/pics/komp.jpg"></center>'

		if komprabota = 0 and gorodokKomp = 0:
			'You find an ad: "Wanted female underwear model, for photoshoot. Pay 2000 <b>₽</b>."'

			if vnesh < 120:
				'This knid of work isn''t for you'
			elseif vnesh >= 120:
				act 'Do it':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 find an ad: "Wanted female underwear model, for photoshoot. Pay 2000 <b>₽</b>."'

			if vnesh < 120:'This knid of work isn''t for you'

			if vnesh >= 120:
				act 'Do it':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 find an ad: "Artist requires female real life model, well presented, cash, 1000 <b>₽</b>."'

			if vnesh < 60:
				'This knid of work isn''t for you'
			elseif vnesh >= 60:
				act 'Do it':gt 'qjob', 'var3'
			end

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

			act 'Finish':gt 'Komp', 'brows'
		elseif komprabota > 4 and komprabota < 8 and Intel >= 50 and camwhore = 0:
			'You stumble across on the ad, which says that a website requires webcam models.'
			act 'Interest':
				cls
				minut += 5
				gs 'stat'
				'<center><img src="images/camwhore/camwhore1.jpg"></center>'
				'Quickly reading through the ad, you know, that for this job you will have to expose your body in front of customers, fulfilling their wishes.'
				'For which, naturally, you will be paid on-line, which the site admin will transfer to your Bank account.'
				'The site prevents access for customers in your region, so the chance of you being seen by someone you know in real life, is very low.'
				'The amount of payment depends on the popularity of your chatroom, the more you will be able to attract users, the more you earn. Basically, it all depends on you.'

				act 'Fill in the questionnaire':
					cls
					camwhore = 1
					mfcclients = 0
					camclients = 0
					mfccum = 0
					minut += 20
					gs 'stat'
					'<center><img src="images/camwhore/camwhore2.jpg"></center>'
					'You go to the website, and register yourself on it as a model. Ten minutes later, the questionnaire has already been approved and you can now earn money as a webcam girl.'
					'It will be necessary for you to have a webcam and if you don''t have one, they are easy to find in local supermarkets.' 
					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 'Finish':gt 'Komp','brows'
		else
			'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
end

if $ARGS[0] = 'study':
	cla
	*clr
	minut = minut + 60
	elektro = elektro + 3
	internet -= 1
	intel += 1
	'<center><b>The Institute for Education Measurement</b></center>'
	'<center><img src="images/pics/komp/study.jpg"></center>'
	'You spend an hour reading news and educational websites, you feel a little smarter.'
	
	act 'Finish':gt'Komp','brows'
end

if $ARGS[0] = 'kursak':
	cla
	*clr
	minut += 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 spend an hour on your course work and have now completed <<kursovik>>%.'

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

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

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

if $ARGS[0] = 'mfc':
	if mesec > 0:
		cls
		minut += 2
		topmfc = 1
		backmfc = 1
		tokens = 0
		camclients = 0
		gs 'stat'
		'<center><img src="images/camwhore/camwhore2.jpg"></center>'
		'You time of the month, you are too unwell for the show  - sick, stomachache , dizzy, generally not the best time to earn money with your body...'
		act 'Close tab':gt 'Komp','brows'
	elseif sisterHere = 0 or $loc ! 'bedrPar':
		act 'Go to your mfc homepage':
			cls
			minut += 2
			gs 'stat'
			'<center><img src="images/camwhore/camwhore3.jpg"></center>'
			'You enter your chatroom on the website. At the moment you have <<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 and $loc = 'bedrPar':
		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'
	end
end

if $ARGS[0] = 'startpagemfc':
	if vgape > 0 or agape > 0:
		cls
		gs 'stat'
		'You feel too bad 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 chatroom there are <<camclients>> visitors.'
		act 'Turn on webcam':gt 'komp','waitclients'
		act 'Logout':
			karta += tokens/2
			gt 'Komp','mfc'
		end
	end
end

if $ARGS[0] = 'waitclients':
	cls
	minut = minut + RAND(1,4)
	if mfccum = 0:
		manna = manna - RAND(0,3)
	elseif mfccum = 1:
		mfcdaycum = daystart
		manna = manna - RAND(1,3)*mfccum
	elseif mfccum = 2:
		mfcdaycum = daystart
		manna = manna - RAND(2,5)*mfccum
	elseif mfccum = 3:
		mfcdaycum = daystart
		manna = manna - RAND(5,8)*mfccum
	elseif mfccum = 4:
		mfcdaycum = daystart
		manna = manna - RAND(5,11)*mfccum
	elseif mfccum = 5:
		mfcdaycum = daystart
		manna = manna - RAND(7,12)*mfccum
	elseif mfccum > 5:
		mfcdaycum = daystart
		manna = manna - RAND(10,20)*mfccum
	end
	mfcclients += 1

	if vnesh < 100:
		if topmfc = 1 and backmfc = 1:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(1,3)
				else
					camclients += RAND(1,3)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(3,5)
				else
					camclients += RAND(3,5)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(4,8)
				else
					camclients += RAND(4,8)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(5,15)   
				else
					camclients += RAND(5,15)   
				end
			end
			chancetips = RAND(0,100)
			clientask = RAND(0,100)
			if chancetips >= 95 and camclients >= 250:
				if webpopular >= 50:
					tokens += RAND(10,30)
				else
					tokens += RAND(1,20)
				end
			end
		end
	else
		if topmfc = 1 and backmfc = 1:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(3,5)
				else
					camclients += RAND(3,5)
				end	
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(5,8)
				else
					camclients += RAND(5,8)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(5,12)
				else
					camclients += RAND(5,12)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(8,15)
				else
					camclients += RAND(8,15)
				end  
			end
			chancetips = RAND(5,100)
			clientask = RAND(5,100)
			if chancetips >= 95 and camclients >= 200:
				if webpopular >= 50:
					tokens += RAND(10,40)
				else
					tokens += RAND(1,20)
				end
			end
		end
	end
	if vnesh < 100:
		if topmfc = 0 and backmfc = 1:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(1,3)
				else
					camclients += RAND(1,3)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(1,5)
				else
					camclients += RAND(1,5)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(5,10)
				else
					camclients += RAND(5,10)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(6,15)
				else
					camclients += RAND(6,15)
				end   
			end
			chancetips = RAND(5,90)
			clientask = RAND(5,100)
			if chancetips >= 85 and camclients >= 230:
				if webpopular >= 50:
					tokens += RAND(10,35)
				else
					tokens += RAND(1,20)
				end
			end
		end
	else
		if topmfc = 0 and backmfc = 1:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(3,6)
				else
					camclients += RAND(3,6)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(5,10)
				else
					camclients += RAND(5,10)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(7,12)
				else
					camclients += RAND(7,12)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(10,15) 
				else
					camclients += RAND(10,15) 
				end
			end
			chancetips = RAND(10,90)
			clientask = RAND(10,100)
			if chancetips >= 85 and camclients >= 200:
				if webpopular >= 50:
					tokens += RAND(15,35)
				else
					tokens += RAND(1,20)
				end
			end
		end
	end
	if vnesh < 100:
		if topmfc = 1 and backmfc = 0:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(1,3)
				else
					camclients += RAND(1,3)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(2,5)
				else
					camclients += RAND(2,5)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(5,15)
				else
					camclients += RAND(5,15)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(5,20)
				else
					camclients += RAND(5,20)
				end
			end
			chancetips = RAND(10,80)
			clientask = RAND(10,100)
			if chancetips >= 75 and camclients >= 200:
				if webpopular >= 50:
					tokens += RAND(10,40)
				else
					tokens += RAND(1,20)
				end
			end
		end
	else
		if topmfc = 1 and backmfc = 0:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(4,7)
				else
					camclients += RAND(4,7)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(5,12)
				else
					camclients += RAND(5,12)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(9,15)
				else
					camclients += RAND(9,15)
				end	
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(15,20)
				else
					camclients += RAND(15,20)
				end
			end
			chancetips = RAND(15,80)
			clientask = RAND(15,100)
			if chancetips >= 75 and camclients >= 170:
				if webpopular >= 50:
					tokens += RAND(15,45)
				else
					tokens += RAND(1,20)
				end
			end
		end
	end
	if vnesh < 100:
		if topmfc = 0 and backmfc = 0:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(1,4)
				else
					camclients += RAND(1,4)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(3,10)
				else
					camclients += RAND(3,10)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(10,20)
				else
					camclients += RAND(10,20)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(10,30)
				else
					camclients += RAND(10,30)
				end	
			end
			chancetips = RAND(15,50)
			clientask = RAND(15,100)
			if chancetips >= 45 and camclients >= 150:
				if webpopular >= 50:
					tokens += RAND(20,50)
				else
					tokens += RAND(5,25)
				end
			end
		end 
	else
		if topmfc = 0 and backmfc = 0:
			if webpopular < 15:
				if mfcclients > 3:
					camclients -= RAND(3,8)
				else
					camclients += RAND(3,8)
				end
			elseif webpopular >= 15 and webpopular < 35:
				if mfcclients > 3:
					camclients -= RAND(3,15)
				else
					camclients += RAND(3,15)
				end
			elseif webpopular >= 35 and webpopular < 75:
				if mfcclients > 3:
					camclients -= RAND(10,20)
				else
					camclients += RAND(10,20)
				end
			elseif webpopular >= 75:
				if mfcclients > 3:
					camclients -= RAND(10,30)
				else
					camclients += RAND(10,30)
				end	
			end
			chancetips = RAND(20,50)
			clientask = RAND(20,100)
			if chancetips >= 45 and camclients >= 100:
				if webpopular >= 50:
					tokens += RAND(30,50)
				else
					tokens += RAND(10,30)
				end
			end
	 	end
	end
	if camclients <= 0:camclients = 0
	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 chatroom  <<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 is willing to pay you for you to bare your breasts...'
		act 'Remove your 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 stand up so the camera can see your breasts better, slowly you remove your bra, which immediately earns tokens.'

			act 'Carry on':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 it':
			cls
			mfcclients = 0
			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 your panties, then briefly adjust the camera, giving a better view of your pussy.'
			act 'Carry on':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 it':
			cls
			mfcclients = 0
			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 your tits, sometimes putting your mouth to a nipple, then to the other...'

			act 'Carry on':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 your pussy...'
		act 'Do it':
			cls
			mfcclients = 0
			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 pressing a hand between your legs, you rub your labia back and forth with your fingers.'
			if horny >= 100:
				orgasm += 1
				mfccum += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'In the process you suddenly notice, you are approaching orgasm, then you quickly cum.'
			end
			act 'Carry on':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 a close-up of your vagina...'
		act 'Do it':
			cls
			mfcclients = 0
			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
			'Doing a request for the client earns you tokens.'
			act 'Carry on':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 the camera up your ass...'
		act 'To push':
			cls
			mfcclients = 0
			webpopular += 2
			sub += 2
			minut += 2
			backmfc = 0
			horny -= RAND(20,30)
			if vnesh > 100:
				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 cumsumass > 39:
					'<center><img src="images/camwhore/camwhore74.jpg"></center>'
					'You turn your ass to the computer and reaching you hand behind you, begin to push, with a feeling of shame, from your rectum follows male sperm...'
					'Chat is filled with vulgar, and sometimes insulting comments, therefore, you soon stop this humiliating activity...'
				else
					'<center><img src="images/camwhore/camwhore20,<<rand(0,7)>>.jpg"></center>'
					'You get on your knees and reaching around to you ass, begin to push, with a feeling of shame, wondering how get the cam back out of your rectum.'
					'But greed overcomes the inconvenience, so you suffer for a couple of seconds, giving customers 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 your knees a little, squat down in front of the door, then throw your hands behind your head.'
				'Your ass is plugged, so you try not to overdo it...'
			end
			act 'Carry on':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 asks, "Do you have a vibrator or Dildo..."'
		gt 'kompMFC'
	end

	if topmfc = 1 and clientask < 80:
		act 'Remove your bra':
			cls
			mfcclients = 0
			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 my young maiden breast.'
			act 'Further':gt 'Komp','waitclients'
		end
	end

	if topmfc = 0 and clientask < 80:
		act 'Play around with your 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:
				gs 'pain', 2, 'slap', 'breasts'
			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 play with your breasts, lost in fantasy, you completely forget about the camera and focus entirely on having fun.'
			act 'Further':gt 'Komp','waitclients'
		end
	end

	if backmfc = 1 and clientask < 80:
		act 'Remove panties':
			cls
			mfcclients = 0
			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, take your panties off, exposing your crotch.'
			act 'Further':gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and clientask < 80:
		act 'Play with your 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 your pussy, another typing in the chat, you are given more tokens.'
			if horny >= 100:
				webpopular -= 1
				orgasm += 1
				mfccum += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'It seems, you have not calculated your endurance. Therefore, you cum before <<camclients>> users completely free of charge.'
			end
			act 'Further':gt 'Komp','waitclients'
		end
	end
	if backmfc = 0 and clientask < 80:
		act'Play with your ass':
			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
			if anus < 10:analplay += 1
			mfcclients = 0
			minut += 2
			horny += RAND(5,10)
			chancetips = RAND(0,100)
			if chancetips >= 60:
				tokens += RAND(10,20)
			end  
			gs 'stat'

			'<center><img src="images/camwhore/camwhore45.jpg"></center>'
			'You shove two fingers in your mouth and generously cover them in saliva, by turns you gently push them into you ass, watching from the corner of your eye, so you can focus on the cam as the clients prefer it.'
			if horny >= 100:
				webpopular -= 1
				orgasm += 1
				mfccum += 1
				horny = 0
				manna = mannamax
				gs 'stat'
				'But, it seems, you have under estimated your endurance. Therefore, you cum before <<camclients>> users completely free of charge.'
			end
			act'Further':gt'Komp','waitclients'
		end
	end
	if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 80:
		act'Pinch your nipples':
			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
			mfcclients = 0
			minut += 2
			gs 'pain', 2, 'pinch', 'nipples'
			horny -= RAND(20,50)
			chancetips = RAND(0,100)
			if chancetips >= 75:
				tokens += RAND(20,40)
			end  
			gs 'stat'

			'<center><img src="images/camwhore/camwhore80.jpg"></center>'
			'You tightly squeeze your nipples between your finger tips and pull them aside, feeling sharp pain and drastically lowering your excitement.'
			act'Further':gt'Komp','waitclients'
		end
	end
	if sisterHere > 0 and $loc = 'bedrPar':
		cls
		topmfc = 1
		backmfc = 1
		karta += tokens/2
		gs 'stat'
		'<center><img src="images/camwhore/camwhore2.jpg"></center>'
		'Suddenly you hear, the clacking handle of your locked door, and a moment later you hear, "<<$nickname>>, let me in!"'
		'It seems that the show is over for today, so you frantically freshen up...'
		act 'Further':gt 'Komp','mfc'
	else
		act 'Turn off the webcam':gt 'Komp','startpagemfc'
	end
end

if $ARGS[0] = 'bank':
	'<center><img src="images/pics/komp/online_bank.jpg"></center>'
	if karta + bankDebtLimit >= 10:
		*pl
		
		'* You can buy internet access online through your bank account. 1 hour of internet for only 10 <b>₽</b>! *'
		
		*pl
		
		if karta >= 0:
			'You have <<karta>> <b>₽</b> in your account.'
			'You have an approved credit of <font color="blue"><<bankDebtLimit>></font>!'
		else
			'You hava a debt of <font color="red"><<-1 * karta>></font> <b>₽</b>.'
			'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font>!'
		end
		
		*pl
		
		act 'Buy internet time':
			cla
			intinp = input ("How many hours of internet access do you wish to purchase? (1hr = 10 <b>₽</b>)")

			if intinp <= 0 or intinp * 10 > karta + bankDebtLimit:
				'Invalid amount.'
			else
				karta -= intinp * 10
				internet += intinp
				'You paid for <<intinp>> hours of Internet access, you have <<internet>> hours of the Internet access remaining.'
				'<<intinp * 10>> <b>₽</b> were removed from your account.'
			end
			act 'Move away': gt 'Komp', 'bank'
		end
	end
	act 'Exit online banking':gt 'Komp', 'start'
end

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