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] = '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'] >= 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:
		$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:
		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'] < 6:
			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



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

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


if $ARGS[0] = 'park1':
	menu_off = 1
	gs 'stat'

	'<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':
			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
			end
		end
		act 'This is too embarrassing, flee the police station':
			*clr & cla
			minut += 10
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/police/cityext.jpg"></center>'
			'The situation suddenly comes crashing into you '
		end
	end


end




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


if $ARGS[0] = 'Add_SMS_repeat':
	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
	blackmailQW['smsday'] = daystart + 2
	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')

	$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



	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_switch1', '1', $SMSTree['a4']
		else
			gs 'SMStext_builder', 'add_reply', $SMSTree['b4'], 'blackmailer', 'sms_repeat_switch1', '2', $SMSTree['a4']
		end
		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
	gs 'SMStext_builder', 'end'
	killvar '$SMSTree'
end

if $ARGS[0] = 'sms_repeat_switch1':
	if $ARGS[1] = '1':
		$SMSTree['10'] = 'Just drop off the money'
			$SMSTree['11'] = 'or else'
	else
		$SMSTree['10'] = 'Work as a stripper, it''s what you were clearly born to do'
			$SMSTree['11'] = 'How about this. Send us a picture of your tits and we''ll call it even'
	end

				$SMSTree['a12'] = 'fuck you'
				$SMSTree['b12'] = 'Send a selfie from your galleray'

	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']
		gs 'SMStext_builder', 'show_sms', ARGS[3]

		wait 250

		gs 'SMStext_builder', 'receive', $SMSTree['11']

		if $ARGS[1] = '2':
			gs 'SMStext_builder', 'add_reply', $SMSTree['a12'], 'blackmailer', 'sms_repeat_switch1', '1', $SMSTree['a12']
			gs 'SMStext_builder', 'send_selfie', $SMSTree['b12'], iif(blackmailQW['stage'] < 6, 'c|sw|u|ft|fa', 'c|sw|u|n|b|sh|ft|fa|fp'), 'blackmailer', 'sms_repeat_switch2'
		end

		gs 'SMStext_builder', 'show_sms', ARGS[3]
	gs 'SMStext_builder', 'end'
	killvar '$SMSTree'
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':

	$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['b20'] = 'nice'
		$SMSTree['b21'] = 'that''s worth about 500 <b>₽</b>'

	$SMSTree['c20'] = 'WOW'
		$SMSTree['c21'] = 'that''s worth about 1000 <b>₽</b>'

	$SMSTree['d20'] = 'DAMN! you really are a slut aren''t you'
		$SMSTree['d21'] = 'definitely worth 2000 <b>₽</b>'

	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
			gs 'SMStext_builder', 'receive', $SMSTree['a20']
			gs 'SMStext_builder', 'show_sms', ARGS[1]
			wait 250
			gs 'SMStext_builder', 'receive', $SMSTree['a21']

		elseif strpos('bikini|underwear', $ARGS[4]) > 0:
			blackmailQW['next_payment'] -= 500
			gs 'SMStext_builder', 'receive', $SMSTree['b20']
			gs 'SMStext_builder', 'show_sms', ARGS[1]
			wait 250
			gs 'SMStext_builder', 'receive', $SMSTree['b21']

		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]

			gs 'SMStext_builder', 'receive', $SMSTree['b20']
			gs 'SMStext_builder', 'show_sms', ARGS[1]
			wait 250
			gs 'SMStext_builder', 'receive', $SMSTree['b21']
		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]

			gs 'SMStext_builder', 'receive', $SMSTree['b20']
			gs 'SMStext_builder', 'show_sms', ARGS[1]
			wait 250
			gs 'SMStext_builder', 'receive', $SMSTree['b21']
		end
		gs 'SMStext_builder', 'show_sms', ARGS[1]
		if blackmailQW['next_payment'] < 0:
			blackmailQW['next_payment'] = 0
			blackmailQW['smsday'] = 0
		end

		wait 250

		if blackmailQW['next_payment'] > 0:
			$SMSTree['22'] = 'don''t forget to drop ' + blackmailQW['next_payment'] + ' <b>₽</b> of in the park'
		else
			$SMSTree['22'] = 'you''re all settled.... for now'
		end
	
		gs 'SMStext_builder', 'receive', $SMSTree['22']
		gs 'SMStext_builder', 'show_sms', ARGS[1]
	gs 'SMStext_builder', 'end'
	killvar '$SMSTree'
end



if $ARGS[0] = 'park_repeat':
	menu_off = 1
	gs 'stat'

	'<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




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