1
0

portnoi2 2.6 KB

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