[added] menu variables to the introduction locations preALT, preCSB, preNT, preTG so that the menu doesn't break the introducation at the end when the gui is activated

locations/preALT.qsrc

@@ -1,10 +1,11 @@
 # preALT
 
-cls
+*clr & cla
 gs 'themes', 'indoors'
 
 !!School Girl Specific Story elements
 if $ARGS[0] = 'One':
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/pre/alt/altstart.jpg"></center>'
 	'You are <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>'
 	'You were born in <<birthyear>>. You have a older sister, <<$npc_firstname[''A33'']>>, who is 2 years older than you.'
@@ -56,7 +57,7 @@ if $ARGS[0] = 'Three':
 		act 'Continue': close all & gt 'preALT', 'Cursed Schoolgirl Start'
 	end
 	act 'Restart':
-		cls
+		*clr & cla
 		'This will reset everything and take you back to the begining.'
 		'Are you <i><b>very</i></b> sure you want to start from the begining again?'
 		act 'No, I hit the wrong option!': gt 'preALT', 'Three'
@@ -65,47 +66,41 @@ if $ARGS[0] = 'Three':
 end
 
 if $ARGS[0] = 'Cursed Schoolgirl Start':
+	*clr & cla
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
 	'You are on summer holiday with your parents and have been stuck here for weeks. Good thing this evening you''re finally able to go home, there is nothing to do here but watch animals graze.'
 
 	act 'Take a walk':
-		*clr
-		cla
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/alt/woodspre.jpg"></center>'
 		'While taking a walk and playing with your phone. You look up and suddenly realize that you are lost.'
 		act 'Find a way back':
-			*clr
-			cla
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/alt/ruinpre.jpg"></center>'
 			'You try to find your way back but the only thing you manage to do is get more lost. After hours of wandering around you come across an old ruin.'
 			act 'Take a break':
-				*clr
-				cla
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/alt/tunnel1pre.jpg"></center>'
 				'You sit down on a large stone in the ruins and take a breath. You are starting to get hungry. If its not one thing its another. You stomp your foot in frustration and the floor gives way. You desperately try to hold on to something but everything in reach comes loose and falls down the hole with you. You feel slightly dazed but after a quick check you seem to be uninjured. You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option, there is an old gate here but its either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
 				act 'Follow the tunnel':
-					*clr
-					cla
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/alt/tunnel2pre.jpg"></center>'
 					'The tunnel goes on for what feels like miles. You start to worry that your phone battery will die.'
 					act 'Further':
-						*clr
-						cla
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/shared/dunpre3.jpg"></center>'
 						'At the end of the tunnel you find a dead end. Or at least it seems so. You can see light coming through the cracks in the wall so you do your best to knock it down. Suddenly the wall crumbles and you find yourself in another chamber filled with old pottery and baubles. Opposite you is another tunnel, hopefully it leads out. In the center of the room is an altar and on it is what seems to be centerpiece of this room, a strange amulet.'
 						act 'Examine amulet':
-							*clr
-							cla
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/shared/amuletpre.jpg"></center>'
 							'You take the amulet in your hands and notice its much lighter than it looks and unusually warm for a piece of metal. Its shaped like an antique oil lamp and... is that a penis? As you are about to pocket it, the amulet grows even hotter and zaps you. Oww. You drop it. Screw this, you are out of here.'
 							act 'Find a way out':
-								*clr
-								cla
+								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pre/shared/kotpre.jpg"></center>'
 								'You follow the passage and find yourself in a construction site. There are several <b>keep out</b> signs visible from here. Shit.'
 								act 'Sneak out':
-									*clr
-									cla
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/pre/alt/road.jpg"></center>'
 									'The workers shift has long since finished so sneaking out is not too hard. The site is on the highway so hopefully you can make it back before your mother starts freaking out. As you start walking back you feel a sudden rush of heat and find yourself falling...'
 									act 'Continue': gt 'preALT','Cursed Schoolgirl Start 2'
@@ -118,8 +113,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start':
 		end
 	end
 	act 'Skip intro':
-		*clr
-		cla
+		*clr & cla
 		hour = 18
 		showstat 1
 		showobjs 1
@@ -138,15 +132,14 @@ if $ARGS[0] = 'Cursed Schoolgirl Start':
 end
 
 if $ARGS[0] = 'Cursed Schoolgirl Start 2':
-	clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 	'You wake up in an unfamiliar room. Standing near you is a red-haired girl.'
 	'"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didnt make it. You shouldn''t be fondling ancient amulets you know nothing about."'
 	'"I did some research on what happened to you. Turns out the Amulet of Power passed to you, which should only happen if touched by a male mage. Unfortunately, I got some bad news for you. Reinhold, who''s a really powerful mage. He''s been tracking down this amulet for a while now and if he realizes that the amulet''s power has passed to you he might think you pose a risk."'
 
 	act 'What''s going on?':
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
 		'"Um, okay, I''ll start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
@@ -159,35 +152,28 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 		'"Reinhold wants to prevent the amulet being misused, he is tasked with maintaining order and will search for you."'
 
 		act 'So, the whole world is just an illusion?':
-			cla
-			*clr
-			clr
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?" You ask.'
 			'The girl nods. "Yes. You''re a quick student. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot from a flamethrower. The human mind can''t process magic, so it blocks it as a way to protect the person from going crazy."'
 			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'
 
 			act 'And who are you?':
-				cla
-				*clr
-				clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 				'"And who are you?" you ask.'
 				'The girl smiled. "Me? I''m Tatiana, a young mage with a keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant, his mutation is due to magical exposure and it gives him unmatched physical strength and he is a great tracker."'
 				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
 
 				act 'What do you want from me?':
-					cla
-					*clr
-					clr
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 					'"What do you want from me?" you ask.'
 					'"Hmm, well... the amulet obviously," Tatiana replies. "When I looked for you, I was hoping to get that object of power to study but the power transferred to you first. The amulet will now be pretty much useless."'
 					'"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Its power already knocked you out and I had to use magic to stabilize you."'
 
 					act 'What is this amulet? Where did it come from?':
-						cla
-						*clr
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 						'"And what is this amulet? Where did it come from?" you ask.'
 						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
@@ -196,15 +182,13 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 						'"You are lucky to be a woman," Tatiana adds, "Rikudo''s power seems to only work if it is in a man''s body. Since you cannot harness its power you shouldn''t arouse suspicion."'
 
 						act 'So what should I do?':
-							cla
-							*clr
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/alt/karinpre.jpg"></center>'
 							'"Lay low for now. Go on with your life. We will contact you if anything comes up. Gustav here will drop you off at your '+iif($month = 'June','grandparent''s','parent''s')+'."'
 
 							act 'Follow Gustav':
 								hour = 18
-								cla
-								*clr
+								*clr & cla
 								if start_location = 2:
 									'<center><img <<$set_imgh>> src="images/pre/alt/gadukino.jpg"></center>'
 									'You give Gustav directions to your grandparent''s house, half an hour later he drops you off at your grandparent''s yard in Gadukino.'
@@ -216,8 +200,7 @@ if $ARGS[0] = 'Cursed Schoolgirl Start 2':
 									showstat 1
 									showobjs 1
 									gs 'obj_din', 'old'
-									cla
-									*clr
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/system/magicschoolgirl.jpg"></center>'
 									'Welcome to the Cursed Schoolgirl version! Guide <<$pcs_nickname>> through her school life, relationships and myriad other issues that might pop up and all with the added spice of magic to keep things interesting!'
 									act 'Begin!':

locations/preCSB.qsrc

@@ -10,6 +10,7 @@ gs 'themes', 'indoors'
 
 if $ARGS[0] = 'intro_0':
 	*clr & cla
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/pre/csb/ivancsb.jpg"></center>'	
 	'You are Peter Ivanov.'
 	'<<$startdob>>'

locations/preNT.qsrc

@@ -1,12 +1,12 @@
 # preNT
 
 !!The TG Story Elements
-cls
+*clr & cla
 gs 'themes', 'indoors'
 
 if $ARGS[0] =  '':
-	cla
-	*clr
+	*clr & cla
+	menu_off = 1
 	gs'stat'
 	'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
 	*pl '<center><img src="<<FUNC(''$face_image'')>>"></center>'
@@ -14,8 +14,7 @@ if $ARGS[0] =  '':
 	'You look at your new lease while thinking to yourself: <font color=#FF00CC>It is time for me to finally be able to live my own life. I can finally make my own decisions, choose my own path and I can finally bring guys home without having to hear...</font> You suddenly hear banging on the bathroom door with your mother shouting, "<<$pcs_firstname>> what on earth is taking you so long? We need to get going!" You take a deep breath then turn to walk out of the restroom.'
 
 	act 'Walk out of the bathroom':
-		cla
-		*clr
+		*clr & cla
 		minut += 7
 		gs'stat'
 		'<center><b><font color=#00FF9C><<"Galina [Mother] <<$pcs_lastname>>">></font></b></center>'
@@ -25,8 +24,7 @@ if $ARGS[0] =  '':
 		'Your mother responds, "What''s important is your future and I''m not going to have a daughter who sits at home all day doing god know what. We are getting you a job in the market with me. I need to keep a close eye on you or else you will get into trouble." You recoil in shock as you think to yourself, <font color=#FF00CC>I can''t stay with her anymore. I need to tell her now.</font>'
 
 		act 'Tell her that you are moving out':
-			cla
-			*clr
+			*clr & cla
 			minut += 3
 			gs'stat'
 			'<center><b><font color=#00FF9C><<"Galina [Mother] <<$pcs_lastname>>">></font></b></center>'
@@ -36,8 +34,7 @@ if $ARGS[0] =  '':
 			'Your mother''s voice gets louder as she responds, "So aunt Diana has been working you behind my back and you spent your money on a new house instead of college? HAVE YOU LOST YOUR MIND!?" You recoil for a second before mustering your courage, "Maybe I don''t want to go to college. Maybe i just want to live my own life." Your mother pinches your ear as she says, "You ungrateful brat! Have I not done everything for you? I raised you in my home. I kept you fed. I protected you from the boys who would just take advantage of you. I even put up with your occasional attitude while showing you the right way to live your life."'
 
 			act 'Tell her how you truly feel':
-				cla
-				*clr
+				*clr & cla
 				minut += 3
 				gs'stat'
 				'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
@@ -49,8 +46,7 @@ if $ARGS[0] =  '':
 				'<center><img <<$set_imgh>> src="images/pre/city/mother2.jpg"></center>'
 
 				act 'Say goodbye':
-					cla
-					*clr
+					*clr & cla
 					minut += 12
 					gs'stat'
 					'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
@@ -62,8 +58,7 @@ if $ARGS[0] =  '':
 					'<center><img <<$set_imgh>> src="images/pre/city/mother2.jpg"></center>'
 
 					act 'Turn to face her':
-						cla
-						*clr
+						*clr & cla
 						minut += 2
 						gs'stat'
 						'<center><b><font color=#00FF9C><<"Galina [Mother] <<$pcs_lastname>>">></font></b></center>'
@@ -71,8 +66,7 @@ if $ARGS[0] =  '':
 						'Your mother takes one look at you then says, "I''ll call you back." before hanging up the phone. She then walks up to you and says, "If you are really committed to this then go, but when the boys use you and break your heart then don''t say that I didn''t warn you." She then opens the door and holds it open for you. You begin walking out before you hear her say, "And if you get knocked up by someone you don''t even know then don''t bring any babies back here expecting me to take care of them. You have made your choice and I hope to god that you don''t ruin your life. May god watch over you." Not wanting to have another argument, you turn and walk away toward the train station.'
 
 						act 'Head to the train station':
-							cla
-							*clr
+							*clr & cla
 							minut += 10
 							gs'stat'
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
@@ -81,8 +75,7 @@ if $ARGS[0] =  '':
 							'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/albert1.jpg"></center>'
 
 							act 'Tell him your name':
-								cla
-								*clr
+								*clr & cla
 								minut += 3
 								gs'stat'
 								'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
@@ -96,8 +89,7 @@ if $ARGS[0] =  '':
 								act 'Accept Albert''s offer':gt 'preNT ', 'Ride'
 
 								act 'Decline Albert''s offer':
-									cla
-									*clr
+									*clr & cla
 									minut += 2
 									gs'stat'
 									'<center><b><font color=#0060FF><<"Albert Sokolov">></font></b></center>'
@@ -111,8 +103,7 @@ if $ARGS[0] =  '':
 							end
 
 							act 'Remain silent':
-								cla
-								*clr
+								*clr & cla
 								minut += 2
 								gs'stat'
 								'<center><b><font color=#0060FF><<"?">></font></b></center>'
@@ -130,8 +121,7 @@ if $ARGS[0] =  '':
 end
 
 if $ARGS[0] =  'Ride':
-	cla
-	*clr
+	*clr & cla
 	minut += 2
 	gs'stat'
 	'<center><b><font color=#0060FF><<"Albert Sokolov">></font></b></center>'
@@ -139,8 +129,7 @@ if $ARGS[0] =  'Ride':
 	'<font color=#FF00CC>I can''t be shy my whole life. i need to take some chances. i need to prove my mother wrong.</font> You confidently nod as you say, "That would be great. Thank you." Albert returns the nod as he responds, "It''s no trouble at all." He then motions you to follow him before leading you to his car, where he packs your bags into the trunk and opens the door for you before sitting down and firing up the engine.'
 
 	act 'Sit back and relax':
-		cla
-		*clr
+		*clr & cla
 		minut -= 2
 		gs'stat'
 		'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
@@ -149,8 +138,7 @@ if $ARGS[0] =  'Ride':
 		'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/car.jpg"></center>'
 
 		act 'Take a closer look':
-			cla
-			*clr
+			*clr & cla
 			minut -= 2
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/pre/city/gun.jpg"></center>'
@@ -159,8 +147,7 @@ if $ARGS[0] =  'Ride':
 			'You watch him at the corner of your vision while he continues to stare at your legs while you pretend not to notice. After a minute you notice him begin firmly rubbing on his crotch. You start feeling a little hot, not entirely sure why. <font color=#FF00CC>Why is it so hot all of a sudden? Maybe it is the way he is looking at me. He must really want me. He keeps rubbing that...Bulge. Maybe I should touch it for him. I bet his dick is big if his bulge is that big, but what if he doesn''t want it? That would be so embarrassing, but if he does want it then this is my chance to finally be with a real man, but am I ready?</font>'
 
 			act 'Reach out for his crotch':
-				cla
-				*clr
+				*clr & cla
 				minut -= 2
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/pre/city/hj1.jpg"></center>'
@@ -172,8 +159,7 @@ if $ARGS[0] =  'Ride':
 				gs 'stat'
 
 				act 'Suck his dick':
-					cla
-					*clr
+					*clr & cla
 					sub += 5
 					minut -= 2
 					gs'stat'
@@ -186,8 +172,7 @@ if $ARGS[0] =  'Ride':
 					gs 'stat'
 
 					act 'Continue':
-						cla
-						*clr
+						*clr & cla
 						sub += 5
 						guy += 1
 						minut -= 2
@@ -202,8 +187,7 @@ if $ARGS[0] =  'Ride':
 						gs 'arousal', 'end'
 
 						act 'Continue riding in silence':
-							cla
-							*clr
+							*clr & cla
 							minut += 4
 							gs'stat'
 							'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/car.jpg"></center>'
@@ -214,8 +198,7 @@ if $ARGS[0] =  'Ride':
 							'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/albert3.jpg"></center>'
 
 							act 'Walk toward your new home':
-								cla
-								*clr
+								*clr & cla
 								sub += 5
 								minut += 4
 								if sound = 0:
@@ -250,8 +233,7 @@ if $ARGS[0] =  'Ride':
 				end
 
 				act 'Continue jerking him':
-					cla
-					*clr
+					*clr & cla
 					pcs_dom += 5
 					guy += 1
 					minut += 4
@@ -262,8 +244,7 @@ if $ARGS[0] =  'Ride':
 					gs 'stat'
 
 					act 'Continue':
-						cla
-						*clr
+						*clr & cla
 						pcs_dom += 5
 						minut += 4
 						gs'stat'
@@ -287,8 +268,7 @@ if $ARGS[0] =  'Ride':
 							'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/albert3.jpg"></center>'
 
 							act 'Walk toward your new home':
-								cla
-								*clr
+								*clr & cla
 								minut += 4
 								if sound = 0:
 									if month >=11 and month <= 12 or month >=1 and month <=3:
@@ -323,16 +303,14 @@ if $ARGS[0] =  'Ride':
 			end
 
 			act 'Pretend not to notice it':
-				cla
-				*clr
+				*clr & cla
 				minut += 8
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/car.jpg"></center>'
 				'Not wanting to take a chance of offending him, you turn away then look out of the window while thinking to yourself, <font color=#FF00CC>So my new life is starting. My chance to try new things, but yet I don''t feel too confident. I want to be more daring, but I just hesitate too much. Will I ever be able to break out of my shell, or will I grow up to be just like my mother planned for me to be? Boring and normal.</font>'
 
 				act 'Continue':
-					cla
-					*clr
+					*clr & cla
 					minut += 2
 					gs'stat'
 					'<center><b><h4><font color=#FF00CC><<"<<$pcs_firstname>> [<<$pcs_nickname>>] <<$pcs_lastname>>">></font></h4></b></center>'
@@ -341,8 +319,7 @@ if $ARGS[0] =  'Ride':
 					'<center><img <<$set_imgh>> src="images/shared/home/bedroom/dream/nightout/date/car.jpg"></center>'
 
 					act 'Walk toward your new home':
-						cla
-						*clr
+						*clr & cla
 						minut += 4
 						if sound = 0:
 							if month >=11 and month <= 12 or month >=1 and month <=3:
@@ -378,8 +355,7 @@ if $ARGS[0] =  'Ride':
 end
 
 if $ARGS[0] =  'Listings':
-	cla
-	*clr
+	*clr & cla
 	minut += 2
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/pre/city/paper.jpg"></center>'
@@ -393,8 +369,7 @@ if $ARGS[0] =  'Listings':
 	'Stripper in the Red Light District (City Industrial Region).'
 
 	act 'Continue toward your apartment':
-		cla
-		*clr
+		*clr & cla
 		music_loop = 0
 		close all
 		minut += 5
@@ -418,8 +393,7 @@ if $ARGS[0] =  'Listings':
 end
 
 if $ARGS[0] =  'Train':
-	cla
-	*clr
+	*clr & cla
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metro.jpg"></center>'
 	'You sit down in one of the corner seats then suddenly feel something pressed against your bottom. You quickly reach down then pull out a news paper. You must have sat on it. You drop it on the chair next to you then begin looking out of the window while thinking to yourself, <font color=#FF00CC>I''m actually doing this. This is actually happening. I am finally going to live on my own. I wonder what life would have been like if my papa never passed away. He was always out in military bases training and honing his skills. His letters always brought me comfort, just knowing that he was thinking of me. Would he be proud of me now? I hope so. I know that he only enlisted to keep us safe and fed.</font>'
@@ -429,8 +403,7 @@ if $ARGS[0] =  'Train':
 	*pl '<center><img src="<<FUNC(''$face_image'')>>"></center>'
 
 	act 'Look at the job listings':
-		cla
-		*clr
+		*clr & cla
 		minut += 2
 		gs'stat'
 		'<center><img <<$set_imgh>> src="images/pre/city/paper.jpg"></center>'
@@ -444,16 +417,14 @@ if $ARGS[0] =  'Train':
 		'Stripper in the Red Light District (City Industrial Region).'
 
 		act 'Finish reading':
-			cla
-			*clr
+			*clr & cla
 			minut += 2
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metro.jpg"></center>'
 			'You lower the paper then lay back as you roll it back up and place it back on the seat next to you. The train reaches the next stop and you recognize it as your stop. You reach down, picking up your bags then stand next to the door when it suddenly opens, releasing a gust of wind on your face, which you find somewhat comforting. You then walk out of the train station.'
 
 			act 'Head toward your new apartment building':
-				cla
-				*clr
+				*clr & cla
 				minut += 2
 				if sound = 0:
 					if month >=11 and month <= 12 or month >=1 and month <=3:
@@ -481,8 +452,7 @@ if $ARGS[0] =  'Train':
 				'You begin heading in the direction of your new home when you notice some gopniks harassing a woman. One of the gopniks is whistling at her while the other is lifting up her skirt. You try your best to ignore them as you continue toward you apartment.'
 
 				act 'Continue toward your apartment':
-					cla
-					*clr
+					*clr & cla
 					music_loop = 0
 					close all
 					minut += 5

locations/preTG.qsrc

@@ -1,29 +1,30 @@
 # preTG
 
 !!The TG Story Elements
-cls
+*clr & cla
 gs 'themes', 'indoors'
 
 if $ARGS[0] = 'roomPRE':
+	menu_off = 1
 	'<center><b><font color="maroon">Apartment</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/pre/tg/room.jpg"></center>'
 	'You wake up to the sound of your alarm clock. You hear Luda, your wife, mumbling next to you, "Don''t want to, it''s too early." She pulls her blanket up and rolls over. You reach over and turn the clock off.'
 	*nl
 	'<i>There are days when I just want to keep on sleeping</i>, you think to yourself. <i>But I can''t, not today.</i>'
 	act 'Go to the bathroom':
-		cls
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/tg/self.jpg"></center>'
 		'Quietly, so that you don''t wake up your daughter, you go to the bathroom and take care of your morning routine.'
 		act 'Leave the apartment':
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/tg/carpre1.jpg"></center>'
 			'In a parking lot near your house sits your car. You unlock it with the remote key and climb in.'
 			act 'Go to work':
-				cls
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/tg/carpre.jpg"></center>'
 				'You turn the key and the engine roars to life. As you drive to work the roads are filled with traffic, but it''s the morning rush hour, so it''s no surprise. You drive for what feels like an eternity, give or take an hour, but you eventually reach the office. The music on the radio was pleasant, at least.'
 				act 'Park at the office':
-					cls
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/tg/officepre.jpg"></center>'
 					'You pull into a parking lot near the building and manage to find a good spot. You greet the security guard on your way in to the building, and then go upstairs to your office. Shortly after you sit down at your desk and boot up your computer, your boss''s secretary comes in and hands you a folder with several travel documents.'
 					*nl
@@ -33,17 +34,17 @@ if $ARGS[0] = 'roomPRE':
 					*nl
 					'After she leaves, you read over the travel documents and fill them out. Time to go to the director.'
 					act 'Go and see your boss':
-						cls
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/tg/man.jpg"></center>'
 						'You head into the directors'' office, greet him and hand him the papers to sign. The director, Roman Gromov, scans through the text before signing off on it with a broad, sweeping stroke.'
 						*nl
 						'"Ms. Glavbukh is in her office. Go get some travel money while I make a few calls. We''ll discuss your trip when you get back."'
 						act 'Go to the chief accountant':
-							cls
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/tg/glavbuh.jpg"></center>'
 							'Marina is indeed already in her office. After filing your signed travel documents, she grumbles about antiquated systems as she counts out the money.'
 							act 'Return to the director':
-								cls
+								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pre/tg/man.jpg"></center>'
 								'Roman is busy talking on the phone when you re-enter the his office, he gestures for you to sit down on one of the chairs across from him.'
 								*nl
@@ -55,7 +56,7 @@ if $ARGS[0] = 'roomPRE':
 								*nl
 								'"It''s not clear what exactly it is, yet. Maybe an abandoned bunker or a cave. But in any case, if there are any more chambers under the foundation, we might not be able to build on the land. So what I want you to do, is to go to the construction site, figure out exactly what the problem is and solve this whole mess as quickly as possible."'
 								act 'Remind him of the correct procedures':
-									cls
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/pre/tg/man.jpg"></center>'
 									'"Firstly we need to talk to..." you start to say, but are quickly interrupted by your boss.'
 									*nl
@@ -75,13 +76,13 @@ if $ARGS[0] = 'roadPRE':
 	'<center><img <<$set_imgh>> src="images/pre/tg/carpre.jpg"></center>'
 	'You leave the office and from your car phone your wife Luda. You explain the situation to her and as soon as you finish the call, you drive off to the construction site.'
 	act 'Drive':
-		cls
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/shared/kotpre.jpg"></center>'
 		'You''ve been on the highway for hours before you arrive at the town near the site, leaving you feeling tired. But before you can check into a hotel and get some sleep, you need to get an understanding of the magnitude of the problem you''re dealing with. You follow the directions to the site. Igor calls on the way and tells you that you won''t have to go through a security check.'
 		*nl
 		'You arrive and park your car at the site. You see Igor waving at you from a distance and you walk up to him.'
 		act 'Greet Igor':
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/tg/igor.jpg"></center>'
 			'Igor greets you. He is obviously concerned about the situation and without delay leads you to the pit''s fenced-off entrance. It rained earlier so the ground is all muddy, you''re going to have to clean your shoes when you get back to the hotel.'
 			*nl
@@ -91,7 +92,7 @@ if $ARGS[0] = 'roadPRE':
 			*nl
 			'"Well, what do you think Mikhail? Shall we go down?" Igor says with a faint glimmer of adventure in his eyes.'
 			act 'Descend':
-				cls
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/tg/dunpre.jpg"></center>'
 				'Igor hands you a powerful flashlight and tells the guard to get the ladder over here. Igor is the first one to go down, once he reaches the bottom, he holds the ladder so you can safely climb down as well.'
 				*nl
@@ -101,7 +102,7 @@ if $ARGS[0] = 'roadPRE':
 				*nl
 				'You walk up to the door and see drawings on it. Most of them resemble people, but with other stick figures as well.'
 				act 'Open the door':
-					cls
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/tg/dunpre1.jpg"></center>'
 					'You lean against the door, it''s stiff but you manage to push it open.'
 					*nl
@@ -113,7 +114,7 @@ if $ARGS[0] = 'roadPRE':
 					*nl
 					'"Probably", you nod. "We can''t rule anything out just yet."'
 					act 'Go further':
-						cls
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/tg/dunpre2.jpg"></center>'
 						'Further into the cave, you reach a room that resembles some kind of archive, filled with dozens of old, dusty scrolls inside of racks built into the walls.'
 						*nl
@@ -121,13 +122,13 @@ if $ARGS[0] = 'roadPRE':
 						*nl
 						'Looking around, you notice another door on the other side of the chamber, you walk over and open it.'
 						act 'Enter the room':
-							cls
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/shared/dunpre3.jpg"></center>'
 							'There''s an altar in the center of the room, on it there are various pots, several gold amulets and even some stone figures. You continue looking around the room curiously, trying to figure out what it''s purpose was.'
 							*nl
 							'Looking closely at the altar, you notice a strange little amulet placed at the very top.'
 							act 'Examine the amulet':
-								cls
+								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pre/shared/amuletpre.jpg"></center>'
 								'You pick up the strange amulet and examine it. <i>This is clearly very old</i>, you think to yourself.'
 								*nl
@@ -135,13 +136,13 @@ if $ARGS[0] = 'roadPRE':
 								*nl
 								'Igor enters the room with one of the scrolls in his hands. "Huh. Interesting little room.", he says, glancing over the altar. "Well, we have to make a decision: either we fill the catacombs up to the brink with cement or we let someone into these rooms. Who knows what all this stuff is, maybe it''s worth more than it looks."'
 								act 'Consult you boss':
-									cls
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/pre/shared/dunpre3.jpg"></center>'
 									'"I''ve got to think about it and consult the director before we do anything." You reply and without thinking about it, you put the small amulet into your pocket.'
 									*nl
 									'"Well, one thing''s for sure, you won''t get reception down here. Let''s go outside." Igor tells you.'
 									act 'Go back to the surface':
-										cls
+										*clr & cla
 										'<center><img <<$set_imgh>> src="images/pre/shared/kotpre.jpg"></center>'
 										'You walk together with Igor out of the strange chambers and up the ladder, back to the surface.'
 										*nl
@@ -169,11 +170,11 @@ if $ARGS[0] = 'otelPRE':
 	*nl
 	'You park your car and go to the receptionist to get a room. There are only double rooms available, but its going on the company card, so that just means you''ll get a bigger room. You swipe your company card and take your room key.'
 	act 'Head upstairs to your room':
-		cls
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/tg/otelpre1.jpg"></center>'
 		'Lying down on one of the beds, you start to wonder just who built that crypt and what it''s purpose was. Your thoughts drift to that amulet you found. The way that thing you touched half an hour ago is still making you feel wonderful baffles you.'
 		act 'Call the director':
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/tg/otelpre1.jpg"></center>'
 			'You dial Romans'' number and after a few rings, he picks up. You report to him the details of what you found at the site with Igor: an ancient tomb, human bones, scrolls in a mysterious language and the altar in that room.'
 			*nl
@@ -181,7 +182,7 @@ if $ARGS[0] = 'otelPRE':
 			*nl
 			'You put the phone away. <i>Looks like this trip is going to last longer than expected</i>, you think to yourself.'
 			act 'Go to bed':
-				cls
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/tg/otelpre1.jpg"></center>'
 				'It doesn''t take you long to drift off to sleep'
 				*nl
@@ -191,13 +192,13 @@ if $ARGS[0] = 'otelPRE':
 				*nl
 				'Suddenly your senses return and you are aware of the hotel room around you, you can tell you are not alone.'
 				act 'Open your eyes':
-					cls
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/tg/reinholdpre.jpg"></center>'
 					'As you open your eyes, you see a man standing in your room. He is wearing a long black coat and his face looks weary; he is unshaven and reminds you of most police detectives in Hollywood films.'
 					*nl
 					'"Where is the amulet?" he approaches you.'
 					act 'Ask who he is':
-						cls
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/tg/reinholdpre.jpg"></center>'
 						'"Who are you?" you ask puzzledly. The man''s sudden appearance and a sense you never knew you had tell you something about him, that he is not of the world you know.'
 						*nl
@@ -207,7 +208,7 @@ if $ARGS[0] = 'otelPRE':
 						*nl
 						'"Well, how about I give you a small taste of my power." the man says, and out of nowhere comes a burning desire to give him the amulet.'
 						act 'Give him the amulet':
-							cls
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/tg/otelpre1.jpg"></center>'
 							'You get out of the bed and give him the stone figure you had put in your pocket earlier. The man takes it, steps back, and without warning, something in his eyes begins to spin like a whirlwind, causing your own eyes to blur as if he was hypnotizing you. A few seconds later your vision clears with the man having somehow disappeared into thin air.'
 							*nl
@@ -218,7 +219,7 @@ if $ARGS[0] = 'otelPRE':
 							*nl
 							'A woman''s voice responds that she''s the hotel receptionist and that she needs to talk to you on an urgent matter.'
 							act 'Answer the door':
-								cls
+								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 								'You open the door, but don''t recall the woman in front of you being at the reception desk; the woman from earlier didn''t have red hair and glasses. After entering the room she quickly examines the place, before locking her eyes on you.'
 								*nl
@@ -226,7 +227,7 @@ if $ARGS[0] = 'otelPRE':
 								*nl
 								'"Last night you went to a certain place and took out something very valuable and powerful." the woman speaks to you.'
 								act 'Another one?':
-									cls
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 									'<i>Again?</i>'
 									*nl
@@ -236,7 +237,7 @@ if $ARGS[0] = 'otelPRE':
 									*nl
 									'She looks at you with surprise. "What? Someone already came here? Who was it?"'
 									act 'Tell her':
-										cls
+										*clr & cla
 										'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 										'"It was some man in a navy cloak with ginger hair and a light beard, he didn''t tell me his name. He already took the amulet." You answer.'
 										*nl
@@ -275,7 +276,7 @@ if $ARGS[0] = 'otelPRE':
 										birthyear = 1983
 										pcs_dob = 19830401
 										act 'Prepare to fight':
-											cls
+											*clr & cla
 											'<center><img <<$set_imgh>> src="images/characters/city/jugo/jugopre.jpg"></center>'
 											'The man has a large tattoo across the left side of his face. He too has red hair'
 											$boy = 'Gustav'
@@ -323,7 +324,7 @@ if $ARGS[0] = 'tatianaPRE':
 	*nl
 	'"While you were unconscious I did some research on you. Turns out the Amulet of Power passed to you. Must have happened when you touched it. Unfortunately, Reinhold, the guy in your room, he''s probably realized by now that the amulet no longer has the power and now he''s out to hunt you down."'
 	act 'What''s going on?':
-		cls
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
 		*nl
@@ -341,7 +342,7 @@ if $ARGS[0] = 'tatianaPRE':
 		*nl
 		'"As you can figure out, Reinhold wanted to prevent the amulet being misused, but he was not very thorough and didn''t check you over."'
 		act 'So, the whole world is just an illusion?':
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?" You ask.'
 			*nl
@@ -349,7 +350,7 @@ if $ARGS[0] = 'tatianaPRE':
 			*nl
 			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'
 			act 'And who are you?':
-				cls
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 				'"And who are you?" you ask.'
 				*nl
@@ -357,7 +358,7 @@ if $ARGS[0] = 'tatianaPRE':
 				*nl
 				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
 				act 'What do you want form me?':
-					cls
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 					'"What do you want form me?" you ask.'
 					*nl
@@ -365,7 +366,7 @@ if $ARGS[0] = 'tatianaPRE':
 					*nl
 					'"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Reinhold easily overpowered your will and forced you to obey, and Gustav beat you like a puppy."'
 					act 'What is this amulet? Where did it come from?':
-						cls
+						*clr & cla
 						'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 						'"And what is this amulet? Where did it come from?" you ask.'
 						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
@@ -378,7 +379,7 @@ if $ARGS[0] = 'tatianaPRE':
 						*nl
 						'You don''t say anything, so she continues, "I can feel the aura of power emanating from you, by drawing from that I can perform a powerful magic spell that will transform you into someone who is protected from the masculine alignment of the power."'
 						act 'Uh, I do not understand, what are you suggesting?':
-							cls
+							*clr & cla
 							'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 							'"Uh, I do not understand, what are you suggesting?" you ask her.'
 							*nl
@@ -388,7 +389,7 @@ if $ARGS[0] = 'tatianaPRE':
 							*nl
 							'"Well, there is another way, I can just stop your heart and let your power dissolve into nature, but you will die. I''m not Reinhold, I can take this risk and I don''t want to kill you. Maybe with more time doing research I can work out another solution, but I cannot leave you like this."'
 							act 'What about your family?':
-								cls
+								*clr & cla
 								'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 								'"Hey, I do not want to be a woman. I have a family, a wife, a daughter", you tell her, afraid.'
 								*nl
@@ -396,7 +397,7 @@ if $ARGS[0] = 'tatianaPRE':
 								*nl
 								'"As for your family, not to worry. I''ll arrange everything. We will fabricate your death to get Reinhold off your back. To make your transition easier I''ll cover your memory of the family, they will only be ghostly memories, you won''t even remember where you lived. Don''t worry, I won''t erase your entire memory and leave you a useless vegetable."'
 								act 'There must be another way!':
-									cls
+									*clr & cla
 									'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 									'"There must be another way!" you panic. You tug at the restraints on the bed.'
 									*nl