085_pharmacy 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. # pharmacy
  2. $regular_items = {
  3. act 'Buy <b>fat burners</b> (1500 rubles) <<iif(fatdel>0, ''[left:<b>''+fatdel+''</b>]'', '''')>>':
  4. if money >= 1500:
  5. cla
  6. *clr
  7. set fatdel += 1
  8. set money -= 1500
  9. '<center><img src="images/etogame/kassa.jpg"></center>'
  10. 'You bought a fat burning capsule and paid the money to the cashier.'
  11. else
  12. 'You do not have enough money.'
  13. end
  14. act 'Move away from the counter':gt 'pharmacy', 'start'
  15. end
  16. act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo>0, ''[left:<b>''+lekarstvo+''</b>]'', '''')>>':
  17. cla
  18. *clr
  19. portion = input ("How many packages you want to buy?")
  20. if portion*500 <= money:
  21. set lekarstvo+= portion * 10
  22. set money -= portion * 500
  23. '<center><img src="images/etogame/kassa.jpg"></center>'
  24. 'You bought drugs and paid the money to the cashier.'
  25. else
  26. 'You do not have enough money.'
  27. end
  28. act 'Move away from the counter':gt 'pharmacy', 'start'
  29. end
  30. act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin>0, ''[left:<b>''+vitamin+''</b>]'', '''')>>':
  31. cla
  32. *clr
  33. portion = input ("How many packages you want to buy?")
  34. if portion*500 <= money:
  35. set vitamin+= portion * 20
  36. set money -= portion * 500
  37. '<center><img src="images/etogame/kassa.jpg"></center>'
  38. 'You bought vitamins and paid the money to the cashier.'
  39. else
  40. 'You do not have enough money.'
  41. end
  42. act 'Move away from the counter':gt 'pharmacy', 'start'
  43. end
  44. act 'Buy <b>moisturizing lip balm</b> (1000 rubles) <<iif(lipbalm>0, ''[left:<b>''+lipbalm+''</b>]'', '''')>>':
  45. if money >= 1000:
  46. cla
  47. *clr
  48. set lipbalm+= 25
  49. set money -= 1000
  50. '<center><img src="images/etogame/kassa.jpg"></center>'
  51. 'You bought some lip balm and paid the money to the cashier.'
  52. else
  53. 'You do not have enough money.'
  54. end
  55. act 'Move away from the counter':gt 'pharmacy', 'start'
  56. end
  57. act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz>0, ''[left:<b>''+mosolmaz+''</b>]'', '''')>>':
  58. if money >= 600:
  59. cla
  60. *clr
  61. set money -= 600
  62. mosolmaz += 10
  63. '<center><img src="images/etogame/kassa.jpg"></center>'
  64. 'You bought tablets and paid the money to the cashier.'
  65. else
  66. 'You do not have enough money.'
  67. end
  68. act 'Move away from the counter':gt 'pharmacy', 'start'
  69. end
  70. if money >= 1500 and KandidNapr = 1:
  71. act 'Buy <b>pills from yeast</b> (1500 rubles)':
  72. cla
  73. *clr
  74. set money -= 1500
  75. Kandidoz = 0
  76. '<center><img src="images/etogame/kassa.jpg"></center>'
  77. 'You bought tablets and paid the money to the cashier.'
  78. 'Immediately about cash you drank tablet.'
  79. act 'Move away from the counter':gt 'pharmacy', 'start'
  80. end
  81. end
  82. }
  83. if $ARGS[0] = 'start':
  84. cla
  85. *clr
  86. set minut += 5
  87. '<center><b><font color="maroon">Pharmacy</font></b></center>'
  88. *nl
  89. '<center><img src="images/community/pharmacy.jpg"></center>'
  90. clr
  91. gs 'stat'
  92. gs 'time'
  93. act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik>0, ''[left:<b>''+prezik+''</b>]'', '''')>>':
  94. cla
  95. *clr
  96. portion = input ("How many packages you want to buy?")
  97. if portion*100 <= money:
  98. set prezik += portion * 5
  99. set money -= portion * 100
  100. '<center><img src="images/etogame/kassa.jpg"></center>'
  101. 'You bought condoms and paid the money to the cashier.'
  102. else
  103. 'You do not have enough money.'
  104. end
  105. act 'Move away from the counter':gt 'pharmacy', 'start'
  106. end
  107. act 'Buy <b>birth control pills</b> (500 rubles) <<iif(tabletki>0, ''[left:<b>''+tabletki+''</b>]'', '''')>>':
  108. cla
  109. *clr
  110. portion = input ("How many packages you want to buy?")
  111. if portion*500 <= money:
  112. set tabletki += portion * 28
  113. set money -= portion * 500
  114. '<center><img src="images/etogame/kassa.jpg"></center>'
  115. 'You bought the pill and get paid in cash.'
  116. else
  117. 'You do not have enough money.'
  118. end
  119. act 'Move away from the counter':gt 'pharmacy', 'start'
  120. end
  121. if klisma = 0:
  122. act 'Buy <b>enema</b> (500 rubles)':
  123. if money >= 500:
  124. cla
  125. *clr
  126. set klisma = 1
  127. set money -= 500
  128. '<center><img src="images/etogame/kassa.jpg"></center>'
  129. 'You bought an enema and paid the money to the cashier.'
  130. else
  131. 'You do not have enough money.'
  132. end
  133. act 'Move away from the counter':gt 'pharmacy', 'start'
  134. end
  135. end
  136. dynamic $regular_items
  137. end
  138. act 'Quit':gt $loc
  139. --- pharmacy ---------------------------------