123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621 |
- # 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
- 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['stage'] = 3 and blackmailQW['smsday'] = 0:
- blackmailQW['smsday'] = blackmailQW['dreamday'] + 3
- gs 'telefon', 'AddContact', '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)"
- elseif daystart = blackmailQW['smsday'] and blackmailQW['next_payment'] > 0:
- 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'] and blackmailQW['next_payment'] > 0:
- 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, 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
- !!=============================================!!
- !! !!
- !! 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':
- gs 'telefon', 'ClearSMSSchedule', 'Blackmailer'
- 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>>!'
- 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'
- $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
- 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'
- 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
- 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
- money -= blackmailQW['next_payment']
- blackmailQW['total_payment'] += blackmailQW['next_payment']
- blackmailQW['next_payment'] = 0
- blackmailQW['stage'] = 5
- blackmailQW['smsday'] = 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
- !!=============================================!!
- !! !!
- !! 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
- 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 ---------------------------------
|