Grinok 3.6 KB

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