glife/locations/komp_camgirl.qsrc

# komp_camgirl
!2023/09/30
if $ARGS[0] = 'start':
	$menu_loc = 'komp_camgirl'
	$menu_arg = 'start'
	menu_off = 0
	gs 'family_schedule'
	if mesec > 0:
		*clr & cla
		minut += 2
		topmfc = 1
		backmfc = 1
		tokens = 0
		camclients = 0
		dynamic $UpdateCamBonus
		gs 'internet_mobile', 'use_internet', $subs, 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore2.jpg"></center>'
		'It''s that time of the month! You feel sick to your stomach and the cramps hurt pretty badly from time to time... you''re in no condition to earn money showing off your body.'
		act 'Leave this website': gt 'Komp', 'browse'
	elseif access['nocamshow'] = 1:
		*clr & cla
		minut += 2
		topmfc = 1
		backmfc = 1
		tokens = 0
		camclients = 0
		gs 'internet_mobile', 'use_internet', $subs, 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore2.jpg"></center>'
		'<<$access[''nocamshow'']>>'
		act 'Leave this website': gt 'Komp', 'browse'
	else
		act 'Go to your MFC homepage':
			*clr & cla
			minut += 2
			killvar'regviewReset'
			gs 'internet_mobile', 'use_internet', $subs, 2
			gs 'arousal', 'end'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore3.jpg"></center>'
			'You enter your own chatroom on the website. You currently have <<camclients>> viewers and <<regview>> followers.'
			if totFollowersLost >= 1:'You''ve lost <<totFollowersLost>> due to inactivity'

			act 'Continue': gt 'komp_camgirl','startpage'
		end
		act 'Leave this website':
			*clr & cla
			minut += 2
			topmfc = 1
			backmfc = 1
			tokens = 0
			camclients = 0
			gs 'internet_mobile', 'use_internet', $subs, 2
			gs 'arousal', 'end'
			gs 'stat'
			gt 'Komp','browse'
		end	
	end
end

if $ARGS[0] = 'startpage':
	$menu_loc = 'komp_camgirl'
	$menu_arg = 'startpage'
	menu_off = 0
	cam_daystart = daystart + 4
	dynamic $UpdateCamBonus
	killvar'totFollowersLost'
	killvar'regviewReset'
	if vgape > 10 or agape > 10:
		*clr & cla
		gs 'stat'
		'While you sit in your chair, you can''t help but wince every time you move. You want to put up a show, but it hurts too much. And besides... you doubt your viewers would want to see you in your current state! You should heal up a bit before trying again.'
		act 'Collect your earnings and leave':
			karta += tokenpay
			tokens = 0
			gt 'komp_camgirl','start'
		end
	else
		*clr & cla
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore3.jpg"></center>'
		if camclients = 0:
			'You currently have no viewers. Once you turn on your webcam, things will probably get busier. '
		else
			'You casually chat with the <<camclients>> viewers currently in your chatroom. Once you turn on your webcam, things will probably get busier.'
		end
		act 'Turn on your webcam': gt 'komp_camgirl','waitclients'
		act 'Collect your earnings and leave':
			karta += tokenpay
			tokens = 0
			gt 'komp_camgirl','start'
		end
	end
end

if $ARGS[0] = 'waitclients':
	$menu_loc = 'komp_camgirl'
	$menu_arg = 'waitclients'
	menu_off = 0
	gs 'family_schedule'
	dynamic $donate
	dynamic $views
	gs 'stat'
	*clr & cla
	minut += 4
	gs 'internet_mobile', 'use_internet', $subs, 4


	if $orgasm_or = 'yes' or $orgasm_or = 'custom':
		mfcdaycum = daystart
		gs 'arousal', 'end'
	end


	if camclients < 0:camclients = 0
	gs 'arousal', 'end'
	gs 'stat'

	if topmfc = 1 and backmfc = 1:
		img_source = 3
	elseif topmfc = 0 and backmfc = 1:
		img_source = 4
	elseif topmfc = 1 and backmfc = 0:
		img_source = 5
	else
		img_source = 6
	end
	
	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore' + img_source + '.jpg"></center>'
	
	if camclients = 0:
		'You take a moment of rest, unfortunately, you currently have no viewers.'
	else
		'You take a moment of rest, and just chat casually with your <<camclients>> viewers.'
	end
	'You have earned <<tokens>> tokens so far this session, which amounts to <<tokenpay>> <b>₽</b>.'
	if regview > 1:'You have <<regview>> followers'
	dynamic $clientrequest
	act 'Wait for more viewers': gt 'komp_camgirl','waitclients'

	if topmfc = 1 and clientask >= 91:
		*clr & cla
		gs 'stat'
		menu_off = 1
		'One of your viewers wants to see your boobs! He''s willing to leave you some tokens as a tip, if you take off your bra right now...'
		act 'Remove your bra':
			*clr & cla
			topmfc = 0
			mfcclients -= 1
			minut += 2
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore7.jpg"></center>'
			'You stand up and lean forward, so your boobs are in full view of the camera. You slowly take off your bra and give the camera a sweet smile.'
			'While you sit back down and toss your bra to the ground, you hear the donation sound several times. Your viewers enjoyed that!'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		act 'Tease instead':
			*clr & cla

			mfcclients += rand (-1,1)
			minut += 5
			gs 'internet_mobile', 'use_internet', $subs, 5
			dynamic $donate
			gs 'stat'

			'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/tits2.mp4"></video></center>'
			'Not quite prepared to reveal your breasts you play with them through your shirt hoping that will appease the crowd.'

			gs 'arousal', 'porn', 5, 'exhibitionism'
			minut -= 5
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		act 'Give them a brief look':
			*clr & cla

			mfcclients += rand(-1,1)
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/undress4.mp4"></video></center>'
			'You playfully lift your top hoping a short viewing will sate them for the time being and encourage them to stay for more.'

			gs 'arousal', 'porn', 2
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Refuse to take off your bra (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Refuse to take off your bra (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	end
	if backmfc = 1 and clientask >= 81 and clientask < 91:
		*clr & cla
		menu_off = 1
		'One of the viewers asks you to remove your panties and show your bare pussy to the camera. A second viewer chimes in, adding some extra tokens to the offer.'
		act 'Take off your panties':
			*clr & cla
			mfcclients -= 1
			backmfc = 0
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/webcam/undress3.mp4"></center>'
			'You make a show of pointing the camera at your groin and slowly push your panties down your legs. The chat explodes for a moment, with several viewers complimenting your body, and a few more making lewd comments on what they would do to you if they were with you right now.'
			'As promised, you receive some tokens.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		act 'Tease instead':
			*clr & cla

			mfcclients += rand(-1,1)
			minut += 4
			gs 'internet_mobile', 'use_internet', $subs, 4
			dynamic $donate
			gs 'stat'

			if topmfc = 1:
				'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/strip7.mp4"></video></center>'
				'Deciding to stay clothed a little longer you feel that you won''t be able to satisfy the crowd without showing at least some skin.'
				'Standing up you start dancing provocatively, your hands giving extra attention to your tits'
			end
			if topmfc = 0:
				'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/show5.mp4"></video></center>'
				'Lowering your panties to emphasize your butt you shake it briefly to appease the crowd'
			end
			gs 'arousal', 'porn', 4, 'exhibitionism'
			minut -= 4
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		act 'Give them a brief look':
			*clr & cla

			mfcclients += rand(-1,1)
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/show1.mp4"></video></center>'
			'You take off your panties and bend over to give a short preview of what''s to come before quickly covering up again and hoping it was enough to keep viewers interested.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -=2
			gs 'stat'
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Refuse to take off your panties (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Refuse to take off your panties (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	end
	if topmfc = 0 and clientask >= 95 and clientask < 99:
		menu_off = 1
		*clr & cla
		'One of the viewers types: "Play with those titties, girl! I''ll pay!"'
		act 'Play with your boobs':
			*clr & cla
			mfcclients = 0

			backmfc = 0
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore10.jpg"></center>'
			'You adjust your camera and lie down on your bed, and start to knead your tits and pinch your nipples playfully. When you hear the donation sound, you smile sweetly at the camera and thank the person who donated personally, immediately prompting a second viewer to donate as well.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Refuse to play with your boobs (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Refuse to play with your boobs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
	if backmfc = 0 and clientask = 99:
		menu_off = 1
		*clr & cla
		'"Let''s see that sweet cunt of yours again, whore!" one of your viewers says.'
		'He''s kinda rude about it, but then again... he''s willing to pay.'
		act 'Do it':
			*clr & cla
			mfcclients = 0

			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore12.jpg"></center>'
			'You lie down comfortably and put your hand between your legs, gently rubbing your labia with your fingers. You put some effort into showing how wet you are already, which is met with some enthusiastic chatter.'
			gs 'arousal', 'porn', 'clit_finger', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			if pcs_horny >= 100:
				pcs_mood = 100
				gs 'stat'
				$orgasm_txt = 'You groan despite yourself, and realize you''re about to have an orgasm on camera! Deciding it''s too late to stop, you flick your fingers over your clit several more times and moan loudly as your whole body begins to tremble. When you look at the chat again, you see a mixture of compliments and lewd comments on your show. Either way: they loved it!'
				$orgasm_or = 'custom'
			else
				$orgasm_or = 'no'
			end
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Ignore him (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
	if backmfc = 0 and clientask = 100:
		menu_off = 1
		*clr & cla
		'One of the viewers asks very politely: "Uh, hi! Could you please show me your vagina up close?"'
		act 'Show him your vagina':
			*clr & cla
			mfcclients = 0
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'
			if analplugIN = 1:'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore19.jpg"></center>'

			if pcs_vag <= 0:
				img_source = 18
			elseif pcs_vag <= 10:
				img_source = 13
			elseif pcs_vag <= 15:
				img_source = 14
			elseif pcs_vag <= 25:
				img_source = 15
			elseif pcs_vag <= 35:
				img_source = 16
			end
			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore' + img_source + '.jpg"></center>'
			'Aww, what a sweetheart! You smile at the camera and do what your client wants. He delivers on his promise as well, sending some tokens your way. The rest of the chat is thanking him too, everyone wanted to see that!'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Ignore him (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	end
	if backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 80:
		menu_off = 1
		*clr & cla
		'One of the viewers makes several comments on how badly he wants to fuck your ass, and then offers you tokens to show your anus to him...'
		act 'Show them your battered sphincter':
			*clr & cla
			mfcclients = 0

			backmfc = 0
			minut += 2	
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $donate
			gs 'stat'
			if analplugIN = 0:
				if cumsumass > 39:
					'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore74.jpg"></center>'
					'You turn your back to the camera and pull your ass cheeks aside, showing everyone your battered anus. When you push softly, you suddenly hear the chat exploding.'
					'"Oh my god, is that sperm!?" someone wonders.'
					'"Definitely! What a whore!" someone else adds.'
					'"I''d love to add my load to that!" a third one laughs.'
					'Oh no! Your face turns a deep red... you''re so ashamed right now! You try to calm the chat down, but the vulgar comments just keep coming and coming.'
					'At least the viewer who promised to donate did, so you''re a few tokens richer.'

					gs 'arousal', 'porn', 2, 'exhibitionism'
					minut -= 2 
					gs 'stat'

				else
					'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore20,<<rand(0,7)>>.jpg"></center>'
					'You bite your lip for a second, trying to think of a way to get out of his request. Then, you sigh and show them your rectum. It''s obviously quite used to having objects shoved in, something your audience notices immediately.'
					'Then your greed overcomes you. They already know... you might as well earn some money by showing them properly, right?'
					'You pull your ass cheeks aside, giving them a good view of your worn-out anus.'

					gs 'arousal', 'porn', 2, 'exhibitionism'
					minut -= 2
					gs 'stat'

				end
			else
				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore21.jpg"></center>'
				'You smile to yourself, he''s going to love what you have in store for him!'
				'"I''m sorry", you tell him, explicitly mentioning his username as well. "I can''t right now..."'
				'Then you turn around and show him the large plug you currently have shoved inside you. You wiggle your ass seductively at the camera and hear the donation sound mere seconds later.'

				gs 'arousal', 'porn', 2, 'exhibitionism'
				minut -= 2
				gs 'stat'

			end
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
		gs 'willpower', 'exhib', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Ignore him (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'komp_camgirl','waitclients'
			end
		else
			act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	end

	if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 89
	end

	if webpopular < 50 and clientask = 88:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 88
	end

	if webpopular >= 50 and pcs_vag >= 35 and clientask = 87:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 87
	end

	if webpopular >= 35 and pcs_vag >= 25 and alko >= 4 and clientask = 86:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 86
	end
	
	if webpopular >= 50 and pcs_vag + pcs_ass > 0 and alko >= 4 and clientask = 85:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 85
	end

	if backmfc = 0 and webpopular >= 25 and pcs_vag + pcs_ass >= 30 and alko >= 4 and clientask = 84:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 84
	end

	if backmfc = 0 and pcs_vag > 20 and clientask = 83:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 83
	end

	if webpopular > 25 and backmfc = 0 and sub > 25 and pcs_vag > 10 and mc_inventory['equipped_condoms'] > 0 and clientask = 82:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 82
	end

	if backmfc = 0 and webpopular >= 50 and pcs_ass > 25 and clientask = 81:
		menu_off = 1
		*clr & cla
		gt 'kompMFCtwo', 81
	end

	if backmfc = 0 and clientask < 80 and clientask >= 77:
		menu_off = 1
		*clr & cla
		gt 'kompMFCanal'
	end

	if clientask < 77 and clientask >= 74:
		menu_off = 1
		*clr & cla
		gt 'kompMFCoral'
	end

	if backmfc = 0 and clientask => 90 and clientask < 95:
		menu_off = 1
		*clr & cla
		'One of the viewers asks: "Do you have a vibrator or dildo? I want you to put up a little show..."'
		gt 'kompMFC'
	end

	if clientask < 74:
		act 'Dance':
			menu_off = 1
			*clr & cla
			minut += 5	
			gs 'internet_mobile', 'use_internet', $subs, 5
			gs 'stat'
			if topmfc = 1 and backmfc = 1:
				video_source = 4
			elseif topmfc = 0 and backmfc = 1:
				video_source = 7
			elseif topmfc = 1 and backmfc = 0:
				video_source = 6
			else
				video_source = 5
			end

			dynamic $danceviewer
			'<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/strip' + video_source + '"></video></center>'
			'Turning on some music you dance erotically hoping to entice some viewers.'

			gs 'exp_gain', 'dancero', 1
			gs 'arousal', 'porn', 5
			minut -= 5
			gs 'stat'
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end	

	if topmfc = 1 and backmfc = 1 and clientask < 74:
		act 'Perform a striptease':
			menu_off = 1
			*clr & cla
			gs 'stat'
			minut += 3
			gs 'internet_mobile', 'use_internet', $subs, 3
			dynamic $danceviewer
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/striptease4.mp4"></video></center>'
			'You decide that making a show of stripping yourself might encourage some attention.  Repositioning your cam, you stand up and dance as you remove your underwear.'
			gs 'exp_gain', 'dancero', 1
			topmfc = 0
			backmfc = 0
			gs 'arousal', 'porn', 3
			minut -= 3
			gs 'stat'
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end	

	if topmfc = 1 and clientask < 74:
		act 'Take off your bra':
			menu_off = 1 
			*clr & cla
			topmfc = 0
			minut += 2
			gs 'internet_mobile', 'use_internet', $subs, 2

			gs 'stat'

			if backmfc = 1:
				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore4.jpg"></center>'
			end
			if backmfc = 0:
				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore5.jpg"></center>'
			end
			'Even though no one requested you to do so, you figure showing off your nice boobs might get some more viewers into the channel. You slowly take off your bra and wiggle your breasts seductively at the camera.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end

	if topmfc = 0 and clientask < 74:
		act 'Idly play with your boobs':
			menu_off = 1
			*clr & cla
			minut += 2
			gs 'internet_mobile', 'use_internet', $subs, 2
            dynamic $views
			dynamic $donate
			gs 'stat'

			if alko >= 4:
				gs 'pain', 2, 'slap', 'breasts'
				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore80.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore9.jpg"></center>'
			end
			'You chat with your viewers for a little while and begin to play with your boobs absent-mindedly in a slow moment. It feels quite nice! You knead your boobs and play with them more and more intently, almost completely forgetting about the camera.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end

	if backmfc = 1 and clientask < 74:
		act 'Take off your panties':
			menu_off = 1
			*clr & cla
			backmfc = 0
			minut += 2
			gs 'internet_mobile', 'use_internet', $subs, 2
			gs 'stat'
			if topmfc = 1:'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore5.jpg"></center>'
			if topmfc = 0:'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore6.jpg"></center>'
			'You know that the fewer clothes you have on, the more viewers will be inclined to check out your channel. You slowly take off your panties in front of the camera, rewarding the viewers already in your channel to a free show when you expose your naked pussy to them.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end
	if backmfc = 0 and clientask < 74:
		act 'Play with your pussy':
			menu_off = 1
			*clr & cla
			minut += 4
			gs 'internet_mobile', 'use_internet', $subs, 4
			dynamic $views
			dynamic $donate
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore11.jpg"></center>'
			'You get bored during a slow moment in the chat, and begin to play with your pussy without giving it another thought.'
			'"How does that feel, girl?" one of your viewers asks. "I bet you love fingering yourself, with a bunch of strangers watching you!" another adds.'
			'Giving them a defensive smile, you shrug and reply with one hand, while you keep rubbing your clit slowly with the other.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			gs 'arousal', 'vaginal_finger', 2, 'exhibitionism'
			minut -= 4
			gs 'stat'

			if pcs_horny >= 100:
				pcs_mood = 100
				gs 'stat'
				'Oh crap! You misjudged your endurance, and suddenly squirm and gasp in front of the camera. You''re having an orgasm!'
				'When it subsides, you look at your current viewer count. Damn... you just came in front of <<camclients>> users, completely free of charge!'

				$orgasm_or = 'yes'
				gs 'stat'
			else
				$orgasm_or = 'no'
			end
			act 'Continue': gt 'komp_camgirl','waitclients'
		end
	end
	if backmfc = 0 and clientask < 74:
		act'Play with your ass':
			menu_off = 1
			*clr & cla
			minut += 4
			gs 'internet_mobile', 'use_internet', $subs, 4
			dynamic $views
			dynamic $donate
			if pcs_ass < 10:analplay += 1
			mfcclients -= 1
			minut += 2
			pcs_horny += rand(5,10)
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore45.jpg"></center>'
			'You put two fingers in your mouth and generously cover them in saliva, and then turn your back to the camera. Much to the appreciation of your viewers, you give them a short preview of what an anal show would look like from you. You finger your anus for the camera for a little while, giving your viewers a happy smile the whole time.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			gs 'arousal', 'anal_finger', 2, 'exhibitionism'
			minut -= 4
			gs 'stat'

			if pcs_horny >= 100:
				pcs_mood = 100
				$orgasm_txt = 'It feels too good to stop! Before you know it, your fingers are repeatedly penetrating your ass and you moan excitedly, barely keeping yourself from screaming. You just had an anal orgasm in front of <<camclients>> viewers, completely free of charge! Oops...'
				$orgasm_or = 'custom'
				gs 'stat'
			else
				$orgasm_or = 'no'
			end
			act'Continue': gt'komp_camgirl','waitclients'
		end
	end
	if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 74:
		act'Pinch your nipples hard':
			menu_off = 1
			*clr & cla
			minut += 2
			gs 'internet_mobile', 'use_internet', $subs, 2
			dynamic $views
			dynamic $donate
			mfcclients -= 1
			gs 'pain', 2, 'pinch', 'nipples'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore80.jpg"></center>'
			'You''re getting too turned on, and need to slow yourself down a little!'
			'You tightly pinch your nipples and pull hard on them. It hurts a lot, and the sharp pain lowers your excitement by quite a lot. Nevertheless, your viewers enjoy the free show and have no idea you actually did that for your own good.'

			gs 'arousal', 'porn', 2, 'exhibitionism'
			minut -= 2
			gs 'stat'

			act'Continue': gt'komp_camgirl','waitclients'
		end
	end
	if locat['Anya_inroom'] = 1 and $loc = 'bedrPar':
		*clr & cla
		topmfc = 1
		backmfc = 1
		karta += tokenpay
		tokens = 0
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/camwhore2.jpg"></center>'
		'Suddenly you hear the handle of your door creak, and an annoyed voice shouting: "<<$pcs_nickname>>, what the hell!? Why is the door locked? Let me in!"'
		'Oh crap, it''s your sister! "Sorry everyone, the show''s over!" you whisper to the camera and you close the stream and hide the website. You quickly put your clothes back on and open your door, trying to avoid the scrutinizing gaze of your sister.'
		'When she''s no longer paying attention to you, you open the site again and find yourself in the main lobby of MyFreeCams. You''re a bit bummed that you couldn''t get more out of that session, but cash in your earnings.'
		gs 'internet_mobile', 'add_limitation', 'noporn', 'You can''t watch porn with your sister in the room'
		gs 'internet_mobile', 'add_limitation', 'nocamshow', 'You can''t do a camshow with your sister in the room'
		act 'Continue': gt 'komp_camgirl','start'
	else
		act 'Turn off the webcam': gt 'komp_camgirl','startpage'
	end
end
!! Dynamic $IncreaseFame
$IncreaseFame = {
    ! Increase fame over time
	dynamic $UpdateCamBonus
	FameIncMin = CamBonus / 30
	FameIncMax = CamBonus / 15
    fame['city_social'] += rand(FameIncMin, FameIncMax)
    fame['city_sexind'] += rand(FameIncMin, FameIncMax)
	webpopular = (fame['city_sexind'] + fame['city_social']) / 2
	killvar 'FameIncMin'
	killvar 'FameIncMax'
}

!!	dynamic $danceviewer
!! the amount of viewers that join while Sveta is dancing 
$danceviewer = {
	dynamic $IncreaseFame
	minClient = (pcs_dancero/8) + (webpopular / 12) + (CamBonus/12)
	maxClient = (pcs_dancero/5) + (webpopular / 9) + (CamBonus/9)
	camclients += rand(minClient, maxClient)
	killvar 'minClient'
    killvar 'maxClient'
}
!! Dynamic $views
$views = {
	dynamic $IncreaseFame
        maxClient += (CamBonus / 10) - mfcclients*2
        minClient += (CamBonus / 15) - mfcclients*2

		camclients += rand(minClient, maxClient)
    ! Calculate followers
    maxRegview = (camclients + (CamBonus * 2)) / 100
    regview += rand(1, maxRegview)

	killvar 'maxRegview'
    killvar 'minClient'
    killvar 'maxClient'
}

! Dynamic $UpdateCamBonus
$UpdateCamBonus = {
    CamBonus = (pcs_apprnc + webpopular + (fame['city_sexind']/2)+ pcs_exhib + (fame['city_performer']/2) + (fame['city_social']/2) + regview + (pcs_mood*2)) / 10

    ! topmfc = bra 
	! backmfc = panties
    if topmfc = 0: CamBonus += 10
    if backmfc = 0: CamBonus += 15

}

!! Dynamic $donate
$donate = {
    dynamic $UpdateCamBonus

    ! Calculate donation chance and token amounts
    minChance = CamBonus / 3
    chancetips = rand(minChance, 100)
    minTokens = (CamBonus + camclients) / 50
    maxTokens = (CamBonus + camclients) / 20
    chance = 100 - minTokens

    ! Check if a donation occurs
    if chancetips >= chance:
        tokens += rand(minTokens, maxTokens)
    end
	tokenpay = tokens * 2
    killvar 'minTokens'
    killvar 'maxTokens'
    killvar 'chance'
    killvar 'minChance'
    killvar 'chancetips'
}

!! dynamic $clientrequest
$clientrequest = {
    ! Determine client requests based on topmfc and backmfc status and pcs_apprnc
    if topmfc = 1 and backmfc = 1:
        if pcs_apprnc < 100:
            clientask = rand(20, 100)
        else
            clientask = rand(30, 100)
        end
    end
    if (topmfc = 0 and backmfc = 1) or (topmfc = 1 and backmfc = 0):
        if pcs_apprnc < 100:
            clientask = rand(30, 100)
        else
            clientask = rand(35, 100)
        end
    end
    if topmfc = 0 and backmfc = 0:
        if pcs_apprnc < 100:
            clientask = rand(35, 100)
        else
            clientask = rand(45, 100)
        end
    end
}

--- komp_camgirl ---------------------------------