slife/locations/367_zoomagazine

# zoomagazine
<<<<<<< 367_zoomagazine
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><B><font color = maroon>Pet Shop</font></B></center>'
	*nl
	'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
	*nl

	clr
	gs 'stat'
	fcolor = rgb(0,0,0)
	bcolor = rgb(255,255,255)
	LCOLOR = rgb(106,90,205)

	'Dog 3000'
	'Rabbit 2000'
	'Parrot 3000'

	if money >= 3000 and sobaka = 0:
		act 'Buy a dog (3000 rubles)':
		cla
		*clr
		'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
			act 'Hello, I would like to get a dog':
			cla
			*clr
			'<center><img src="images\zoo\1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
			'<center><b>Sorry, but we were only male dogs.</center></b>'
				act 'Buy a dog':
				cla
				*clr
				set minut += 10
				set sobaka += 1
				set money -= 3000
				'<center><img src="images\zoo\dog1.jpg" width = 600 height = 500 ></center>'
				'<center><b>You bought a dog-Dalmatians.</center></b>'
				$namesob = input ("I'll call a dog ...")
				act 'Move away from the counter': gt 'zoomagazine','start'
				end

				act 'Leave': gt 'zoomagazine','start'
			end
		end
	end

	if money >= 2000 and krolik = 0:
		act 'Buy a rabbit (2000 rubles)':
		cla
		*clr
		'<center><img src="images\zoo\x_2b1d398b.jpg"></center>'
		'<center><b>You bought a rabbit.</center></b>'
		$namekrol = input ("I call rabbit ...")
		set minut += 10
		set krolik += 1
		set money -= 2000
		act 'Move away from the counter': gt 'zoomagazine','start'
		end
	end

	if money >= 3000 and popugai = 0:
		act 'Buy a parrot (3000 rubles)':
			cla
			*clr
			'<center><img src="images\zoo\parrot1.jpg"></center>'
			'<center><b>You bought a parrot.</center></b>'
			$namepopu = input ("I call parrot ...")
			set minut += 10
			set popugai += 1
			set money -= 3000
			act 'Move away from the counter': gt 'zoomagazine','start'
		end
	end
act 'Leave': gt 'torgcentr'
end

=======
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>pet-shop "Pet"</font></B></center>'
'<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
''
'dog 3000'
'rabbit 2000'
'parrot 3000'

     if money >= 3000 and sobaka = 0:
     	 act 'buy a dog 3000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
			 act 'hello, I would like to buy a dog':
			 cla
			 *clr
			 '<center><img src="zoo/1277894267_dsc_0544.jpg" width=650 height=450 ></center>'
			 '<center><b>Excuse_Me, but we were only male dog.</center></b>'
				 act 'Buy a dog':
				 cla
				 *clr
				 set minut = minut + 10
				 set sobaka = sobaka + 1
				 set money = money - 3000
				 '<center><img src="zoo/846660628.jpg" width=600 height=500 ></center>'
				 '<center><b>You bought a dog-Dalmatians.</center></b>'
				 $namesob = input ("I will call the dog...")
				 act 'Move away from the counter':gt'zoomagazine','start'
				 end
				 
				 act 'Get_Away':gt'zoomagazine','start'
			 end
			 
			 
		 end
     end

     
     if money >= 2000 and krolik = 0:
		 act 'Buy rabbit 2000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/x_2b1d398b.jpg"></center>'
		 '<center><b>You bought a rabbit.</center></b>'
		 $namekrol = input ("I call rabbit...")
		 set minut = minut + 10
		 set krolik = krolik + 1
		 set money = money - 2000
		 act 'Move away from the counter':gt'zoomagazine','start'
		 end
     end
     
     if money >= 3000 and popugai = 0:
		 act 'Buy parrot 3000 RUB':
		 cla
		 *clr
		 '<center><img src="zoo/131998525345003210.png"></center>'
		 '<center><b>You bought a parrot.</center></b>'
		 $namepopu = input ("I`ll call a parrot...")
		 set minut = minut + 10
		 set popugai = popugai + 1
		 set money = money - 3000
		 act 'Move away from the counter':gt'zoomagazine','start'
		 end
     end
act 'Get_Away':gt'torgcentr'
end
>>>>>>> 367_zoomagazine
--- zoomagazine ---------------------------------