pharmacy.qsrc 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  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 $loc, $metka
  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. $menu_loc = 'pharmacy'
  29. $menu_arg = 'shop'
  30. menu_off = 0
  31. gs 'stat'
  32. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  33. !*pl '<center><img <<$set_imgh>> src="images/unused/pharmacy.jpg"></center>'
  34. !there are 3 pic from russian 1.2.5, Let make it 3 shift
  35. if hour>22 or hour < 7:
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_2.jpg"></center>'
  37. elseif hour<17:
  38. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_3.jpg"></center>'
  39. else
  40. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_4.jpg"></center>'
  41. end
  42. *nl
  43. if $message ! '':
  44. $message
  45. killvar '$message'
  46. '<center>"Do you need anything else?"</center>'
  47. else
  48. '<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>'
  49. end
  50. act 'Leave the pharmacy': minut += 5 & gt $loc, $metka
  51. !! output for purchased item
  52. iif($ARGS[1] = '', '', '<center><<$ARGS[1]>></center>')
  53. *nl
  54. *pl '<center><table align="center" width=80%>'
  55. if preziktype = 0: *P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezik', $CURLOC, $ARGS[0])
  56. if preziktype = 1 or preziktype = 2: *P FUNC ('$stock_item', 5, 'Condoms', 500, 'prezikcount', $CURLOC, $ARGS[0])
  57. *P FUNC ('$stock_item', 1, 'Pregnancy test', 530, 'pregtest', $CURLOC, $ARGS[0])
  58. *P FUNC ('$stock_item', 1, 'Birth control pills', 1870, 'tabletki', $CURLOC, $ARGS[0])
  59. *P FUNC ('$stock_item', 10, 'Antibiotics', 580, 'lekarstvo', $CURLOC, $ARGS[0])
  60. *P FUNC ('$stock_item', 30, 'Vitamins', 130, 'vitamin', $CURLOC, $ARGS[0])
  61. *P FUNC ('$stock_item', 50, 'Painkillers', 435, 'painkiller', $CURLOC, $ARGS[0])
  62. *P FUNC ('$stock_item', 10, 'Ointments for chafing', 372, 'mosolmaz', $CURLOC, $ARGS[0])
  63. *P FUNC ('$stock_item', 1, 'Lubricant', 145, 'lubri', $CURLOC, $ARGS[0])
  64. !!tube of 5 uses as far as I can tell, price is set to that
  65. *P FUNC ('$stock_item', 30, 'Lip balm', 127, 'lipbalm', $CURLOC, $ARGS[0])
  66. *P FUNC ('$stock_item', 12, 'Weight loss pill', 248, 'fatdel', $CURLOC, $ARGS[0])
  67. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
  68. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $CURLOC, $ARGS[0])
  69. *P FUNC ('$single_stock_item', 1, 'Enema kit', 1250, 'klisma', $CURLOC, $ARGS[0])
  70. *P FUNC ('$single_stock_item', 1, 'Breast pump', 2200, 'breastpump', $CURLOC, $ARGS[0])
  71. *P FUNC ('$stock_item', 3, 'Breastmilk bottle S', 930, 'bpbottles', $CURLOC, $ARGS[0])
  72. *P FUNC ('$stock_item', 2, 'Breastmilk bottle M', 930, 'bpbottlem', $CURLOC, $ARGS[0])
  73. if pcs_knows_nipplecream > 0:
  74. *P FUNC ('$stock_item', 20, 'Nipplebalm', 600, 'bpnipplebalm', $CURLOC, $ARGS[0])
  75. end
  76. *P FUNC ('$single_stock_item', 1, 'Antifungal medication', 1050, 'Kandidoz', $CURLOC, $ARGS[0], StoryLine, '(you have 0)',''+iif(money >= 1050,'<a href="exec:gs ''gaptek'', ''buy_antifungal''">buy</a>','')+'')
  77. *P '</table></center>'
  78. end
  79. if $ARGS[0] = 'buy_antifungal':
  80. if KandidNapr = 1:
  81. money -= 1050
  82. Kandidoz = 0
  83. gs 'stat'
  84. $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.'
  85. gt 'pharmacy', 'shop'
  86. else
  87. msg '<center>You don''t need any antifungal medication right now.</center>'
  88. *nl
  89. gt 'pharmacy', 'shop'
  90. end
  91. end
  92. --- pharmacy ---------------------------------