1
0

pharmacy.qsrc 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. # pharmacy
  2. !!!0.2.6 addition: Optimized flow of the code, updated descriptions - now lists everything the drugstore has to sell
  3. !! now lists everything the drugstore has to sell
  4. !!0.2.7 add item_info, wait in line, new pic
  5. $location_type = 'public_indoors'
  6. cls
  7. if $ARGS[0] = 'start' :
  8. minut += 5
  9. gs 'stat' & ! Update the information about the past tense
  10. !a time limit of work pharmacies in Pavlovo
  11. people = RAND(1,15) & !We define the size of the queue in the pharmacy
  12. if people <= 5:
  13. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/aptekabusy<<people>>.jpg"></center>'
  15. 'When you go up to check out their is <<people>> ' + iif(people < 2 or people > 4, 'people' , 'man' ) + ' in line before you.'
  16. act 'Wait for your turn' :
  17. minut += RAND(1,4) * people & people = 0
  18. gs 'stat'
  19. gt 'pharmacy', 'shop'
  20. end
  21. else
  22. gt 'pharmacy', 'shop'
  23. end
  24. act 'Leave': minut += 5 & gt $loc, $metka
  25. end
  26. if $ARGS[0] = 'shop' or $ARGS[0] = '':
  27. gs 'stat'
  28. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  29. !*pl '<center><img <<$set_imgh>> src="images/unused/pharmacy.jpg"></center>'
  30. !there are 3 pic from russian 1.2.5, Let make it 3 shift
  31. if hour>22 or hour < 7:
  32. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_2.jpg"></center>'
  33. elseif hour<17:
  34. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_3.jpg"></center>'
  35. else
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_4.jpg"></center>'
  37. end
  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. !! output for purchased item
  46. iif($ARGS[1] = '', '', '<center><<$ARGS[1]>></center>')
  47. *pl '<center><table align="center">'
  48. *P FUNC ('$stock_item', 5, 'condoms', 500, 'prezikcount', $CURLOC, $ARGS[0])
  49. *P FUNC ('$stock_item', 1, 'pregnancy test', 530, 'pregtest', $CURLOC, $ARGS[0])
  50. *P FUNC ('$stock_item', 1, 'birth control pills', 1870, 'tabletki', $CURLOC, $ARGS[0])
  51. *P FUNC ('$stock_item', 10, 'antibiotics', 580, 'lekarstvo', $CURLOC, $ARGS[0])
  52. *P FUNC ('$stock_item', 30, 'vitamins', 130, 'vitamin', $CURLOC, $ARGS[0])
  53. *P FUNC ('$stock_item', 50, 'painkillers', 435, 'painkiller', $CURLOC, $ARGS[0])
  54. *P FUNC ('$stock_item', 10, 'ointments for chafing', 372, 'mosolmaz', $CURLOC, $ARGS[0])
  55. *P FUNC ('$stock_item', 1, 'lubricant', 145, 'lubri', $CURLOC, $ARGS[0])
  56. !!tube of 5 uses as far as I can tell, price is set to that
  57. *P FUNC ('$stock_item', 30, 'lip balm', 127, 'lipbalm', $CURLOC, $ARGS[0])
  58. *P FUNC ('$stock_item', 12, 'weight loss pill', 248, 'fatdel', $CURLOC, $ARGS[0])
  59. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
  60. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC, $ARGS[0])
  61. *P FUNC ('$single_stock_item', 1, 'enema kit', 1250, 'klisma', $CURLOC, $ARGS[0])
  62. *P FUNC ('$single_stock_item', 1, 'breast pump', 2200, 'breastpump', $CURLOC, $ARGS[0])
  63. if pcs_knowsmilkbottles > 0:
  64. *P FUNC ('$stock_item', 3, 'Breastmilk Bottle S', 930, 'bpbottles', $CURLOC, $ARGS[0])
  65. *P FUNC ('$stock_item', 2, 'Breastmilk Bottle M', 930, 'bpbottlem', $CURLOC, $ARGS[0])
  66. end
  67. if pcs_knows_nipplecream > 0:
  68. *P FUNC ('$stock_item', 20, 'Nipplebalm', 600, 'bpnipplebalm', $CURLOC, $ARGS[0])
  69. end
  70. !!added this from the pav pharmacy as it makes sense they sell this as well, but not sure the code is right, as it was not done the same way.
  71. *P '</table></center>'
  72. if KandidNapr = 1:'Cure for yeast infection - 1,050 <b>₽</b>'
  73. *nl
  74. if KandidNapr = 1:
  75. act 'Buy tablets for your yeast infection (1,050 <b>₽</b>)':
  76. cla
  77. *clr
  78. money -= 1050
  79. Kandidoz = 0
  80. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  81. 'You put the money on the counter and immediately open the package and swallow the tablet. A while later, you feel better.'
  82. act 'Move away from the counter':gt 'pharmacy', 'start'
  83. end
  84. end
  85. act 'Leave': minut += 5 & gt $loc, $metka
  86. end
  87. --- pharmacy ---------------------------------