# sportShop
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'
Sporting goods store'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
lcolor = rgb(106,90,205)
act 'QUIT':
cla
set minut += 5
gt 'torgcentr'
end
act 'In the women´s clothing department':
cla
set minut += 5
gt 'sportshop','clo'
end
if skak = 0 and money >= 500:
act 'Buy rope 500 rubles':
cla
set minut += 5
set money -= 500
set skak = 1
act 'Pick up a package': gt 'sportshop','start'
end
end
if obruch = 0 and money >= 1500:
act 'Buy hoop 1,500 rubles':
cla
set minut += 5
set money -= 1500
set obruch = 1
act 'Pick up a package': gt 'sportshop','start'
end
end
if bookYog = 0 and money >= 1500:
act 'Buy benefits of yoga 1,500 rubles':
cla
set minut += 5
set money -= 1500
set bookYog = 1
act 'Pick up a package': gt 'sportshop','start'
end
end
if remsitr = 1 and treadmill = 0 and money >= 5000:
act 'Treadmill 5000 rubles':
cla
set minut += 5
set money -= 5000
set treadmill = 1
'The attendant informed that they can send it directly to your house.'
act 'Give the address': gt 'sportshop','start'
end
end
end
if $ARGS[0] = 'clo':
cla
*clr
set mag = 1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 5
'Department of women´s clothing.'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'All clothing costs 4,000 rubles, sportswear dimensionless.'
act 'Get out of the department':
cla
set minut += 5
gt 'sportshop','start'
end
if money >= 4000:
if yoga[1] = 0:
act 'Inspect 1st sportswear.': set numdres = 1 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[2] = 0:
act 'Inspect 2nd sportswear.': set numdres = 2 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[3] = 0:
act 'Inspect 3rd sportswear.': set numdres = 3 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[4] = 0:
act 'Inspect 4th sportswear.': set numdres = 4 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[5] = 0:
act 'Inspect 5th sportswear.': set numdres = 5 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[6] = 0:
act 'Inspect 6th sportswear.': set numdres = 6 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[7] = 0:
act 'Inspect 7th sportswear.': set numdres = 7 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[8] = 0:
act 'Inspect 8th sportswear.': set numdres = 8 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[9] = 0:
act 'Inspect 9th sportswear.': set numdres = 9 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[10] = 0:
act 'Inspect 10th sportswear.': set numdres = 10 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[11] = 0:
act 'Inspect 11th sportswear.': set numdres = 11 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[12] = 0:
act 'Inspect 12th sportswear.': set numdres = 12 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[13] = 0:
act 'Inspect 13th sportswear.': set numdres = 13 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[14] = 0:
act 'Inspect 14th sportswear.': set numdres = 14 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[15] = 0:
act 'Inspect 15th sportswear.': set numdres = 15 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[16] = 0:
act 'Inspect 16th sportswear.': set numdres = 16 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[17] = 0:
act 'Inspect 17th sportswear.': set numdres = 17 & payclo = 4000 & gt 'loker','yoga'
end
if yoga[18] = 0:
act 'Inspect 18th sportswear.': set numdres = 18 & payclo = 4000 & gt 'loker','yoga'
end
end
end
--- sportShop ---------------------------------