glife/locations/sportShop

# sportShop
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><b><font color="maroon">Sporting goods store</font></b></center>'
	'<center><img src="images/etogame/sportshop.jpg"></center>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	act 'Leave':
		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

	!!!WD: Doesn''t exists anymore in 1.0.5
	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
	'<center><b><font color="maroon">Department of women´s clothing.</font></b></center>'
	'<center><img src="images/etogame/sportshop.jpg"></center>'
	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 ---------------------------------