|
@@ -1,144 +1,42 @@
|
|
|
# starenie
|
|
|
|
|
|
-i = 1
|
|
|
-:loopcheap
|
|
|
-if cheapW[i] = 1:
|
|
|
- cheapW[i] = 0
|
|
|
- dynamic 'cheapH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('cheapW'):jump 'loopcheap'
|
|
|
- killvar 'cheapW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopaverage
|
|
|
-if averageW[i] = 1:
|
|
|
- averageW[i] = 0
|
|
|
- dynamic 'averageH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('averageW'):jump 'loopaverage'
|
|
|
- killvar 'averageW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopexpensive
|
|
|
-if expensiveW[i] = 1:
|
|
|
- expensiveW[i] = 0
|
|
|
- dynamic 'expensiveH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('expensiveW'):jump 'loopexpensive'
|
|
|
- killvar 'expensiveW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopformal
|
|
|
-if formalW[i] = 1:
|
|
|
- formalW[i] = 0
|
|
|
- dynamic 'formalH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('formalW'):jump 'loopformal'
|
|
|
- killvar 'formalW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopoffice
|
|
|
-if officeW[i] = 1:
|
|
|
- officeW[i] = 0
|
|
|
- dynamic 'officeH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('officeW'):jump 'loopoffice'
|
|
|
- killvar 'officeW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopschool
|
|
|
-if schoolW[i] = 1:
|
|
|
- schoolW[i] = 0
|
|
|
- dynamic 'schoolH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('schoolW'):jump 'loopschool'
|
|
|
- killvar 'schoolW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopexercise
|
|
|
-if exerciseW[i] = 1:
|
|
|
- exerciseW[i] = 0
|
|
|
- dynamic 'exerciseH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('exerciseW'):jump 'loopexercise'
|
|
|
- killvar 'exerciseW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopfetish
|
|
|
-if fetishW[i] = 1:
|
|
|
- fetishW[i] = 0
|
|
|
- dynamic 'fetishH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('fetishW'):jump 'loopfetish'
|
|
|
- killvar 'fetishW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopexhibit
|
|
|
-if exhibitW[i] = 1:
|
|
|
- exhibitW[i] = 0
|
|
|
- dynamic 'exhibitH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('exhibitW'):jump 'loopexhibit'
|
|
|
- killvar 'exhibitW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopuniform
|
|
|
-if uniformW[i] = 1:
|
|
|
- uniformW[i] = 0
|
|
|
- dynamic 'uniformH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('uniformW'):jump 'loopuniform'
|
|
|
- killvar 'uniformW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopcoat
|
|
|
-if coatW[i] = 1:
|
|
|
- coatW[i] = 0
|
|
|
- dynamic 'coatH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('coatW'):jump 'loopcoat'
|
|
|
- killvar 'coatW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopswimwear
|
|
|
-if swimwearW[i] = 1:
|
|
|
- swimwearW[i] = 0
|
|
|
- dynamic 'swimwearH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('swimwearW'):jump 'loopswimwear'
|
|
|
- killvar 'swimwearW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopburlesque
|
|
|
-if burlesqueW[i] = 1:
|
|
|
- burlesqueW[i] = 0
|
|
|
- dynamic 'burlesqueH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('burlesqueW'):jump 'loopburlesque'
|
|
|
- killvar 'burlesqueW'
|
|
|
-end
|
|
|
-
|
|
|
-i = 1
|
|
|
-:loopalternative
|
|
|
-if alternativeW[i] = 1:
|
|
|
- alternativeW[i] = 0
|
|
|
- dynamic 'alternativeH[<<i>>] -= 1'
|
|
|
- i += 1
|
|
|
- if i <= ARRSIZE('alternativeW'):jump 'loopalternative'
|
|
|
- killvar 'alternativeW'
|
|
|
-end
|
|
|
+$loc_clothestypes[1]='cheap'
|
|
|
+$loc_clothestypes[2]='average'
|
|
|
+$loc_clothestypes[3]='expensive'
|
|
|
+$loc_clothestypes[4]='formal'
|
|
|
+$loc_clothestypes[5]='office'
|
|
|
+$loc_clothestypes[6]='school'
|
|
|
+$loc_clothestypes[7]='exercise'
|
|
|
+$loc_clothestypes[8]='fetish'
|
|
|
+$loc_clothestypes[9]='exhibit'
|
|
|
+$loc_clothestypes[10]='uniform'
|
|
|
+$loc_clothestypes[11]='coat'
|
|
|
+$loc_clothestypes[12]='swimwear'
|
|
|
+$loc_clothestypes[13]='burlesque'
|
|
|
+$loc_clothestypes[14]='alternative'
|
|
|
+
|
|
|
+
|
|
|
+! disable wearing base school form
|
|
|
+schoolW[6] = 0
|
|
|
+
|
|
|
+! wearing cicle
|
|
|
+j = 1
|
|
|
+:loopclotype
|
|
|
+ i = 1
|
|
|
+ :loopclonum
|
|
|
+ dynamic "
|
|
|
+ if <<$loc_clothestypes[j]>>W[i] = 1:
|
|
|
+ <<$loc_clothestypes[j]>>W[i] = 0
|
|
|
+ <<$loc_clothestypes[j]>>H[i] -= 1
|
|
|
+ end
|
|
|
+ "
|
|
|
+ i += 1
|
|
|
+ if i < ARRSIZE('<<$loc_clothestypes[j]>>W'):jump 'loopclonum'
|
|
|
+killvar '$<<$loc_clothestypes[j]>>W'
|
|
|
+j += 1
|
|
|
+if j < ARRSIZE('$loc_clothestypes'):jump 'loopclotype'
|
|
|
+
|
|
|
+killvar '$loc_clothestypes'
|
|
|
|
|
|
--- starenie ---------------------------------
|
|
|
|