glife/locations/lab

# 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 'Leave':
		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'
			!!stats
			set strenV = 600
			set speedV = 60
			set agilV = 60
			set reactV = 50
			set vitalV = 200
			set intelV = 50
			set willV = 50
			!!skills
			set magikV = 100
			set boxingV = 100
			set shootV = 100
			!!parameters
			set healthV = vitalV * 10 + strenV * 5
			set mannaV = intelV * 10 + magikV * 10
			set willpowerV = willV * 10
			set BonusAtakV = 0
			set BonusDefV = 0
			!!Programme of Action
			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'
			!!stats
			set strenV = 60
			set speedV = 100
			set agilV = 100
			set reactV = 60
			set vitalV = 100
			set intelV = 100
			set willV = 100
			!!skills
			set magikV = 100
			set boxingV = 100
			set shootV = 100
			!!parameters
			set healthV = vitalV * 10 + strenV * 5
			set mannaV = intelV * 6 + magikV * 10
			set willpowerV = willV * 10
			set BonusAtakV = 0
			set BonusDefV = 0
			!!Programme of Action
			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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':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 'Leave':gt 'lab', 'karin'
		end
	end
end

--- lab ---------------------------------