portnoi2 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165
  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 <= 86: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 <= 132: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 <= 150: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 <= 33: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 <= 44: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 <= 38: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 <= 54: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 <= 42: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 <= 32: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 <= 30: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 <= 22:jump 'yburlesquemet'
  59. poshvalldrop *= 500
  60. if money < poshvalldrop:
  61. 'You do not have enough money to resize all of your clothing. The total cost would be <<poshvalldrop>> <b>₽</b>.'
  62. if $loc = 'Gshveyfab':
  63. act 'Leave':gt 'Gshveyfab', 'start'
  64. else
  65. act 'Leave':gt 'rinok', 'tailor'
  66. end
  67. exit
  68. elseif money >= poshvalldrop:
  69. money -= poshvalldrop
  70. i = 1
  71. :xcheapmet
  72. if cheap[i] = 1 and ((cheapB[i] > pcs_hips + 8) or (cheapB[i] < pcs_hips - 8)):cheapB[i] = pcs_hips
  73. i += 1
  74. if i <= 86:jump 'xcheapmet'
  75. i = 1
  76. :xaveragemet
  77. if average[i] = 1 and ((averageB[i] > pcs_hips + 8) or (averageB[i] < pcs_hips - 8)):averageB[i] = pcs_hips
  78. i += 1
  79. if i <= 132:jump 'xaveragemet'
  80. i = 1
  81. :xexpensivemet
  82. if expensive[i] = 1 and ((expensiveB[i] > pcs_hips + 8) or (expensiveB[i] < pcs_hips - 8)):expensiveB[i] = pcs_hips
  83. i += 1
  84. if i <= 150:jump 'xexpensivemet'
  85. i = 1
  86. :xformalmet
  87. if formal[i] = 1 and ((formalB[i] > pcs_hips + 8) or (formalB[i] < pcs_hips - 8)):formalB[i] = pcs_hips
  88. i += 1
  89. if i <= 33:jump 'xformalmet'
  90. i = 1
  91. :xofficemet
  92. if office[i] = 1 and ((officeB[i] > pcs_hips + 8) or (officeB[i] < pcs_hips - 8)):officeB[i] = pcs_hips
  93. i += 1
  94. if i <= 44:jump 'xofficemet'
  95. i = 1
  96. :xschoolmet
  97. if school[i] = 1 and ((schoolB[i] > pcs_hips + 8) or (schoolB[i] < pcs_hips - 8)):schoolB[i] = pcs_hips
  98. i += 1
  99. if i = 6: i = 7
  100. if i <= 38:jump 'xschoolmet'
  101. i = 1
  102. :xfetishmet
  103. if fetish[i] = 1 and ((fetishB[i] > pcs_hips + 8) or (fetishB[i] < pcs_hips - 8)):fetishB[i] = pcs_hips
  104. i += 1
  105. if i <= 54:jump 'xfetishmet'
  106. i = 1
  107. :xexhibitmet
  108. if exhibit[i] = 1 and ((exhibitB[i] > pcs_hips + 8) or (exhibitB[i] < pcs_hips - 8)):exhibitB[i] = pcs_hips
  109. i += 1
  110. if i <= 42:jump 'xexhibitmet'
  111. i = 1
  112. :xuniformmet
  113. if uniform[i] = 1 and ((uniformB[i] > pcs_hips + 8) or (uniformB[i] < pcs_hips - 8)):uniformB[i] = pcs_hips
  114. i += 1
  115. if i <= 32:jump 'xuniformmet'
  116. i = 1
  117. :xswimwearmet
  118. if swimwear[i] = 1 and ((swimwearB[i] > pcs_hips + 8) or (swimwearB[i] < pcs_hips - 8)):swimwearB[i] = pcs_hips
  119. i += 1
  120. if i <= 30:jump 'xswimwearmet'
  121. i = 1
  122. :xburlesquemet
  123. if burlesque[i] = 1 and ((burlesqueB[i] > pcs_hips + 8) or (burlesqueB[i] < pcs_hips - 8)):burlesqueB[i] = pcs_hips
  124. i += 1
  125. if i <= 22:jump 'xburlesquemet'
  126. 'You resize all clothing for <<poshvalldrop>> <b>₽</b>.'
  127. if $loc = 'Gshveyfab':
  128. act 'Leave':gt 'Gshveyfab', 'start'
  129. else
  130. act 'Leave':gt 'rinok', 'tailor'
  131. end
  132. exit
  133. end
  134. --- portnoi2 ---------------------------------