# events

if $ARGS[0] = 'street_cum':
	if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
		if hour >= 7 and hour <= 21:
			pcs_mood -= 5
			if face_write > 0:
			pcs_mood -= 5
			'Passers puzzled turn around staring at you - one with surprise, and others with contempt. Someone smiles and shows a finger. Some of the pictures on your phone, absolutely not hiding and giggling at you. You clearly noticeable semen and bargain painted face.'
			else
			'Puzzled passerbys turn around and stare at you. Some take pictures on their phones, not entirely hiding that they are giggling at you. The sperm on you is clearly noticeable.'
			end
		end
	elseif (cumloc[6] = 0 or cumloc[7] = 0) and cumloc[11] = 0 and face_write > 0:
		pcs_mood -= 5
		'Surrounding look at you with surprise, grin or a slight contempt. Someone just point the finger and laughs. Someone photographed phone. Hair obviously can not hide "art" on your face.'
	end
end

if $ARGS[0] = 'read':
	act 'Read a book':
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'

		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'

		if f_book > 0:
			if fantasybook <= 0:fantasybook = 5 & f_book -= 1

			'You still have <<f_book>> unread fantasy novels.'
		end

		if fantasybook > 0:
			act 'Read fantasy book. There are <<fantasybook * 100>> pages left (1:00)':
				cls
				fantasybook -= 1

				if fantasybook = 0:totalbook += 1

				minut += 60

				if pcs_nerd > 0:
					lastread = totminut
					lastreadday = daystart
					pcs_nerd += 1
					blizoruk += 1
				end

				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'

				if pcs_nerd > 0:
					pcs_mood = 100

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1
					'For an hour you enthusiastically read the book, completely immersed in the authors world.'
				else
					pcs_mood += 10
					'For an hour you read the book.'
				end

				act 'Close the book':gt $loc, $Metka
			end
		end

		if w_book > 0:
			if womanbook <= 0:womanbook = 5 & w_book -= 1

			'You still have <<w_book>> unread women''s novels.'
		end

		if womanbook > 0:
			act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
				cls
				womanbook -= 1

				if womanbook = 0:totalbook += 1
				minut += 60

				if pcs_nerd > 0:
					lastread = totminut
					lastreadday = daystart
					pcs_nerd += 1
					blizoruk += 1
				end

				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'

				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 10

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					'For an hour you enthusiastically read the book, completely immersed in the story.'
				else
					pcs_mood += 10
					pcs_horny += 3
					'For an hour you read the book.'
				end

				act 'Close the book':gt $loc, $Metka
			end
		end

		act ' Close the book':gt $loc, $Metka
	end

	if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
		'You have no magazines to read.'
	else
		act 'Read a magazine':
			cls
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'

			if cookmag = 1:
				act 'Read your cooking magazine':
					cla
					cookmag = 0
					pcs_mood += 5
					minut += 30
					'You relax for half an hour reading your cooking magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if fashmag = 1:
				act 'Read your fashion magazine':
					cla
					fashmag = 0
					pcs_mood += 5
					minut += 30
					makupskl_exp += 1
					'You relax for half an hour reading your fashion magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if compmag = 1:
				act 'Read your computing magazine':
					cla
					compmag = 0
					pcs_mood += 5
					minut += 30
					compskl_exp += 1 
					'You relax for half an hour reading your computing magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if biomag = 1:
				act 'Read your biographical magazine':
					cla
					biomag = 0
					pcs_mood += 5
					minut += 30
					'You relax for half an hour reading your biographical magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if knitmag = 1:
				act 'Read your knitting magazine':
					cla
					knitmag = 0
					pcs_mood += 5
					minut += 30
					if pcs_sewng <= 100: sewng_exp += rand(1,3)
					'You relax for half an hour reading your knitting magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if fitmag = 1:
				act 'Read your fitness magazine':
					cla
					fitmag = 0
					pcs_mood += 5
					minut += 30
					'You relax for half an hour reading your fitness magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			act 'Return':gt $loc, $Metka
		end
	end
end

if $ARGS[0] = 'read_porn':
	act 'Read the porn magazine':
		cls
		'<center><img <<$set_imgh>> src="images/shared/accessories/magazines/porn.jpg"></center>'

		if pornMagazine = 1:
			'<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
		else
			pornMagazine -= 1
			pcs_horny += 10
			minut += 5
			gs 'stat'
			'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
		end

		act 'Put away':gt $loc, $Metka
	end
end

if $ARGS[0] = 'snkayf':
	snkz = RAND(1,6)
	gs 'underwear', 'remove'
	if snkz = 1:
		hour += 2
		gt'gdk'
	end

	if snkz = 2:
		hour += 2
		gt'gskver'
	end

	if snkz = 3:
		hour += 2
		gt'bedrPar'
	end

	if snkz = 4:
		hour += 2
		gt'gopskver'
	end

	if snkz = 5:
		hour += 2
		gt 'vokmantoiev', 'female'
	end

	if snkz = 6:
		$clothingworntype = 'nude'
		hour += 2
		gt'Glake'
	end
end

if $ARGS[0] = 'narkozakladka':
	cls
	'<center><b>Shooting galleries</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
	'You decide to ask, and whether there are any dealers in Pavlovsk. To which the man replied, "Go to the train station platform, it will cost you though..."'
	'And then he looks at you menacingly at you, "And if I hear that you''ve caused any trouble, well death will seem like a good escape."'
	act 'Agree':
		cls
		snarkozak = 1
		'<center><b>Shooting galleries</b></center>'
		'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
		'You gulp and stammer "I assure you there willl be no problems"'
		'Guy nods, "Good then you can find a range of product at the end of the platform."'
		act 'Leave':gt'narkopriton'
	end
end

if $ARGS[0] = 'snarkozaka':
	cls
	minut += 20
	'<center><B>Pavlovsk train station</B></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
	'You walk to the end of the platform and see a man hiding undercover smoking a cigarette'
	'Walking up to him you ask him if he has anything'
	'He turns and looks you up and down, "That depends on what you want little lady?"'
	act 'Heroin':
		money -= 1500
		StrongNarkota += 25
		SNarkTimes += 1
		narkozakday=day
		gs'stat'
		'You buy the drugs and without thinking twice you shoot up.'
	end
	act 'Amphetamines':
		money -= 1000
		amphetamine += 5
	end
	act 'Leave':
		gt 'events', 'snkayf'
	end
end


if $ARGS[0] = 'snkayf1':
	snkz = RAND(1,6)
	gs 'underwear', 'remove'
	if snkz = 1:
		hour += 2
		gt'park','start'
	end

	if snkz = 2:
		hour += 2
		gt'down'
	end

	if snkz = 3:
		hour += 2
		gt'nord'
	end

	if snkz = 4:
		hour += 2
		gt'street'
	end

	if snkz = 5:
		hour += 2
		gt'dachi'
	end

	if snkz = 6:
		hour += 2
		gt'lake','start'
	end
end

!!Centralised flashing location
!!For flashing events only, do not use for exposure leading to sex
!!To be used in the following format
!!gs 'flash_[type]', '[location]', [time]
!![time] in minutes, default is 5
!!Available options as follows
!![type] - bra, butt, full, panties, pussy, tits
!![location] - indoors, outdoors
!!eg. gs 'flash_tits', 'outdoors', 15
!!There is no continue action so you must add this as required
!!You should add checks for underwear before allowing the player to flash them but a non-event contingency is included

if $ARGS[0] = 'flash_bra':
	*clr
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/bra/' + rand(1,3) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/bra/' + rand(1,3) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/bra/' + rand(1,6) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/bra/' + rand(1,4) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		end
	end
end

if $ARGS[0] = 'flash_butt':
	*clr
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/butt/' + rand(1,7) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/butt/' + rand(1,9) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up the back of your skirt to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back in place, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/butt/' + rand(1,6) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/butt/' + rand(1,16) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		end
	end
end

if $ARGS[0] = 'flash_full':
	*clr
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/full/' + rand(1,5) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/full/hairy' + rand(1,6) + '.jpg"></center>'
			end
			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
		else
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/full/' + rand(1,10) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/full/hairy' + rand(1,10) + '.jpg"></center>'
			end
			'Making sure there are no children around and its not too busy you lift your skirt and top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
		end
	else
		if $ARGS[1] = 'inside':
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/1.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/full/hairy1.jpg"></center>'
			end
			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
		else
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/' + rand(1,7) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/full/hairy' + rand(1,6) + '.jpg"></center>'
			end
			'Making sure there are no children around and its not too busy you lower your pants and lift your top to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly. You quickly cover up again enjoying a buzz of excitement.'
		end
	end
end

if $ARGS[0] = 'flash_panties':
	*clr
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/panty/' + rand(1,4) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/panty/' + rand(1,16) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you lift the front of your skirt to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/panty/1.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/panty/' + rand(1,6) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		end
	end
end

if $ARGS[0] = 'flash_panties_rear':
	*clr
	gs 'arousal', 'flashlite', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/pantyrear/' + rand(1,4) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/pantyrear/' + rand(1,16) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your skirt to show off your pantied. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pantyrear/1.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pantyrear/' + rand(1,6) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull down the back of your pants to show off your panty clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		end
	end
end

if $ARGS[0] = 'flash_pussy':
	*clr
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/pussy/' + rand(1,7) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
			end
			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		else
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/pussy/' + rand(1,12) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/pussy/hairy' + rand(1,6) + '.jpg"></center>'
			end
			'You glance around to see who all is in the area, then you pull up the front of your skirt to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You lower the skirt back and place, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/' + rand(1,4) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/pussy/hairy' + rand(1,3) + '.jpg"></center>'
			end
			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		else
			if pcs_pubes <= 20:
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/' + rand(1,9) + '.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/pussy/hairy' + rand(1,7) + '.jpg"></center>'
			end
			'You glance around to see who all is in the area, then you pull down the front of your pants to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your pants back up, feeling the thrill of excitement running down your spine.'
		end
	end
end

if $ARGS[0] = 'flash_tits':
	*clr
	gs 'arousal', 'flash', ARGS[2]
	gs 'arousal', 'end'
	if PCloSkirt > 0:
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/inside/tits/' + rand(1,8) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/skirt/outside/tits/' + rand(1,12) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		end
	else
		if $ARGS[1] = 'inside':
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/inside/tits/' + rand(1,8) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		else
			'<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/' + rand(1,14) + '.jpg"></center>'
			'You glance around to see who all is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust. You pull your top back down, feeling the thrill of excitement running down your spine.'
		end
	end
end

	


--- events ---------------------------------