# fit
if $ARGS[0] = 'start':
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Fitness Center'
'
'
'Subscribe to the 30 classes worth 3,000 rubles'
'Be sure to come to class in sportswear.'
if abonement > 0:'Subscription is valid for <> Occupation'
act 'Leave':
cla
minut += 5
gt 'down'
end
if money >= 3000:
act 'Buy a subscription (3,000 rubles)':
cla
money -= 3000
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
abonement -= 1
fitday = day
razdtumbler = 1
gt 'fit', 'dressing room'
end
end
end
if $ARGS[0] = 'dressing room':
$metkaM = $ARGS[0]
$locM = $CURLOC
$sexloc = $CURLOC
$loc = $CURLOC
$metka = $ARGS[0]
clr
minut += 5
gs 'stat'
'Dressing'
'
'
'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 cute girl.'
elseif tanznak = 2:
cls
tanznak = 3
tanga = 0
gs 'clothing', 'strip'
tanya += 5
'
'
'"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.'
act 'Further':gt 'fit', 'dressing room'
exit
end
if begsec = 0:
act 'Join section running':
cla
*clr
minut += 5
begsec = 1
'You signed up for the run section.'
act 'Leave':gt 'fit', 'dressing room'
end
elseif razdtumbler = 1 and sport > 0:
act 'Go to section':gt 'beg', 'start'
if week = 6 and beg >= 20:act 'Competitions on the run':gt 'beg1', 'start'
end
act 'Take a shower (0:15)':
cla
*clr
minut += 15
sweat = -3
horny += 1
hapri = 0
mop = 1
dynamic $showerdin
'
'
'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', 'dressing room'
end
act 'Mirror':
cla
fitMir = 1
gt 'mirror', 'start'
end
act 'Cabinet':
cla
gt 'clothing', 'view_clothing_list', 'wardrobe'
end
if razdtumbler = 1 and sport > 0:
act 'Go to the gym':
cla
gt 'fit', 'gym'
end
act 'Go to the dance studio.':
cla
gt 'danceclass'
end
elseif razdtumbler = 0 or sport = 0:
act 'Exit of the locker room':
cla
gt 'fit', 'start'
end
end
end
if $ARGS[0] = 'fitgirl':
'Girl notices your look and smile turns. Girl undressing and taking toiletries goes into the shower.'
act 'Turn away':gt 'fit', 'dressing room'
act 'Walk into the shower behind the girl':
cls
minut += 15
sweat = -3
horny += 1
hapri = 0
mop = 1
dynamic $showerdin
shovertania += 1
gs 'stat'
'
'
'Logged-in shower. There''s no one, except this girl. The girl looked around and see you smile again turned away.'
if dom > 10:
act 'Molest':
cla
*clr
tanday = day
gs 'stat'
'
'
'You walk up to a girl and vskhvativ one hand on the buttock deploy to face you.'
if vnesh < 20:
'Girl puts you off, and shouting something about you and all your other relative, out of the locker room.'
act '...':gt 'fit', 'dressing room'
elseif vnesh >= 20:
'Girl vskhvatila your hand squeezing her ass, but stopped for a moment considering you, she probably expected to see a guy or girl does.'
act 'Take advantage of the confusion':
cla
*clr
gs 'stat'
'
'
'While she was trying to understand what is happening you pulled up her shirt and began to fondle her nipples tongue, and now her hand stroking your buttocks'
act 'Further':tanznak = 1 & gt 'lezbsex', 'start'
end
act 'Wait for her reaction':
cls
gs 'stat'
if vnesh < 30:
'Girl smiling at you, but removes your hand and leaves, sending you a kiss.'
act '...':gt 'fit', 'dressing room'
elseif vnesh >= 30:
cla
*clr
'
'
'The girl pressed to you even stronger and kisses your lips.'
act 'Further':
tanznak = 1
gt 'lezbsex', 'start'
end
end
end
end
end
end
act 'Out of the shower':gt 'fit', 'dressing room'
end
end
if $ARGS[0] = 'gym':
cla
clr
*clr
minut += 5
razdtumbler = 0
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Fitness Center'
'
'
'In the fitness center a lot of different programs for the physical development of the organism.'
act 'Aerobics (Squeegee fat)':
cla
*clr
minut += 120
fat -= 10
reakt += rand(1, 3)
manna -= 5
sweat += 3
'
'
'You are very vigorously the exercises for the music ebbs fat.'
gs 'fit', 'exercise end'
end
act 'Trenazhorka (in force)':
cla
*clr
minut += 120
stren += rand(1, 3)
fat -= 1
manna -= 5
sweat += 3
'
'
'Did you do with iron for strength.'
gs 'fit', 'exercise end'
end
act 'Trenazhorka (endurance)':
cla
*clr
minut += 120
vital += rand(1, 3)
manna -= 5
fat -= 2
sweat += 3
'
'
'Trainers were you doing on the development of endurance.'
gs 'fit', 'exercise end'
end
act 'Tennis testing of protection (skill)':
cla
*clr
minut += 120
agil += rand(1, 3)
fat -= 5
manna -= 5
sweat += 3
TenisDef += 1
'
'
'You do tennis practicing defensive actions.'
gs 'fit', 'exercise end'
end
act 'Tennis working out attacks (velocity)':
cla
*clr
minut += 120
speed += rand(1, 3)
manna -= 5
fat -= 5
sweat += 3
TenisAt += 1
'
'
'You do practicing tennis attacking actions.'
gs 'fit', 'exercise end'
end
act 'Section kickboxing':gt 'fit', 'kickboxing'
end
if $ARGS[0] = 'exercise end':
RESULT = rand(0, 19)
act 'Further':
if RESULT = 0:
cla
*clr
'
'
'Next to you has been a nice guy.'
act 'Leave':gt 'fit', 'dressing room'
if dom > 0:
act 'Covet':
cla
*clr
guy += 1
picrand = 17
'
'
'You go up to the guy lying on the simulator, squats and start stroking his cock through his pants, man rises kisses you on the lips, then lower a little pants releasing his impressive size dildo.'
act 'Suck':gt 'sex', 'minet'
end
end
elseif RESULT = 1:
cla
*clr
'
'
'Until you do, you and the guy behind suitable vskhvativ you kissing his chest in his ear, sucking the lobe.'
if dom > 0:act 'Hit him in the balls':gt 'fit', 'dressing room'
act 'Enjoy':
cla
*clr
guy += 1
picrand = 18
'
'
'Guy passes you, pulls out his cock and it lays down on your chest, moving eventually head to your mouth.'
act 'Suck':gt 'sex', 'minet'
end
elseif RESULT = 2:
cla
'Until you do, you fit girl and offers to play squash with her until her boyfriend came.'
act 'Refuse':gt 'fit', 'dressing room'
act 'Agree':
cla
*clr
picrand = 15
'
'
'You play fun playing with a girl, you, as well, and it is obtained is bad enough, but it just amuses you. After some time, it appears as a man and looking at your clumsy attempts nachinnaet show how to play correctly. He comes to you from behind priobnimaet and one hand on to your hand with roketkoy shows how to beat, and the second hand starts stroking your hips gradually approaching the perineum. You feel like you are in the back rests his cock looking at her, you know that she understands what is going on and wants to not less than men.'
act 'Send perverts':gt 'fit', 'dressing room'
act 'Enjoy':
guy += 1
girl += 1
gt 'podrsex', 'var'
end
end
elseif RESULT = 3:
cla
*clr
'
'
'Near you engaged hedgehog one girl to suit you two guys obviously took you for girlfriends and try to start a conversation.'
act 'Send':gt 'fit', 'dressing room'
act 'Flirt':
cla
*clr
picrand = 12
'
'
'You chat with a guy, and you notice that he was very excited and constantly glancing behind you, turning you see that the girl is already on his haunches and with gusto sucking the second guy.'
act 'Leave':gt 'fit', 'dressing room'
act 'Suck':
guy += 2
girl += 1
gang += 1
gt 'sexdvanadva', 'var'
end
end
else
cla
'You finish up your exercises and prepare to leave.'
act 'Leave':gt 'fit', 'dressing room'
end
end
end
if $ARGS[0] = 'kickboxing':
cla
clr
*clr
minut += 5
gs 'stat'
gs 'razrKik'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Kickboxing Section'
'
'
act 'Testing jabs on pear':
cla
*clr
minut += 120
speed += rand(1, 3)
manna -= 5
fat -= 4
sweat += 3
Jab += rand(1, 3)
'
'
'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', 'dressing room'
end
act 'Testing power beats on a pear':
cla
*clr
minut += 120
stren += rand(1, 3)
manna -= 5
fat -= 4
sweat += 3
Punch += rand(1, 3)
'
'
'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', 'dressing room'
end
act 'Testing of kicks':
cla
*clr
minut += 120
stren += rand(1, 3)
manna -= 5
fat -= 4
sweat += 3
Kik += rand(1, 3)
'
'
'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', 'dressing room'
end
act 'Testing of protection':
cla
*clr
minut += 120
agil += rand(1, 3)
manna -= 5
fat -= 4
sweat += 3
KikDef += rand(1, 3)
'
'
'You practiced defense movements.'
act 'Leave':gt 'fit', 'dressing room'
end
act 'Sparing (training bout in the ring)':
cla
*clr
round = 0
'You need to choose a rival for sparring'
act 'Rival':
minut += 120
manna -= 5
fat -= 4
sweat += 3
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
$nameV = 'Sparring partner'
formula = 3
sparing = 1
gt 'kikbox', 'start'
end
end
if week >= 5:
'You can spend an amateur fight.'
act 'Amateur fight':
round = 0
minut += 120
manna -= 5
fat -= 4
sweat += 3
razrand = rand(0, 1)
if razradKik + razrand = 0:
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
$nameV = 'Rival without discharge'
formula = 3
amateur = 1
elseif razradKik + razrand = 1:
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
$nameV = 'Rival c third discharge'
formula = 3
amateur = 1
elseif razradKik + razrand = 2:
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
$nameV = 'Rival co second discharge'
formula = 3
amateur = 1
elseif razradKik + razrand = 3:
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
$nameV = 'Rival c first discharge'
formula = 3
amateur = 1
elseif razradKik + razrand = 4:
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
$nameV = 'Rival CCM'
formula = 3
amateur = 1
elseif razradKik + razrand >= 5:
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
$nameV = 'Rival MS'
formula = 3
amateur = 1
end
gt 'kikbox', 'start'
end
end
end
--- fit ---------------------------------