1
0

Grinok 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. # Grinok
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><h4>market</h4></center>'
  5. '<center><img src="images/pic/Grinok.jpg"></center>'
  6. 'Located near the small market <a href="exec:minut += 3 & gt ''vokzalG''">station</a>'
  7. clr
  8. gs 'stat'
  9. gs 'time'
  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. end
  40. if rinevtip = 1:
  41. tovpayrand = rand(2, 5)
  42. tovpay = tovpayrand * 100
  43. 'You see that sell for Vitaminki <<tovpay>> rubles'
  44. if money >= tovpay:
  45. act 'Buy':
  46. cls
  47. minut += 15
  48. vitamin += 20
  49. money -= tovpay
  50. gt $curloc
  51. end
  52. end
  53. end
  54. if rinevtip = 2:
  55. tovpayrand = rand(2, 8)
  56. tovpay = tovpayrand * 10
  57. 'You see that sell condoms <<tovpay>> rubles'
  58. if money >= tovpay:
  59. act 'Buy':
  60. cls
  61. minut += 15
  62. prezik += 5
  63. money -= tovpay
  64. gt $curloc
  65. end
  66. end
  67. end
  68. if rinevtip = 3:
  69. tovpayrand = rand(5, 10)
  70. tovpay = tovpayrand * 100
  71. 'You see that sell lip balm for <<tovpay>> rubles'
  72. if money >= tovpay:
  73. act 'Buy':
  74. cls
  75. minut += 15
  76. lipbalm += 20
  77. money -= tovpay
  78. gt $curloc
  79. end
  80. end
  81. end
  82. if rinevtip = 4:
  83. tovpayrand = rand(1, 5)
  84. tovpay = tovpayrand * 1000
  85. 'You see that sell for handbag <<tovpay>> rubles'
  86. if bag = 0:
  87. if money >= tovpay:
  88. act 'buy':
  89. cls
  90. minut += 15
  91. bag = 1
  92. money -= tovpay
  93. gt $curloc
  94. end
  95. end
  96. end
  97. if bag > 0:'Hmm, you already have a bag, why do you need another.'
  98. end
  99. if rinevtip = 5:
  100. if pornmarkonce = 0:pornmarkonce = 1
  101. 'Strolling on the market you accidentally wander into the far corner where they sell porn.'
  102. act 'come_Up':gt 'Gpornmark'
  103. end
  104. if rinevtip = 6:
  105. if arturKnow = 0:
  106. 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
  107. act 'look':gt 'arturRinok'
  108. end
  109. if arturKnow > 0:
  110. 'Suddenly you hail "Hey Svetsik, come here, skyushay tangerine."'
  111. act 'Go to Artur':gt 'arturRinok'
  112. end
  113. end
  114. else
  115. 'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
  116. end
  117. act 'Move on':gt $curloc
  118. end
  119. if pornmarkonce = 1:
  120. act 'Go to the area with porn':gt 'Gpornmark'
  121. end
  122. if arturKnow > 0:
  123. act 'Go to Arthur':gt 'arturRinok'
  124. end
  125. act 'Go to the book tray':
  126. cls
  127. minut += 15
  128. gs 'stat'
  129. '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.'
  130. if money >= 150:
  131. act 'Buy fantasy book (150 rubles)':
  132. cls
  133. minut += 15
  134. money -= 150
  135. f_book += 1
  136. gs 'stat'
  137. 'You bought the book for fantasy 150 rubles.'
  138. act 'Leave':gt $curloc
  139. end
  140. end
  141. if money >= 300:
  142. act 'Buy ladies'' novel (300 rubles)':
  143. cls
  144. minut += 15
  145. money -= 300
  146. w_book += 1
  147. gs 'stat'
  148. 'You bought a ladies'' novel for 300 rubles.'
  149. act 'Leave':gt $curloc
  150. end
  151. end
  152. act 'Leave':gt $curloc
  153. end
  154. else
  155. 'In the market there is no one.'
  156. end
  157. --- Grinok ---------------------------------