# portnoi2 <<<<<<< 486_portnoi2 set poshvalldrop = 0 set o = 0 :jensmet set o += 1 if jeans[o] = 1 and jeansB[o]!bedra: set poshvalldrop += 1 if o ! 5: jump 'jensmet' set o = 0 :shortmet set o += 1 if short[o] = 1 and shortB[o]!bedra: set poshvalldrop += 1 if o ! 5: jump 'shortmet' set o = 0 :skirtmet set o += 1 if skirt[o] = 1 and skirtB[o]!bedra: set poshvalldrop += 1 if o ! 5: jump 'skirtmet' set o = 0 :dressmet set o += 1 if dress[o] = 1 and dressB[o]!bedra: set poshvalldrop += 1 if o ! 24: jump 'dressmet' set o = 0 :profimet set o += 1 if profi[o] = 1 and profiB[o]!bedra: set poshvalldrop += 1 if o ! 2: jump 'profimet' set o = 0 :pantsmet set o += 1 if pants[o] = 1 and pantsB[o]!bedra: set poshvalldrop += 1 if o ! 5: jump 'pantsmet' set o = 0 :latexmet set o += 1 if latex[o] = 1 and latexB[o]!bedra: set poshvalldrop += 1 if o ! 2: jump 'latexmet' set o = 0 :hookermet set o += 1 if hooker[o] = 1 and hookerB[o]!bedra: set poshvalldrop += 1 if o ! 5: jump 'hookermet' set o = 0 :odekismet set o += 1 if odekis[o] = 1 and odekisB[o]!bedra: set poshvalldrop += 1 if o ! 10: jump 'odekismet' set o = 0 :newclomet set o += 1 if newclo[o] = 1 and newcloB[o]!bedra: set poshvalldrop += 1 if o ! 130: jump 'newclomet' set o = 0 if money < poshvalldrop*500: 'Do you have enough money, the cost ushivki all clothing <> rub.' act 'QUIT': gt 'clener','start' exit end if money >= poshvalldrop * 500: set money -= poshvalldrop * 500 set o = 0 :jensmet1 set o += 1 if jeans[o] = 1 and jeansB[o]!bedra: set jeansB[o] = bedra if o ! 5: jump 'jensmet1' set o = 0 :shortmet1 set o += 1 if short[o] = 1 and shortB[o]!bedra: set shortB[o] = bedra if o ! 5: jump 'shortmet1' set o = 0 :skirtmet1 set o += 1 if skirt[o] = 1 and skirtB[o]!bedra: set skirtB[o] = bedra if o ! 5: jump 'skirtmet1' set o = 0 :dressmet1 set o += 1 if dress[o] = 1 and dressB[o]!bedra: set dressB[o] = bedra if o ! 24: jump 'dressmet1' set o = 0 :profimet1 set o += 1 if profi[o] = 1 and profiB[o]!bedra: set profiB[o] = bedra if o ! 2: jump 'profimet1' set o = 0 :pantsmet1 set o += 1 if pants[o] = 1 and pantsB[o]!bedra: set pantsB[o] = bedra if o ! 5: jump 'pantsmet1' set o = 0 :latexmet1 set o += 1 if latex[o] = 1 and latexB[o]!bedra: set latexB[o] = bedra if o ! 2: jump 'latexmet1' set o = 0 :hookermet1 set o += 1 if hooker[o] = 1 and hookerB[o]!bedra: set hookerB[o] = bedra if o ! 5: jump 'hookermet1' set o = 0 :odekismet1 set o += 1 if odekis[o] = 1 and odekisB[o]!bedra: set odekisB[o] = bedra if o ! 10: jump 'odekismet1' set o = 0 :newclomet1 set o += 1 if newclo[o] = 1 and newcloB[o]!bedra: set newcloB[o] = bedra if o ! 130: jump 'newclomet1' 'You ushili all clothing for <> rub.' act 'QUIT': gt 'clener','start' exit end ======= set poshvalldrop=0 set o=0 :jensmet set o+=1 if jeans[o]=1 and jeansB[o]!bedra:set poshvalldrop+=1 if o!5:jump'jensmet' set o=0 :shortmet set o+=1 if short[o]=1 and shortB[o]!bedra:set poshvalldrop+=1 if o!5:jump'shortmet' set o=0 :skirtmet set o+=1 if skirt[o]=1 and skirtB[o]!bedra:set poshvalldrop+=1 if o!5:jump'skirtmet' set o=0 :dressmet set o+=1 if dress[o]=1 and dressB[o]!bedra:set poshvalldrop+=1 if o!24:jump'dressmet' set o=0 :profimet set o+=1 if profi[o]=1 and profiB[o]!bedra:set poshvalldrop+=1 if o!2:jump'profimet' set o=0 :pantsmet set o+=1 if pants[o]=1 and pantsB[o]!bedra:set poshvalldrop+=1 if o!5:jump'pantsmet' set o=0 :latexmet set o+=1 if latex[o]=1 and latexB[o]!bedra:set poshvalldrop+=1 if o!2:jump'latexmet' set o=0 :hookermet set o+=1 if hooker[o]=1 and hookerB[o]!bedra:set poshvalldrop+=1 if o!5:jump'hookermet' set o=0 :odekismet set o+=1 if odekis[o]=1 and odekisB[o]!bedra:set poshvalldrop+=1 if o!10:jump'odekismet' set o=0 :newclomet set o+=1 if newclo[o]=1 and newcloB[o]!bedra:set poshvalldrop+=1 if o!130:jump'newclomet' set o=0 if money> RUB.' act 'GO_OUT':gt'clener','start' exit end if money>=poshvalldrop*500: set money-=poshvalldrop*500 set o=0 :jensmet1 set o+=1 if jeans[o]=1 and jeansB[o]!bedra:set jeansB[o]=bedra if o!5:jump'jensmet1' set o=0 :shortmet1 set o+=1 if short[o]=1 and shortB[o]!bedra:set shortB[o]=bedra if o!5:jump'shortmet1' set o=0 :skirtmet1 set o+=1 if skirt[o]=1 and skirtB[o]!bedra:set skirtB[o]=bedra if o!5:jump'skirtmet1' set o=0 :dressmet1 set o+=1 if dress[o]=1 and dressB[o]!bedra:set dressB[o]=bedra if o!24:jump'dressmet1' set o=0 :profimet1 set o+=1 if profi[o]=1 and profiB[o]!bedra:set profiB[o]=bedra if o!2:jump'profimet1' set o=0 :pantsmet1 set o+=1 if pants[o]=1 and pantsB[o]!bedra:set pantsB[o]=bedra if o!5:jump'pantsmet1' set o=0 :latexmet1 set o+=1 if latex[o]=1 and latexB[o]!bedra:set latexB[o]=bedra if o!2:jump'latexmet1' set o=0 :hookermet1 set o+=1 if hooker[o]=1 and hookerB[o]!bedra:set hookerB[o]=bedra if o!5:jump'hookermet1' set o=0 :odekismet1 set o+=1 if odekis[o]=1 and odekisB[o]!bedra:set odekisB[o]=bedra if o!10:jump'odekismet1' set o=0 :newclomet1 set o+=1 if newclo[o]=1 and newcloB[o]!bedra:set newcloB[o]=bedra if o!130:jump'newclomet1' 'You ushili all the clothes for <> RUB.' act 'GO_OUT':gt'clener','start' exit end >>>>>>> 486_portnoi2 --- portnoi2 ---------------------------------