Grinok 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176
  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 intel = 100:rinmaxrand = 2
  18. if intel >= 75 and intel < 100:rinmaxrand = 4
  19. if intel >= 50 and intel < 75:rinmaxrand = 6
  20. if intel >= 25 and intel < 50:rinmaxrand = 8
  21. if intel < 25:rinmaxrand = 10
  22. rinevrand = rand(0, rinmaxrand)
  23. if rinevrand = 0:
  24. rinevtip = rand(0, 6)
  25. if rinevtip = 0:
  26. kosmpayrand = rand(3, 8)
  27. kosmpay = kosmpayrand * 100
  28. 'You see that sell pretty cheap cosmetics for <<kosmpay>> rubles'
  29. if money >= kosmpay:
  30. act 'Buy':
  31. cls
  32. minut += 15
  33. money -= kosmpay
  34. kosmetica += rand(10, 40)
  35. gs 'stat'
  36. gt $curloc
  37. end
  38. end
  39. elseif rinevtip = 1:
  40. tovpayrand = rand(2, 5)
  41. tovpay = tovpayrand * 100
  42. 'You see that sell for Vitaminki <<tovpay>> rubles'
  43. if money >= tovpay:
  44. act 'Buy':
  45. cls
  46. minut += 15
  47. vitamin += 20
  48. money -= tovpay
  49. gt $curloc
  50. end
  51. end
  52. elseif rinevtip = 2:
  53. tovpayrand = rand(2, 8)
  54. tovpay = tovpayrand * 10
  55. 'You see that sell condoms <<tovpay>> rubles'
  56. if money >= tovpay:
  57. act 'Buy':
  58. cls
  59. minut += 15
  60. prezik += 5
  61. money -= tovpay
  62. gt $curloc
  63. end
  64. end
  65. elseif rinevtip = 3:
  66. tovpayrand = rand(5, 10)
  67. tovpay = tovpayrand * 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 rinevtip = 4:
  79. tovpayrand = rand(1, 5)
  80. tovpay = tovpayrand * 1000
  81. 'You see that sell for handbag <<tovpay>> rubles'
  82. if bag = 0:
  83. if money >= tovpay:
  84. act 'buy':
  85. cls
  86. minut += 15
  87. bag = 1
  88. money -= tovpay
  89. gt $curloc
  90. end
  91. end
  92. elseif bag > 0:
  93. 'Hmm, you already have a bag, why do you need another.'
  94. end
  95. elseif rinevtip = 5:
  96. if pornmarkonce = 0:pornmarkonce = 1
  97. 'Strolling on the market you accidentally wander into the far corner where they sell porn.'
  98. act 'come_Up':gt 'Gpornmark'
  99. elseif rinevtip = 6:
  100. if arturKnow = 0:
  101. 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
  102. act 'Look':gt 'arturRinok'
  103. elseif arturKnow > 0:
  104. 'Suddenly you hail "Hey <<$name>>, come here, skyushay tangerine."'
  105. act 'Go to Artur':gt 'arturRinok'
  106. end
  107. end
  108. else
  109. 'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
  110. end
  111. act 'Move on':gt $curloc
  112. end
  113. if pornmarkonce = 1:
  114. act 'Go to the area with porn':gt 'Gpornmark'
  115. end
  116. if arturKnow > 0:
  117. act 'Go to Arthur':gt 'arturRinok'
  118. end
  119. act 'Go to the book tray':
  120. cls
  121. minut += 15
  122. gs 'stat'
  123. '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.'
  124. if money >= 150:
  125. act 'Buy fantasy book (150 rubles)':
  126. cls
  127. minut += 15
  128. money -= 150
  129. f_book += 1
  130. gs 'stat'
  131. 'You bought the book for fantasy 150 rubles.'
  132. act 'Leave':gt $curloc
  133. end
  134. end
  135. if money >= 300:
  136. act 'Buy ladies'' novel (300 rubles)':
  137. cls
  138. minut += 15
  139. money -= 300
  140. w_book += 1
  141. gs 'stat'
  142. 'You bought a ladies'' novel for 300 rubles.'
  143. act 'Leave':gt $curloc
  144. end
  145. end
  146. act 'Leave':gt $curloc
  147. end
  148. else
  149. 'In the market there is no one.'
  150. end
  151. --- Grinok ---------------------------------