glife/locations/fit

# fit
if $ARGS[0] = 'start':
	cla
	*clr
	set minut += 5
	'<center><b><font color="maroon">Fitness Center</font></b></center>'
	'<center><img src="images/etogame/fit.jpg"></center>'
	'Subscribe to the 30 classes worth 3,000 ruble'
	'Be sure to come to class in sportswear.'

	if abonement > 0:'Subscription is valid for <<abonement>> Occupation'

	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 'down'
		end

		if money >= 3000:
			act 'Buy a subscription (3,000 rubles)':
			cla
			set money -= 3000
			set abonement += 30
			'You bought a ticket for 30 lessons'

			act 'Move away from cash':gt 'fit', 'start'
		end
	end

	if abonement > 0 and fitday ! day:
		act 'Walk in dressing room':
			cla
			frost = 0
			set abonement -= 1
			set fitday = day
			set razdtumbler = 1
			gt 'fit', 'razd'
		end
	end
end

if $ARGS[0] = 'razd':
	clr
	gs 'stat'
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	set minut += 5
	'<center><b><font color="maroon">Dressing</font></b></center>'
	'<center><img src="images/etogame/razd.jpg"></center>'
	'Classifieds'
	'Recruited girls section races, the winners of the competition receive cash prizes.'
	'Attention, visit the sports section razreshaetsya only with tracksuits.'

	if razdrand = 0 and tanznak = 0 and tanday ! day:
		tanday = day
		'In the locker room you notice <a href="exec:gt ''fitgirl''">cute girl</a>.'
	end

	if tanznak = 2:
		cls
		'<center><img src="images/img/centr/razd4.jpg"></center>'
		'"You at least as name, maniac, and then raped her and Chesney did not even had the" asked the girl caught her breath.'
		'"I am the <<$name>>, and I will not rape you herself was not against" you said trying to find the eyes of her panties.'
		'"Looking for this?" asked the girl twirling on his finger your panties "I´m Tanya, and yet you seduced me, I did not have before the girls, and as it turned out a very good reason, I live here with my parents, if you want to come for a visit."'
		'"Okay as anything the race, briefs is true" you said holding out his hand.'
		'"Nope, do not return, there must me something to stay on the memory of the first girl." With these words, Tanya slipped your panties in his pocket and left.'
		set tanznak = 3
		set tanga = 0
		set nude = 1
		set tanya += 5

		act 'Further':gt 'fit', 'razd'

		exit
	end

	if begsec = 0:act 'Join section running':gt 'fit', '1'
	if begsec > 0 and razdtumbler = 1 and sport > 0:act 'Go to section':gt 'beg', 'start'
	if begsec > 0 and razdtumbler = 1 and sport > 0 and beg >= 20 and week = 6:act '<b>Competitions on the run</b>':gt 'beg1', 'start'

	act 'Take a shower (0:15)':
		cla
		*clr
		set minut += 15
		set sweat = -3
		set horny += 1
		set hapri = 0
		set mop = 1
		dynamic $showerdin
		'<center><img src="images/pics/dush.jpg"></center>'
		'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'

		act 'Get out of the shower':gt 'fit', 'razd'
	end

	act 'Mirror':
		cla
		set fitMir = 1
		gt 'mirror', 'start'
	end

	act 'Cabinet':
		cla
		set fitLoker = 1
		gt 'loker', 'start'
	end

	if razdtumbler = 1 and sport > 0:
		act 'Go to the gym':
		cla
		gt 'fit', 'raz'
	end

	act 'Go to the dance studio.':
		cla
		gt 'danceclass'
		end
	end

	if razdtumbler = 0 or sport = 0:
		act 'Exit of the locker room':
			cla
			gt 'fit', 'start'
		end
	end
end

if $ARGS[0] = 'raz':
	cla
	*clr
	set minut += 5
	'<center><b><font color="maroon">Fitness Center</font></b></center>'
	'<center><img src="images/etogame/fit.jpg"></center>'
	'In the fitness center a lot of different programs for the physical development of the organism.'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	set razdtumbler = 0
	set sportzalrand = rand(0, 20)

	act 'Aerobics (Squeegee fat)':
		cla
		*clr
		set minut += 120
		set fat -= 10
		set reakt += rand(1, 3)
		set manna -= 5
		set sweat += 3

		if sportzalrand = 0:gt 'zal', '0'
		if sportzalrand = 1:gt 'zal', '1'
		if sportzalrand = 2:gt 'zal', '2'
		if sportzalrand = 3:gt 'zal', '3'

		'<center><img src="images/etogame/fit1.jpg"></center>'
		'You are very vigorously the exercises for the music ebbs fat.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Trenazhorka (in force)':
		cla
		*clr
		set minut += 120
		set stren += rand(1, 3)
		set fat -= 1
		set manna -= 5
		set sweat += 3

		if sportzalrand = 0:gt 'zal', '0'
		if sportzalrand = 1:gt 'zal', '1'
		if sportzalrand = 2:gt 'zal', '2'
		if sportzalrand = 3:gt 'zal', '3'

		'<center><img src="images/etogame/fit2.jpg"></center>'
		'Did you do with iron for strength.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Trenazhorka (endurance)':
		cla
		*clr
		set minut += 120
		set vital += rand(1, 3)
		set manna -= 5
		set fat -= 2
		set sweat += 3

		if sportzalrand = 0:gt 'zal', '0'
		if sportzalrand = 1:gt 'zal', '1'
		if sportzalrand = 2:gt 'zal', '2'
		if sportzalrand = 3:gt 'zal', '3'

		'<center><img src="images/etogame/fit3.jpg"></center>'
		'Trainers were you doing on the development of endurance.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Tennis testing of protection (skill)':
		cla
		*clr
		set minut += 120
		set agil += rand(1, 3)
		set fat -= 5
		set manna -= 5
		set sweat += 3
		set TenisDef += 1

		if sportzalrand = 0:gt 'zal', '0'
		if sportzalrand = 1:gt 'zal', '1'
		if sportzalrand = 2:gt 'zal', '2'
		if sportzalrand = 3:gt 'zal', '3'

		'<center><img src="images/etogame/fit4.jpg"></center>'
		'You do tennis practicing defensive actions.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Tennis working out attacks (velocity)':
		cla
		*clr
		set minut += 120
		set speed += rand(1, 3)
		set manna -= 5
		set fat -= 5
		set sweat += 3
		set TenisAt += 1

		if sportzalrand = 0:gt 'zal', '0'
		if sportzalrand = 1:gt 'zal', '1'
		if sportzalrand = 2:gt 'zal', '2'
		if sportzalrand = 3:gt 'zal', '3'

		'<center><img src="images/etogame/fit4.jpg"></center>'
		'You do practicing tennis attacking actions.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Section kickboxing':gt 'fit', 'kik'
end

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

	act 'Testing jabs on pear':
		cla
		*clr
		set minut += 120
		set speed += rand(1, 3)
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set Jab += rand(1, 3)
		'<center><img src="images/etogame/kik1.jpg"></center>'
		'You practiced on pear jab, straight punches with long step forward. These strikes are not so powerful as the police, but they are faster.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Testing power beats on a pear':
		cla
		*clr
		set minut += 120
		set stren += rand(1, 3)
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set Punch += rand(1, 3)
		'<center><img src="images/etogame/kik1.jpg"></center>'
		'You practiced on pear powerful force capable of hitting an opponent shake. These impacts are powerful, but they are hard to get.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Testing of kicks':
		cla
		*clr
		set minut += 120
		set stren += rand(1, 3)
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set Kik += rand(1, 3)
		'<center><img src="images/etogame/kik1.jpg"></center>'
		'You practiced on pear powerful kicks able to cut down an opponent. These impacts are powerful, but are very difficult to hit.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Testing of protection':
		cla
		*clr
		set minut += 120
		set agil += rand(1, 3)
		set manna -= 5
		set fat -= 4
		set sweat += 3
		set KikDef += rand(1, 3)
		'<center><img src="images/etogame/kik1.jpg"></center>'
		'You practiced defense movements.'

		act 'Leave':gt 'fit', 'razd'
	end

	act 'Sparing (training bout in the ring)':
		cla
		*clr
		set round = 0
		'You need to choose a rival for sparring'

		act 'Rival':
			set minut += 120
			set manna -= 5
			set fat -= 4
			set sweat += 3
			set strenV = rand(10, 20)
			set speedV = rand(10, 20)
			set agilV = rand(10, 20)
			set reactV = rand(10, 20)
			set vitalV = rand(10, 20)
			set intelV = 10
			set willV = 10
			!!skills
			set JabV = rand(5, 20)
			set PunchV = rand(5, 20)
			set KikV = rand(5, 20)
			set KikDefV = rand(5, 20)
			!!parameters
			set healthV = vitalV * 10 + strenV * 5
			set $nameV = 'Sparring partner'
			set formula = 3
			set sparing = 1
			gt 'kikbox', 'start'
		end
	end

	if week >= 5:
		'You can spend an amateur fight.'

		act 'Amateur fight':
			set round = 0
			set minut += 120
			set manna -= 5
			set fat -= 4
			set sweat += 3
			set razrand = rand(0, 1)

			if razradKik + razrand = 0:
				set strenV = rand(10, 20)
				set speedV = rand(10, 20)
				set agilV = rand(10, 20)
				set reactV = rand(10, 20)
				set vitalV = rand(10, 20)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(10, 30)
				set PunchV = rand(10, 30)
				set KikV = rand(10, 30)
				set KikDefV = rand(10, 30)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival without discharge'
				set formula = 3
				set amateur = 1
			end

			if razradKik + razrand = 1:
				set strenV = rand(15, 25)
				set speedV = rand(15, 25)
				set agilV = rand(15, 25)
				set reactV = rand(15, 25)
				set vitalV = rand(15, 25)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(15, 35)
				set PunchV = rand(15, 35)
				set KikV = rand(15, 35)
				set KikDefV = rand(15, 35)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival c third discharge'
				set formula = 3
				set amateur = 1
			end

			if razradKik + razrand = 2:
				set strenV = rand(20, 30)
				set speedV = rand(20, 30)
				set agilV = rand(20, 30)
				set reactV = rand(20, 30)
				set vitalV = rand(20, 30)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(30, 50)
				set PunchV = rand(30, 50)
				set KikV = rand(30, 50)
				set KikDefV = rand(30, 50)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival co second discharge'
				set formula = 3
				set amateur = 1
			end

			if razradKik + razrand = 3:
				set strenV = rand(30, 40)
				set speedV = rand(30, 40)
				set agilV = rand(30, 40)
				set reactV = rand(30, 40)
				set vitalV = rand(30, 40)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(40, 60)
				set PunchV = rand(40, 60)
				set KikV = rand(40, 60)
				set KikDefV = rand(40, 60)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival c first discharge'
				set formula = 3
				set amateur = 1
			end

			if razradKik + razrand = 4:
				set strenV = rand(40, 60)
				set speedV = rand(40, 60)
				set agilV = rand(40, 60)
				set reactV = rand(40, 60)
				set vitalV = rand(40, 60)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(60, 80)
				set PunchV = rand(60, 80)
				set KikV = rand(60, 80)
				set KikDefV = rand(60, 80)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival CCM'
				set formula = 3
				set amateur = 1
			end

			if razradKik + razrand >= 5:
				set strenV = rand(60, 100)
				set speedV = rand(60, 100)
				set agilV = rand(60, 100)
				set reactV = rand(60, 100)
				set vitalV = rand(60, 100)
				set intelV = 10
				set willV = 10
				!!skills
				set JabV = rand(80, 110)
				set PunchV = rand(80, 110)
				set KikV = rand(80, 110)
				set KikDefV = rand(80, 110)
				!!parameters
				set healthV = vitalV * 10 + strenV * 5
				set $nameV = 'Rival MS'
				set formula = 3
				set amateur = 1
			end

			gt 'kikbox', 'start'
		end
	end
end

if $ARGS[0] = '1':
	cla
	*clr
	set minut += 5
	set begsec = 1
	'You signed up for the run section'

	act 'Leave':gt 'fit', 'razd'
end

--- fit ---------------------------------