1
0

gaptek 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. # gaptek
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. gs 'aptek'
  6. gs 'stat'
  7. gs 'time'
  8. set minut += 5
  9. '<center><B><font color="maroon">Drugstore</font></B></center>'
  10. *nl
  11. '<center><img src="images/etogame/aptek.jpg"></center>'
  12. *nl
  13. if StoryLine = 1:
  14. 'Behind the counter, as always, sits aunt Luda. "Hi Svetulechka. How are you?"'
  15. else
  16. gt 'aptek', 'start'
  17. end
  18. if motherQW >= 2:
  19. act 'Garden':
  20. cla
  21. gaogorodrand = rand(1, 20)
  22. if motherQW = 2 and (gaogorod + gaogorodrand < 40):
  23. if gaptekfirst = 0:
  24. set gaptekfirst = 1
  25. minut += 5
  26. 'You are considering showcases c drugs and are considering how to talk to my aunt. She notices your confusion and releasing the last buyer contacts you.'
  27. '- <<$name>>, what are you doing here trash? It should be what?'
  28. '- Yes, as if looking for a vegetable garden.'
  29. '- Niece, you´re not wrong store? We´ve got a pharmacy, you know - it is to laugh.'
  30. '- Know aunts. Mom asked you to buy everything for the garden.'
  31. '- Mom, so ... Horticultural ...'
  32. 'She gravely examines you and brings the shop window with contraceptives.'
  33. '- Here we have all "for the garden." Choose.'
  34. else
  35. if gaprezikday ! day or gatabletkiday ! day:
  36. minut += rand(5,15)
  37. 'You wait until the last buyer leaves from the pharmacy, and then speak to my aunt.'
  38. '- Aunts, my mom would have it ... for a vegetable garden ...'
  39. '- Yes, I have understood, you go here, trash - she grins.'
  40. '- Thank you, aunty.'
  41. '- But not for that, and tell Natasha that she has time to finish with gardens.'
  42. end
  43. if gaprezikday = day or gatabletkiday = day:
  44. minut += rand(5, 15)
  45. 'You have decided to wait until my aunt is free, but every minute shoppers at the pharmacy became more and more. You just wasted your time.'
  46. end
  47. end
  48. end
  49. if motherQW = 2 and (gaogorod + gaogorodrand >= 40):gt 'motherQW', 'motherQW_3'
  50. if motherQW >= 3 and galubri = 0:
  51. if gaprezikday ! day or gatabletkiday ! day:
  52. minut += rand(5, 15)
  53. oluuosegunrand = rand(1, 10)
  54. if oluuosegunrand = 10 and oluuosegunday ! day:gt 'motherQW', 'olu'
  55. if oluuosegunrand < 10 or oluuosegunday = day:'You waited in line and approached the counter, nodding to the desired display case.'
  56. end
  57. if gaprezikday = day and gatabletkiday = day:
  58. minut += rand(5, 15)
  59. 'You waited in line and approached the counter, nodding to the desired display case. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
  60. end
  61. end
  62. if motherQW >= 3 and galubri = 1:
  63. if gaprezikday ! day or gatabletkiday ! day or galubriday ! day:
  64. minut += rand(5, 15)
  65. oluuosegunrand=rand(1, 10)
  66. if oluuosegunrand = 10 and oluuosegunday ! day:gt 'motherQW', 'olu'
  67. if oluuosegunrand < 10 or oluuosegunday = day:'You waited in line and approached the counter.'
  68. end
  69. if gaprezikday = day and gatabletkiday = day and galubriday = day:
  70. minut += rand(5, 15)
  71. 'You waited in line and approached the counter. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
  72. end
  73. end
  74. if money >= 100 and gaprezikday ! day:
  75. act 'Buy <b>condoms</b> (100 rubles)':
  76. portion = input("How many packages you want to buy?")
  77. if portion > 2 and motherQW < 3:portion = 2 & '"Then 2 packages until I have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
  78. if portion > 5 and motherQW >= 3:portion = 5 & '"<<$name>>, rubber goods factory does not have time to deliver products."'
  79. if portion * 100 > money:'You do not have enough money.'
  80. if portion * 100 <= money:
  81. set prezik = prezik + portion * 5
  82. set money = money - portion * 100
  83. 'You bought condoms and paid the money to the cashier.'
  84. gaprezikday = day
  85. delact 'Buy <b>condoms</b> (100 rubles)'
  86. if motherQW < 3:gaogorod = gaogorod + portion
  87. end
  88. end
  89. end
  90. if money >= 500 and gatabletkiday ! day:
  91. act 'Buy <b>birth control pills</b> (500 rubles)':
  92. portion = input ("How many packages you want to buy?")
  93. if portion > 1 and motherQW < 3: portion = 1 & '"First package I still have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
  94. if portion * 500 > money: 'You do not have enough money.'
  95. if portion * 500 <= money:
  96. set tabletki += portion * 28
  97. set money -= portion * 500
  98. 'You bought the pills and paid the money to the cashier.'
  99. gatabletkiday = day
  100. delact 'Buy <b>birth control pills</b> (500 rubles)'
  101. if motherQW < 3:gaogorod = gaogorod + portion
  102. end
  103. end
  104. end
  105. if money >= 500 and klisma = 0:
  106. act 'Buy <b>enema</b> (500 rubles)':
  107. set klisma = 1
  108. set money -= 500
  109. 'You bought an enema and paid the money to the cashier.'
  110. delact 'Buy <b>enema</b> (500 rubles)'
  111. end
  112. end
  113. if galubri = 1 and money >= 300 and galubriday ! day:
  114. act 'Buy lubricant 300 rubles':
  115. portion = input("How many tubes you want to buy?")
  116. if portion > 2:portion = 2 & '"<<$name>>, can sell only 2 pieces, no longer brought, I am sorry."'
  117. if portion * 300 > money:'You do not have enough money.'
  118. if portion * 300 <= money:
  119. set lubri = lubri + portion * 5
  120. set money = money - portion * 300
  121. 'You bought <<portion>> Tub. lubricant and get paid aunt.'
  122. galubriday = day
  123. delact'Buy <b>lubricant</b> (300 rubles)'
  124. end
  125. end
  126. end
  127. act 'Move away from the counter': gt 'gaptek', 'start'
  128. end
  129. end
  130. dynamic $regular_items
  131. if hour>20:
  132. cla
  133. *clr
  134. '<center><B><font color=maroon>Drugstore</font></B></center>'
  135. '<center><img src="images\etogame\aptek.jpg" ></center>'
  136. 'Pharmacy is closed'
  137. end
  138. act 'Leave': gt $loc
  139. end
  140. --- gaptek ---------------------------------