pharmacy 3.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  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 src="images/locations/pavlovsk/pharmacy/aptekabusy<<people>>.jpg"></center>'
  15. 'In the pharmacy queue. Before you <<people>> ' + iif(people < 2 or people > 4, 'people' , 'man' ) + '. Waiting takes time.'
  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' : 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 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 src="images/locations/pavlovsk/pharmacy/apteka_worker_2.jpg"></center>'
  33. elseif hour<17:
  34. '<center><img src="images/locations/pavlovsk/pharmacy/apteka_worker_3.jpg"></center>'
  35. else
  36. '<center><img 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>The girl behind the counter in a white coat. - Hello, what you need?"</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', 100, 'prezik', $CURLOC, $ARGS[0])
  49. *P FUNC ('$stock_item', 1, 'pregnancy test', 200, 'pregtest', $CURLOC, $ARGS[0])
  50. *P FUNC ('$stock_item', 1, 'birth control pills', 500, 'tabletki', $CURLOC, $ARGS[0])
  51. *P FUNC ('$stock_item', 10, 'antibiotics', 500, 'lekarstvo', $CURLOC, $ARGS[0])
  52. *P FUNC ('$stock_item', 20, 'vitamin drinks', 500, 'vitamin', $CURLOC, $ARGS[0])
  53. *P FUNC ('$stock_item', 16, 'painkillers', 500, 'painkiller', $CURLOC, $ARGS[0])
  54. *P FUNC ('$stock_item', 10, 'ointments for chafing', 600, 'mosolmaz', $CURLOC, $ARGS[0])
  55. *P FUNC ('$stock_item', 5, 'lubricant', 300, 'lubri', $CURLOC, $ARGS[0])
  56. *P FUNC ('$stock_item', 25, 'lip balm', 100, 'lipbalm', $CURLOC, $ARGS[0])
  57. *P FUNC ('$stock_item', 1, 'weight loss pill', 2000, 'fatdel', $CURLOC, $ARGS[0])
  58. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
  59. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC, $ARGS[0])
  60. *P FUNC ('$single_stock_item', 1, 'enema kit', 500, 'klisma', $CURLOC, $ARGS[0])
  61. *P FUNC ('$single_stock_item', 1, 'breast pump', 800, 'breastpump', $CURLOC, $ARGS[0])
  62. *P '</table></center>'
  63. !!gs '$stock_item', 1, 'antifungal pills', 600, 'mosolmaz', $CURLOC
  64. *nl
  65. act 'Leave': gt $loc, $metka
  66. end
  67. --- pharmacy ---------------------------------