starenie 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144
  1. # starenie
  2. i = 1
  3. :loopcheap
  4. if cheapW[i] = 1:
  5. cheapW[i] = 0
  6. dynamic 'cheapH[<<i>>] -= 1'
  7. i += 1
  8. if i <= ARRSIZE('cheapW'):jump 'loopcheap'
  9. killvar 'cheapW'
  10. end
  11. i = 1
  12. :loopaverage
  13. if averageW[i] = 1:
  14. averageW[i] = 0
  15. dynamic 'averageH[<<i>>] -= 1'
  16. i += 1
  17. if i <= ARRSIZE('averageW'):jump 'loopaverage'
  18. killvar 'averageW'
  19. end
  20. i = 1
  21. :loopexpensive
  22. if expensiveW[i] = 1:
  23. expensiveW[i] = 0
  24. dynamic 'expensiveH[<<i>>] -= 1'
  25. i += 1
  26. if i <= ARRSIZE('expensiveW'):jump 'loopexpensive'
  27. killvar 'expensiveW'
  28. end
  29. i = 1
  30. :loopformal
  31. if formalW[i] = 1:
  32. formalW[i] = 0
  33. dynamic 'formalH[<<i>>] -= 1'
  34. i += 1
  35. if i <= ARRSIZE('formalW'):jump 'loopformal'
  36. killvar 'formalW'
  37. end
  38. i = 1
  39. :loopoffice
  40. if officeW[i] = 1:
  41. officeW[i] = 0
  42. dynamic 'officeH[<<i>>] -= 1'
  43. i += 1
  44. if i <= ARRSIZE('officeW'):jump 'loopoffice'
  45. killvar 'officeW'
  46. end
  47. i = 1
  48. :loopschool
  49. if schoolW[i] = 1:
  50. schoolW[i] = 0
  51. dynamic 'schoolH[<<i>>] -= 1'
  52. i += 1
  53. if i <= ARRSIZE('schoolW'):jump 'loopschool'
  54. killvar 'schoolW'
  55. end
  56. i = 1
  57. :loopexercise
  58. if exerciseW[i] = 1:
  59. exerciseW[i] = 0
  60. dynamic 'exerciseH[<<i>>] -= 1'
  61. i += 1
  62. if i <= ARRSIZE('exerciseW'):jump 'loopexercise'
  63. killvar 'exerciseW'
  64. end
  65. i = 1
  66. :loopfetish
  67. if fetishW[i] = 1:
  68. fetishW[i] = 0
  69. dynamic 'fetishH[<<i>>] -= 1'
  70. i += 1
  71. if i <= ARRSIZE('fetishW'):jump 'loopfetish'
  72. killvar 'fetishW'
  73. end
  74. i = 1
  75. :loopexhibit
  76. if exhibitW[i] = 1:
  77. exhibitW[i] = 0
  78. dynamic 'exhibitH[<<i>>] -= 1'
  79. i += 1
  80. if i <= ARRSIZE('exhibitW'):jump 'loopexhibit'
  81. killvar 'exhibitW'
  82. end
  83. i = 1
  84. :loopuniform
  85. if uniformW[i] = 1:
  86. uniformW[i] = 0
  87. dynamic 'uniformH[<<i>>] -= 1'
  88. i += 1
  89. if i <= ARRSIZE('uniformW'):jump 'loopuniform'
  90. killvar 'uniformW'
  91. end
  92. i = 1
  93. :loopcoat
  94. if coatW[i] = 1:
  95. coatW[i] = 0
  96. dynamic 'coatH[<<i>>] -= 1'
  97. i += 1
  98. if i <= ARRSIZE('coatW'):jump 'loopcoat'
  99. killvar 'coatW'
  100. end
  101. i = 1
  102. :loopswimwear
  103. if swimwearW[i] = 1:
  104. swimwearW[i] = 0
  105. dynamic 'swimwearH[<<i>>] -= 1'
  106. i += 1
  107. if i <= ARRSIZE('swimwearW'):jump 'loopswimwear'
  108. killvar 'swimwearW'
  109. end
  110. i = 1
  111. :loopburlesque
  112. if burlesqueW[i] = 1:
  113. burlesqueW[i] = 0
  114. dynamic 'burlesqueH[<<i>>] -= 1'
  115. i += 1
  116. if i <= ARRSIZE('burlesqueW'):jump 'loopburlesque'
  117. killvar 'burlesqueW'
  118. end
  119. i = 1
  120. :loopalternative
  121. if alternativeW[i] = 1:
  122. alternativeW[i] = 0
  123. dynamic 'alternativeH[<<i>>] -= 1'
  124. i += 1
  125. if i <= ARRSIZE('alternativeW'):jump 'loopalternative'
  126. killvar 'alternativeW'
  127. end
  128. --- starenie ---------------------------------