portnoi2.qsrc 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169
  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. elseif poshvalldrop = 0:
  68. 'You do not have any clothes that need tailoring currently,'
  69. elseif money >= poshvalldrop:
  70. money -= poshvalldrop
  71. i = 1
  72. :xcheapmet
  73. if cheap[i] = 1 and ((cheapB[i] > pcs_hips + 8) or (cheapB[i] < pcs_hips - 8)):cheapB[i] = pcs_hips
  74. i += 1
  75. if i <= ARRSIZE('cheap'):jump 'xcheapmet'
  76. i = 1
  77. :xaveragemet
  78. if average[i] = 1 and ((averageB[i] > pcs_hips + 8) or (averageB[i] < pcs_hips - 8)):averageB[i] = pcs_hips
  79. i += 1
  80. if i <= ARRSIZE('average'):jump 'xaveragemet'
  81. i = 1
  82. :xexpensivemet
  83. if expensive[i] = 1 and ((expensiveB[i] > pcs_hips + 8) or (expensiveB[i] < pcs_hips - 8)):expensiveB[i] = pcs_hips
  84. i += 1
  85. if i <= ARRSIZE('expensive'):jump 'xexpensivemet'
  86. i = 1
  87. :xformalmet
  88. if formal[i] = 1 and ((formalB[i] > pcs_hips + 8) or (formalB[i] < pcs_hips - 8)):formalB[i] = pcs_hips
  89. i += 1
  90. if i <= ARRSIZE('formal'):jump 'xformalmet'
  91. i = 1
  92. :xofficemet
  93. if office[i] = 1 and ((officeB[i] > pcs_hips + 8) or (officeB[i] < pcs_hips - 8)):officeB[i] = pcs_hips
  94. i += 1
  95. if i <= ARRSIZE('office'):jump 'xofficemet'
  96. i = 1
  97. :xschoolmet
  98. if school[i] = 1 and ((schoolB[i] > pcs_hips + 8) or (schoolB[i] < pcs_hips - 8)):schoolB[i] = pcs_hips
  99. i += 1
  100. if i = 6: i = 7
  101. if i <= ARRSIZE('school'):jump 'xschoolmet'
  102. i = 1
  103. :xfetishmet
  104. if fetish[i] = 1 and ((fetishB[i] > pcs_hips + 8) or (fetishB[i] < pcs_hips - 8)):fetishB[i] = pcs_hips
  105. i += 1
  106. if i <= ARRSIZE('fetish'):jump 'xfetishmet'
  107. i = 1
  108. :xexhibitmet
  109. if exhibit[i] = 1 and ((exhibitB[i] > pcs_hips + 8) or (exhibitB[i] < pcs_hips - 8)):exhibitB[i] = pcs_hips
  110. i += 1
  111. if i <= ARRSIZE('exhibit'):jump 'xexhibitmet'
  112. i = 1
  113. :xuniformmet
  114. if uniform[i] = 1 and ((uniformB[i] > pcs_hips + 8) or (uniformB[i] < pcs_hips - 8)):uniformB[i] = pcs_hips
  115. i += 1
  116. if i <= ARRSIZE('uniform'):jump 'xuniformmet'
  117. i = 1
  118. :xswimwearmet
  119. if swimwear[i] = 1 and ((swimwearB[i] > pcs_hips + 8) or (swimwearB[i] < pcs_hips - 8)):swimwearB[i] = pcs_hips
  120. i += 1
  121. if i <= ARRSIZE('swimwear'):jump 'xswimwearmet'
  122. i = 1
  123. :xburlesquemet
  124. if burlesque[i] = 1 and ((burlesqueB[i] > pcs_hips + 8) or (burlesqueB[i] < pcs_hips - 8)):burlesqueB[i] = pcs_hips
  125. i += 1
  126. if i <= ARRSIZE('burlesque'):jump 'xburlesquemet'
  127. i = 1
  128. :xalternativemet
  129. if alternative[i] = 1 and ((alternativeB[i] > pcs_hips + 8) or (alternativeB[i] < pcs_hips - 8)):alternativeB[i] = pcs_hips
  130. i += 1
  131. if i <= ARRSIZE('alternative'):jump 'xalternativemet'
  132. 'You resize all clothing for <<poshvalldrop>> <b>₽</b>.'
  133. end
  134. if $loc = 'Gshveyfab':
  135. act 'Leave': gt 'pavIndustrial'
  136. else
  137. act 'Leave' :gt 'rinok', 'tailor'
  138. end
  139. --- portnoi2 ---------------------------------