# 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 '
Welcome to G&M - Trendy Styles for EVERYONE
' clr gs'stat' fcolor=rgb(0,0,0) bcolor=rgb(255,255,255) LCOLOR = rgb(106,90,205) act 'Leave the store': cla set minut = minut + 3 gt'down' end end if hour>=9 and hour<=21: '
Jeans Department - Prices: 1500 Rubles
Leggings and other skin tight pants - Prices: 1750
Hot Shorts for a Hot Summer day - Prices: 2000 Rubles
Our Outfit-Collection with skirts in (almost) all lenghts - Prices: 2000 Rubles
Need something for a nights out? Sexy Dresses! - Prices 4500 Rubles
Do you need a professional dress for your work? - Prices 3000 Rubles
' end --- budgetclothes ---------------------------------