069_aptek 4.4 KB

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