portnoi2 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162
  1. # portnoi2
  2. set poshvalldrop = 0
  3. set o = 0
  4. :jensmet
  5. set o += 1
  6. if jeans[o] = 1 and jeansB[o]!bedra:set poshvalldrop += 1
  7. if o ! 5:jump 'jensmet'
  8. set o = 0
  9. :shortmet
  10. set o += 1
  11. if short[o] = 1 and shortB[o]!bedra:set poshvalldrop += 1
  12. if o ! 5:jump 'shortmet'
  13. set o = 0
  14. :skirtmet
  15. set o += 1
  16. if skirt[o] = 1 and skirtB[o]!bedra:set poshvalldrop += 1
  17. if o ! 5:jump 'skirtmet'
  18. set o = 0
  19. :dressmet
  20. set o += 1
  21. if dress[o] = 1 and dressB[o]!bedra:set poshvalldrop += 1
  22. if o ! 24:jump 'dressmet'
  23. set o = 0
  24. :profimet
  25. set o += 1
  26. if profi[o] = 1 and profiB[o]!bedra:set poshvalldrop += 1
  27. if o ! 2:jump 'profimet'
  28. set o = 0
  29. :pantsmet
  30. set o += 1
  31. if pants[o] = 1 and pantsB[o]!bedra:set poshvalldrop += 1
  32. if o ! 5:jump 'pantsmet'
  33. set o = 0
  34. :latexmet
  35. set o += 1
  36. if latex[o] = 1 and latexB[o]!bedra:set poshvalldrop += 1
  37. if o ! 2:jump 'latexmet'
  38. set o = 0
  39. :hookermet
  40. set o += 1
  41. if hooker[o] = 1 and hookerB[o]!bedra:set poshvalldrop += 1
  42. if o ! 5:jump 'hookermet'
  43. set o = 0
  44. :odekismet
  45. set o += 1
  46. if odekis[o] = 1 and odekisB[o]!bedra:set poshvalldrop += 1
  47. if o ! 10:jump 'odekismet'
  48. set o = 0
  49. :newclomet
  50. set o += 1
  51. if newclo[o] = 1 and newcloB[o]!bedra:set poshvalldrop += 1
  52. if o ! 130:jump 'newclomet'
  53. set o = 0
  54. if money < poshvalldrop * 500:
  55. 'Do you have enough money, the cost ushivki all clothing <<poshvalldrop*500>> rub.'
  56. act 'Leave':gt 'clener', 'start'
  57. exit
  58. end
  59. if money >= poshvalldrop * 500:
  60. set money -= poshvalldrop * 500
  61. set o = 0
  62. :jensmet1
  63. set o += 1
  64. if jeans[o] = 1 and jeansB[o]!bedra:set jeansB[o] = bedra
  65. if o ! 5:jump 'jensmet1'
  66. set o = 0
  67. :shortmet1
  68. set o += 1
  69. if short[o] = 1 and shortB[o]!bedra:set shortB[o] = bedra
  70. if o ! 5:jump 'shortmet1'
  71. set o = 0
  72. :skirtmet1
  73. set o += 1
  74. if skirt[o] = 1 and skirtB[o]!bedra:set skirtB[o] = bedra
  75. if o ! 5:jump 'skirtmet1'
  76. set o = 0
  77. :dressmet1
  78. set o += 1
  79. if dress[o] = 1 and dressB[o]!bedra:set dressB[o] = bedra
  80. if o ! 24:jump 'dressmet1'
  81. set o = 0
  82. :profimet1
  83. set o += 1
  84. if profi[o] = 1 and profiB[o]!bedra:set profiB[o] = bedra
  85. if o ! 2:jump 'profimet1'
  86. set o = 0
  87. :pantsmet1
  88. set o += 1
  89. if pants[o] = 1 and pantsB[o]!bedra:set pantsB[o] = bedra
  90. if o ! 5:jump 'pantsmet1'
  91. set o = 0
  92. :latexmet1
  93. set o += 1
  94. if latex[o] = 1 and latexB[o]!bedra:set latexB[o] = bedra
  95. if o ! 2:jump 'latexmet1'
  96. set o = 0
  97. :hookermet1
  98. set o += 1
  99. if hooker[o] = 1 and hookerB[o]!bedra:set hookerB[o] = bedra
  100. if o ! 5:jump 'hookermet1'
  101. set o = 0
  102. :odekismet1
  103. set o += 1
  104. if odekis[o] = 1 and odekisB[o]!bedra:set odekisB[o] = bedra
  105. if o ! 10:jump 'odekismet1'
  106. set o = 0
  107. :newclomet1
  108. set o += 1
  109. if newclo[o] = 1 and newcloB[o]!bedra:set newcloB[o] = bedra
  110. if o ! 130:jump 'newclomet1'
  111. 'You ushili all clothing for <<poshvalldrop*500>> rub.'
  112. act 'Leave':gt 'clener', 'start'
  113. exit
  114. end
  115. --- portnoi2 ---------------------------------