[added] more blackmail content

locations/blackmailer.qsrc

@@ -47,7 +47,7 @@ if $ARGS[0] = 'init_blackmail':
 		$blackmailQW['init_flashaction'] = $ARGS[1]
 	end
 
-	$blackmailQW['init_flashimage'] = $flash_image
+	$blackmailQW['init_flashimage'] = $flash_image + '.jpg'
 	$blackmailQW['init_flashloc'] = $loc
 	$blackmailQW['init_flashloc_arg'] = $loc_arg
 	$blackmailQW['init_flashregion'] = $region
@@ -72,6 +72,39 @@ if $ARGS[0] = 'init_blackmail':
 	end
 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
+
 
 
 
@@ -93,8 +126,8 @@ if $ARGS[0] = 'cikl':
 		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)"
 
 	!Currently repeating content
-	elseif blackmailQW['stage'] = 5 and blackmailQW['smsday'] = 0:
-		blackmailQW['smsday'] = daystart + rand(0, 7) + 6
+	elseif blackmailQW['stage'] >= 5 and blackmailQW['smsday'] = 0:
+		blackmailQW['smsday'] = daystart + rand(0, 13 - 5 * min(blackmailQW['stage'] - 5, 2)) + 6
 		gs 'telefon', 'SetSMSSchedule', 'Blackmailer', "", "0", "gs 'blackmailer', 'Add_SMS_repeat'", "daystart > blackmailQW['smsday'] and (hour >= 14 and hour <= 19 and rand(0, 100) = 0 or hour = 19 and minut >= 22 or hour = 20)"
 	end
 end
@@ -136,7 +169,7 @@ if $ARGS[0] = 'photo_dream1':
 	end
 	gs 'arousal', 'end'
 
-	'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>.jpg"></center>'
+	'<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']
@@ -169,7 +202,7 @@ elseif $ARGS[0] = 'photo_dream2':
 
 			act 'Look at the picture':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>.jpg"></center>'
+				'<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']
@@ -207,7 +240,7 @@ elseif $ARGS[0] = 'photo_dream2':
 
 		act 'Grab a polaroid':
 			*clr & cla
-			'<center><img <<$set_imgh>> src="<<$blackmailQW[''init_flashimage'']>>.jpg"></center>'
+			'<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']
@@ -232,7 +265,7 @@ elseif $ARGS[0] = 'photo_dream2':
 			'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'']>>.jpg"></center>'
+				'<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']
@@ -262,23 +295,24 @@ if $ARGS[0] = 'Add_SMS1':
 	blackmailQW['stage'] = 4
 	blackmailQW['smsday'] = daystart + 2
 	blackmailQW['next_payment'] = rand(50, 100) * 10
+	$blackmailQW['blackmail_image_chosen'] = $blackmailQW['init_flashimage']
 
-	$SMSTree['0'] = '"Hello <<$pcs_firstname>>!"'
+	$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"'
+			$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"'
+			$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"'
+			$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"'
+				$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['init_flashimage'] + '.jpg'
+		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']
@@ -290,11 +324,11 @@ end
 if $ARGS[0] = 'Add_SMS1_reminder':
 	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
 
-	$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"'
+	$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['init_flashimage'] + '.jpg'
+		gs 'SMSText_builder', 'receive_img', $blackmailQW['blackmail_image_chosen']
 		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
 	gs 'SMStext_builder', 'end'
 	killvar '$SMSTree'
@@ -304,9 +338,9 @@ if $ARGS[0] = 'Add_SMS_failure':
 	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
 	blackmailQW['stage'] = -1
 
-	$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"'
+	$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']
@@ -315,7 +349,7 @@ if $ARGS[0] = 'Add_SMS_failure':
 		gs 'SMStext_builder', 'add_sms', 'Blackmailer'
 	gs 'SMStext_builder', 'end'
 
-	if blackmailQW['stage'] < 5:
+	if blackmailQW['stage'] < 6:
 		if blackmailQW['init_flashregion'] = 'city':
 			fame['city_sex'] += 2 * blackmailQW['total_material']
 		elseif blackmailQW['init_flashregion'] = 'gad':
@@ -391,32 +425,168 @@ end
 if $ARGS[0] = 'Add_SMS_repeat':
 	gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
 	blackmailQW['smsday'] = daystart + 2
-	blackmailQW['next_payment'] = (rand(50, 100) + blackmailQW['total_payment'] / 100) * 10
+	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"'
+	$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"'
+			$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"'
+			$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"'
+			$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"'
+				$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['a4'] = 'Where am I going to get that much money from?'
+						else
+							$SMSTree['a4'] = '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['init_flashimage'] + '.jpg'
+		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 or 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['a4'], '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':
+	$SMSTree['10'] = 'Just drop off the money'
+		$SMSTree['11'] = 'or 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'
+
+			$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']
+			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['b12'], 'c|sw|u|n|b|sh|ft|fa|fp', 'blackmailer', 'sms_repeat_switch2'
+			end
+		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

locations/saveupdater.qsrc

@@ -2878,6 +2878,13 @@ if temp_current_save_version < 00090204:
 
 		blackmailQW['total_material'] = 1
 	end
+	if $blackmailQW['init_flashimage'] ! '' and strpos($blackmailQW['init_flashimage'], '.jpg') = 0:
+		$blackmailQW['init_flashimage'] = $blackmailQW['init_flashimage'] + '.jpg'
+	end
+	if $blackmailQW['blackmail_image_chosen'] = '' and blackmailQW['next_payment'] > 0:
+		$blackmailQW['blackmail_image_chosen'] = $blackmailQW['init_flashimage']
+	end
+
 
 	if igor_krossdress > 0 and igor_eqwtday > 0 and igor_progulkaday = 0: igor_krossdress = 0