# budgetclothes $budgetshort={ cla act 'remove item.':GOTO $loc, $metka if short[i]=0 and money>=2000: act 'buy': money-=2000 short[i]=1 shortH[i]=60 shortB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $budgetskirt={ cla act 'remove item.':GOTO $loc, $metka if skirt[i]=0 and money>=2000: act 'buy': money-=2000 skirt[i]=1 skirtH[i]=60 skirtB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $budgetdress={ cla act 'remove item.':GOTO $loc, $metka if dress[i]=0 and money>=4500: act 'buy': money-=4500 dress[i]=1 dressH[i]=60 dressB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $budgetprofi={ cla act 'remove item.':GOTO $loc, $metka if profi[i]=0 and money>=3000: act 'buy': money-=3000 profi[i]=1 profiH[i]=60 profiB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $budgetpants={ cla act 'remove item.':GOTO $loc, $metka if pants[i]=0 and money>=1750: act 'buy': money-=1750 pants[i]=1 pantsH[i]=60 pantsB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $budgetjeans={ cla act 'remove item.':GOTO $loc, $metka if jeans[i]=0 and money>=1500: act 'buy': money-=1500 jeans[i]=1 jeansH[i]=60 jeansB[i]=bedra GOTO $loc, $metka end else GOTO $loc, $metka end } $metka = $ARGS[0] $loc = $CURLOC $metkaM = $ARGS[0] $locM = $CURLOC mag=1 '