#магазин

args[9]=args[9]

! блок первого посещения
if $args[0]="":
	*pl "Здесь можно купить животных"
	!  ---------------генерация товара---------------
		killvar '$Trace'
		killvar '$Tgender'
		killvar 'Tprice'
		killvar "$Tmark"
		$race[0]='собака'
		$race[1]='кошка'
		$gender[0]='жен' & price[0]=80
		$gender[1]='дети' & price[1]=120
		$gender[2]='муж' & price[2]=170
		! генерируем животное
		args['i']=0
		:for
		if args['i']<4:
			args['race']=rand(0,1)
			args['ver']=rand(20,50)
			if args['ver']>=20 and args['ver']<=29:
				args['variant']=0
			elseif args['ver']>=37 and args['ver']<=50:
				args['variant']=1
			elseif args['ver']>=30 and args['ver']<=36:
				args['variant']=2
			end
			$Trace[]=$race[args['race']]
			$Tgender[]=$gender[args['variant']]
			Tprice[]=price[args['variant']]
			args['i']+=1
			jump 'for'
		end
	!  ---------------генерация товара---------------
	act "OK":
		goto "магазин","print"
	end
else
! и последующих
	act "уйти из магазина":
		goto"ферма"
	end
end
if $args[0]="print":
! блок вывода на экран
	*clr
	*pl "Остаток= "+money
	*p '<table border=1>'
	args['i']=0
	:for_print
	if args['i']<arrsize('$Trace'):
		*p '<tr>'
			*p '<th>'+args['i']+'</th>'
			*p '<th>'+$Trace[args['i']]+'</th>'
			*p '<th>'+$Tgender[args['i']]+'</th>'
			*p '<th>'+Tprice[args['i']]+'</th>'
			if $Tmark[args['i']]<>"продано":
				*p '<th><a href="exec:gs''магазин'',''buy'',<<args["i"]>>">Купить</a></th>'
			else &! здесь я проверяю купленных животных
				*p '<th><font color="#2F4F4F">Продано</font></th>'
				*p '<th>'+args['i']+'</th>'
				*p '<th>'+$PhermRace[args['i']]+'</th>'
				*p '<th>'+$PhermGender[args['i']]+'</th>'
				*p '<th>'+PhermPrice[args['i']]+'</th>'
			end
		*p '</tr>'
		args['i']+=1
		jump 'for_print'
	end
	*pl '</table>'
end



if $ARGS[0]="buy":
! блок покупки
	if money>=Tprice[args[1]]:
		money=money-Tprice[args[1]]
		$Tmark[args[1]]="продано"
		$PhermRace[]=$Trace[args['i']]
        $PhermGender[]=$Tgender[args['i']]
	    PhermPrice[]=Tprice[args['i']] 
		gs "магазин","print"
		else
			gs "магазин","print"
			*pl "У вас нет денег"
		end
	end
end