Grinok 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172
  1. # Grinok
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. gs 'time'
  7. '<center><h4>market</h4></center>'
  8. '<center><img src="images/pic/Grinok.jpg"></center>'
  9. 'This small market is location near the station.'
  10. act 'Go back to the station':minut += 3 & gt 'vokzalG'
  11. if hour < 12 or hour > 18:
  12. 'In the market there is no one.'
  13. if arturQW = 1 and (week = 6 or week = 7) and hour < 12:
  14. act 'Wait for Arthur':hour = 12 & gt 'grinok'
  15. end
  16. exit
  17. end
  18. 'In the market the sellers of goods and beckoning shoppers.'
  19. act 'Wander through the market':
  20. cls
  21. minut += 15
  22. gs 'stat'
  23. 'Stroll on the market for hot deals (0:15)'
  24. if arturKnow = 0:
  25. temp = rand(0, 6)
  26. else
  27. temp = rand(0, 5)
  28. end
  29. if temp = 0:
  30. kosmpay = rand(3, 8) * 100
  31. 'You see that sell pretty cheap cosmetics for <<kosmpay>> rubles.'
  32. if money >= kosmpay:
  33. act 'Buy':
  34. cls
  35. minut += 15
  36. money -= kosmpay
  37. kosmetica += rand(10, 40)
  38. gs 'stat'
  39. gt $curloc
  40. end
  41. end
  42. elseif temp = 1:
  43. tovpay = rand(2, 5) * 100
  44. 'You see that sell for Vitaminki <<tovpay>> rubles.'
  45. if money >= tovpay:
  46. act 'Buy':
  47. cls
  48. minut += 15
  49. vitamin += 20
  50. money -= tovpay
  51. gt $curloc
  52. end
  53. end
  54. elseif temp = 2:
  55. tovpay = rand(2, 8) * 10
  56. 'You see that sell condoms <<tovpay>> rubles.'
  57. if money >= tovpay:
  58. act 'Buy':
  59. cls
  60. minut += 15
  61. prezik += 5
  62. money -= tovpay
  63. gt $curloc
  64. end
  65. end
  66. elseif temp = 3:
  67. tovpay = rand(5, 10) * 100
  68. 'You see that sell lip balm for <<tovpay>> rubles.'
  69. if money >= tovpay:
  70. act 'Buy':
  71. cls
  72. minut += 15
  73. lipbalm += 20
  74. money -= tovpay
  75. gt $curloc
  76. end
  77. end
  78. elseif temp = 4:
  79. tovpay = rand(1, 5) * 1000
  80. 'You see that sell for handbag <<tovpay>> rubles.'
  81. if bag = 0:
  82. if money >= tovpay:
  83. act 'buy':
  84. cls
  85. minut += 15
  86. bag = 1
  87. money -= tovpay
  88. gt $curloc
  89. end
  90. end
  91. else
  92. 'Hmm, you already have a bag, why do you need another.'
  93. end
  94. elseif temp = 5:
  95. if pornmarkonce = 0:pornmarkonce = 1
  96. 'Strolling on the market you accidentally wander into the far corner where they sell porn.'
  97. act 'Go to the area with the porn':gt 'Gpornmark'
  98. else
  99. 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
  100. act 'Look':gt 'arturRinok', 'start'
  101. end
  102. act 'Move on':gt $curloc
  103. end
  104. if pornmarkonce = 1:
  105. act 'Go to the area with porn':gt 'Gpornmark'
  106. end
  107. if arturKnow = 1 and arturQW = 0:
  108. act 'Go to Arthur':gt 'arturRinok', 'start'
  109. elseif arturQW = 1 and (week = 6 or week = 7):
  110. if hour = 12 or hour = 13:
  111. act 'Go to Arthur':gt 'arturRinok', 'work_1'
  112. end
  113. elseif arturQW = 2:
  114. if hour = 16 and minut >= 0 and minut <= 30:
  115. act 'Go to Arthur':gt 'arturRinok', 'work_2'
  116. elseif hour < 16:
  117. act 'Wait Arthur':hour = 16 & gt 'Grinok'
  118. end
  119. end
  120. act 'Go to the book tray':
  121. cls
  122. minut += 15
  123. gs 'stat'
  124. 'On the counter is a very entertaining fantasy book, which costs only 150 rubles and more are women''s novels in paperback standing 300 rubles.'
  125. if money >= 150:
  126. act 'Buy fantasy book (150 rubles)':
  127. cls
  128. minut += 15
  129. money -= 150
  130. f_book += 1
  131. gs 'stat'
  132. 'You bought the book for fantasy 150 rubles.'
  133. act 'Leave':gt $curloc
  134. end
  135. end
  136. if money >= 300:
  137. act 'Buy ladies'' novel (300 rubles)':
  138. cls
  139. minut += 15
  140. money -= 300
  141. w_book += 1
  142. gs 'stat'
  143. 'You bought a ladies'' novel for 300 rubles.'
  144. act 'Leave':gt $curloc
  145. end
  146. end
  147. act 'Leave':gt $curloc
  148. end
  149. --- Grinok ---------------------------------