glife/locations/events.qsrc

# events
!2021/04/26
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': gs 'library_functions', 'set_home_read_acts'
if $ARGS[0] = 'read_porn': gs 'library_functions', 'set_read_porn_act'


if $ARGS[0] = 'snkayf':
	snkz = RAND(1,6)
	gs 'underwear', 'remove'
	if snkz = 1:
		minut += 120
		gt'pav_commcenter'
	end

	if snkz = 2:
		minut += 120
		gt 'pav_park', 'start'
	end

	if snkz = 3:
		minut += 120
		gt'bedrPar'
	end

	if snkz = 4:
		minut += 120
		gt'gopskver'
	end

	if snkz = 5:
		minut += 120
		gt 'pav_train_hall', 'female'
	end

	if snkz = 6:
		gs 'clothing', 'strip'
		minut += 120
		gt'pav_lake'
	end
end

if $ARGS[0] = 'ask_pav_drug_dropoff':
	*clr & cla
	'<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 "And if I hear that you''ve caused any trouble, well death will seem like a good escape."'
	act 'Agree':
		*clr & cla
		drugVars['pav_dropoff'] = 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'city_drugden'
	end
end

if $ARGS[0] = 'pav_drug_dropoff':
	*clr & cla
	minut += 20
	gs 'stat'
	'<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?"'
	*nl
	'Heroin: 560 <b>₽</b>'
	'Cocaine: 2100 <b>₽</b>'
	'Amphetamine: 600 <b>₽</b>'
	'Weed: 300 <b>₽</b>'

	act 'Leave': gt 'pav_train_hall'

	if money >= 560:
		act 'Buy and use heroin (560 <b>₽</b>)':
			money -= 560
			if drugVars['heroin_inject'] < 1:
				*clr & cla
				minut += 5
				drugUser = 1
				gs 'drugs', 'heroin'
				gs 'stat'
				'<center><b>Pavlovsk train station</b></center>'
				'<center><img <<$set_imgh>> src="images/locations/city/residential/den/chase_dragon.jpg"></center>'
				'You pour the heroin onto some foil, heat it up and then using a straw you quickly inhale the steam.'
				'The rush is instantaneous, you close your eyes as it rolls over you.'
				act 'You lay there briefly rolling, before leaving': gt 'events', 'pav_drug_dropoff'
			else
				*clr & cla
				minut += 5
				drugUser = 1
				gs 'drugs', 'heroin'
				gs 'stat'
				'<center><b>Pavlovsk train station</b></center>'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/event/usingheroin.jpg"></center>'
				'You buy some heroin and find a quiet place behind the platform to use it, and without thinking twice you shoot up.'
				'The rush is instantaneous, you close your eyes as it rolls over you.'
				act 'You lay there briefly rolling, before leaving': gt 'events', 'pav_drug_dropoff'
			end
		end
	else
		'You don''t have enough money to buy heroin.'
	end

	if money >= 2100:
		act 'Buy enough cocaine for 5 lines (1800 <b>₽</b>)':
			money -= 2100
			mc_inventory['cocaine'] += 5
			minut += 5
			gt 'events', 'pav_drug_dropoff'
		end
	else
		'You don''t have enough money to buy cocaine.'
	end

	if money >= 600:
		act 'Buy 5 Amphetamine (600 <b>₽</b>)':
			money -= 600
			mc_inventory['amphetamine'] += 5
			gt 'events', 'pav_drug_dropoff'
		end
	else
		'You don''t have enough money to buy amphetamine.'
	end

	if money >= 300:
		act 'Buy enough weed for 5 joints (300 <b>₽</b>)':
			money -= 300
			drugUser = 1
			mc_inventory['joints'] += 5
			minut += 5
			gt 'events', 'pav_drug_dropoff'
		end
	else
		'You don''t have enough money to buy weed.'
	end
end

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

	if snkz = 2:
		minut += 120
		gt'city_center'
	end

	if snkz = 3:
		minut += 120
		gt'city_industrial'
	end

	if snkz = 4:
		minut += 120
		gt'city_residential'
	end

	if snkz = 5:
		minut += 120
		gt'dachi'
	end

	if snkz = 6:
		minut += 120
		gt 'city_lake', 'start'
	end
end

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