# city_market
!2021/04/29
$location_type = 'public_outdoors'
if $ARGS[0] = 'start' or $loc_arg = 'start':
killvar 'clothingfilter'
CLOSE ALL
if sound = 0:
if month >=11 and month <= 12 or month >=1 and month <=3:
if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/zima.mp3',30
if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
else
if hour >= 8 and hour <= 23: PLAY 'sound/rynok.mp3',30 & PLAY 'sound/street_leto.mp3',30
if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
end
end
!if sound = 0:PLAY 'sound/street.mp3',30
cls
gs 'stat'
minut = minut + 5
mag = 1
$loc_arg = 'start'
$loc = 'city_market'
$menu_loc = 'city_market'
$menu_arg = 'start'
'
Marketplace'
'> src="images/locations/city/residential/market/rinok.jpg">'
''
'One of the stalls has a sign attached to it that reads "Cash paid for secondhand clothes". You can sell individual items or all of your unwanted clothes here.'
if $message ! '':
''+$message+''
killvar '$message'
else
''
end
*pl ''
*P FUNC ('$stock_item', 10, 'Dishwashing detergent', 400, 'fairy', 'city_market')
*P FUNC ('$stock_item', 10, 'Clothing detergent', 400, 'poroshok', 'city_market')
*P FUNC ('$stock_item', 8, 'Plates', 450, 'cltarelka', 'city_market')
*P FUNC ('$stock_item', 20, 'Cosmetics', 1000, 'kosmetica', 'city_market')
*P FUNC ('$stock_item', 25, 'Razors (number of shaves)', 300, 'stanok', 'city_market')
*P FUNC ('$stock_item', 10, 'Tampons', 160, 'tampon', 'city_market')
*P FUNC ('$stock_item', 10, 'Sanitary napkins', 80, 'sanpad', 'city_market')
*P FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', 'city_market', '', iif(bag > 0, 0, 1), 'You need a purse')
'
'
*pl
if analplugIN = 1 and $pantyworntype = 'none' and PCloSkirt > 2:
nurand = rand(0, 100)
if nurand >= 80:
pcs_mood -= 5
'You feel a hand gently pawing at your ass.'
gs 'arousal', 'foreplay', 3
gs 'stat'
end
end
act 'Leave':
cla
minut += 5
$loc_arg = ''
gs 'arousal', 'end'
gs 'stat'
gt 'city_residential'
end
if workrin = 1:
if week = 2 or week = 4 or week = 6:
if hour < 9:
'Arthur is waiting to set up a stall for you.'
act 'Set up stall':
cla
*clr
hour = 9
minut = 0
prodpayum = 1200
'Arthur unloads boxes from his truck and gives them to you. You start hanging the clothes inside around the stall.'
'Before leaving, Arthur gives you instructions. "Sell it all at whatever price you want, but at the end of your shift, I''ll charge you 1000 ₽ for each item sold. You should be making me no less than <> ₽."'
act 'Start working':gt 'city_marketwork', 'start'
end
end
end
act 'Quit':
cla
work = 0
workrin = 0
'You quit your job at the market and collect your papers.'
act 'Leave':gt 'city_market', 'start'
end
end
if (work = 0 or cheatWork = 1) and workrin = 0:
nl
'A messily written ad hangs from one of the stalls. "Need female market stall staff. Paychecks big."'
act 'Approach the owner of the ad':
cla
*clr
'Hi, my name is Arthur. I own many stalls here and I need a saleswoman. Want the job?'
'Pay is a percentage of sales, paid at end of shift. Your shifts would be Tuesdays, Thursdays and Saturdays from 08:00 to 14:00.'
'Government insist I have your papers, so it would be your main job.'
act 'Leave':gt 'city_market', 'start'
act 'Take the job':
cla
work = 1
workrin = 1
arturplan = 5000
'You give your papers to Arthur and he shakes your hand, welcoming you aboard.'
act 'Leave':gt 'city_market', 'start'
end
end
end
act 'Go to the book tray':
cls
minut += 15
gs'stat'
'You wlak up to the stall and inspect what''s on sale. You see a fantasy book, a science fiction book and various romance novels. They all cost 350 ₽ each.'
if money >= 350:
act 'Buy the fantasy book':
cls
minut += 15
money -= 350
f_book += 1
gs'stat'
'You buy the fantasy book for 350 ₽.'
act 'Leave':gt'city_market','start'
end
end
if money >= 350:
act 'Buy the science fiction book':
cls
minut += 15
money -= 350
f_book += 1
gs'stat'
'You buy the science fiction book 350 ₽.'
act 'Leave':gt'city_market','start'
end
end
if money >= 350:
act 'Buy a romance novel':
cls
minut += 15
money -= 350
w_book += 1
gs'stat'
'You buy a romance novel for 350 ₽.'
act 'Leave':gt'city_market','start'
end
end
act 'Leave':gt'city_market','start'
end
act 'View clothing':
cla
minut += 5
gt 'city_market', 'clo'
end
end
if $ARGS[0] = 'clo':
$loc_arg = 'clo'
$loc = 'city_market'
cls
gs'stat'
gs 'themes', 'indoors'
'Clothes.'
'You inspect the cheap clothing the stall has to offer.'
gs 'clothing_QV', 'shop_filter_header'
act 'Return':
cla
minut += 5
gt 'city_market', 'start'
end
!!To filter just this set
clo_i = 0
:loopmarket_outfits_filter
i = 1
:loopmarket_outfits
if market_outfits[i] = 0:
gs 'clothing_attributes', 'market_outfits', i
gs 'clothing_QV', 'shop_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:*p '> src="images/pc/items/market/clothes/<>.jpg" height="250" />'
end
end
i += 1
if i <= 20:jump 'loopmarket_outfits'
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopmarket_outfits_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopmarket_outfits_filter'
end
end
if $ARGS[0] = 'marketclo':
cla
if market_outfits[i] ! 0:
msg 'You already own these clothes.'
gt 'city_market', 'clo'
end
gt 'clothing', 'view_clothing_item', 'market_outfits',i, 750, 'shop'
end
if $ARGS[0] = 'tailor':
CLOSE ALL
cls
$loc = 'city_market'
$loc_arg = 'tailor'
$menu_loc = 'city_market'
$menu_arg = 'tailor'
menu_off = 0
gs 'stat'
'A sign reads: "Jacob Solomonovich Schneersohn, tailor, 8:00-16:00 Monday - Friday"'
act 'Speak to the tailor':
cla
*clr
'An elderly Jewish man is sitting at a table. He pulls his glasses down a little and looks over the top of them as he points at you.'
if portnoyQW > 0:
'"So <<$pcs_nickname>>. Do you need any clothing adjusted?"'
if money >= 500:
act 'Resize the clothes you''re wearing (500 ₽)':
*clr & cla
minut += 10
if CloStyle = 5 or $clothingworntype = 'danilovich_outfits':
'The tailor is looking irritatingly at you, "Why are you wasting my time with exercise clothing? That type of clothing does not need to be resized..."'
elseif dyneval('RESULT = <<$clothingworntype>>_b[<>]') = pcs_hips:
'The tailor is looking irritatingly at you, "Is this joke? Your clothes could not fit you better if they had been made for you. I have no time for such foolishness."'
elseif (dyneval('RESULT = <<$clothingworntype>>_b[<>]') > pcs_hips + 4) or (dyneval('RESULT = <<$clothingworntype>>_b[<>]') < pcs_hips - 4):
'The tailor is looking irritatingly at you, "Why are you wasting my time? Your clothing does not need to be resized. It might not be perfect but it is still fine."'
else
money -= 500
dynamic '<<$clothingworntype>>_b[<>] = pcs_hips'
'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment.'
'Jacob quickly measures your waist and hips, then only takes a few minutes to adjust your outfit.'
'You are handed your clothes back and quickly get dressed. You''re pleased with the job that the tailor has done.'
end
act 'Continue': minut += 10 & gt 'city_market', 'tailor'
end
act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'
act 'Take in all the clothes':gt 'portnoi2'
end
else
'"Hello young lady. I am Jacob Solomonovich, but you can call me Yasha. And what is your name?"'
act 'Tell him your name':
cla
portnoyQW = 1
'"<<$pcs_nickname>>"'
'"<<$pcs_nickname>>....What a pretty name. Come, sit here on this chair. How can I help you?"'
act 'Ask him about your clothes':
cla
*clr
minut += 15
gs 'stat'
'"Can you tailor my clothes to fit me better?"'
'"Of course I can! Otherwise, what kind of tailor would I be? Here, let me see what you''re wearing."'
'He jumps up and nimbly removes the tape from his neck and begins to measure your chest, waist and hips.'
'"I can adjust any clothing that doesn''t fit you for 500 ₽ per item."'
act 'Continue': gt 'city_market', 'tailor'
end
end
end
act 'Leave': minut += 10 & gt 'city_residential'
end
end
--- city_market ---------------------------------