# lab
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	CLOSE ALL
	if sound = 0:PLAY 'sound/street.mp3',30
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Karinas'' Laboratory</font></b></center>'
	'<center><img src="images/qwest/lab.jpg"></center>'

	if succubusflag = 1 and sucpcinfo < 2:
		cla
		clr
		*clr
		'<center><b><font color="maroon">Karin</font></b></center>'
		'<center><img src="images/picpre/karinpre.jpg"></center>'
		'The moment you walked into her lab, Karin''s head jerked up and she hurried over to you.'
		'She stares at you for several seconds, then demands, "What the hell happened to you!?!?"'
		'You start to answer her when she holds up her hand and says, "Wait, come sit on the couch and tell me."'
		'She turns away from you and walks toward the couch.'
		act 'Follow her': gt 'lab', 'karinsuctalk'
		exit
	end

	act 'Leave':
		cla
		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 ! daystart:
		act 'Sparring (Juugo, mutant power 600)':
			cla
			judosparday = daystart
			$boy = 'Juugo'
			!!stats
			strenV = 600
			speedV = 60
			agilV = 60
			reactV = 50
			vitalV = 200
			intelV = 50
			willV = 50
			!!skills
			magikV = 100
			boxingV = 100
			shootV = 100
			!!parameters
			healthV = vitalV * 10 + strenV * 5
			mannaV = intelV * 10 + magikV * 10
			willpowerV = willV * 10
			BonusAtakV = 0
			BonusDefV = 0
			!!Programme of Action
			program = 0
			jugoFight = 2
			gt 'fight', 'start'
		end
	end

	if karinsparday ! daystart:
		act 'Sparring (Karin, magician6)':
			cla
			karinsparday = daystart
			$boy = 'Karin'
			!!stats
			strenV = 60
			speedV = 100
			agilV = 100
			reactV = 60
			vitalV = 100
			intelV = 100
			willV = 100
			!!skills
			magikV = 100
			boxingV = 100
			shootV = 100
			!!parameters
			healthV = vitalV * 10 + strenV * 5
			mannaV = intelV * 6 + magikV * 10
			willpowerV = willV * 10
			BonusAtakV = 0
			BonusDefV = 0
			!!Programme of Action
			program = 4
			karinFight = 1
			gt 'fight', 'start'
		end
	end
end

if $ARGS[0] = 'jugo':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Juugo</font></b></center>'
	'<center><img src="images/picpre/jugopre.jpg"></center>'
	'Juugo is sitting on floor and staring off into space.'

	act 'Leave':gt 'lab', 'start'

	if jugoday ! daystart:
		act 'Develop strength (1:00)':
			cla
			stren += rand(3, 6) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
			minut += 60
			jugoday = daystart
			'You do exercises under the guidance of Juugo.'

			act 'Leave':gt 'lab', 'jugo'
		end

		act 'Develop speed (1:00)':
			cla
			speed += rand(3, 6)
			minut += 60
			jugoday = daystart
			'You do exercises under the guidance of Juugo.'

			act 'Leave':gt 'lab', 'jugo'
		end

		act 'Develop agility (1:00)':
			cla
			agil += rand(3, 6)
			minut += 60
			jugoday = daystart
			'You do exercises under the guidance of Juugo.'

			act 'Leave':gt 'lab', 'jugo'
		end

		act 'Develop reactions (1:00)':
			cla
			react += rand(3, 6)
			minut += 60
			jugoday = daystart
			'You do exercises under the guidance of Juugo.'

			act 'Leave':gt 'lab', 'jugo'
		end

		act 'Develop endurance (1:00)':
			cla
			vital += rand(3, 6) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
			minut += 60
			jugoday = daystart
			'You do exercises under the guidance of Juugo.'

			act 'Leave':gt 'lab', 'jugo'
		end
	end
end

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

	if karinsucsex ! 0 and karinsucsexask ! daystart: act 'Ask if she want''s to have sex': karinsucsexask = daystart & gt 'lab', 'karinsucsexask'

	if sucpcinfo >= 4: act 'Ask her about Succubae': gt 'lab', 'karinsuctalk'

	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
			dounspell = 1
			TaliaDoun = input ("Waist in cm?")

			if TaliaDoun <= 0:TaliaDoun = 20

			act 'I would want that thighs ...':
				cla
				bedraDoun = input ("Hips in cm?")

				if bedraDoun <= 0: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
		elseif 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 ! daystart:
			act 'Develop intelligence (1:00)':
				cla
				intel += rand(3, 6)
				minut += 60
				karinday = daystart
				'You study with Karin developing your intellect.'

				act 'Leave':gt 'lab', 'karin'
			end

			act 'Will develop (1:00)':
				cla
				will += rand(3, 6)
				minut += 60
				karinday = daystart
				'You meditate with Karin developing your willpower.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

		if spelltuman = 0 and magik >= 1:
			act 'Learn technique fog (1:00)':
				cla
				minut += 60
				spelltuman = 1
				'You learnt the technique of calling fog in battle.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

		if spellklon = 0 and magik >= 1:
			act 'Learn technique protection cloning (1:00)':
				cla
				minut += 60
				spellklon = 1
				'You learnt the technique of cloning yourself to create decoys in battle.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

		if spellstun = 0 and magik >= 2:
			act 'Learn technique paralysis (1:00)':
				cla
				minut += 60
				spellstun = 1
				'You learnt 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
				minut += 60
				spellwind = 1
				'You learnt 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
				minut += 60
				spellklon2 = 1
				'You learnt the technique triple cloning.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

		if spellenergo = 0 and magik >= 3:
			act 'Learn energoschit (1:00)':
				cla
				minut += 60
				spellenergo = 1
				'You learnt the technique energoschita.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

		if spellinit = 0 and magik >= 3:
			act 'Learn technique deceleration time (1:00)':
				cla
				minut += 60
				spellinit = 1
				'You learnt 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
				minut += 60
				spellhel = 1
				'You learnt the technique of treatment.'

				act 'Leave':gt 'lab', 'karin'
			end
		end

	if magik >= 5 and spellavtoklon = 0:
		act 'Learn technique preparation (1:00)':
			cla
			minut += 60
			spellavtoklon = 1
			'You learnt the technique preparation. 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 pre-shield (1:00)':
			cla
			minut += 60
			spellbefshild = 1
			'You learned the technique of pre-shield. This technique allows you to enter into battle with a magical shield protecting you against physical impacts.'

			act 'Leave':gt 'lab', 'karin'
		end
	end
end

if $ARGS[0] = 'karinsuctalk':
	cla
	clr
	*clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Karin</font></b></center>'
	'<center><img src="images/picpre/karinpre.jpg"></center>'
	if sucpcinfo < 2:
		minut += 15
		'As you both settle onto the couch, Karin turns to you and says, "Ok, tell me what happened."'
		'You spend the next 15 minutes telling her about the Fairy, the odd dream, the energy you let loose the other night,'
		if succubusQW = 4:
			'and the felling you get when you''ve had sex.'
		elseif succubusQW > 4:
			'the felling you get when you''ve had sex, and the reaction you had to almost being raped.'
		end
		''
		'She thinks about it for a moment and then says, "Well, I have a couple of ideas, but no sense guessing when I can just magically examine you."'
		'She hops up and says, "Get undressed and lie down on the couch."'
		sucpcinfo = 2
		act 'Undress and lie down': gt 'succubus', 'karinask'
		exit
	end

	if karinsucsex = 0 and karinsucsexask ! daystart: act 'Ask Karin if she wants to try Succubus Sex': karinsucsexask = daystart & gt 'lab', 'karinsucsexask'

	act 'Ask her to repeat what she knows about Succubae': gt 'succubus', 'karinask'

	act 'Ask her if she has learned anything new about Succubae':
		'No, I havn''t.'
		cla
		act 'Continue': gt 'lab', 'karinsuctalk'
	end

	act 'Change topics': gt 'lab', 'karin'

end

if $ARGS[0] = 'karinsucsexask':
	cla
	clr
	*clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Karin</font></b></center>'
	'<center><img src="images/picpre/karinpre.jpg"></center>'
	If karinsucsex = 0:
		if KarinSex = 1:
			'You give Karin what you hope is a "come hither" smile and ask,'
			'"So, you want to give Succubus sex a try?"'
		else
			'You give Karin a shy smile and ask,'
			'"Do you want to try Succubus sex?"'
		end
	else
		'You give Karin a bright smile and ask,'
		'Hey Karin, you up for some Succubus Sex?'
	end
	act 'She answers:':
		cla
		If karinsucsex = 0:
			'She gives you a wide eyed look before saying,'
			if succublvl + KarinSex < rand(0,6):
				'"I''m sorry, <<$name>>, I just don''t have the time now."'
				act 'Move on to something else': gt 'lab', 'karin'
			else
				'"I would love to!", with a wide smile.'
				'She leads you over to the couch and you both strip.'
				act 'Proceed': gt 'succubus', 'karinsex'
			end
		else
			If karinsucsexday <= daystart:
				if 1 + (succublvl * 2) + karinsucsex < rand(1,20):
					'"I''m sorry, <<$nickname>>, I just don''t have the time now."'
					act 'Move on to something else': gt 'lab', 'karin'
				else
					'She gives you a "come hither" smile and says, "I would love to, <<$nickname>>!"'
					'You both head toward the couch, stripping as you go.'
					'Once there, you both sit down facing each other and she looks at you in anticipation.'
					act 'Proceed': gt 'succubus', 'karinsex'
				end
			else
				if karinsucsexday - daystart > 1:
					$scsextmp = 'days'
				else
					$scsextmp = 'day'
				end
				'She looks at you with a sad smile and says,'
				'"I''m sorry, <<$nickname>>, I need at least <<karinsucsexday - daystart>> more <<$scsextmp>>."'
				killvar '$scsextmp'
				act 'Move on to something else': gt 'lab', 'karin'
			end
		end
	end
end

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

