# lab
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Laboratory Karina</font></B></center>'
'<center><img src="images\qwest\lab.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	act 'Train with Juugo':
	cla
	gt 'lab','jugo'
	end

	act 'Train with Karin':
	cla
	gt 'lab','karin'
	end

	if judosparday ! day:
		act 'Sparring (Juugo, mutant power 600)':
		cla
		set judosparday = day
		set $nameV = 'Juugo'
		!Статы
		set strenV = 600
		set speedV = 60
		set agilV = 60
		set reactV = 50
		set vitalV = 200
		set intelV = 50
		set willV = 50
		!Навыки
		set magikV = 100
		set boxingV = 100
		set shootV = 100
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 10 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 0
		set jugoFight = 2
		gt 'fight','start'
		end
	end

	if karinsparday ! day:
		act 'Sparring (Karin mag6)':
		cla
		set karinsparday = day
		set $nameV = 'Karin'
		!Статы
		set strenV = 60
		set speedV = 100
		set agilV = 100
		set reactV = 60
		set vitalV = 100
		set intelV = 100
		set willV = 100
		!Навыки
		set magikV = 100
		set boxingV = 100
		set shootV = 100
		!Параметры
		set healthV = vitalV * 10 + strenV * 5
		set mannaV = intelV * 6 + magikV * 10
		set willpowerV = willV * 10
		set BonusAtakV = 0
		set BonusDefV = 0
		!программа действий
		set program = 4
		set karinFight = 1
		gt 'fight','start'
		end
	end
end

if $ARGS[0] = 'jugo':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Juugo</font></B></center>'
'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
'Juugo sitting on floor and looking aloof kudato in space.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': gt 'lab','start'

	if jugoday ! day:
		act 'Develop strength (1:00)':
		cla
		set stren += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Reach speeds (1:00)':
		cla
		set speed += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop agility (1:00)':
		cla
		set agil += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop reaction (1:00)':
		cla
		set react += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

		act 'Develop endurance (1:00)':
		cla
		set vital += RAND(3,6)
		set minut += 60
		set jugoday = day
		'You do exercises under the guidance of Juugo.'
		act 'QUIT': gt 'lab','jugo'
		end

	end

end

if $ARGS[0] = 'karin':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Karina</font></B></center>'
'<center><img src="images\picPRE\karinPRE.jpg"></center>'
'Karyn as always studying something.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'QUIT': gt 'lab','start'
	act 'I´m too fat and do not want to get fat.':
	cla
	'(You) - Karin, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
	'(Karin) - Ugh, that´s the same ponavylazyat downs of pussy, and then I vozis with them. Dick with you, take it. Just remember, this spell forever, you´ll be able to just come and change the waist and thighs, and since boobs are made of fat, I only supreme mercy 1st size you do, a little, shoved silicone. And the decision to reverse is or whether silicone doll or live as a man, I raskoldovyvat you will not. Since you have more fat will not be absorbed and body parameters are kept magically, marvel not at the post of dystrophy and not marvel that force will fall faster from malnutrition, you will no longer internal reserves.'
		act 'No no no, I changed my mind. Will continue smarter.': gt 'lab','karin'
		act 'I would want that waist was ...':
		cla
		set dounspell = 1
		set TaliaDoun = input ("Waist in inches?")
			if TaliaDoun <= 0: set TaliaDoun = 20
			act 'I would want that thighs ...':
			cla
			set bedraDoun = input ("Hips in inches?")
				if bedraDoun <= 0: set bedraDoun = 40
				act 'Enjoy your stupidity.': gt 'lab','karin'
			end
		end
	end

	if IvanPodstavaQW = 2 and poverKAR = 0 and softKAR = 0:
		act 'Ask for help with Ivan Karin':
		cla
		gs 'stat'
		'You explained the situation and asked her to Karin assistance. Karin said thoughtfully. "I do not think there is any physical evidence of the guilt of Ivan. Necessary is achieved recognition. I think it would be possible to capture and interrogate. Or drink his cunning truth serum and interrogate. Anyway it is necessary to remove it all on video."'
			act 'Military solution':
			cls
			poverKAR = 1
			gs 'stat'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'You have decided to achieve recognition Ivan force. Karin told you. You go to the apartment of Ivan. There vstretishsya with Juugo. It will help resolve the issue. Just see if he will go to the second level of the press, he was distraught. At the second level of the press he turns into a monster.'
			act 'QUIT': gt 'lab','karin'
			end

			act 'Tricky decision':
			cls
			softKAR = 1
			gs 'stat'
			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
			'You have decided to achieve recognition Ivan cunning. Karin told you. You go to the apartment of Ivan. There we meet with you and obtyapaem owners.'
			act 'QUIT': gt 'lab','karin'
			end

		end

	end

	if poverKAR = 2:
		act 'Approach to Karin about attacks apartments Ivan':
		cla
		poverKAR = 3
		'You came to Karin and she sighed. "Yes, failed. Juugo caught a bullet in his head and his strength went up to the next level, it has cured, made almost invulnerable, but finally deprived of his mind. Juugo not only gained recognition for Ivan, and not just kill him, he blew part of the entrance his attack. But there are pluses. Cops think it was a gas explosion. But now you have to either pay the debt or goes to jail. "'
		act 'QUIT': gt 'lab','karin'
		end
	end


	if karinday ! day:
		act 'Develop intelligence (1:00)':
		cla
		set intel += RAND(3,6)
		set minut += 60
		set karinday = day
		'Did you do with Karin developing his intellect.'
		act 'QUIT': gt 'lab','karin'
		end

		act 'Will develop (1:00)':
		cla
		set will += RAND(3,6)
		set minut += 60
		set karinday = day
		'Did you do with Karin developing his intellect.'
		act 'QUIT': gt 'lab','karin'
		end

	end

	if spelltuman = 0 and magik >= 1:
		act 'Learn technique fog (1:00)':
		cla
		set minut += 60
		set spelltuman = 1
		'You learned the technique call fog in battle.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellklon = 0 and magik >= 1:
		act 'Learn technique protection cloning (1:00)':
		cla
		set minut += 60
		set spellklon = 1
		'You learned the technique of substitution clone themselves in battle.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellstun = 0 and magik >= 2:
		act 'Learn technique paralysis (1:00)':
		cla
		set minut += 60
		set spellstun = 1
		'You learned the technique of paralyzing the enemy.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellwind = 0 and magik >= 2:
		act 'Learn mist blowing (1:00)':
		cla
		set minut += 60
		set spellwind = 1
		'You learned the technique of blowing mist.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellklon2 = 0 and magik >= 2:
		act 'Learn triple cloning (1:00)':
		cla
		set minut += 60
		set spellklon2 = 1
		'You learned the technique Troynova cloning.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellenergo = 0 and magik >= 3:
		act 'Learn energoschit (1:00)':
		cla
		set minut += 60
		set spellenergo = 1
		'You learned the technique energoschita.'
		act 'QUIT': gt 'lab','karin'
		end
	end

	if spellinit = 0 and magik >= 3:
		act 'Learn technique deceleration time (1:00)':
		cla
		set minut += 60
		set spellinit = 1
		'You learned the technique of time dilation.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 4 and spellhel = 0:
	!'With this level of magic I can not teach you anymore.'
		act 'Learn the technique of treatment (1:00)':
		cla
		set minut += 60
		set spellhel = 1
		'You learned the technique of treatment.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 5 and spellavtoklon = 0:
		act 'Learn technique avtoklonirovaniya (1:00)':
		cla
		set minut += 60
		set spellavtoklon = 1
		'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
		act 'QUIT': gt 'lab','karin'
		end
	end
	if magik >= 6 and spellbefshild = 0:
		act 'Learn technique prior Shield (1:00)':
		cla
		set minut += 60
		set spellbefshild = 1
		'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
		act 'QUIT': gt 'lab','karin'
		end
	end
end
--- lab ---------------------------------