486_portnoi2 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232
  1. # portnoi2
  2. <<<<<<< 486_portnoi2
  3. set poshvalldrop = 0
  4. set o = 0
  5. :jensmet
  6. set o += 1
  7. if jeans[o] = 1 and jeansB[o]!bedra: set poshvalldrop += 1
  8. if o ! 5: jump 'jensmet'
  9. set o = 0
  10. :shortmet
  11. set o += 1
  12. if short[o] = 1 and shortB[o]!bedra: set poshvalldrop += 1
  13. if o ! 5: jump 'shortmet'
  14. set o = 0
  15. :skirtmet
  16. set o += 1
  17. if skirt[o] = 1 and skirtB[o]!bedra: set poshvalldrop += 1
  18. if o ! 5: jump 'skirtmet'
  19. set o = 0
  20. :dressmet
  21. set o += 1
  22. if dress[o] = 1 and dressB[o]!bedra: set poshvalldrop += 1
  23. if o ! 24: jump 'dressmet'
  24. set o = 0
  25. :profimet
  26. set o += 1
  27. if profi[o] = 1 and profiB[o]!bedra: set poshvalldrop += 1
  28. if o ! 2: jump 'profimet'
  29. set o = 0
  30. :pantsmet
  31. set o += 1
  32. if pants[o] = 1 and pantsB[o]!bedra: set poshvalldrop += 1
  33. if o ! 5: jump 'pantsmet'
  34. set o = 0
  35. :latexmet
  36. set o += 1
  37. if latex[o] = 1 and latexB[o]!bedra: set poshvalldrop += 1
  38. if o ! 2: jump 'latexmet'
  39. set o = 0
  40. :hookermet
  41. set o += 1
  42. if hooker[o] = 1 and hookerB[o]!bedra: set poshvalldrop += 1
  43. if o ! 5: jump 'hookermet'
  44. set o = 0
  45. :odekismet
  46. set o += 1
  47. if odekis[o] = 1 and odekisB[o]!bedra: set poshvalldrop += 1
  48. if o ! 10: jump 'odekismet'
  49. set o = 0
  50. :newclomet
  51. set o += 1
  52. if newclo[o] = 1 and newcloB[o]!bedra: set poshvalldrop += 1
  53. if o ! 130: jump 'newclomet'
  54. set o = 0
  55. if money < poshvalldrop*500:
  56. 'Do you have enough money, the cost ushivki all clothing <<poshvalldrop*500>> rub.'
  57. act 'QUIT': gt 'clener','start'
  58. exit
  59. end
  60. if money >= poshvalldrop * 500:
  61. set money -= poshvalldrop * 500
  62. set o = 0
  63. :jensmet1
  64. set o += 1
  65. if jeans[o] = 1 and jeansB[o]!bedra: set jeansB[o] = bedra
  66. if o ! 5: jump 'jensmet1'
  67. set o = 0
  68. :shortmet1
  69. set o += 1
  70. if short[o] = 1 and shortB[o]!bedra: set shortB[o] = bedra
  71. if o ! 5: jump 'shortmet1'
  72. set o = 0
  73. :skirtmet1
  74. set o += 1
  75. if skirt[o] = 1 and skirtB[o]!bedra: set skirtB[o] = bedra
  76. if o ! 5: jump 'skirtmet1'
  77. set o = 0
  78. :dressmet1
  79. set o += 1
  80. if dress[o] = 1 and dressB[o]!bedra: set dressB[o] = bedra
  81. if o ! 24: jump 'dressmet1'
  82. set o = 0
  83. :profimet1
  84. set o += 1
  85. if profi[o] = 1 and profiB[o]!bedra: set profiB[o] = bedra
  86. if o ! 2: jump 'profimet1'
  87. set o = 0
  88. :pantsmet1
  89. set o += 1
  90. if pants[o] = 1 and pantsB[o]!bedra: set pantsB[o] = bedra
  91. if o ! 5: jump 'pantsmet1'
  92. set o = 0
  93. :latexmet1
  94. set o += 1
  95. if latex[o] = 1 and latexB[o]!bedra: set latexB[o] = bedra
  96. if o ! 2: jump 'latexmet1'
  97. set o = 0
  98. :hookermet1
  99. set o += 1
  100. if hooker[o] = 1 and hookerB[o]!bedra: set hookerB[o] = bedra
  101. if o ! 5: jump 'hookermet1'
  102. set o = 0
  103. :odekismet1
  104. set o += 1
  105. if odekis[o] = 1 and odekisB[o]!bedra: set odekisB[o] = bedra
  106. if o ! 10: jump 'odekismet1'
  107. set o = 0
  108. :newclomet1
  109. set o += 1
  110. if newclo[o] = 1 and newcloB[o]!bedra: set newcloB[o] = bedra
  111. if o ! 130: jump 'newclomet1'
  112. 'You ushili all clothing for <<poshvalldrop*500>> rub.'
  113. act 'QUIT': gt 'clener','start'
  114. exit
  115. end
  116. =======
  117. set poshvalldrop=0
  118. set o=0
  119. :jensmet
  120. set o+=1
  121. if jeans[o]=1 and jeansB[o]!bedra:set poshvalldrop+=1
  122. if o!5:jump'jensmet'
  123. set o=0
  124. :shortmet
  125. set o+=1
  126. if short[o]=1 and shortB[o]!bedra:set poshvalldrop+=1
  127. if o!5:jump'shortmet'
  128. set o=0
  129. :skirtmet
  130. set o+=1
  131. if skirt[o]=1 and skirtB[o]!bedra:set poshvalldrop+=1
  132. if o!5:jump'skirtmet'
  133. set o=0
  134. :dressmet
  135. set o+=1
  136. if dress[o]=1 and dressB[o]!bedra:set poshvalldrop+=1
  137. if o!24:jump'dressmet'
  138. set o=0
  139. :profimet
  140. set o+=1
  141. if profi[o]=1 and profiB[o]!bedra:set poshvalldrop+=1
  142. if o!2:jump'profimet'
  143. set o=0
  144. :pantsmet
  145. set o+=1
  146. if pants[o]=1 and pantsB[o]!bedra:set poshvalldrop+=1
  147. if o!5:jump'pantsmet'
  148. set o=0
  149. :latexmet
  150. set o+=1
  151. if latex[o]=1 and latexB[o]!bedra:set poshvalldrop+=1
  152. if o!2:jump'latexmet'
  153. set o=0
  154. :hookermet
  155. set o+=1
  156. if hooker[o]=1 and hookerB[o]!bedra:set poshvalldrop+=1
  157. if o!5:jump'hookermet'
  158. set o=0
  159. :odekismet
  160. set o+=1
  161. if odekis[o]=1 and odekisB[o]!bedra:set poshvalldrop+=1
  162. if o!10:jump'odekismet'
  163. set o=0
  164. :newclomet
  165. set o+=1
  166. if newclo[o]=1 and newcloB[o]!bedra:set poshvalldrop+=1
  167. if o!130:jump'newclomet'
  168. set o=0
  169. if money<poshvalldrop*500:
  170. 'You do not have enough money, cost ushivki all clothing <<poshvalldrop*500>> RUB.'
  171. act 'GO_OUT':gt'clener','start'
  172. exit
  173. end
  174. if money>=poshvalldrop*500:
  175. set money-=poshvalldrop*500
  176. set o=0
  177. :jensmet1
  178. set o+=1
  179. if jeans[o]=1 and jeansB[o]!bedra:set jeansB[o]=bedra
  180. if o!5:jump'jensmet1'
  181. set o=0
  182. :shortmet1
  183. set o+=1
  184. if short[o]=1 and shortB[o]!bedra:set shortB[o]=bedra
  185. if o!5:jump'shortmet1'
  186. set o=0
  187. :skirtmet1
  188. set o+=1
  189. if skirt[o]=1 and skirtB[o]!bedra:set skirtB[o]=bedra
  190. if o!5:jump'skirtmet1'
  191. set o=0
  192. :dressmet1
  193. set o+=1
  194. if dress[o]=1 and dressB[o]!bedra:set dressB[o]=bedra
  195. if o!24:jump'dressmet1'
  196. set o=0
  197. :profimet1
  198. set o+=1
  199. if profi[o]=1 and profiB[o]!bedra:set profiB[o]=bedra
  200. if o!2:jump'profimet1'
  201. set o=0
  202. :pantsmet1
  203. set o+=1
  204. if pants[o]=1 and pantsB[o]!bedra:set pantsB[o]=bedra
  205. if o!5:jump'pantsmet1'
  206. set o=0
  207. :latexmet1
  208. set o+=1
  209. if latex[o]=1 and latexB[o]!bedra:set latexB[o]=bedra
  210. if o!2:jump'latexmet1'
  211. set o=0
  212. :hookermet1
  213. set o+=1
  214. if hooker[o]=1 and hookerB[o]!bedra:set hookerB[o]=bedra
  215. if o!5:jump'hookermet1'
  216. set o=0
  217. :odekismet1
  218. set o+=1
  219. if odekis[o]=1 and odekisB[o]!bedra:set odekisB[o]=bedra
  220. if o!10:jump'odekismet1'
  221. set o=0
  222. :newclomet1
  223. set o+=1
  224. if newclo[o]=1 and newcloB[o]!bedra:set newcloB[o]=bedra
  225. if o!130:jump'newclomet1'
  226. 'You ushili all the clothes for <<poshvalldrop*500>> RUB.'
  227. act 'GO_OUT':gt'clener','start'
  228. exit
  229. end
  230. >>>>>>> 486_portnoi2
  231. --- portnoi2 ---------------------------------