# fit
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>fitness center</font></B></center>'
'<center><img src="pic/fit.jpg" ></center>'
'Subscribe to 30 training costs 3000 rubles
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 'GO_OUT':
     cla
     set minut = minut + 5
     gt'down'
     end
     
     if money >= 3000:
         act 'Buy ticket (3 sput)':
         cla
         set money = money - 3000
         set abonement = abonement + 30
         'You bought a subscription for 30 Occupation'
         act 'Move away from cash':gt'fit','start'
         end
     end
     
     if abonement > 0 and fitday ! day:
         act 'Go to the locker room':
         cla
         frost=0
         set abonement = 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 = minut + 5
'<center><B><font color=maroon>locker_room</font></B></center>'
'<center><img src="pic/razd.jpg" ></center>'

'advertisement'
'Produced a set of girls in section running, winners of the competition receive cash prizes.'
'Caution, visit the sports section razreshaetsya only with tracksuits.'

     if razdrand=0 and tanznak=0 and tanday!day:
     tanday=day
	 'In the locker room  <a href="exec:gt ''fitgirl''">pretty girl</a>.'
	 end
	 
     if tanznak=2:
	 cls
	 '<center><img src="img/centr/razd4.jpg" ></center>'
	 '"You, manyachka, and then raped the girl and Chesney did not even had the" she asked breathless.
	 "I Light, and I will not rape you yourself did not mind" Answer You eyes trying to find her panties.
	 "Looking for this?" asked the girl twirling his finger on your panties "I`m Tanya, and yet you seduced me, I have the girls did not exist before, and as it turned out a very good reason, I live near here with my parents, if you want to come to visit."
	 "Okay as a sprint, Panties is true" Say you`re holding out his hand.
	 "Do_Not-and do not return, should at me that-then stay on the memory of the first girl." With these words.'
	 set tanznak=3
	 set tanga=0
	 set nude=1
	 set tanya+=5
	 act 'further':gt'fit','razd'
	 exit
	 end


if begsec = 0: act 'Enroll in 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 15 min':
     cla
     *clr
     set minut = minut + 15
     set sweat = -3
     set horny = horny + 1
     set hapri = 0
     set mop = 1
     dynamic $showerdin
     '<center><img src="pics/dush.jpg" ></center>'
     'You got into the bathroom and turned on the shower. Soaped and washed the body 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 'Get out of the locker room':
		 cla
		 gt'fit','start'
		 end
     end
end

if $ARGS[0]='raz':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>fitness center</font></B></center>'
'<center><img src="pic/fit.jpg" ></center>'
'In the fitness center are 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 = minut + 120
     set fat = fat - 10
     set reakt = reakt + RAND (1,3)
     set manna = manna - 5
     set sweat = 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="pic/fit1.jpg" ></center>'
     'You are very energetic exercises to music for eviction fat.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Trenazhorka (effect on)':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set fat = fat - 1
     set manna = manna - 5
     set sweat = 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="pic/fit2.jpg" ></center>'
     'Did you do with iron for strength development.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Trenazhorka (endurance)':
     cla
     *clr
     set minut = minut + 120
     set vital = vital + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 2
     set sweat = 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="pic/fit3.jpg" ></center>'
     'Did you do on trenazhore for development of endurance.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Tennis working out protection(Skill)':
     cla
     *clr
     set minut = minut + 120
     set agil = agil + RAND (1,3)
     set fat = fat - 5
     set manna = manna - 5
     set sweat = sweat + 3
     set TenisDef = 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="pic/fit4.jpg" ></center>'
     'You engaged in practicing tennis protective actions.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Tennis working off attacks (speed)':
     cla
     *clr
     set minut = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 5
     set sweat = sweat + 3
     set TenisAt = 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="pic/fit4.jpg" ></center>'
     'You engaged in practicing tennis attacking actions.'
     act 'Get_Away':gt'fit','razd'
     end

     act 'section kickboxing':gt'fit','kik'

end



if $ARGS[0]='kik':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>section kickboxing</font></B></center>'
'<center><img src="pic/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 = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Jab = Jab + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear jab, long. These strikes are not as powerful as the power, but they will.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Testing of power punches on pear':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Punch = Punch + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear powerful force capable of hitting an opponent to shake. These attacks are powerful, but they are hard to get.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Driving range legs':
     cla
     *clr
     set minut = minut + 120
     set stren = stren + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set Kik = Kik + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced on pear powerful kicks can knock an opponent. These attacks are powerful, but are very difficult to get.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Testing of protection':
     cla
     *clr
     set minut = minut + 120
     set agil = agil + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 4
     set sweat = sweat + 3
     set KikDef = KikDef + RAND (1,3)
     '<center><img src="pic/kik1.jpg" ></center>'
     'You practiced defense movements.'
     act 'Get_Away':gt'fit','razd'
     end
     
     act 'Sparing (training fight in the ring)':
     cla
     *clr
     set round = 0
     'You need to choose his opponent for sparring'
         act 'rival':
		 set minut = minut + 120
		 set manna = manna - 5
		 set fat = fat - 4
		 set sweat = 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 = 'Sparing partner'
		 set formula = 3
		 set sparing = 1
         gt'kikbox','start'
		 end
     
     end
     
     if week >= 5:
     'You can spend amateur fight.'
         act 'amateur fight':
         set round = 0
		 set minut = minut + 120
		 set manna = manna - 5
		 set fat = fat - 4
		 set sweat = 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 amature = 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 The third level'
			 set formula = 3
			 set amature = 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 cof the second category'
			 set formula = 3
			 set amature = 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 rank'
			 set formula = 3
			 set amature = 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 amature = 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 amature = 1
			 end
         gt'kikbox','start'
		 end
     end

end

if $ARGS[0]='1':
cla
*clr
set minut = minut + 5
Set begsec = 1
'You signed up for the run section'
act 'Get_Away':gt'fit','razd'
end





















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

