# sportShop
if $ARGS[0] = 'start':
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Sporting goods store'
''
act 'Leave':
cla
minut += 5
gt 'torgcentr'
end
act 'View sports clothes':
cla
minut += 5
gt 'sportshop', 'clo'
end
act 'View swimwear':
cla
minut += 5
gt 'sportshop', 'swim'
end
if skak = 0 and money >= 500:
act 'Buy rope (500 ₽)':
cla
minut += 5
money -= 500
skak = 1
act 'Pick up a package':gt 'sportshop', 'start'
end
end
if obruch = 0 and money >= 1500:
act 'Buy hoop (1,500 ₽)':
cla
minut += 5
money -= 1500
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 ₽)':
cla
minut += 5
money -= 1500
bookYog = 1
act 'Pick up a package':gt 'sportshop', 'start'
end
end
end
if $ARGS[0] = 'clo':
$metka = $ARGS[0]
$loc = $CURLOC
cls
gs'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Sports clothing.'
'All clothing costs 4,000 ₽, sportswear is dimensionless.'
act 'Return':
cla
minut += 5
gt 'sportshop', 'start'
end
if Clothingstock > 15:
i = 1
elseif Clothingstock > 7:
i = 2
else
i = 3
end
:loopexercise
if exercise[i] = 0:*p ''
i += 3
if i <= 26:jump 'loopexercise'
end
if $ARGS[0] = 'swim':
$metka = $ARGS[0]
$loc = $CURLOC
cls
gs'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Swimwear.'
'Swimwear costs 1,000 ₽.'
act 'Return':
cla
minut += 5
gt 'sportshop', 'start'
end
!4 is in he supermarket, so skipped
if Clothingstock > 17:
i = 1
elseif Clothingstock > 11:
i = 2
elseif Clothingstock > 5:
i = 3
else
i = 8
end
:loopswim
if swimwear[i] = 0:*p ''
i += 4
if i <= 30:jump 'loopswim'
end
if $ARGS[0] = 'exercise':
cla
if exercise[i] ! 0:
msg 'You already own these clothes.'
gt 'sportshop', 'clo'
end
gt 'clothing', 'view_clothing_item', 'shop', 'exercise',i, 4000
end
if $ARGS[0] = 'swim1':
cla
if swimwear[i] ! 0:
msg 'You already own these clothes.'
gt 'sportshop', 'swim'
end
gt 'clothing', 'view_clothing_item', 'shop', 'swimwear',i, 4000
end
--- sportShop ---------------------------------