glife/locations/blackmailer.qsrc

# blackmailer

if $ARGS[0] = 'init_check':
	if blackmailQW['day'] ! 0: exit
	if ($ARGS[2] = 'inside' or $ARGS[2] = 'indoors'):
		if strpos($loc, 'church') <= 0: exit
	end


	temp_prob_chance = 300
	temp_prob_chance += max(fame['pav_slut'], fame['city_slut'])
	temp_prob_chance += max(fame['pav_modelling'], fame['city_modelling']) / 10
	temp_prob_chance += max(fame['pav_porn'], fame['city_porn']) / 10
	temp_prob_chance -= 15 * min(exhibitionist_lvl * exhibitionist_lvl, 9)
	temp_prob_chance -= pcs_exhib
	if temp_prob_chance > 600: killvar 'temp_prob_chance' & exit

	if $ARGS[1] = 'tits':
		temp_prob_chance -= 40
	elseif $ARGS[1] = 'butt':
		temp_prob_chance -= 60
	elseif $ARGS[1] = 'pussy':
		temp_prob_chance -= 80
	elseif $ARGS[1] = 'full':
		temp_prob_chance -= 100
	end

	if rand(0, temp_prob_chance) >= 5: killvar 'temp_prob_chance' & exit
	killvar 'temp_prob_chance'

	gs 'blackmailer', 'init_blackmail', $ARGS[1]
end

if $ARGS[0] = 'init_blackmail':
	blackmailQW['day'] = daystart
	blackmailQW['stage'] = 1
	blackmailQW['init_day'] = daystart
	if $ARGS[1] = 'panty':
		$blackmailQW['init_flashaction'] = 'panties'
	elseif $ARGS[1] = 'pantyrear':
		$blackmailQW['init_flashaction'] = 'panty clad ass'
	elseif $ARGS[1] = 'butt_plug':
		$blackmailQW['init_flashaction'] = 'butt plug'
	elseif $ARGS[1] = 'full':
		$blackmailQW['init_flashaction'] = 'naked body'
	else
		$blackmailQW['init_flashaction'] = $ARGS[1]
	end

	$blackmailQW['init_flashimage'] = $flash_image + '.jpg'
	$blackmailQW['init_flashloc'] = $loc
	$blackmailQW['init_flashloc_arg'] = $loc_arg
	$blackmailQW['init_flashregion'] = $region
	blackmailQW['total_material'] = 1

	if strpos($loc, 'park') > 0:
		$blackmailQW['init_flashloc_desc'] = 'in a park'
		'A flash of light briefly brightens the surrounding trees and you see a shadow darting between the trees. The light of the camera flash prickling on your exposed skin.'
	elseif strpos($loc, 'church') > 0:
		$blackmailQW['init_flashloc_desc'] = 'in a church'
		'The flash of a camera illuminates the inside of the church, but the source eludes you.'
	elseif strpos($loc, 'zaprF') > 0:
		$blackmailQW['init_flashloc_desc'] = 'while washing cars'
		'You briefly think a car turned on their headlights, before you realise it was the flash of a camera, the source of which already gone.'
	else
		$blackmailQW['init_flashloc_desc'] = ''
		'You think you notice the flash of a camera from the corner of your eye, but its source is already out of view.'
	end
	if exhibitionist_lvl > 0:
		gs 'arousal', 'flashlite', -5
		gs 'arousal', 'end'
	end
end




	!!=============================================!!
	!!                                             !!
	!!                  FUNCTIONS                  !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'purge_all':
	killvar 'blackmailQW'
	gs 'telefon', 'DeleteContact', 'Blackmailer'
end



if $ARGS[0] = 'add_blackmail_selfie':
	temp_i = 0
	if blackmailQW['total_material'] <= 10:
		:add_blackmail_loop
		if $blackmailQW['selfie_image_<<temp_i>>'] ! '':
			temp_i += 1
			if temp_i < 10: jump 'add_blackmail_loop'

			temp_i = rand(0, 9)
		end
	else
		temp_i = rand(0, 9)
	end

	$blackmailQW['selfie_image_<<temp_i>>']		= $ARGS[1]
	$blackmailQW['selfie_location_<<temp_i>>']	= $ARGS[2]
	$blackmailQW['selfie_dress_<<temp_i>>']		= $ARGS[3]
	 blackmailQW['selfie_LocIndex_<<temp_i>>']	=  ARGS[4]
	 blackmailQW['selfie_number_<<temp_i>>']	=  ARGS[5]
	killvar 'temp_i'
end

if $ARGS[0] = 'choose_blackmail_image':
	if rand(0, 10) > 0:
		$result = $blackmailQW['selfie_image_<<rand(0, 9)>>']
		if $result = '':
			$result = $blackmailQW['selfie_image_<<rand(0, 8)>>']
			if $result = '': $result = $blackmailQW['selfie_image_<<rand(0, 7)>>']
		end
	end
	if $result = '': $result = $blackmailQW['init_flashimage']
end




	!!=============================================!!
	!!                                             !!
	!!                    CIKL                     !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'cikl':
	if blackmailQW['next_payment'] > 0:
		if daystart = blackmailQW['smsday']:
			gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS1_reminder'", "(hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
		elseif daystart > blackmailQW['smsday']:
			gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS_failure'", "(hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
		end
	else
		if blackmailQW['smsday'] = 0:
			if blackmailQW['stage'] = 3:
				blackmailQW['smsday'] = blackmailQW['dreamday'] + 4
				gs 'telefon', 'AddContact', 'Blackmailer', 'icon_na', 1
			elseif blackmailQW['stage'] >= 5:
				blackmailQW['smsday'] = daystart + 6 + rand(0, 12 - 5 * (min(blackmailQW['stage'], 7) - 5))
			end
		elseif daystart >= blackmailQW['smsday']:
			if blackmailQW['stage'] = 3:
				gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS1'", "(hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
			elseif blackmailQW['stage'] = 8:
				gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS_package'", "(hour >= 8 and hour <= 12 and rand(0, 100) = 0 or hour = 13 and minut >= 22 or hour = 14)"
			elseif blackmailQW['stage'] = 9:
				gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS_failure'", "(hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
			elseif blackmailQW['stage'] >= 5:
				gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS_repeat'", "(hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
			end
		end
	end
end





	!!=============================================!!
	!!                                             !!
	!!                   DREAMS                    !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'blackmail_dreams':
	if blackmailQW['stage'] = 1:
		$sleep_events_priority[] = 'gs ''blackmailer'', ''photo_dream1'' '
	elseif blackmailQW['stage'] = 2:
		$sleep_events_priority[] = 'gt ''blackmailer'', ''photo_dream2'' '
	else
		temp_rand = rand(-2, 1)
		if temp_rand >= 1 and blackmailQW['stage'] >= 2:
			$sleep_events[] = 'gt ''blackmailer'', ''photo_dream2'' '
		elseif temp_rand = 0:
			$sleep_events[] = 'gs ''blackmailer'', ''photo_dream1'' '
		end
	end
end


if $ARGS[0] = 'photo_dream1':
	if blackmailQW['stage'] = 1: blackmailQW['stage'] = 2
	blackmailQW['dreamday'] = daystart + 3
	if strpos('panty_pantyrear_bra', $blackmailQW['init_flashaction']) > 0:
		gs 'arousal', 'flashlite', -5
	else
		gs 'arousal', 'flash', -5
	end
	gs 'arousal', 'end'

	'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>"></center>'
	$temp_dream_text = 'You dream about getting caught while flashing your '
	$temp_dream_text += $blackmailQW['init_flashaction']
	$temp_dream_text += ' ' + $blackmailQW['init_flashloc_desc']
	$temp_dream_text += ', your skin prickling from the light of unending camera flashes.'

	$temp_dream_text
	killvar 'temp_dream_text'
	gs 'dream_events', 'event_end'

elseif $ARGS[0] = 'photo_dream2':
	if blackmailQW['stage'] = 2:
		blackmailQW['stage'] = 3
		blackmailQW['smsday'] = daystart + 6
		gs 'telefon', 'Blackmailer', 'icon_na', 1
		gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS1'", "daystart > blackmailQW['smsday'] and (hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
	end
	blackmailQW['dreamday'] = daystart + 3
	gs 'arousal', 'flash', -5
	gs 'arousal', 'end'

	if motherKnowWhore = 0 and npc_rel['A29'] > 0:
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
		'You dream that your <<$npc_nickname[''A29'']>> is sitting at the kitchen table, looking somber, almost defeated, reading what seems to be a letter.'

		act 'Ask your <<$npc_nickname[''A29'']>> what''s wrong':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mum_gyno2.jpg"></center>'
			'You walk up to her and ask "What''s wrong <<$npc_nickname[''A29'']>>?"'
			'She drops the letter and see that it is accompanied by a picture.'

			act 'Look at the picture':
				*clr & cla
				'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>"></center>'
				$temp_dream_text = 'You get a clear look at the picture depicting you flashing your '
				$temp_dream_text += $blackmailQW['init_flashaction']
				$temp_dream_text += ' ' + $blackmailQW['init_flashloc_desc']
				$temp_dream_text += '.'
				$temp_dream_text
				killvar '$temp_dream_text'

				'Overcoming the initial shock, you can barely hear that your <<$npc_nickname[''A29'']>> is speaking to you, though you don''t register what she''s saying to you.'

				act 'Listen to your mother':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/spank.jpg"></center>'
					'"Oh, you slut! Your father and I worked so hard to raise you as a decent person, hoping you would find a good husband some day and it turns out you''re a whore who gets off on showing her <<$blackmailQW[''init_flashaction'']>> to strangers!"'
					'Suddenly her expression steels, her mind made up. "You can still be saved. I will turn you away from this errant path, you will not shame this family even if I have to beat the sin out of you."'
					'She grabs your arm and yanks you over kitchen table, ripping donw your pants as she reaches for something outside of your view.'
					'You hear sound of metal and leather, the feel of thick, rough, leather against your naked behind. The sound as she cracks it like a whip. "This is for your own good, someday you''ll understand."'
					'...'
					'"Someday you will."'

					act 'Brace yourself':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/hug_sad1.jpg"></center>'
						'Bracing yourself for the pain that never comes, the dream shifts. You are left on the outside looking in, the house a mess, your <<$npc_nickname[''A29'']>> crying, <<$npc_nickname[''A34'']>> and your <<$npc_nickname[''A28'']>> nowhere to be seen.'
						'The lingering feelings of a happy family quickly fading.'
						gs 'dream_events', 'event_end'
					end
				end
			end
		end
	elseif $start_type['loc'] = 'sg' and gruptipe ! 5:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/locker.jpg"></center>'
		'You dream that it''s the end of a long school day, a tired track back to your lockers, the drab hallways, the monotonous marching of time.'
		'Opening your locker to take your stuff, ready for the same walk home, you yelp in surprise as hundreds of polaroids flow out of your opened locker. Similar shouts of surprise happen all around you as even more polaroids burst from their lockers too.'
		'As the surprise fades you can hear snickering around you, your friends holding the pictures pointing and laughing at you.'

		act 'Grab a polaroid':
			*clr & cla
			'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>"></center>'
			$temp_dream_text = 'You grab one of the pictures and see yourself flashing your '
			$temp_dream_text += $blackmailQW['init_flashaction']
			$temp_dream_text += ' ' + $blackmailQW['init_flashloc_desc']
			$temp_dream_text += '.'
			$temp_dream_text
			killvar '$temp_dream_text'
			'The laughter around you grows, you are surrounded by a sea of people holding your picture and laughing at you.'
			'Wading through the ocean of polaroids, you are ever confronted with the fact that you have lost the respect of your former friends.'
			
			gs 'dream_events', 'event_end'
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
		'You dream that you''re walking through Pavlovsk on a beautiful, windless, cloudless, sunny afternoon, the soft hum of cars, people, wind, and birds fills your ears as the simmering heat of the sun caresses your skin.'
		'Snippets of conversations happening around you press against the edges of your mind.'
		'"...ink that''s h...", "..ooks li...", "...ouldn''t da...", "...at a sl..."'
		'You can''t really under stand what''s being said as the harsh wind rips the words from the air, but from the way that they''re looking at the newspaper you guess that''s what they''re talking about.'

		act 'Head to the post office to satiate your curriosity':
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavresn.jpg"></center>'
			'You hurry to the post office to get a copy of your own, the wind howling in your ears. The cold sends shivers down you spine as the rain beats relentless in your face.'
			'When you finally arive you see the postmaster, an older man, look at you strangly. Deafening thunder shakes the building, rain drums loudly against the windows as lightning flashes outside.'

			act 'Buy a newspaper':
				'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>"></center>'
				$temp_dream_text = 'The postmaster distandly hands you a newspaper, and on the front cover you see a picture of yourself flashing your '
				$temp_dream_text += $blackmailQW['init_flashaction']
				$temp_dream_text += ' ' + $blackmailQW['init_flashloc_desc']
				$temp_dream_text += '.'
				$temp_dream_text
				killvar '$temp_dream_text'
				'"I didn''t know that you were such a whore!", "That''s really her, what a slut!", "Maybe she''ll let us fuck her too!"'
				'You run outside into the raging storm, the insults piercing through, chasing you.'
				gs 'dream_events', 'event_end'
			end
		end
	end
end




	!!=============================================!!
	!!                                             !!
	!!                     SMS                     !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'Add_SMS1':
	if blackmailQW['stage'] = 3: blackmailQW['stage'] = 4
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
	blackmailQW['smsday'] = daystart + 2
	blackmailQW['next_payment'] = rand(50, 100) * 10
	$blackmailQW['blackmail_image_chosen'] = $blackmailQW['init_flashimage']

	$SMSTree['0'] = 'Hello <<$pcs_firstname>>!'

		if motherKnowWhore = 0 and npc_rel['A29'] > 0:
			$SMSTree['1'] = 'If you don''t want your mother to see this image you will do exactly as I say'
		elseif $start_type['loc'] = 'sg' and gruptipe ! 5:
			$SMSTree['1'] = 'If you don''t want your friends to see this image you will do exactly as I say'
		else
			$SMSTree['1'] = 'If you don''t want the world to see this image you will do exactly as I say'
		end

				$SMSTree['2'] = 'Leave <<blackmailQW[''next_payment'']>> <b>₽</b> beneath the fourth park bench, I know you know which one.'
					$SMSTree['3'] = 'You have three days'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'receive', $SMSTree['0']
		gs 'SMSText_builder', 'receive_img', $blackmailQW['blackmail_image_chosen']
		gs 'SMStext_builder', 'receive', $SMSTree['1']
		gs 'SMStext_builder', 'receive', $SMSTree['2']
		gs 'SMStext_builder', 'receive', $SMSTree['3']
		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
	gs 'SMStext_builder', 'end'
	killvar '$SMSTree'
end

if $ARGS[0] = 'Add_SMS1_reminder':
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'

	if blackmailQW['next_payment'] > 0:
		if blackmailQW['escape'] = -1: blackmailQW['escape'] = 0

		$SMSTree['0'] = '<<$pcs_firstname>> don''t forget, if you don''t leave <<blackmailQW[''next_payment'']>> <b>₽</b> beneath the fourth park bench, you will regret it'

		gs 'SMStext_builder', 'start'
			gs 'SMStext_builder', 'receive', $SMSTree['0']
			gs 'SMSText_builder', 'receive_img', $blackmailQW['blackmail_image_chosen']
			gs 'SMStext_builder', 'add_sms', 'Blackmailer'
		gs 'SMStext_builder', 'end'
		killvar '$SMSTree'
	end
end

if $ARGS[0] = 'Add_SMS_failure':
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
	blackmailQW['smsday'] = 0

	if blackmailQW['next_payment'] > 0 or blackmailQW['stage'] = 9:
		if blackmailQW['escape'] = -1: blackmailQW['escape'] = 0
		blackmailQW['next_payment'] = 0

		$SMSTree['0'] = 'Guess you like it when people know you''re a whore'
			$SMSTree['1'] = 'or you didn''t think I''d go through with it'
				$SMSTree['2'] = 'we''ll see'

		gs 'SMStext_builder', 'start'
			gs 'SMStext_builder', 'receive', $SMSTree['0']
			gs 'SMStext_builder', 'receive', $SMSTree['1']
			gs 'SMStext_builder', 'receive', $SMSTree['2']
			gs 'SMStext_builder', 'add_sms', 'Blackmailer'
		gs 'SMStext_builder', 'end'

		if blackmailQW['stage'] < 9:
			if $blackmailQW['init_flashregion'] = 'city':
				fame['city_sex'] += 2 * blackmailQW['total_material']
			elseif $blackmailQW['init_flashregion'] = 'gad':
				fame['gad_sex'] += 10 * blackmailQW['total_material']
			else
				fame['pav_sex'] += 5 * blackmailQW['total_material']
			end
		end
		blackmailQW['stage'] = -1
	end
end


if $ARGS[0] = 'Add_SMS_package':
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
	if blackmailQW['stage'] < 9: blackmailQW['stage'] = 9
	blackmailQW['smsday'] = daystart + 2
	mail['city'] += 1

	$SMSTree['0'] = 'The package has arrived at the St. Petersburg post office'
		$SMSTree['1'] = 'Pick it up in the next 2 days, or you know what will happen'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'receive', $SMSTree['0']
		gs 'SMStext_builder', 'receive', $SMSTree['1']

		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
	gs 'SMStext_builder', 'end'
end





	!!=============================================!!
	!!                                             !!
	!!                    PARK                     !!
	!!                                             !!
	!!=============================================!!

if $ARGS[0] = 'set_park_act':
	if blackmailQW['next_payment'] > 0:
		act 'Walk to the fourth bench to pay your blackmailer':
			menu_off = 1
			minut += 3
			gs 'stat'
			if blackmailQW['stage'] = 4:
				gt 'blackmailer', 'park1'
			else
				gt 'blackmailer', 'park_repeat'
			end
		end
	end
end


if $ARGS[0] = 'park1':
	'<center><img src="images/locations/shared/park/bench_6.jpg"></center>'
	'You spot the bench that your blackmailer is talking about, and take a seat at the edge of it.'

	if money < blackmailQW['next_payment']:
		act 'Hide the money (<font color="red"><<blackmailQW[''next_payment'']>> <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to do that.</font>'
	else
		act 'Hide the money (<<blackmailQW[''next_payment'']>> <b>₽</b>)':
			*clr & cla
			if blackmailQW['stage'] = 4: blackmailQW['stage'] = 5
			gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
			blackmailQW['smsday'] = 0
			money -= blackmailQW['next_payment']
			blackmailQW['total_payment'] += blackmailQW['next_payment']
			blackmailQW['next_payment'] = 0

			minut += 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/system/image_needed.png" ></center>'
			'You descretely hide the money near the base of the bench.'

			act 'Quickly walk away': gt $loc, $loc_arg
		end
	end

	act 'Walk away': gt $loc, $loc_arg
end




	!!=============================================!!
	!!                                             !!
	!!                   POLICE                    !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'set_police_act':
	if blackmailQW['stage'] >= 3 and blackmailQW['escape'] = 0:
		act 'Report that you''re being blackmailed':
			menu_off = 1
			minut += 5
			gs 'stat'
			gt 'blackmailer', 'police1'
		end
	end
end

if $ARGS[0] = 'police1':
	if $region = 'pav':
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/police/pavrec.jpg" ></center>'
		'You walk up to a bored looking cop shuffling about some paperwork.'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/police/cityrec.jpg"></center>'
		'You walk up to a window, you pick up the phone and hear a buzzer sound on the other side. One of the officers picks it up without hesitation and looks at you.'
	end
	'"Can I help you?"'
	'"I-I''m being blackmailed" you stammer. The cops eyebrow raises slightly, but other than that his expression doesn''t change.'
	if $region = 'pav':
		'"Follow me, we can take your statement over here."'
	else
		'"Someone will come out to meet you. Follow them and they''ll take your statement in the back."'
	end
	act 'Continue':
		*clr & cla
		minut += 5
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/shared/police/interrogation1.jpg"></center>'
		if $region = 'pav':
			'You sit down at a shoddy looking desk and another officer who looks only marginally more competent than the one who greeted you sits down across from you.'
		else
			'As promised, someone comes out and takes you into their office space behind. You sit down at a shoddy looking desk and the officer takes his place on the other side of it.'
		end
		'"Alright ma''am, you stated that you were being blackmailed. Could you please explain the situation?"'
		gs 'willpower', 'flash', 'self'
		if pcs_willpwr < will_cost:
			act 'Tell them that somebody caught you flashing your <<$blackmailQW[''init_flashaction'']>> <<$blackmailQW[''init_flashloc_desc'']>> and has been demanding money (<font color="red"><<will_cost>> willpower</font>)':'<br><font color="red">You don''t have enough willpower to use this action.</font>'
		else
			act 'Tell them that somebody caught you flashing your <<$blackmailQW[''init_flashaction'']>> <<$blackmailQW[''init_flashloc_desc'']>> and has been demanding money.':
				*clr & cla
				minut += 5
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/shared/police/interrogation2.jpg"></center>'
				'"Some creep took a picture of me and is demanding money or he''ll release the picture!"'
				'"Hmm, how did this person contact you?"'
				'"He texted me."'
				'You see a stark of hope flash through the officers eyes, if you could show us the texts we might be able to locate him."'
				
				if arrpos('$SMSContact', 'Blackmailer') >= 0:
					act 'Show them the messages':
						*clr & cla
						if $blackmailQW['blackmail_image_chosen'] = '': $blackmailQW['blackmail_image_chosen'] = $blackmailQW['init_flashimage']
						blackmailQW['escape'] = 1
						minut += 10
						gs 'stat'

						'<center><img <<$set_imgh>> src="<<$blackmailQW[''blackmail_image_chosen'']>>"></center>'
						'You open your phone and show the police officers the messages, and the images that you were send. You see the officer raise his eyebrow and you think you can almost hear him mutter "accidentally?" under his breath.'
						'The officer fuddles around with you phone for a few minutes, his expression darkning with every bygone moment.'
						'"Ma''am, we''re taking this very seriously, but the perp was smart and hid his telephone number. We''ll try our best, stake out this drop-off location, but I don''t have high hopes that we''ll catch him quick enough."'
						'"I''m so sorry."'
						'A sense of defeat and humiliation fills you, the need to remove yourself from this situation is almost unbearable.'
						'"We will do everything we can, and here, take my card. Anything you need."'
						'You pocket the card without even looking at it, and quickly hurry out the station.'
						act 'Leave': gt $loc, $loc_arg

					end
					act 'Claim you deleted the messages': gt 'blackmailer', 'police_deleted'
				else
					act 'Say you deleted the messages': gt 'blackmailer', 'police_deleted'
				end
			end
		end
		act 'This is too embarrassing, flee the police station':
			*clr & cla
			blackmailQW['escape'] = -1
			minut += 10
			gs 'stat'

			if $region = 'pav':
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/police/pavext.jpg" ></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/police/cityext.jpg"></center>'
			end
			'Sitting in the interrogation room with the police officer, the situation suddenly comes crashing into you. You''re going to have to show some proof. That you were flashing your <<$blackmailQW[''init_flashaction'']>> <<$blackmailQW[''init_flashloc_desc'']>>. They will see the texts, the photos. They will see you for who you must be on the inside. You can already feel their eyes judging you.'
			'"I-I-I can''t, I can''t, I can''t..." you manage to push out, nearly hyper-ventilating.'
			'You nearly jump up out of the chair, backing up towards the door. Your eyes wide with panic "I''m sorry, I was mistaken".'
			'The police officer just sighs and moves towards the door "If you change your mind, you kn..."'
			'The remainder of the officers words fall on deaths ear as you rush out of the police station.'

			act 'Leave the station': gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'police_deleted':
	minut += 10
	blackmailQW['escape'] = -1
	gs 'stat'

	if $region = 'pav':
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/police/pavext.jpg" ></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/police/cityext.jpg"></center>'
	end
	'"Uhhmm" you stammer. "I, uhh, I deleted them."'
	'The hope in the officers eyes is immediately extinguised, replaced with a distrusting and tired look. "I''m sorry ma''am, we''ll try our best but without any evidence we really can''t help you."'
	'"If the suspect contacts you again, please don''t delete the messages. Okay?"'
	'You nod your head dejectedly.'
	'The officer stands up and escorts you back to the lobby. You briefly think to inform the officer about the drop-off location, but before you can even open your mouth you''re already outside the station.'
	'Seems like you''ll need some proof before they''ll take you seriously.'

	act 'Leave': gt $loc, $loc_arg
end




	!!=============================================!!
	!!                                             !!
	!!                 POST OFFICE                 !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'set_post_act':
	if blackmailQW['stage'] = 9 and $region = 'city':
		act 'Pick up the package':
			menu_off = 1
			minut += 5
			gs 'stat'
			gt 'blackmailer', 'post_office1'
		end
	end
end

if $ARGS[0] = 'post_office1':
	blackmailQW['stage'] = 10
	mail['city'] -= 1

	'<center><img src="images/locations/shared/postoffice/worker.jpg"></center>'
	'The postal worker hands you a medium sized non-descript package. It has no return adress.'

	act 'Ask who send the package':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img src="images/locations/shared/postoffice/worker.jpg"></center>'
		'He looks at you and raises an eyebrow. "Why are you picking up a package if you don''t know who send it?"'
		'After a few seconds of silence, the postal worker sighs and looks at something out of your view.'
		if year = 2016 or year = 2017 and month < 9:
			'"It says here that the package was collected from a public post box in Pavlovsk."'
		else
			'"It says here that the package was collected from a public post box in the University district."'
		end
		'"Not much more to go on I''m afraid."'

		act 'Thank him and leave': minut += 1 & gt 'post_office', 'pickup_mail'
	end
end



	!!=============================================!!
	!!                                             !!
	!!                  REPEATING                  !!
	!!                                             !!
	!!=============================================!!


if $ARGS[0] = 'set_SMSTree':
	$SMSTree['0'] = 'You know what we want'
		if motherKnowWhore = 0 and npc_rel['A29'] > 0:
			$SMSTree['1'] = 'If you don''t want your mother to see this image you will do exactly as I say'
		elseif $start_type['loc'] = 'sg' and gruptipe ! 5:
			$SMSTree['1'] = 'If you don''t want your friends to see this image you will do exactly as I say'
		else
			$SMSTree['1'] = 'If you don''t want the world to see this image you will do exactly as I say'
		end

				$SMSTree['2'] = 'Leave <<blackmailQW[''next_payment'']>> <b>₽</b> beneath the same park bench.'
					$SMSTree['3'] = 'You have three days'
						if rand(0, 1) = 0:
							$SMSTree['a4'] = 'Why are you doing this to me?'
						else
							$SMSTree['a4'] = 'What do you want from me?'
						end
						if rand(0, 1) = 0:
							$SMSTree['b4'] = 'Where am I going to get that much money from?'
						else
							$SMSTree['b4'] = 'How much do you want before it stops?'
						end
	
	$SMSTree['5'] = 'Just drop off the money'
		$SMSTree['6'] = 'or else'

	$SMSTree['10a'] = 'Work as a stripper, it''s what you were clearly born to do'
		$SMSTree['11a'] = 'How about this. Send us a picture of your tits and we''ll lower it'

	$SMSTree['10b'] = 'Send a nude like the slut you are'
		$SMSTree['11b'] = 'or you could do something special for us'

			$SMSTree['a12'] = 'fuck you'
			$SMSTree['b12'] = 'Send a (non-nude) selfie from your galleray'
			$SMSTree['c12'] = 'Send a selfie from your galleray'
			$SMSTree['d12'] = 'what?'
			$SMSTree['e12'] = 'yes sir'


	$SMSTree['a20'] = 'WTF! i said a pic of your tits, not this boring shit'
		$SMSTree['a21'] = 'you better bring an additional 500 <b>₽</b>!'
			$SMSTree['a22'] = 'drop <<blackmailQW[''next_payment''] + 500>> <b>₽</b> off in the park, or else!'
	$SMSTree['b20'] = 'nice'
		$SMSTree['b21'] = 'that''s worth about 500 <b>₽</b>'
			$SMSTree['b22'] = 'don''t forget to drop <<blackmailQW[''next_payment''] - 500>> <b>₽</b> off in the park'
	$SMSTree['c20'] = 'WOW'
		$SMSTree['c21'] = 'that''s worth about 1000 <b>₽</b>'
			$SMSTree['c22'] = 'don''t forget to drop <<blackmailQW[''next_payment''] - 1000>> <b>₽</b> off in the park'
	$SMSTree['d20'] = 'DAMN! you really are a slut aren''t you'
		$SMSTree['d21'] = 'definitely worth 2000 <b>₽</b>'
			$SMSTree['d22'] = 'now you only need to drop <<blackmailQW[''next_payment''] - 2000>> <b>₽</b> off in the park'

			$SMSTree['x22'] = 'you''re all settled for now'


	$SMSTree['30'] = 'We''ll send you a package with instructions, it''ll take a while though'
		$SMSTree['31'] = 'we''ll clear your debt for this week, do not make us regret this!'

			$SMSTree['a32'] = 'fuck you'

			$SMSTree['b32'] = 'ok'
				$SMSTree['b33'] = 'we''ll work on your tone'
			$SMSTree['c32'] = 'yes sir'
				$SMSTree['c33'] = 'good girl'

end



if $ARGS[0] = 'Add_SMS_repeat':
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
	blackmailQW['smsday'] = daystart + 2
	if blackmailQW['escape'] = -1: blackmailQW['escape'] = 0
	blackmailQW['next_payment'] = (rand(50, 100) + (blackmailQW['total_payment'] / 50 ) / (1 + blackmailQW['total_payment'] / 20000)) * 10
	$blackmailQW['blackmail_image_chosen'] = func('blackmailer', 'choose_blackmail_image')

	gs 'blackmailer', 'set_SMSTree'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'receive', $SMSTree['0']
		gs 'SMSText_builder', 'receive_img', $blackmailQW['blackmail_image_chosen']
		gs 'SMStext_builder', 'receive', $SMSTree['1']
		gs 'SMStext_builder', 'receive', $SMSTree['2']
		gs 'SMStext_builder', 'receive', $SMSTree['3']
		if blackmailQW['next_payment'] < 2000 and blackmailQW['total_payment'] < 5000:
			gs 'SMStext_builder', 'add_reply', $SMSTree['a4'], 'blackmailer', 'sms_repeat_end1', $SMSTree['a4']
		elseif blackmailQW['stage'] < 8 and blackmailQW['next_payment'] < 3000:
			gs 'SMStext_builder', 'add_reply', $SMSTree['b4'], 'blackmailer', 'sms_repeat_switch1', 'a', $SMSTree['b4']
		elseif blackmailQW['stage'] = 7:
			gs 'SMStext_builder', 'add_reply', $SMSTree['b4'], 'blackmailer', 'sms_repeat_switch1', 'b', $SMSTree['b4']
		elseif blackmailQW['stage'] >= 10:
			gs 'SMStext_builder', 'add_reply', $SMSTree['b4'], 'blackmailer', 'sms_repeat_switch1', 'c', $SMSTree['b4']
		end
		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
	gs 'SMStext_builder', 'end'
end

if $ARGS[0] = 'sms_repeat_end1':
	gs 'blackmailer', 'set_SMSTree'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send', $SMSTree[$ARGS[1]]
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['5']
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['6']
		gs 'SMStext_builder', 'show_sms', ARGS[2]
	gs 'SMStext_builder', 'end'
end

if $ARGS[0] = 'sms_repeat_switch1':
	gs 'blackmailer', 'set_SMSTree'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send', $ARGS[2]
		gs 'SMStext_builder', 'show_sms', ARGS[3]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['10' + $ARGS[1]]
		gs 'SMStext_builder', 'show_sms', ARGS[3]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['11' + $ARGS[1]]

		gs 'SMStext_builder', 'add_reply', $SMSTree['a12'], 'blackmailer', 'sms_repeat_end1', 'a12'
		if blackmailQW['stage'] < 6:
			gs 'SMStext_builder', 'send_selfie', $SMSTree['b12'], 'c|sw|u|ft|fa', 'blackmailer', 'sms_repeat_switch2'
		else
			gs 'SMStext_builder', 'send_selfie', $SMSTree['c12'], 'c|sw|u|n|b|sh|ft|fa|fp', 'blackmailer', 'sms_repeat_switch2'
		end
		if $ARGS[1] = 'b': 
			gs 'SMStext_builder', 'add_reply', $SMSTree['d12'], 'blackmailer', 'sms_repeat_switch3', 'd12'
		elseif $ARGS[1] = 'c':
			gs 'SMStext_builder', 'add_reply', $SMSTree['e12'], 'blackmailer', 'sms_repeat_switch5', 'e12'
		end

		gs 'SMStext_builder', 'show_sms', ARGS[3]
	gs 'SMStext_builder', 'end'
end



!  ARGS[1] = npc_code
! $ARGS[2] = image
! $ARGS[3] = location
! $ARGS[4] = state of dress
!  ARGS[5] = self loc index
!  ARGS[6] = selfie code
if $ARGS[0] = 'sms_repeat_switch2':
	gs 'blackmailer', 'set_SMSTree', $ARGS[4]

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send_img', $ARGS[2]
		gs 'SMStext_builder', 'show_sms', ARGS[1]

		wait 250

		if $ARGS[4] = 'clothed':
			blackmailQW['next_payment'] += 500
			$temp_path = 'a'

		elseif strpos('bikini|underwear', $ARGS[4]) > 0:
			blackmailQW['next_payment'] -= 500
			$temp_path = 'b'

		elseif strpos('bath|shower|titflash|assflash', $ARGS[4]) > 0:
			blackmailQW['next_payment'] -= 1000
			if blackmailQW['stage'] = 5: blackmailQW['stage'] = 6
			gs 'blackmailer', 'add_blackmail_selfie', $ARGS[2], $ARGS[3], $ARGS[4], ARGS[5], ARGS[6]
			$temp_path = 'c'

		elseif strpos('nude|pussyflash', $ARGS[4]) > 0:
			blackmailQW['next_payment'] -= 2000
			if blackmailQW['stage'] = 6: blackmailQW['stage'] = 7
			gs 'blackmailer', 'add_blackmail_selfie', $ARGS[2], $ARGS[3], $ARGS[4], ARGS[5], ARGS[6]
			$temp_path = 'd'

		end

		gs 'SMStext_builder', 'receive', $SMSTree[$temp_path + '20']
		gs 'SMStext_builder', 'show_sms', ARGS[1]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree[$temp_path + '21']
		gs 'SMStext_builder', 'show_sms', ARGS[1]

		wait 250
	
		if blackmailQW['next_payment'] > 0:
			gs 'SMStext_builder', 'receive', $SMSTree[$temp_path + '22']
		else
			blackmailQW['next_payment'] = 0
			blackmailQW['smsday'] = 0
			gs 'SMStext_builder', 'receive', $SMSTree['x22']
		end
		gs 'SMStext_builder', 'show_sms', ARGS[1]
	gs 'SMStext_builder', 'end'

	killvar 'temp_path'
end

if $ARGS[0] = 'sms_repeat_switch3':
	gs 'blackmailer', 'set_SMSTree'

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send', $SMSTree[$ARGS[1]]
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['30']
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['31']
		gs 'SMStext_builder', 'add_reply', $SMSTree['a31'], 'blackmailer', 'sms_repeat_end1', 'a31'
		gs 'SMStext_builder', 'add_reply', $SMSTree['b31'], 'blackmailer', 'sms_repeat_switch4', 'b'
		gs 'SMStext_builder', 'add_reply', $SMSTree['c31'], 'blackmailer', 'sms_repeat_switch4', 'c'

		gs 'SMStext_builder', 'show_sms', ARGS[2]
	gs 'SMStext_builder', 'end'
end

if $ARGS[0] = 'sms_repeat_switch4':
	gs 'blackmailer', 'set_SMSTree'

	if blackmailQW['stage'] < 8: blackmailQW['stage'] = 8
	blackmailQW['smsday'] = daystart + 14
	blackmailQW['next_payment'] = 0

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send', $SMSTree[$ARGS[1] + '31']
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree[$ARGS[1] + '32']

		if $ARGS[1] = 'b':
			!! penalty in the future when not using the proper speech
		end
		gs 'SMStext_builder', 'show_sms', ARGS[3]
	gs 'SMStext_builder', 'end'
end

!! END OF CONTENT MESSAGE
if $ARGS[0] = 'sms_repeat_switch5':
	gs 'blackmailer', 'set_SMSTree'
	blackmailQW['next_payment'] = 0

	gs 'SMStext_builder', 'start'
		gs 'SMStext_builder', 'send', $SMSTree[$ARGS[1]]
		gs 'SMStext_builder', 'show_sms', ARGS[2]

		wait 250

		!! END OF CONTENT MESSAGE
		gs 'SMStext_builder', 'receive', '<i>This content is not ready yet.</i>'
		gs 'SMStext_builder', 'show_sms', ARGS[2]
		wait 250
		gs 'SMStext_builder', 'receive', '<i>As a freebie your debt will be set to 0!</i>'
		gs 'SMStext_builder', 'show_sms', ARGS[2]
		wait 250
		gs 'SMStext_builder', 'receive', '<i>Thank you for enjoying the Blackmailer''s content</i>'
		gs 'SMStext_builder', 'show_sms', ARGS[2]
		wait 250
		gs 'SMStext_builder', 'receive', '<i>Love, Anjuna</i>'
		gs 'SMStext_builder', 'show_sms', ARGS[3]
	gs 'SMStext_builder', 'end'
end





if $ARGS[0] = 'park_repeat':
	'<center><img src="images/locations/shared/park/bench_6.jpg"></center>'
	'You walk to the familiar bench and take a seat at the edge of it.'

	if money < blackmailQW['next_payment']:
		act 'Hide the money (<font color="red"><<blackmailQW[''next_payment'']>> <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to do that.</font>'
	else
		act 'Hide the money (<<blackmailQW[''next_payment'']>> <b>₽</b>)':
			*clr & cla
			gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
			blackmailQW['smsday'] = 0
			money -= blackmailQW['next_payment']
			blackmailQW['total_payment'] += blackmailQW['next_payment']
			blackmailQW['next_payment'] = 0

			minut += 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/system/image_needed.png" ></center>'
			'You descretely hide the money near the base of the bench.'

			act 'Quickly walk away': gt $loc, $loc_arg
		end
	end

	act 'Walk away': gt $loc, $loc_arg
end


if $ARGS[0] ! 'set_SMSTree': killvar 'SMSTree'

--- blackmailer ---------------------------------