|
@@ -143,6 +143,10 @@ if $ARGS[0] = 'cikl':
|
|
|
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
|
|
@@ -344,6 +348,7 @@ if $ARGS[0] = 'Add_SMS1_reminder':
|
|
|
|
|
|
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'
|
|
@@ -359,7 +364,7 @@ if $ARGS[0] = 'Add_SMS_failure':
|
|
|
gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
|
|
|
blackmailQW['smsday'] = 0
|
|
|
|
|
|
- if blackmailQW['next_payment'] > 0:
|
|
|
+ if blackmailQW['next_payment'] > 0 or blackmailQW['stage'] = 9:
|
|
|
if blackmailQW['escape'] = -1: blackmailQW['escape'] = 0
|
|
|
blackmailQW['next_payment'] = 0
|
|
|
|
|
@@ -374,7 +379,7 @@ if $ARGS[0] = 'Add_SMS_failure':
|
|
|
gs 'SMStext_builder', 'add_sms', 'Blackmailer'
|
|
|
gs 'SMStext_builder', 'end'
|
|
|
|
|
|
- if blackmailQW['stage'] < 6:
|
|
|
+ if blackmailQW['stage'] < 9:
|
|
|
if blackmailQW['init_flashregion'] = 'city':
|
|
|
fame['city_sex'] += 2 * blackmailQW['total_material']
|
|
|
elseif blackmailQW['init_flashregion'] = 'gad':
|
|
@@ -388,6 +393,26 @@ if $ARGS[0] = 'Add_SMS_failure':
|
|
|
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
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
|
|
|
!!=============================================!!
|
|
|
!! !!
|
|
@@ -398,7 +423,9 @@ end
|
|
|
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
|
|
@@ -410,9 +437,6 @@ 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.'
|
|
|
|
|
@@ -576,20 +600,58 @@ end
|
|
|
|
|
|
!!=============================================!!
|
|
|
!! !!
|
|
|
- !! REPEATING !!
|
|
|
+ !! POST OFFICE !!
|
|
|
!! !!
|
|
|
!!=============================================!!
|
|
|
|
|
|
|
|
|
-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')
|
|
|
+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
|
|
|
|
|
|
- $SMSTree['0'] = 'You know what we want'
|
|
|
+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:
|
|
@@ -610,8 +672,61 @@ if $ARGS[0] = 'Add_SMS_repeat':
|
|
|
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 selfie from your galleray'
|
|
|
+ $SMSTree['c12'] = 'what?'
|
|
|
+ $SMSTree['d12'] = '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']
|
|
@@ -620,26 +735,39 @@ if $ARGS[0] = 'Add_SMS_repeat':
|
|
|
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']
|
|
|
+ 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'
|
|
|
- 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
|
|
|
+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
|
|
|
|
|
|
- $SMSTree['a12'] = 'fuck you'
|
|
|
- $SMSTree['b12'] = 'Send a selfie from your galleray'
|
|
|
+ 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]
|
|
@@ -647,24 +775,27 @@ if $ARGS[0] = 'sms_repeat_switch1':
|
|
|
|
|
|
wait 250
|
|
|
|
|
|
- gs 'SMStext_builder', 'receive', $SMSTree['10']
|
|
|
+ gs 'SMStext_builder', 'receive', $SMSTree['10' + $ARGS[1]]
|
|
|
gs 'SMStext_builder', 'show_sms', ARGS[3]
|
|
|
|
|
|
wait 250
|
|
|
|
|
|
- gs 'SMStext_builder', 'receive', $SMSTree['11']
|
|
|
+ gs 'SMStext_builder', 'receive', $SMSTree['11' + $ARGS[1]]
|
|
|
|
|
|
- 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'
|
|
|
+ gs 'SMStext_builder', 'add_reply', $SMSTree['a12'], 'blackmailer', 'sms_repeat_end1', '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'
|
|
|
+ if $ARGS[1] = 'b':
|
|
|
+ gs 'SMStext_builder', 'add_reply', $SMSTree['c12'], 'blackmailer', 'sms_repeat_switch3', 'c12'
|
|
|
+ elseif $ARGS[1] = 'c':
|
|
|
+ gs 'SMStext_builder', 'add_reply', $SMSTree['c12'], 'blackmailer', 'sms_repeat_switch5', 'd12'
|
|
|
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
|
|
@@ -672,18 +803,7 @@ end
|
|
|
! 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 'blackmailer', 'set_SMSTree', $ARGS[4]
|
|
|
|
|
|
gs 'SMStext_builder', 'start'
|
|
|
gs 'SMStext_builder', 'send_img', $ARGS[2]
|
|
@@ -693,63 +813,148 @@ if $ARGS[0] = 'sms_repeat_switch2':
|
|
|
|
|
|
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']
|
|
|
+ $temp_path = 'a'
|
|
|
|
|
|
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']
|
|
|
+ $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'
|
|
|
|
|
|
- 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]
|
|
|
+ $temp_path = 'd'
|
|
|
|
|
|
- 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', 'receive', $SMSTree[$temp_path + '20']
|
|
|
gs 'SMStext_builder', 'show_sms', ARGS[1]
|
|
|
- if blackmailQW['next_payment'] < 0:
|
|
|
- blackmailQW['next_payment'] = 0
|
|
|
- blackmailQW['smsday'] = 0
|
|
|
- end
|
|
|
|
|
|
wait 250
|
|
|
|
|
|
+ gs 'SMStext_builder', 'receive', $SMSTree[$temp_path + '21']
|
|
|
+ gs 'SMStext_builder', 'show_sms', ARGS[1]
|
|
|
+
|
|
|
+ wait 250
|
|
|
+
|
|
|
if blackmailQW['next_payment'] > 0:
|
|
|
- $SMSTree['22'] = 'don''t forget to drop ' + blackmailQW['next_payment'] + ' <b>₽</b> of in the park'
|
|
|
+ gs 'SMStext_builder', 'receive', $SMSTree[$temp_path + '22']
|
|
|
else
|
|
|
- $SMSTree['22'] = 'you''re all settled.... for now'
|
|
|
+ blackmailQW['next_payment'] = 0
|
|
|
+ blackmailQW['smsday'] = 0
|
|
|
+ gs 'SMStext_builder', 'receive', $SMSTree['x22']
|
|
|
end
|
|
|
-
|
|
|
- gs 'SMStext_builder', 'receive', $SMSTree['22']
|
|
|
gs 'SMStext_builder', 'show_sms', ARGS[1]
|
|
|
gs 'SMStext_builder', 'end'
|
|
|
- killvar '$SMSTree'
|
|
|
+
|
|
|
+ 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]
|
|
|
|
|
|
-if $ARGS[0] = 'park_repeat':
|
|
|
- menu_off = 1
|
|
|
- gs 'stat'
|
|
|
+ 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
|
|
|
+
|
|
|
+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.'
|
|
|
|
|
@@ -778,6 +983,6 @@ if $ARGS[0] = 'park_repeat':
|
|
|
end
|
|
|
|
|
|
|
|
|
-
|
|
|
+if $ARGS[0] ! 'set_SMSTree': killvar 'SMSTree'
|
|
|
|
|
|
--- blackmailer ---------------------------------
|