glife-arm/locations/360_sportShop

# sportShop
<<<<<<< 360_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 '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
=======
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Sporting goods store.</font></B></center>'
'<center><img src="pic/sportshop.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

     act 'GO_OUT':
     cla
     set minut = minut + 5
     gt'torgcentr'
     end
     
     act 'In the women`s clothing department':
     cla
     set minut = minut + 5
     gt'sportshop','clo'
     end
     
     if obruch = 0 and money >= 1500:
         act 'Buy hoop 1500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 1500
		 set obruch = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end
     
     if skak = 0 and money >= 500:
         act 'Buy rope 500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 500
		 set skak = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end
     
     if bookYog = 0 and money >= 1500:
         act 'Buy guide to yoga 1500 RUB':
		 cla
		 set minut = minut + 5
		 set money = money - 1500
		 set bookYog = 1
		 act 'pick purchase':gt'sportshop','start'
		 end
     end

>>>>>>> 360_sportShop
end

<<<<<<< 360_sportShop
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
=======
if $ARGS[0]='clo':
cla
*clr
set mag=1
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut = minut + 5
'<center><B><font color=maroon>Department of women`s clothing.</font></B></center>'
'<center><img src="pic/sportshop.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'All clothing should 4000 RUB, sportswear dimensionless.'
act 'Get out of the department':
	 cla
	 set minut = minut + 5
	 gt'sportshop','start'
	 end
if money >= 4000:
	 if yoga[1] = 0:
		 act 'inspect 1th sportswear.':set numdres=1&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[2] = 0:
		 act 'inspect 2th sportswear.':set numdres=2&payclo=4000&gt'loker','yoga'
		 end
	 if yoga[3] = 0:
		 act 'inspect 3th 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
>>>>>>> 360_sportShop
end
--- sportShop ---------------------------------