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