glife-shopfix/locations/fit

# fit
CLOSE ALL
if $ARGS[0] = 'start':
	cls
	minut += 5
	frost = 0
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Fitness Center</font></b></center>'
	'<center><img src="images/locations/city/citycenter/gym/fit.jpg"></center>'
	'Buy subscription for 30 classes (3,000 <b>₽</b>)'
	'You must wear sportswear for all classes.'

	if abonement > 0:'Subscription is valid for <<abonement>> more classes.'

	act 'Leave':
		cla
		minut += 5
		gt 'down'
	end

	if money >= 3000:
		act 'Buy a subscription (3,000 <b>₽</b>)':
			cla
			money -= 3000
			abonement += 30
			'You bought a subscription for 30 lessons'

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

	if abonement > 0:
		act 'Go to the dressing room':
			cla
			gt 'fit', 'dressing room'
		end
	end
end

if $ARGS[0] = 'dressing room':
	$metkaM = 'dressing room'
	$locM = 'fit'
	$sexloc = 'fit'
	$loc = 'fit'
	$metka = 'dressing room'
    $location_type = 'private'
	clr
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Dressing</font></b></center>'
	'<center><img src="images/locations/city/citycenter/gym/razd.jpg"></center>'
	'Classifieds'
	'Recruiting girls for local track team, the winners will receive cash prizes.'
	'Attention, visitors to the sports section must wear suitable clothing.'
	if fitday ! daystart:
		razdtumbler = 1
		fitday = daystart
	end
	! WD: Uninitialised ~ 'razdrand'
	! if razdrand = 0 and tanznak = 0 and tanday ! daystart:
	if tanznak = 0 and tanday ! daystart:
		tanday = daystart
		'In the locker room you notice <a href="exec:gt ''fit'', ''fitgirl''">cute girl</a>.'
	elseif tanznak = 2:
		cls
		tanznak = 3
		tanga = 0
		gs 'clothing', 'strip'
		tanya += 5
		'<center><img src="images/locations/city/citycenter/gym/razd4.jpg"></center>'
		'"You can at least tell me your name, maniac, seeing as you did not even have the decency to do so before you raped me." The girl says, catching her breath.'
		'"I am the <<$pcs_nickname>>, and how can I rape someone so keen?" You ask trying to find your panties.'
		'"Looking for this?" asks the girl twirling your panties on her finger. "I''m Tanya, and you seduced me, I have never been with a girl before, and with very good reason. I live here with my parents, if you want to come for a visit."'
		'"Okay that would be nice, can I have my briefs?" you say holding out your hand.'
		'"Nope, no return, there must be something of a momento from my first girl." With these words, Tanya slips your panties in her pocket and leaves.'

		act 'Further':gt 'fit', 'dressing room'

		exit
	end

	act 'Take a shower (0:15)':
		cla
		*clr
		minut += 15
		pcs_horny += 1
		pcs_hairbsh = 0
		pcs_makeup = 1
		dynamic $showerdin
		'<center><img src="images/shared/home/bathroom/dush.jpg"></center>'
		'You go into the bathroom and turn on the shower. You lather your body and wash in the shower.'

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

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

	act 'Change clothes':
		cla
		gt 'clothing_QV', 'list'
	end

	if razdtumbler = 1 and abonement > 0 and $clothingworntype = 'exercise' and pcs_stam >= 40:
		act 'Go to the gym':
			cla
			gt 'fit', 'gym'
		end

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

	if begsec = 0:
		act 'Join track team':
			cla
			*clr
			minut += 5
			begsec = 1
			'You signed up for the track team.'

			act 'Leave':gt 'fit', 'dressing room'
		end
	elseif razdtumbler = 1 and $clothingworntype = 'exercise' and pcs_stam >= 40:
		act 'Go to team practice':gt 'beg', 'start'
		if week = 6 and pcs_run >= 20:act '<b>Enter competition race</b>':gt 'beg1', 'start'
	end

	act 'Exit the locker room':
		if $clothingworntype ! 'nude':
			gt 'fit', 'start'
		else
			cla
			msg'<b><font color = red>You need to get dressed.</font></b>'
			act 'Return': gt 'fit', 'dressing room'
		end
	end
end

if $ARGS[0] = 'fitgirl':
	'The girl notices you looking and returns the smile. She undresses and taking some toiletries goes into the shower.'

	act 'Turn away':gt 'fit', 'dressing room'

	act 'Follow her':
		cls
		pcs_hairbsh = 0
		pcs_makeup = 1
		dynamic $showerdin
		shovertania += 1
		gs 'stat'
		'<center><img src="images/shared/home/bathroom/dush.jpg"></center>'
		'There''s no one in the shower, except this girl. The girl looks around and seeing you smiles again then turns away.'
		if pcs_dom > 10:
			act 'Molest her':
				cla
				*clr
				tanday = daystart
				gs 'stat'
				'<center><img src="images/locations/city/citycenter/gym/razd1.jpg"></center>'
				'You walk up to a girl and place one hand on her buttock, she turns to face you.'
				
				gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
				gs 'stat'

				if pcs_apprnc < 80:
					'The girl pushes you off, and shouts something very rude about you and each and everyone of your relatives, you run out to the locker room.'

					act 'Go':gt 'fit', 'dressing room'
				elseif pcs_apprnc >= 80:
					'The girl grabs your hand squeezing her ass, but stops for a moment considering you. She probably expected to see a guy and isn''t sure what to do.'

					act 'Take advantage of the confusion':
						cla
						*clr
						gs 'stat'
						'<center><img src="images/locations/city/citycenter/gym/razd2.jpg"></center>'
						'While she is trying to understand what is happening you pull up her shirt and begin fondling her nipples with your tongue, and then her hand strokes your ass.'

						gs 'arousal', 'foreplay', 10, 'dom', 'lesbian'
						gs 'stat'
				
						act 'Further':tanznak = 1 & gt 'lezbsex', 'start'
					end

					act 'Wait for her reaction':
						cls
						gs 'stat'

						if pcs_apprnc < 120:
							'The girl smiles at you, but removes your hand and leaves, blowing you a kiss.'

							act '...':gt 'fit', 'dressing room'
						elseif pcs_apprnc >= 120:
							cla
							*clr
							'<center><img src="images/locations/city/citycenter/gym/razd3.jpg"></center>'
							'The girl presses up to you even stronger and kisses your lips.'

							gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
							gs 'stat'
				
							act 'Further':
								tanznak = 1
								gt 'lezbsex', 'start'
							end
						end
					end
				end
			end
		end

		act 'Leave the shower':gt 'fit', 'dressing room'
	end
end

if $ARGS[0] = 'gym':
	cla
	clr
	*clr
	minut += 5
	razdtumbler = 0
	sportzalrand = RAND(0,20)
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Fitness Center</font></b></center>'
	'<center><img src="images/locations/city/citycenter/gym/fit.jpg"></center>'
	'In the fitness center there are a lot of different classes and clubs, designed to improve physical development.'

	if StoryLine = 1:
		if hour >= 10 and hour < 12 and week=7 and centr=1: 'In the hall you saw  <a href="exec:GT ''VolleyTrenCentr''">Mikhail Nikolaevich</a> talking with a strange man.'
		if hour >= 10 and hour < 12 and week=7 and centr=2: 'In the hall you saw  <a href="exec:GT ''VolleyTrenCentr''">Chinese Guanggu</a>'
	end

	act 'Aerobics (Burn fat)':
		cla
		*clr
		timemult = 2
		loopcount = 1
		:timeloop1
		gs 'exercise', 'tier3', 0, 'vital_exp', 'react_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop1'
		loopcount = 0
		timemult = 0
		
		'<center><img src="images/locations/shared/gym/fit1.jpg"></center>'
		'You do very vigorous exercises to the music, and burn some fat.'
		
		if pcs_stam < 30:
			gs 'fit', 'exercise end'
		else
			gs 'fit', 'gym'
		end
	end

	act 'Free weights (Build muscle)':
		cla
		*clr
		timemult = 2
		loopcount = 1
		:timeloop2
		gs 'exercise', 'tier3', 0, 'stren_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop2'
		loopcount = 0
		timemult = 0
		
		'<center><img src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
		'You pump iron, building strength.'

		if pcs_stam < 30:
			gs 'fit', 'exercise end'
		else
			gs 'fit', 'gym'
		end
	end

	act 'Cross trainer (endurance)':
		cla
		*clr
		timemult = 2
		loopcount = 1
		:timeloop3
		gs 'exercise', 'tier3', 0, 'vital_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop3'
		loopcount = 0
		timemult = 0
		
		'<center><img src="images/locations/city/citycenter/gym/exercise/fit3.jpg"></center>'
		'You spend a half hour doing reps on the cross trainer developing your endurance.'

		if pcs_stam < 30:
			gs 'fit', 'exercise end'
		else
			gs 'fit', 'gym'
		end
	end

	act 'Tennis practice (agility)':
		cla
		*clr
		timemult = 2
		loopcount = 1
		:timeloop4
		gs 'exercise', 'tier3', 0, 'agil_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop4'
		loopcount = 0
		timemult = 0
		
		'<center><img src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
		'You run tennis exercises, concentrating on defensive drills.'

		if pcs_stam < 30:
			gs 'fit', 'exercise end'
		else
			gs 'fit', 'gym'
		end
	end

	act 'Tennis practice (reactions)':
		cla
		*clr
		timemult = 2
		loopcount = 1
		:timeloop5
		gs 'exercise', 'tier3', 0, 'react_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop5'
		loopcount = 0
		timemult = 0
		
		'<center><img src="images/locations/city/citycenter/gym/exercise/fit4.jpg"></center>'
		'You run tennis exercises, concentrating on court reactions.'

		if pcs_stam < 30:
			gs 'fit', 'exercise end'
		else
			gs 'fit', 'gym'
		end
	end

	act 'Goto the kickboxing gym':gt 'fit', 'kickboxing'
end

if $ARGS[0] = 'exercise end':
	abonement -= 1
	RESULT = rand(0, 19)

	act 'Further':
		if RESULT = 0:
			cla
			*clr
			'<center><img src="images/locations/city/citycenter/gym/sex/zal1.jpg"></center>'
			'You see a nice guy on the weight machine.'

			act 'Leave':gt 'fit', 'dressing room'

			if pcs_dom > 0:
				act 'Covet':
					cla
					*clr
					guy += 1
					gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
					gs 'boyStat', $npclastgenerated
					samecount = 1
					picrand = 17
					'<center><img src="images/locations/city/citycenter/gym/sex/zal2.jpg"></center>'
					'You go up to the guy lying on the machine, squat and start stroking his cock through his pants. The man rises and kisses you on the lips, then lowers his pants releasing his impressive size dick.'

					gs 'arousal', 'foreplay', 10, 'dom'
					gs 'stat'
				
					act 'Suck':gt 'sex', 'minet'
				end
			end
		elseif RESULT = 1:
			cla
			*clr
			'<center><img src="images/locations/city/citycenter/gym/sex/zal3.jpg"></center>'
			'As you finish training, a guy sits behind, caresses your breasts and kisses your ear, sucking the lobe.'

			if pcs_dom > 0:act 'Hit him in the balls':pcs_dom += 1 & gt 'fit', 'dressing room'

			act 'Enjoy':
				cla
				*clr
				guy += 1
				gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
				gs 'boyStat', $npclastgenerated
				picrand = 18
				'<center><img src="images/locations/city/citycenter/gym/sex/zal4.jpg"></center>'
				'Guy gets up and moves around to face you, he pulls out his cock and lays it on your chest, eventually moving the head to your mouth.'

				gs 'arousal', 'foreplay', 15, 'sub'
				gs 'stat'
				
				act 'Suck':gt 'sex', 'minet'
			end
		elseif RESULT = 2:
			cla
			'As you finish training, a fit girl offers to play a little squash with her as she waits for her boyfriend to came.'

			act 'Refuse':gt 'fit', 'dressing room'

			act 'Agree':
				cla
				*clr
				picrand = 15
				'<center><img src="images/locations/city/citycenter/gym/sex/zal5.jpg"></center>'
				'You have fun playing with the girl, neither of you are any good, but it just amuses you. After some time, it appears as a man and looking at your clumsy attempts and offers to show you how to play correctly.'
				'He stands just behind you and puts one hand on your hand, guiding your racket and showing you how to strike the ball. The other hand starts stroking your hips gradually approaching your crotch.'
				'You feel his cock resting against your back and looking at the girl, you know that she understands what is going on and that the man is her boyfriend.'

				act 'Escape from these perverts':gt 'fit', 'dressing room'

				act 'Enjoy':
					guy += 1
					girl += 1
					gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
					gs 'boyStat', $npclastgenerated
					gt 'podrsex', 'suck'
					gs 'arousal', 'foreplay', 15, 'group', 'lesbian'
					gs 'stat'
				end
			end
		elseif RESULT = 3:
			cla
			*clr
			'<center><img src="images/locations/city/citycenter/gym/sex/zal6.jpg"></center>'
			'You train near to a girl and engage in conversation, two guys obviously take you for girlfriends and try to chat you up.'

			act 'Leave':gt 'fit', 'dressing room'

			act 'Flirt back':
				cla
				*clr
				picrand = 12
				'<center><img src="images/locations/city/citycenter/gym/sex/zal7.jpg"></center>'
				'You flirt with a guy, and notice that he is getting very excited and constantly glancing behind you. Turning, you see that the girl is already on her haunches and sucking the second guy with gusto.'

				act 'Leave':gt 'fit', 'dressing room'

				act 'Suck':
					guy += 2
					girl += 1
					gang += 1
					gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
					gs 'boyStat', $npclastgenerated
					gs 'npcgeneratec', 0, 'guy from the gym', rand(19,45)
					gs 'boyStat', $npclastgenerated, 'a'
					gs 'arousal', 'bj', 15, 'group', 'lesbian'
					gs 'stat'
					gt 'sexdvanadva', 'var'
					
				end
			end
		else
			cla
			'You finish up your exercises and prepare to leave.'
			
			gs 'arousal', 'end'
			gs 'stat'
			
			act 'Leave':gt 'fit', 'dressing room'
		end
	end
end

if $ARGS[0] = 'kickboxing':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	gs 'razrKik'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Kickboxing Gym</font></b></center>'
	'<center><img src="images/locations/city/citycenter/gym/kickboxing/kik.jpg"></center>'

	act 'Work on your jabs':
		cla
		*clr
		abonement -= 1
		timemult = 2
		loopcount = 1
		:timeloop6
		gs 'exercise', 'tier3', 0, 'jab_exp', 'react_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop6'
		loopcount = 0
		timemult = 0
		'<center><img src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
		'You practice your jabs on the speed bag and double-end bag, straight punches with a step forward. These strikes are not so powerful, but they are fast.'

		act 'Leave':gt 'fit', 'dressing room'
	end

	act 'Work on your heavy punches':
		cla
		*clr
		abonement -= 1
		timemult = 2
		loopcount = 1
		:timeloop7
		gs 'exercise', 'tier3', 0, 'stren_exp', 'punch_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop7'
		loopcount = 0
		timemult = 0
		'<center><img src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
		'You practice your power punches on the heavy bag. These are high impact and powerful, but they are hard to get to their target.'

		act 'Leave':gt 'fit', 'dressing room'
	end

	act 'Work on your kicking':
		cla
		*clr
		abonement -= 1
		timemult = 2
		loopcount = 1
		:timeloop8
		gs 'exercise', 'tier3', 0, 'stren_exp', 'kick_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop8'
		loopcount = 0
		timemult = 0
		'<center><img src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
		'You practice your powerful kicks on a kickboxing bag. These impacts are very powerful and able to cut down an opponant, but are very difficult to hit with.'

		act 'Leave':gt 'fit', 'dressing room'
	end

	act 'Work on defence':
		cla
		*clr
		abonement -= 1
		timemult = 2
		loopcount = 1
		:timeloop9
		gs 'exercise', 'tier3', 0, 'def_exp', 'agil_exp'
		if loopcount < timemult: loopcount += 1 & jump 'timeloop9'
		loopcount = 0
		timemult = 0
		'<center><img src="images/locations/city/citycenter/gym/kickboxing/kik1.jpg"></center>'
		'You practice your defense movements.'

		act 'Leave':gt 'fit', 'dressing room'
	end

	act 'Sparing (training bout in the ring)':
		cla
		*clr
		'You need to choose a partner for sparring'

		act 'Pick a random partner':
			abonement -= 1
			pcs_mood += 2
			timemult = 2
			loopcount = 1
			:timeloop10
			gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
			if loopcount < timemult: loopcount += 1 & jump 'timeloop10'
			loopcount = 0
			timemult = 0
			pointKik = 0
			pointKikV = 0
			round = 1
			minround = 0

			gs 'npcgeneratec', 0, 'sparring partner', rand(19,45)
			gs 'boyStat', $npclastgenerated
			strenV = rand(10, 20)
			speedV = rand(10, 20)
			agilV = rand(10, 20)
			reactV = rand(10, 20)
			vitalV = rand(10, 20)
			intelV = 10
			willV = 10
			!!skills
			JabV = rand(5, 20)
			PunchV = rand(5, 20)
			KikV = rand(5, 20)
			KikDefV = rand(5, 20)
			!!parameters
			healthV = vitalV * 10 + strenV * 5
			formula = 3
			sparing = 1
			gt 'kikbox', 'start'
		end
	end

	if week >= 5:
		'You can take part in an amateur fight.'

		act 'Amateur fight':
			pcs_mood += 2
			timemult = 2
			loopcount = 1
			:timeloop11
			gs 'exercise', 'tier3', 0, 'jab_exp', 'punch_exp', 'kick_exp', 'def_exp'
			if loopcount < timemult: loopcount += 1 & jump 'timeloop11'
			loopcount = 0
			timemult = 0
			pointKik = 0
			pointKikV = 0
			round = 1
			minround = 0

			razrand = rand(0, 1)

			if razradKik + razrand = 0:
				gs 'npcgeneratec', 0, 'useless rival', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(10, 20)
				speedV = rand(10, 20)
				agilV = rand(10, 20)
				reactV = rand(10, 20)
				vitalV = rand(10, 20)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(10, 30)
				PunchV = rand(10, 30)
				KikV = rand(10, 30)
				KikDefV = rand(10, 30)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			elseif razradKik + razrand = 1:
				gs 'npcgeneratec', 0, '3rd class rival', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(15, 25)
				speedV = rand(15, 25)
				agilV = rand(15, 25)
				reactV = rand(15, 25)
				vitalV = rand(15, 25)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(15, 35)
				PunchV = rand(15, 35)
				KikV = rand(15, 35)
				KikDefV = rand(15, 35)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			elseif razradKik + razrand = 2:
				gs 'npcgeneratec', 0, '2rd class rival', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(20, 30)
				speedV = rand(20, 30)
				agilV = rand(20, 30)
				reactV = rand(20, 30)
				vitalV = rand(20, 30)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(30, 50)
				PunchV = rand(30, 50)
				KikV = rand(30, 50)
				KikDefV = rand(30, 50)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			elseif razradKik + razrand = 3:
				gs 'npcgeneratec', 0, '1st class rival', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(30, 40)
				speedV = rand(30, 40)
				agilV = rand(30, 40)
				reactV = rand(30, 40)
				vitalV = rand(30, 40)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(40, 60)
				PunchV = rand(40, 60)
				KikV = rand(40, 60)
				KikDefV = rand(40, 60)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			elseif razradKik + razrand = 4:
				gs 'npcgeneratec', 0, 'excellent rival', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(40, 60)
				speedV = rand(40, 60)
				agilV = rand(40, 60)
				reactV = rand(40, 60)
				vitalV = rand(40, 60)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(60, 80)
				PunchV = rand(60, 80)
				KikV = rand(60, 80)
				KikDefV = rand(60, 80)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			elseif razradKik + razrand >= 5:
				gs 'npcgeneratec', 0, 'best rival in the gym', rand(19,45)
				gs 'boyStat', $npclastgenerated
				strenV = rand(60, 100)
				speedV = rand(60, 100)
				agilV = rand(60, 100)
				reactV = rand(60, 100)
				vitalV = rand(60, 100)
				intelV = 10
				willV = 10
				!!skills
				JabV = rand(80, 110)
				PunchV = rand(80, 110)
				KikV = rand(80, 110)
				KikDefV = rand(80, 110)
				!!parameters
				healthV = vitalV * 10 + strenV * 5
				formula = 3
				amateur = 1
			end

			gt 'kikbox', 'start'
		end
	end
end

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