# 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 'When you go up to check out their is <> ' + iif(people < 2 or people > 4, 'people' , 'man' ) + ' in line before you.' act 'Leave the pharmacy': minut += 5 & gt 'street' act 'Wait for your turn' : minut += rand(1,4) * people people = 0 gs 'stat' gt 'pharmacy', 'shop' end else gt 'pharmacy', 'shop' end end if $ARGS[0] = 'shop' or $ARGS[0] = '': *clr & cla $location_type = 'public_indoors' $loc = 'pharmacy' $metka = 'shop' $menu_loc = 'pharmacy' $menu_arg = 'shop' menu_off = 0 gs 'stat' *pl '
Pharmacy
' !*pl '
> src="images/unused/pharmacy.jpg">
' !there are 3 pic from russian 1.2.5, Let make it 3 shift if hour>22 or hour < 7: '
> src="images/locations/pavlovsk/pharmacy/apteka_worker_2.jpg">
' elseif hour<17: '
> src="images/locations/pavlovsk/pharmacy/apteka_worker_3.jpg">
' else '
> src="images/locations/pavlovsk/pharmacy/apteka_worker_4.jpg">
' end *nl if $message ! '': $message killvar '$message' '
"Do you need anything else?"
' else '
Their is a young woman behind the counter in a white coat,as you approach she asks. "Hello, what can I help you with?"
' end act 'Leave the pharmacy': minut += 5 & gt 'street' !! 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', 1, '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 *P FUNC ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', $CURLOC, $ARGS[0], StoryLine, '(you have 0)',''+iif(money >= 1050,'buy','')+'') *P '
' end if $ARGS[0] = 'buy_antifungal': if KandidNapr = 1: money -= 1050 Kandidoz = 0 gs 'stat' $gardmess = '
You bought 1 Antifungal medication.

You put the money on the counter and immediately open the package and swallow the tablet. A while later, you feel better.' gt 'pharmacy', 'shop' else msg '
You don''t need any antifungal medication right now.
' *nl gt 'pharmacy', 'shop' end end --- pharmacy ---------------------------------