1
0

280_Grinok 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168
  1. # Grinok
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><H4>market</H4></center>'
  5. '<center><img src="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. 'Do_You 15Five minutes stroll on the market for buyers.'
  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:
  98. 'Hmm, you already have a bag, why do you need another.'
  99. end
  100. end
  101. if rinevtip=5:
  102. if pornmarkonce=0:pornmarkonce=1
  103. 'Strolling on the market you accidentally wander into the far corner where they sell porn.'
  104. act 'come_Up':gt'Gpornmark'
  105. end
  106. if rinevtip=6:
  107. if arturKnow=0:
  108. 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
  109. act 'look':gt'arturRinok'
  110. end
  111. if arturKnow>0:
  112. 'Suddenly you hail "Hey Svetsik, come here, skyushay tangerine."'
  113. act 'come_Up':gt'arturRinok'
  114. end
  115. end
  116. else
  117. 'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
  118. end
  119. act'move on':gt $curloc
  120. end
  121. if pornmarkonce=1:
  122. act 'Go to the area with porn':gt'Gpornmark'
  123. end
  124. if arturKnow>0:
  125. act 'Go to Arthur':gt'arturRinok'
  126. end
  127. act 'Go to the book tray':
  128. cls
  129. minut+=15
  130. gs'stat'
  131. '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.'
  132. if money>=150:
  133. act 'Buy fantasy book for 150r':
  134. cls
  135. minut+=15
  136. money-=150
  137. f_book+=1
  138. gs'stat'
  139. 'You bought the book for fantasy 150 rubles.'
  140. act'Get_Away':gt $curloc
  141. end
  142. end
  143. if money>=300:
  144. act 'Buy ladies` novel for 300r':
  145. cls
  146. minut+=15
  147. money-=300
  148. w_book+=1
  149. gs'stat'
  150. 'You bought a ladies` novel for 300 rubles.'
  151. act'Get_Away':gt $curloc
  152. end
  153. end
  154. act'Get_Away':gt $curloc
  155. end
  156. else
  157. 'In the market there is no one.'
  158. end
  159. --- Grinok ---------------------------------