portnoi2 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
  1. # portnoi2
  2. poshvalldrop = 0
  3. i = 1
  4. :ycheapmet
  5. if cheap[i] = 1 and ((cheapB[i] > pcs_hips + 8) or (cheapB[i] < pcs_hips - 8)):poshvalldrop += 1
  6. i += 1
  7. if i <= ARRSIZE('cheap'):jump 'ycheapmet'
  8. i = 1
  9. :yaveragemet
  10. if average[i] = 1 and ((averageB[i] > pcs_hips + 8) or (averageB[i] < pcs_hips - 8)):poshvalldrop += 1
  11. i += 1
  12. if i <= ARRSIZE('average'):jump 'yaveragemet'
  13. i = 1
  14. :yexpensivemet
  15. if expensive[i] = 1 and ((expensiveB[i] > pcs_hips + 8) or (expensiveB[i] < pcs_hips - 8)):poshvalldrop += 1
  16. i += 1
  17. if i <= ARRSIZE('expensive'):jump 'yexpensivemet'
  18. i = 1
  19. :yformalmet
  20. if formal[i] = 1 and ((formalB[i] > pcs_hips + 8) or (formalB[i] < pcs_hips - 8)):poshvalldrop += 1
  21. i += 1
  22. if i <= ARRSIZE('formal'):jump 'yformalmet'
  23. i = 1
  24. :yofficemet
  25. if office[i] = 1 and ((officeB[i] > pcs_hips + 8) or (officeB[i] < pcs_hips - 8)):poshvalldrop += 1
  26. i += 1
  27. if i <= ARRSIZE('office'):jump 'yofficemet'
  28. i = 1
  29. :yschoolmet
  30. if school[i] = 1 and ((schoolB[i] > pcs_hips + 8) or (schoolB[i] < pcs_hips - 8)):poshvalldrop += 1
  31. i += 1
  32. if i = 6: i = 7
  33. if i <= ARRSIZE('school'):jump 'yschoolmet'
  34. i = 1
  35. :yfetishmet
  36. if fetish[i] = 1 and ((fetishB[i] > pcs_hips + 8) or (fetishB[i] < pcs_hips - 8)):poshvalldrop += 1
  37. i += 1
  38. if i <= ARRSIZE('fetish'):jump 'yfetishmet'
  39. i = 1
  40. :yexhibitmet
  41. if exhibit[i] = 1 and ((exhibitB[i] > pcs_hips + 8) or (exhibitB[i] < pcs_hips - 8)):poshvalldrop += 1
  42. i += 1
  43. if i <= ARRSIZE('exhibit'):jump 'yexhibitmet'
  44. i = 1
  45. :yuniformmet
  46. if uniform[i] = 1 and ((uniformB[i] > pcs_hips + 8) or (uniformB[i] < pcs_hips - 8)):poshvalldrop += 1
  47. i += 1
  48. if i <= ARRSIZE('uniform'):jump 'yuniformmet'
  49. i = 1
  50. :yswimwearmet
  51. if swimwear[i] = 1 and ((swimwearB[i] > pcs_hips + 8) or (swimwearB[i] < pcs_hips - 8)):poshvalldrop += 1
  52. i += 1
  53. if i <= ARRSIZE('swimwear'):jump 'yswimwearmet'
  54. i = 1
  55. :yburlesquemet
  56. if burlesque[i] = 1 and ((burlesqueB[i] > pcs_hips + 8) or (burlesqueB[i] < pcs_hips - 8)):poshvalldrop += 1
  57. i += 1
  58. if i <= ARRSIZE('burlesque'):jump 'yburlesquemet'
  59. i = 1
  60. :yalternativemet
  61. if alternative[i] = 1 and ((alternativeB[i] > pcs_hips + 8) or (alternativeB[i] < pcs_hips - 8)):poshvalldrop += 1
  62. i += 1
  63. if i <= ARRSIZE('alternative'):jump 'yalternativemet'
  64. poshvalldrop = 500 * poshvalldrop
  65. if money < poshvalldrop:
  66. 'You do not have enough money to resize all of your clothing. The total cost would be <<poshvalldrop>> <b>₽</b>.'
  67. if $loc = 'Gshveyfab':
  68. act 'Leave':gt 'Gshveyfab', 'start'
  69. else
  70. act 'Leave':gt 'rinok', 'tailor'
  71. end
  72. exit
  73. elseif money >= poshvalldrop:
  74. money -= poshvalldrop
  75. i = 1
  76. :xcheapmet
  77. if cheap[i] = 1 and ((cheapB[i] > pcs_hips + 8) or (cheapB[i] < pcs_hips - 8)):cheapB[i] = pcs_hips
  78. i += 1
  79. if i <= ARRSIZE('cheap'):jump 'xcheapmet'
  80. i = 1
  81. :xaveragemet
  82. if average[i] = 1 and ((averageB[i] > pcs_hips + 8) or (averageB[i] < pcs_hips - 8)):averageB[i] = pcs_hips
  83. i += 1
  84. if i <= ARRSIZE('average'):jump 'xaveragemet'
  85. i = 1
  86. :xexpensivemet
  87. if expensive[i] = 1 and ((expensiveB[i] > pcs_hips + 8) or (expensiveB[i] < pcs_hips - 8)):expensiveB[i] = pcs_hips
  88. i += 1
  89. if i <= ARRSIZE('expensive'):jump 'xexpensivemet'
  90. i = 1
  91. :xformalmet
  92. if formal[i] = 1 and ((formalB[i] > pcs_hips + 8) or (formalB[i] < pcs_hips - 8)):formalB[i] = pcs_hips
  93. i += 1
  94. if i <= ARRSIZE('formal'):jump 'xformalmet'
  95. i = 1
  96. :xofficemet
  97. if office[i] = 1 and ((officeB[i] > pcs_hips + 8) or (officeB[i] < pcs_hips - 8)):officeB[i] = pcs_hips
  98. i += 1
  99. if i <= ARRSIZE('office'):jump 'xofficemet'
  100. i = 1
  101. :xschoolmet
  102. if school[i] = 1 and ((schoolB[i] > pcs_hips + 8) or (schoolB[i] < pcs_hips - 8)):schoolB[i] = pcs_hips
  103. i += 1
  104. if i = 6: i = 7
  105. if i <= ARRSIZE('school'):jump 'xschoolmet'
  106. i = 1
  107. :xfetishmet
  108. if fetish[i] = 1 and ((fetishB[i] > pcs_hips + 8) or (fetishB[i] < pcs_hips - 8)):fetishB[i] = pcs_hips
  109. i += 1
  110. if i <= ARRSIZE('fetish'):jump 'xfetishmet'
  111. i = 1
  112. :xexhibitmet
  113. if exhibit[i] = 1 and ((exhibitB[i] > pcs_hips + 8) or (exhibitB[i] < pcs_hips - 8)):exhibitB[i] = pcs_hips
  114. i += 1
  115. if i <= ARRSIZE('exhibit'):jump 'xexhibitmet'
  116. i = 1
  117. :xuniformmet
  118. if uniform[i] = 1 and ((uniformB[i] > pcs_hips + 8) or (uniformB[i] < pcs_hips - 8)):uniformB[i] = pcs_hips
  119. i += 1
  120. if i <= ARRSIZE('uniform'):jump 'xuniformmet'
  121. i = 1
  122. :xswimwearmet
  123. if swimwear[i] = 1 and ((swimwearB[i] > pcs_hips + 8) or (swimwearB[i] < pcs_hips - 8)):swimwearB[i] = pcs_hips
  124. i += 1
  125. if i <= ARRSIZE('swimwear'):jump 'xswimwearmet'
  126. i = 1
  127. :xburlesquemet
  128. if burlesque[i] = 1 and ((burlesqueB[i] > pcs_hips + 8) or (burlesqueB[i] < pcs_hips - 8)):burlesqueB[i] = pcs_hips
  129. i += 1
  130. if i <= ARRSIZE('burlesque'):jump 'xburlesquemet'
  131. i = 1
  132. :xalternativemet
  133. if alternative[i] = 1 and ((alternativeB[i] > pcs_hips + 8) or (alternativeB[i] < pcs_hips - 8)):alternativeB[i] = pcs_hips
  134. i += 1
  135. if i <= ARRSIZE('alternative'):jump 'xalternativemet'
  136. 'You resize all clothing for <<poshvalldrop>> <b>₽</b>.'
  137. if $loc = 'Gshveyfab':
  138. act 'Leave':gt 'Gshveyfab', 'start'
  139. else
  140. act 'Leave':gt 'rinok', 'tailor'
  141. end
  142. exit
  143. end
  144. --- portnoi2 ---------------------------------