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