0
0

529_Market 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360
  1. <<<<<<< 529_Market
  2. # Market
  3. '<center><B>Market</B></center>'
  4. '<center><img src="images\etogame\rinok2.jpg"></center>'
  5. Set час += 1
  6. Set horny += 1
  7. if car = 0: Set money -= 20 & 'You get on the shuttle bus and pay the fare of 20 rubles.'
  8. if car > 0 and benzin > 0: Set benzin -= 1 & 'You reached into your <<$marka>>.'
  9. if car > 0 and benzin <= 0: Set money -= 20 & 'You ran out of gas and you had to go on the bus, paying the fare of 20 rubles.'
  10. 'Bustling market, you can buy in the market place to buy clothes or for 30,000 rubles and receive income from the outlet, but for the purchase and delivery of course need to have a car. You can trade yourself or hire a saleswoman.'
  11. =======
  12. # market
  13. '<center><B>MARKET</B></center>'
  14. '<center><img src="pic/rinok2.jpg" ></center>'
  15. Set h = h + 1
  16. Set horny = horny + 1
  17. if car = 0:Set money = money - 20&'Did you get on the bus and pay the fare 20 rubles.'
  18. if car > 0 and benzin > 0:Set benzin = benzin - 1&'You arrived at its <<$marka>>.'
  19. if car > 0 and benzin <= 0:Set money = money - 20&'You ran out of gas and you had to go on the bus, paying for travel 20 rubles.'
  20. 'bustling market, you can buy in the market place to buy clothes or for 30000 rubles and earn revenue from the outlet, but for the purchase and delivery of course need to have a car. You can trade yourself or hire a saleswoman.'
  21. >>>>>>> 529_market
  22. clr
  23. gs 'stat'
  24. <<<<<<< 529_Market
  25. act 'Buy': gt 'RynokP','choice'
  26. act 'Go home': gt 'street'
  27. if rinwork > 0 and час < 9:
  28. act 'Salesmen':
  29. cla
  30. *clr
  31. Set час = 17
  32. Set fat += 5
  33. Set monrand = RAND(500,2000)
  34. Set money += monrand
  35. clr
  36. gs 'stat'
  37. 'You all day selling things in the market and earned <<monrand>> rubles'
  38. Set rinrand = RAND(1,100)
  39. if rinrand < 70 and palevorin = 0 and rinhoz = 0:
  40. act 'Go home': gt 'street'
  41. end
  42. if rinrand >= 70 and palevorin = 0 and rinhoz = 0:
  43. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  44. act 'Refuse':
  45. cla
  46. Set money -= 2000
  47. 'The owner imposes on you a fine of 2,000 rubles'
  48. act 'Go home': gt 'street'
  49. end
  50. act 'Ogle': gt 'RynokHoz','start'
  51. end
  52. if rinrand < 60 and palevorin = 0 and rinhoz = 1:
  53. act 'Go home': gt 'street'
  54. end
  55. if rinrand >= 60 and palevorin = 0 and rinhoz = 1:
  56. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  57. act 'Refuse':
  58. cla
  59. Set money -= 2000
  60. 'The owner imposes on you a fine of 2,000 rubles'
  61. act 'Go home': gt 'street'
  62. end
  63. act 'Ogle': gt 'RynokHoz','start'
  64. end
  65. if rinrand < 60 and palevorin = 1:
  66. 'On the market there is a rumor among the sellers that you fucks boss tray'
  67. act 'Go home': gt 'street'
  68. end
  69. if rinrand >= 60 and palevorin = 1:
  70. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  71. act 'Refuse':
  72. cla
  73. Set money -= 2000
  74. 'The owner imposes on you a fine of 2,000 rubles'
  75. act 'Go home': gt 'street'
  76. end
  77. act 'Ogle': gt 'RynokHoz','start'
  78. end
  79. if rinrand < 40 and palevorin = 2:
  80. 'On the market there is a rumor among the sellers that you fucks boss tray with buddies'
  81. Set slutrand = RAND(1,100)
  82. if slutrand >= 70:
  83. 'After work, you came to the Armenian and tried to persuade you a blowjob.'
  84. act 'Agree': gt 'RynokHoz','opusteha2'
  85. end
  86. act 'Go home': gt 'street'
  87. end
  88. if rinrand >= 40 and rinrand < 70 and palevorin = 2:
  89. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  90. act 'Refuse':
  91. cla
  92. Set money -= 2000
  93. 'The owner imposes on you a fine of 2,000 rubles'
  94. act 'Go home': gt 'street'
  95. end
  96. act 'Ogle': gt 'RynokHoz','start'
  97. end
  98. if rinrand >= 70 and palevorin = 2:
  99. 'To you approached the owner of the tent c already familiar to you guys and they began to entice you to perform oral sex, promising to write premium'
  100. act 'Refuse':
  101. cla
  102. Set money -= 2000
  103. 'The owner imposes on you a fine of 2,000 rubles'
  104. act 'Go home': gt 'street'
  105. end
  106. act 'Ogle': gt 'RynokHoz','opusteha'
  107. end
  108. end
  109. act 'Resign':
  110. cla
  111. Set work = 0
  112. Set rinwork = 0
  113. 'You are fired.'
  114. act 'Go home': gt 'street'
  115. end
  116. =======
  117. act 'buy':gt 'RynokP','selection'
  118. act 'go home':gt 'street'
  119. if rinwork > 0 and h < 9:
  120. act 'Job Salesmen':
  121. cla
  122. *clr
  123. Set h = 17
  124. Set fat = fat + 5
  125. Set vnesh = vnesh - 1
  126. Set monrand = RAND (500,2000)
  127. Set money = money + monrand
  128. clr
  129. gs 'stat'
  130. 'You all day selling things in the market and have earned <<monrand>> rubles'
  131. Set rinrand = RAND (1,100)
  132. if rinrand < 70 and palevorin = 0 and rinhoz = 0:
  133. act 'go home':gt 'street'
  134. end
  135. if rinrand >= 70 and palevorin = 0 and rinhoz = 0:
  136. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  137. act 'Opt_Out':
  138. cla
  139. Set money = money - 2000
  140. 'The owner imposes on you a fine of 2000 rubles'
  141. act 'go home':gt 'street'
  142. end
  143. act 'ogle':gt 'RynokHoz','beginning'
  144. end
  145. if rinrand < 60 and palevorin = 0 and rinhoz = 1:
  146. act 'go home':gt 'street'
  147. end
  148. if rinrand >= 60 and palevorin = 0 and rinhoz = 1:
  149. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  150. act 'Opt_Out':
  151. cla
  152. Set money = money - 2000
  153. 'The owner imposes on you a fine of 2000 rubles'
  154. act 'go home':gt 'street'
  155. end
  156. act 'ogle':gt 'RynokHoz','beginning'
  157. end
  158. if rinrand < 60 and palevorin = 1:
  159. 'In the market there is a rumor among the sellers that you fucks master tray'
  160. act 'go home':gt 'street'
  161. end
  162. if rinrand >= 60 and palevorin = 1:
  163. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  164. act 'Opt_Out':
  165. cla
  166. Set money = money - 2000
  167. 'The owner imposes on you a fine of 2000 rubles'
  168. act 'go home':gt 'street'
  169. end
  170. act 'ogle':gt 'RynokHoz','beginning'
  171. end
  172. if rinrand < 40 and palevorin = 2:
  173. 'In the market there is a rumor among the sellers that you fucks master tray buddies'
  174. Set slutrand = RAND (1,100)
  175. if slutrand >=70:
  176. 'After work.'
  177. act 'agree':gt 'RynokHoz','opusteha2'
  178. end
  179. act 'go home':gt 'street'
  180. end
  181. if rinrand >= 40 and rinrand < 70 and palevorin = 2:
  182. 'To you approached the owner of the tent and began to pester you, promising to write premium'
  183. act 'Opt_Out':
  184. cla
  185. Set money = money - 2000
  186. 'The owner imposes on you a fine of 2000 rubles'
  187. act 'go home':gt 'street'
  188. end
  189. act 'ogle':gt 'RynokHoz','beginning'
  190. end
  191. if rinrand >= 70 and palevorin = 2:
  192. 'To you approached the owner of the tent c already familiar to you guys and they began to persuade you to perform oral sex, promising to write premium'
  193. act 'Opt_Out':
  194. cla
  195. Set money = money - 2000
  196. 'The owner imposes on you a fine of 2000 rubles'
  197. act 'go home':gt 'street'
  198. end
  199. act 'ogle':gt 'RynokHoz','opusteha'
  200. end
  201. end
  202. act 'resign':
  203. cla
  204. Set work = 0
  205. Set rinwork = 0
  206. 'you are fired.'
  207. act 'go home':gt 'street'
  208. end
  209. >>>>>>> 529_market
  210. end
  211. if busRinok = 0 and money >= 30000 and car > 0:
  212. <<<<<<< 529_Market
  213. act 'Buy a place in the market for a month 30000 rub':
  214. cla
  215. Set busRinok = 30
  216. Set money -= 30000
  217. 'You bought a place in the market for 30,000 rubles. You need the goods'
  218. act 'Go home': gt 'street'
  219. end
  220. end
  221. !с 7 до 16, 9 часов
  222. if busRinok > 0 and tovarR > 0 and rinhour ! число:
  223. act 'Trade independently':
  224. cla
  225. Set fat -= 2
  226. Set rinhour = число
  227. Set torghour = 16 - rinhour
  228. Set torgrand = RAND(1,50)
  229. if tovarR >= torgrand: Set tovarR -= torgrand
  230. if tovarR < torgrand: Set torgrand = tovarR & Set tovarR = 0
  231. Set torgmoney = torgrand * 200
  232. Set money += torgmoney
  233. 'You´ve earned a day <<torgmoney>> rubles, sold out <<torgrand>> pieces of the item, you have <<tovarR>> units of goods.'
  234. Set час = 17
  235. Set torgmoney = 0
  236. clr
  237. gs 'stat'
  238. act 'Go home': gt 'street'
  239. end
  240. if rinokTorg = 0 and rinhour ! число:
  241. act 'Hire a saleswoman':
  242. cla
  243. Set rinokTorg = 1
  244. 'You hired saleswoman 1000 rubles per day'
  245. act 'Go home': gt 'street'
  246. end
  247. end
  248. if rinokTorg = 1 and rinhour ! число and tovarR > 0:
  249. act 'Release the goods saleswoman.':
  250. cla
  251. Set rinokTorgW = 1
  252. Set rinhour = число
  253. Set torghour = 16 - rinhour
  254. Set torgrand = RAND(1,50)
  255. if tovarR >= torgrand: Set tovarR -= torgrand
  256. if tovarR < torgrand: Set torgrand = tovarR & Set tovarR = 0
  257. Set torgmoney = torgrand * 200
  258. 'You have given goods saleswoman, she can trade on their own.'
  259. act 'Go home': gt 'street'
  260. end
  261. end
  262. =======
  263. act 'Buy a place in the market for a month 30000 RUB':
  264. cla
  265. Set busRinok = 30
  266. Set money = money - 30000
  267. 'You bought a place in the market for 30000 rubles. You need the goods'
  268. act 'go home':gt 'street'
  269. end
  270. end
  271. !with 7 prior_to 16, 9 hours
  272. if busRinok > 0 and tovarR > 0 and rinhour ! number:
  273. act 'trade independently':
  274. cla
  275. Set fat = fat - 2
  276. Set rinhour = number
  277. Set torghour = 16 - rinhour
  278. Set torgrand = RAND (1,50)
  279. if tovarR >= torgrand:Set tovarR = tovarR - torgrand
  280. if tovarR < torgrand:Set torgrand = tovarR&Set tovarR = 0
  281. Set torgmoney = torgrand*200
  282. Set money = money + torgmoney
  283. 'You`ve earned a day <<torgmoney>> rubles, sold_out <<torgrand>> pieces product, you have <<tovarR>> units sold.'
  284. Set h = 17
  285. Set torgmoney = 0
  286. clr
  287. gs 'stat'
  288. act 'go home':gt 'street'
  289. end
  290. if rinokTorg = 0 and rinhour ! number:
  291. act 'hire a saleswoman':
  292. cla
  293. Set rinokTorg = 1
  294. 'You hired a saleswoman 1000 rubles per day'
  295. act 'go home':gt 'street'
  296. end
  297. end
  298. if rinokTorg = 1 and rinhour ! number and tovarR > 0:
  299. act 'Release the goods saleswoman.':
  300. cla
  301. Set rinokTorgW = 1
  302. Set rinhour = number
  303. Set torghour = 16 - rinhour
  304. Set torgrand = RAND (1,50)
  305. if tovarR >= torgrand:Set tovarR = tovarR - torgrand
  306. if tovarR < torgrand:Set torgrand = tovarR&Set tovarR = 0
  307. Set torgmoney = torgrand*200
  308. 'You have given goods saleswoman, now she can trade independently.'
  309. act 'go home':gt 'street'
  310. end
  311. end
  312. >>>>>>> 529_market
  313. end
  314. <<<<<<< 529_Market
  315. if rinokTorg = 1 and rinhour ! число:
  316. act 'Dismiss saleswoman':
  317. cla
  318. Set rinokTorg = 0
  319. 'You hired fired saleswoman'
  320. act 'Go home': gt 'street'
  321. end
  322. end
  323. --- Market ---------------------------------
  324. =======
  325. if rinokTorg = 1 and rinhour ! number:
  326. act 'dismiss the saleswoman':
  327. cla
  328. Set rinokTorg = 0
  329. 'You hired fired saleswoman'
  330. act 'go home':gt 'street'
  331. end
  332. end
  333. --- market ---------------------------------
  334. >>>>>>> 529_market