# city_pharmacy
if $ARGS[0] = 'start':
*clr & cla
menu_off = 1
minut += 5
gs 'stat' & ! Update the information about the past tense
!a time limit of work pharmacies in Pavlovo
people = rand(1,15) & !We define the size of the queue in the pharmacy
if people <= 5:
*pl '
Pharmacy'
'> src="images/locations/pavlovsk/pharmacy/aptekabusy<>.jpg">'
*nl
'There is <> ' + iif(people < 2 or people > 4, 'people' , 'man' ) + ' in line as you walk up to the counter to check out.'
act 'Leave': minut += 5 & gt 'city_residential'
act 'Wait in line' :
minut += rand(1,4) * people
people = 0
gs 'stat'
gt 'city_pharmacy', 'shop'
end
else
gt 'city_pharmacy', 'shop'
end
end
if $ARGS[0] = 'shop' or $ARGS[0] = '':
*clr & cla
$location_type = 'public_indoors'
$loc = 'city_pharmacy'
$loc_arg = 'shop'
$menu_loc = 'city_pharmacy'
$menu_arg = 'shop'
menu_off = 0
gs 'stat'
*pl 'Pharmacy'
if pharma_day ! daystart: pharma_day = daystart & pharma_picrand = rand(1,4)
'> src="images/locations/pavlovsk/pharmacy/apteka_worker_'+pharma_picrand+'.jpg">'
*nl
if $message ! '':
$message
killvar '$message'
'"Do you need anything else?"'
else
'A young woman in a white coat stands behind the counter. She smiles as you approach. "Hello, what can I help you with?"'
end
act 'Leave': minut += 5 & gt 'city_residential'
!! output for purchased item
iif($ARGS[1] = '', '', '<<$ARGS[1]>>')
*nl
*pl ''
if preziktype = 0: *P func ('$stock_item', 5, 'Condoms', 500, 'prezik', $curloc, $ARGS[0])
if preziktype = 1 or preziktype = 2: *P func ('$stock_item', 5, 'Condoms', 500, 'prezikcount', $curloc, $ARGS[0])
*P func ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', $curloc, $ARGS[0])
*P func ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', $curloc, $ARGS[0])
*P func ('$stock_item', 10, 'Antibiotics', 580, 'lekarstvo', $curloc, $ARGS[0])
*P func ('$stock_item', 30, 'Vitamins', 130, 'vitamin', $curloc, $ARGS[0])
*P func ('$stock_item', 50, 'Painkillers', 435, 'painkiller', $curloc, $ARGS[0])
*P func ('$stock_item', 10, 'Ointments for chafing', 372, 'mosolmaz', $curloc, $ARGS[0])
*P func ('$stock_item', 20, 'Lubricant', 145, 'lubri', $curloc, $ARGS[0])
!!tube of 5 uses as far as I can tell, price is set to that
*P func ('$stock_item', 30, 'Lip balm', 127, 'lipbalm', $curloc, $ARGS[0])
*P func ('$stock_item', 12, 'Weight loss pill', 248, 'fatdel', $curloc, $ARGS[0])
*P func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc, $ARGS[0])
*P func ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $curloc, $ARGS[0])
*P func ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', $curloc, $ARGS[0])
*P func ('$single_stock_item', 1, 'Breast pump', 2200, 'breastpump', $curloc, $ARGS[0])
*P func ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', $curloc, $ARGS[0])
*P func ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', $curloc, $ARGS[0])
if pcs_knows_nipplecream > 0:
*P func ('$stock_item', 20, 'Nipplebalm', 600, 'bpnipplebalm', $curloc, $ARGS[0])
end
if KandidNapr = 1: *P func ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', $curloc, $ARGS[0], iif(mid($start_type,1,2) = 'sg',1,0), '(you have 0)',''+iif(money >= 1050,'buy','')+'')
*P '
'
end
if $ARGS[0] = 'buy_antifungal':
if Kandidoz >= 30:
money -= 1050
Kandidoz = 0
*clr
cla
gs 'stat'
'> src="images/locations/pavlovsk/pharmacy/apteka_worker_'+pharma_picrand+'.jpg">'
*nl
'You bought 1 Antifungal medication.'
'You put the money on the counter before immediately opening the package and swallowing the tablet. A while later, you start feeling better.'
act 'Return': gt 'city_pharmacy', 'shop'
elseif Kandidoz < 30 and KandidozOnce > 0:
msg 'You don''t need medication right now. Your yeast infection is currently in remission and taking vitamins will ensure that it stays that way.'
else
msg 'You don''t need any antifungal medication right now.'
*nl
gt 'city_pharmacy', 'shop'
end
end
--- city_pharmacy ---------------------------------