pharmacy.qsrc 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. # pharmacy
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. menu_off = 1
  5. minut += 5
  6. gs 'stat' & ! Update the information about the past tense
  7. !a time limit of work pharmacies in Pavlovo
  8. people = rand(1,15) & !We define the size of the queue in the pharmacy
  9. if people <= 5:
  10. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/aptekabusy<<people>>.jpg"></center>'
  12. *nl
  13. 'When you go up to check out their is <<people>> ' + iif(people < 2 or people > 4, 'people' , 'man' ) + ' in line before you.'
  14. act 'Leave the pharmacy': minut += 5 & gt 'street'
  15. act 'Wait for your turn' :
  16. minut += rand(1,4) * people
  17. people = 0
  18. gs 'stat'
  19. gt 'pharmacy', 'shop'
  20. end
  21. else
  22. gt 'pharmacy', 'shop'
  23. end
  24. end
  25. if $ARGS[0] = 'shop' or $ARGS[0] = '':
  26. *clr & cla
  27. $location_type = 'public_indoors'
  28. $loc = 'pharmacy'
  29. $metka = 'shop'
  30. $menu_loc = 'pharmacy'
  31. $menu_arg = 'shop'
  32. menu_off = 0
  33. gs 'stat'
  34. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  35. if pharma_day ! daystart: pharma_day = daystart & pharma_picrand = rand(1,4)
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_'+pharma_picrand+'.jpg"></center>'
  37. *nl
  38. if $message ! '':
  39. $message
  40. killvar '$message'
  41. '<center>"Do you need anything else?"</center>'
  42. else
  43. '<center>Their is a young woman behind the counter in a white coat,as you approach she asks. "Hello, what can I help you with?"</center>'
  44. end
  45. act 'Leave the pharmacy': minut += 5 & gt 'street'
  46. !! output for purchased item
  47. iif($ARGS[1] = '', '', '<center><<$ARGS[1]>></center>')
  48. *nl
  49. *pl '<center><table align="center" width=80%>'
  50. if preziktype = 0: *P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', $CURLOC, $ARGS[0])
  51. if preziktype = 1 or preziktype = 2: *P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', $CURLOC, $ARGS[0])
  52. *P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', $CURLOC, $ARGS[0])
  53. *P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', $CURLOC, $ARGS[0])
  54. *P FUNC ('$stock_item', 10, 'Antibiotics', 580, 'lekarstvo', $CURLOC, $ARGS[0])
  55. *P FUNC ('$stock_item', 30, 'Vitamins', 130, 'vitamin', $CURLOC, $ARGS[0])
  56. *P FUNC ('$stock_item', 50, 'Painkillers', 435, 'painkiller', $CURLOC, $ARGS[0])
  57. *P FUNC ('$stock_item', 10, 'Ointments for chafing', 372, 'mosolmaz', $CURLOC, $ARGS[0])
  58. *P FUNC ('$stock_item', 20, 'Lubricant', 145, 'lubri', $CURLOC, $ARGS[0])
  59. !!tube of 5 uses as far as I can tell, price is set to that
  60. *P FUNC ('$stock_item', 30, 'Lip balm', 127, 'lipbalm', $CURLOC, $ARGS[0])
  61. *P FUNC ('$stock_item', 12, 'Weight loss pill', 248, 'fatdel', $CURLOC, $ARGS[0])
  62. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
  63. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC, $ARGS[0])
  64. *P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', $CURLOC, $ARGS[0])
  65. *P FUNC ('$single_stock_item', 1, 'Breast pump', 2200, 'breastpump', $CURLOC, $ARGS[0])
  66. *P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', $CURLOC, $ARGS[0])
  67. *P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', $CURLOC, $ARGS[0])
  68. if pcs_knows_nipplecream > 0:
  69. *P FUNC ('$stock_item', 20, 'Nipplebalm', 600, 'bpnipplebalm', $CURLOC, $ARGS[0])
  70. end
  71. if KandidNapr = 1: *P FUNC ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', $CURLOC, $ARGS[0], StoryLine, '(you have 0)',''+iif(money >= 1050,'<a href="exec:gs ''pharmacy'', ''buy_antifungal''">buy</a>','')+'')
  72. *P '</table></center>'
  73. end
  74. if $ARGS[0] = 'buy_antifungal':
  75. if Kandidoz >= 30:
  76. money -= 1050
  77. Kandidoz = 0
  78. gs 'stat'
  79. $gardmess = '<center><font color="green">You bought 1 <b>Antifungal medication</b>.</font></center><br>You put the money on the counter and immediately open the package and swallow the tablet. A while later, you feel better.'
  80. gt 'pharmacy', 'shop'
  81. elseif Kandidoz < 30 and KandidozOnce > 0:
  82. 'You don''t need the medication right now. Your thrush is currently in remission, taking vitamins will ensure that it stays that way.'
  83. else
  84. msg '<center>You don''t need any antifungal medication right now.</center>'
  85. *nl
  86. gt 'pharmacy', 'shop'
  87. end
  88. end
  89. --- pharmacy ---------------------------------