[added] no theme option to display menu.

[changed] all themes now use gs 'theme'.

glife.qproj

@@ -9,6 +9,7 @@
 	<Location name="onobjsel"/>
 	<Location name="obj_din"/>
 	<Location name="Cheatmenu_din"/>
+	<Location name="themes"/>
 	<Folder name="System">
 		<Location name="counter"/>
 		<Location name="loadg"/>
@@ -41,7 +42,7 @@
 		<Location name="kid"/>
 		<Location name="pattest"/>
 		<Location name="subkid"/>
-		<Location name="_statcheck"/>
+		<Location name="$statcheck"/>
 		<Location name="set_home"/>
 	</Folder>
 	<Folder name="Functions">

locations/Cheatmenu_din.qsrc

@@ -1589,10 +1589,13 @@ $cheatmenu['display'] = {
 	!night_mode 0: dynamic
 	!night_mode 1: black
 	!night_mode 2: grey
-	if night_mode = 0:'Girl Life Theme Selection: Dynamic | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a>'
-	if night_mode = 1:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | Pitch Black | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a>'
-	if night_mode = 2:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | Modern Grey'
-	'<font color="grey">Dynamic theme (default) will change colour based on the game hour.</font>'
+	!night_mode 99: no theme
+	if night_mode = 0:'Girl Life Theme Selection: Dynamic | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
+	if night_mode = 1:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | Pitch Black | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
+	if night_mode = 2:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | Modern Grey | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
+	if night_mode = 99:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | No Theme'
+
+	'<font color="grey">Dynamic theme (default) will change colour based on the game hour. No theme will remove table backgrounds.</font>'
 	*nl
 	if Enable_faceturn = 1:
 		'Always show face: Currently ON - <a href="exec:Enable_faceturn = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'

locations/Gadhouse.qsrc

@@ -175,19 +175,7 @@ if $ARGS[0] = 'Main':
 
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	!125s
 	!{

locations/HotelRoom.qsrc

@@ -10,19 +10,7 @@ clr
 gs 'stat'
 	cla
 	*clr
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color = maroon>Your normal hotel room</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
@@ -57,19 +45,7 @@ clr
 gs 'stat'
 	cla
 	*clr
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color = maroon>Your luxury room</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
@@ -103,19 +79,7 @@ clr
 gs 'stat'
 	cla
 	*clr
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color = maroon>Your royal suite</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
@@ -157,19 +121,7 @@ $location_type = 'bathroom'
 	minut = minut + 1
 	gs'stat'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
 	if hotelroom = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal1.jpg"></center>'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'

locations/IrinaRoom.qsrc

@@ -6,19 +6,7 @@ if $ARGS[0] = 'start':
 	minut += 5
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Entrance where your girlfriend Ira lives</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 

locations/MartinSex.qsrc

@@ -1,19 +1,7 @@
 # MartinSex
 
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = '':
 	cls

locations/MartinSex2.qsrc

@@ -1,19 +1,7 @@
 # MartinSex2
 
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'MartinSexPrep':
 	cls

locations/MartinSex3.qsrc

@@ -1,19 +1,7 @@
 # MartinSex3
 
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'MartinBlowTease':
 	cls

locations/MartinTalk.qsrc

@@ -3,19 +3,7 @@
 $location_type = 'public_indoors'
 gs 'stat'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = '':
 	cls

locations/NewCloShop.qsrc

@@ -6,19 +6,7 @@ if $ARGS[0] = 'start':
 	$loc = 'NewCloShop'
 	gs 'stat'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Fashionista</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/fashinista.jpg"</center>'
 	'This shop features many big name brands and designer clothing. Even their bags look cool.'

locations/Peterroom.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start_door':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Apartment Peter</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/peter/peterdoor.jpg"></center>'
 

locations/anushapt.qsrc

@@ -40,23 +40,7 @@ if $ARGS[0] = 'home':
 	minut += 1
 	bonusZ = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	if AnushkaHomeDay ! daystart:
 		AnushkaHomeDay = daystart

locations/bank.qsrc

@@ -4,19 +4,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 2
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Bank</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/bank/bank.jpg"></center>'
 

locations/barbershop.qsrc

@@ -49,19 +49,7 @@ if $ARGS[0] = 'start':
 	'<center>The only barber shop in the area owned by Oleg Anatolyevich Syomin. He denies ever playing football, but your brother is convinced he is "The Oleg Anatolyevich Syomin". While he can''t do very special hairstyles, he''s cheap and works fast.</center>'
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	*nl
 
 	if pcs_hairlng <= 15:

locations/bass.qsrc

@@ -8,19 +8,7 @@ if $ARGS[0] = 'start':
 	cls
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Pool</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/bass.jpg"></center>'
 	'You must wear a swimsuit in the pool.'

locations/bedr.qsrc

@@ -18,19 +18,7 @@ housrA = 1
 housrMir = 1
 elektro += 1
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt 'tobiQW', 'start'
 

locations/bedr2x.qsrc

@@ -15,19 +15,7 @@ housrA = 1
 housrMir = 1
 elektro = elektro + 1
 gs'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/bedr2.jpg"></center>'
 if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
 'Bright and beautiful bedroom, with modern and stylish furniture. The room is dominated by <a href="exec:GT ''bed'',''start''">full sized bed</a> with an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'

locations/bedrPar.qsrc

@@ -10,19 +10,7 @@ menu_off = 0
 clr
 minut += 1
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 if saveparQW = 2:
 	cls
 	'As soon as you enter the room you rush over to <<$namepopu2>>''s  cage and pour the contents of the vial in to his water bowl.'

locations/bedrPar2.qsrc

@@ -11,19 +11,7 @@ if $ARGS[0] = '':
 	clr
 	minut += 1
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><h1><font color="maroon">Master bedroom</font></h1></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar2.jpg"></center>'
 	*nl

locations/budgetclothes.qsrc

@@ -9,19 +9,7 @@ if $ARGS[0] = 'start':
 	clr
 
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	act 'Leave the store':
 		cla

locations/buklinik.qsrc

@@ -7,19 +7,7 @@ if $ARGS[0] = 'start':
 	minut += 5
 
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy clinic</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli.jpg"></center>'
 	'Working hours: 9 to 17'
@@ -43,19 +31,7 @@ if $ARGS[0] = 'holl':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. hall</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_holl.jpg"></center>'
 	'Hospital corridor.'
@@ -89,19 +65,7 @@ if $ARGS[0] = 'registr':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. desk</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_reg.jpg"></center>'
 	'In registature sit two women in white coats.'
@@ -127,19 +91,7 @@ if $ARGS[0] = 'registr2':
 	minut += 15
 	bumtolik = 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. desk</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_reg.jpg"></center>'
 	'You:- Well, I think I can handle it. Where do I start?'
@@ -157,19 +109,7 @@ if $ARGS[0] = 'registr3':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. desk</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_reg.jpg"></center>'
 	'In registature usually sit either Karina or Regina.'
@@ -183,19 +123,7 @@ if $ARGS[0] = 'sklad':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. warehouse</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_sklad.jpg"></center>'
 	'Warehouse all packages littered with things.'
@@ -211,19 +139,7 @@ if $ARGS[0] = 'olga':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Your colleague Olga</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_olga.jpg"></center>'
 	'(Olga - groomed and cute brunette with a kind smile.)'
@@ -245,19 +161,7 @@ if $ARGS[0] = 'sec':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Your colleague Jeanne</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_sec.jpg"></center>'
 	'(Jeanne and cheerful young blonde)'
@@ -280,19 +184,7 @@ if $ARGS[0] = 'dir':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Your colleague Vera</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_dir.jpg"></center>'
 	'(Vera overbearing and well-groomed lady)'
@@ -317,19 +209,7 @@ if $ARGS[0] = 'shower':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. shower room</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_show.jpg"></center>'
 	'Shared shower for guests'
@@ -344,19 +224,7 @@ if $ARGS[0] = 'stol':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. dining room</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_stol.jpg"></center>'
 	'Dining room for guests'
@@ -371,19 +239,7 @@ if $ARGS[0] = 'spal':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mercy Clinic. bedrooms</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_spal.jpg"></center>'
 	'Sleeping space for guests.'
@@ -402,19 +258,7 @@ if $ARGS[0] = 'olga2':
 	*clr
 	minut += 15
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Your colleague Olga</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/bukli_olga.jpg"></center>'
 	'(Olga - groomed and cute brunette with a kind smile.)'

locations/burger.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = 'start':
 	$location_type = 'public_indoors'
 	CLOSE ALL
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Diner Bystroeshka</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/burger.jpg"></center>'
 	'A bright advertising on the wall reads, "The most nutritious food in the county"'

locations/butik.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = 'start':
 	*clr
 	mag = 1
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Mon Chéri</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/boutique/butik.jpg"></center>'
 	*nl

locations/butoilet.qsrc

@@ -9,19 +9,7 @@ $location_type = 'bathroom'
 minut += 5
 clr
 gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 '<center><b><font color="maroon">WC</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
 ''

locations/carF.qsrc

@@ -34,19 +34,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 1
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><<$car>></b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car<<car>>.jpg"></center>'
 

locations/clener.qsrc

@@ -6,19 +6,7 @@ if $ARGS[0] = 'start':
 	if sound = 0 and hour >= 8 and hour < 17:PLAY 'sound/office.mp3',30 & PLAY 'sound/office2.mp3',30
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Office building</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener.jpg"></center>'
 	'You notice several ads on one of the walls. As you look through them you see a notice that someone is searching for cleaners.'

locations/cloakroom.qsrc

@@ -10,13 +10,7 @@ $coat_list_line = {
 		clothing_temp = 150 & !clothing widdefault to 150
 	end
 
-	if night_mode = 1:
-		$bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
-	elseif night_mode = 2:
-		$bgcolor = iif($bgcolor='#0C0B11','#141414','#0C0B11')
-	else
-		$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
-	end
+	gs 'themes', 'clothing', 1
 
 	$RESULT = '<TR bgcolor='+$bgcolor+'>'
 
@@ -80,13 +74,7 @@ if $ARGS[0] = 'view_coat_list':
 	end
 	*nl
 
-	if night_mode = 1:
-		$bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
-	elseif night_mode = 2:
-		$bgcolor = iif($bgcolor='#0C0B11','#202020','#0C0B11')
-	else
-		$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
-	end
+	gs 'themes', 'clothing', 2
 	
 	'<table><table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Item no.</TH><TH>Description</TH><TH>Large image</TH><TH>Set as default</TH><TH>Default</TH><TH>Set for sale</TH>'
 

locations/clothing.qsrc

@@ -6,13 +6,7 @@ $clothing_list_line = {
 	!! ARGS 1 - clothing type
 	!! ARGS 2 - clothing index
 
-	if night_mode = 1:
-		$bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
-	elseif night_mode = 2:
-		$bgcolor = iif($bgcolor='#0C0B11','#141414','#0C0B11')
-	else
-		$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
-	end
+	gs 'themes', 'clothing', 1
 
 	$RESULT = '<TR bgcolor='+$bgcolor+'>'
 

locations/club.qsrc

@@ -7,23 +7,7 @@ if $ARGS[0] = 'start':
 	cls
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Night club</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club.jpg"></center>'
 	'The entrance area of the club is full of young people. The entrance itself is guarded by the heavy and strong type of men, who check everyones passport. A Ticket costs 250 <b>₽</b>.'
@@ -95,19 +79,7 @@ if $ARGS[0] = 'inside':
 	minut += 5
 	frost = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Night club</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club9.jpg"></center>'
 	'<a href="exec:gt ''club'', ''vip''">Vip-room.</a>'
@@ -244,19 +216,7 @@ if $ARGS[0] = 'tou':
 	cls
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">WC</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club3.jpg"></center>'
 	''

locations/dachain.qsrc

@@ -5,19 +5,7 @@ $metka = ''
 $locM = 'dachain'
 $metkaM = ''
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $args[0] = '':
 	$location_type = 'private'

locations/dachaogr0.qsrc

@@ -2,19 +2,7 @@
 clr
 $location_type = 'secluded'
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 '<center><b><font color="maroon">Vegetable</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/burjan.jpg"></center>'

locations/danceclass.qsrc

@@ -2,19 +2,7 @@
 clr
 minut += 5
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">Dance Studio</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/dance/danceclass.jpg"></center>'
 'A big, open room with good lighting and huge mirrors, perfect for improving your dance skills.'

locations/dima.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Entrance to Dimas house</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 

locations/dolls.qsrc

@@ -11,19 +11,7 @@ if $ARGS[0] = 'start':
 	clr
 	minut += 2
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/dolls/dolls.jpg"></center>'

locations/dom_gor.qsrc

@@ -7,19 +7,7 @@ $loc = $CURLOC
 $location_type = 'private'
 clr
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">Your room</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/vitekhome/kotovkom.jpg"></center>'
 'Your room in a hostel. The room is small, leaving only the bare minimum. 2 <a href="exec:gt ''bed'', ''start''">beds</a>, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, a <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a small TV.'

locations/dorm.qsrc

@@ -4,19 +4,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Dormitory</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
 

locations/downlibrary.qsrc

@@ -5,19 +5,7 @@ $loc = $CURLOC
 $location_type = 'public_indoors'
 frost = 0
 gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 '<center><b><font color="maroon">National Library of Russia</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/city/citycenter/library/downlibint.jpg"></center>'
 'A huge library with thousands upon thousands of books. You could spend years here and you probably still wouldn''t be able to read it all.'

locations/exhibitionistshop.qsrc

@@ -9,19 +9,7 @@ if $ARGS[0] = 'start':
 	if exhibitionQW = 3: exhibitionQW = 4
 	gs 'stat'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Exhibitionist Shop</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/exhibitshop/shop.jpg"></center>'
 	'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'

locations/fight.qsrc

@@ -3,19 +3,7 @@ if $ARGS[0] = 'start':
 	menu_off = 1
 	cla
 	inFight = 1
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	gs'defence'
 	gs'statBat'
 

locations/fit.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start':
 	minut += 5
 	frost = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Fitness Center</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/fit.jpg"></center>'
 	'This modern and well staffed fitness center provides all the latest equipment and trainers to help you make the most of them.'
@@ -257,19 +245,7 @@ if $ARGS[0] = 'gym':
 	minut += 5
 	sportzalrand = RAND(0,20)
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Fitness Center</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/fit.jpg"></center>'
 	'In the fitness center there are a lot of different classes and clubs, designed to improve physical development.'
@@ -529,19 +505,7 @@ if $ARGS[0] = 'kickboxing':
 	minut += 5
 	gs 'stat'
 	gs 'razrKik'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Kickboxing Gym</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/kik.jpg"></center>'
 

locations/food_menu.qsrc

@@ -1,22 +1,7 @@
 # food_menu
 menu_off = 1
 food_loc = 1
-if night_mode = 1:
-	$fcolor1 = '#FFFFFF'
-	$bcolor1 = '#202020'
-	$bcolor2 = '#303030'
-	$bcolor3 = '#000000'
-elseif night_mode = 2:
-	$fcolor1 = '#FFFFFF'
-	$bcolor1 = '#202020'
-	$bcolor2 = '#303030'
-	$bcolor3 = '#141414'
-else
-	$fcolor1 = '#000000'
-	$bcolor1 = '#FFFFFF'
-	$bcolor2 = '#e6f2ff'
-	$bcolor3 = '#FFFFFF'
-end
+gs 'themes', 'food_menu'
 
 *clr & cla
 act 'Back':killvar 'food_loc' & gt $loc, $metka

locations/foto.qsrc

@@ -135,19 +135,7 @@ if $ARGS[0] = 'studio':
 
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	if city_modelling >= 200 and city_modelling < 240:rank = 1
 	if city_modelling >= 240 and city_modelling < 280:rank = 2

locations/gdkbibl.qsrc

@@ -5,19 +5,7 @@ $loc = 'gdkbibl'
 $location_type = 'public_indoors'
 frost = 0
 gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 '<center><b><font color="maroon">Community center library</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/gdkbibl.jpg"></center>'
 'For such a small town, this library is surprisingly large - containing many interesting books on a wide variety of subjects.'

locations/gdkin.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = '':
 	menu_off = 0
 	boynumBlock = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	pl ''
 

locations/gdkkru.qsrc

@@ -7,19 +7,7 @@ $location_type = 'public_indoors'
 frost = 0
 gs'stat'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 '<center><b><font color = maroon>The community center</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/gdkkru.jpg"></center>'

locations/gdksport.qsrc

@@ -24,19 +24,7 @@ if $ARGS[0] = 'start':
 	$locM = $CURLOC
 	$location_type = 'public_indoors'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">community center</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/gym/volley/gdksport.jpg"></center>'
 	'The community center sports club offers lessons in <a href="exec: gt ''gdksport'',''racing1''">Racing</a>, <a href="exec:gt ''gdksport'',''dance1''">Dance</a> and <a href="exec:gt ''gdksport'',''vball1''">Volleyball</a>.'

locations/gdktoilet.qsrc

@@ -8,19 +8,7 @@ if $ARGS[0] = 'start':
 	cls
 	gs 'stat'
 	ghnow = 0
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Bathroom Entrance</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/bathroom_entrance.jpg"></center>'
 

locations/gevent.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = '1':
 	menu_off = 1
 	dyadyamishaevent = 1
 	dick = 18
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'You agree to help, and leave the cafe with uncle Misha. When you reach his apartment, he takes you by the hand and pulls you to his bedroom, locking the door with a key behind him. Roughly grabbing you by your hair, he pulls you down to your knees and unbuttons his pants with his other hand. His erect cock springs to life, which he impatiently pushes against your pursed lips.'
 	'"Open your mouth, whore. You know why you are here", he commands, slapping your cheeks with his hand.'
@@ -95,19 +83,7 @@ if $ARGS[0] = '1-1':
 	money += 200
 	gs 'stat'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/mishasex.jpg"></center>'
 	'You leave the cafe with uncle Misha and go to his apartment. He once again locks the door behind him and then turns towards you. Knowing you''re here of your own volition this time, he is a bit more daring in his demands: "<<$pcs_nickname>>, take off your clothes."'
 	'You know what he wants and give him a quick striptease, taking off your clothes and performing a little dance as you do. It''s not very good, but uncle Misha appreciates the effort anyway. He gets comfortable and watches you slowly reveal your soon to be naked body, and encourages you to do a few erotic poses for him. "Very nice <<$pcs_nickname>>, now suck", he says as he pulls out his cock and pulls your face closer to it. You obediently move over to him and close your lips around his dick, gently sucking him off. From the smell of it, the tongue bath you''re giving it is the first wash it has had in a while.'

locations/gkafe.qsrc

@@ -9,19 +9,7 @@ if $ARGS[0] = '':
 	menu_off = 0
 	$location_type = 'public_indoors'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Borislav''s cafe</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/cafe/gkafe.jpg"></center>'
 	'A small cafe, attached to the train station. It looks rather shabby.'

locations/gpoli.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = '':
 	menu_off = 0
 	frost = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Clinic</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
 		

locations/gskino.qsrc

@@ -1,18 +1,6 @@
 # gskino
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/theater/kinoteatr.jpg"></center>'
 'Small cinema in which there is just one small screen. A movie ticket costs 100 <b>₽</b>.'
 

locations/hairsalon.qsrc

@@ -8,19 +8,7 @@ if $ARGS[0] = 'start':
 	'<center>Next to the check out are two aisles filled with premium merchandise for you hair, including Scrunchies, Hairpins and Shampoo.</center>'
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	if hour =< 8 or hour >= 20:
 		cls

locations/husbSex.qsrc

@@ -7,19 +7,7 @@ if $ARGS[0] = 'room':
 	suprdolg += 1
 	sexrand = RAND(0,3)
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><b><font color = maroon>Bedroom</font></b></center>'
 	if rembedr = 0:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/bedr.jpg"></center>'

locations/ivanRoom.qsrc

@@ -4,19 +4,7 @@ if StoryLine = 0 or altQS = 1:
 	clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Apartment manager Ivan</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 	'Ivan''s apartment door made of steel with good locks.'
@@ -235,19 +223,7 @@ else
 	clr
 	minut = minut + 5
 	gs'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color = maroon>Apartment manager Ivan</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 	'Ivan''s apartment door made of steel with good locks.'

locations/kakuzu.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Mansion Kakuzu</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mansion/mansion.jpg"></center>'
 	'Old gloomy mansion, which even at the local gangs don''t approach out of fear and sincerely believe that something evil lives there. No need to have some sort of skills that make your system, from the death blows.'

locations/korr.qsrc

@@ -71,19 +71,7 @@ housrMir = 0
 elektro += 1
 curr_home = 3
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">Corridor</font></b></center>'
 
 if remkorr = 0:

locations/korr2x.qsrc

@@ -21,19 +21,7 @@ housrMir = 0
 elektro = elektro + 1
 gs'stat'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if courtletter_date <= daystart and courtletter_date ! 0:
 	gt 'sentence', 'letter'

locations/korrPar.qsrc

@@ -21,19 +21,7 @@ minut += 1
 bonusZ = 0
 curr_home = 1
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if courtletter_date <= daystart and courtletter_date ! 0:
 	gt 'sentence', 'letter'

locations/krol.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/beast/zoo/1791_640.jpg"></center>'
 	'<center><<$namekrol>> rests.</center>'
 

locations/kruchess.qsrc

@@ -4,19 +4,7 @@ $loc = 'kruchess'
 frost = 0
 gs'stat'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 '<center><b><font color = maroon>Chess Club</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/chess/kruchess.jpg"></center>'

locations/krupo.qsrc

@@ -6,19 +6,7 @@ $location_type = 'event'
 frost = 0
 gs'stat'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 '<center><b><font color = maroon>Sewing circle</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/krupo.jpg"></center>'

locations/kuhr.qsrc

@@ -9,19 +9,7 @@ minut += 1
 elektro += 1
 gs 'stat'
 gs 'kit_din'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">Kitchen</font></b></center>'
 
 if remkuhr = 0:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/kuhr.jpg"></center>'

locations/kuhr2x.qsrc

@@ -10,19 +10,7 @@ elektro = elektro + 1
 gs'stat'
 gs 'kit_din'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 '<center><b><font color = maroon>Kitchen</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/oldtown/apartment/kuhr2x.jpg"></center>'

locations/kuhrPar.qsrc

@@ -27,19 +27,7 @@ clr
 minut += 1
 gs 'stat'
 gs 'kit_din'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">Kitchen</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
 if hour = 7 and indorf = 0:

locations/lab.qsrc

@@ -7,19 +7,7 @@ if $ARGS[0] = 'start':
 	if sound = 0:PLAY 'sound/street.mp3',30
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Tatianas'' Laboratory</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/lab/lab.jpg"></center>'
     
@@ -128,19 +116,7 @@ if $ARGS[0] = 'Gustav':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Gustav</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/jugo/jugopre.jpg"></center>'
 	'Gustav is sitting on floor and staring off into space.'
@@ -216,19 +192,7 @@ if $ARGS[0] = 'Tatiana':
 	$metka = 'Tatiana'
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Tatiana</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 	'Tatiana is always studying something.'
@@ -595,19 +559,7 @@ if $ARGS[0] = 'Tatianasuctalk':
 	clr
 	*clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Tatiana</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 	if sucpcinfo < 2:
@@ -666,19 +618,7 @@ if $ARGS[0] = 'Tatianasucsexask':
 	clr
 	*clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Tatiana</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 	if tatisucsex = 0:

locations/lakecafe.qsrc

@@ -11,16 +11,7 @@ if $ARGS[0] = 'main':
 	*clr
 	barrnd = rand(1, 3)
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-	end
+	gs 'themes', 'indoors'
 	'<center><B><font color=maroon>The Lake Cafe</font></B></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/lakecafe.jpg"></center>'
 	'An old-fashioned BBQ café/diner near the lake, known for offering relatively cheap but tasty meals. Russia is littered with these.'

locations/larek.qsrc

@@ -87,19 +87,7 @@ end
 <a href="exec: dynamic $buyfood2 ">One serving of diet friendly food - 250 RUB</a>'
 clr
 gs'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 
 act 'Exit Department':gt'larek','start'

locations/lover_meet.qsrc

@@ -8,19 +8,7 @@ if $ARGS[0] = 'start':
 	loverdays[lover_number] += 1
 	svidanie[lover_number] = 0
 	giftNum = giftNum[lover_number]
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	
 	gs 'lover_pronouns'
 	gs 'lover_pref'

locations/mainQW.qsrc

@@ -9,19 +9,7 @@ minut += 15
 act 'Investigate':
 	*clr
 	cla
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/pre/shared/karinpre.jpg"></center>'
 	'"So I''m a magician now?"'
 	'"Sort of, but you''re not the 100m gold medallist just because you have legs or a juggler because you have hands. You''re full of magic but you have no concept of administering magic power, like a battery without an output.'

locations/metro.qsrc

@@ -26,19 +26,7 @@ if $ARGS[0] = 'start':
 	minut += 5
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	if workDisk = 3 and konvert = 1:
 		badrand = rand(0, 100)
@@ -112,19 +100,7 @@ if $ARGS[0] = 'vagon':
 	CLOSE ALL
 	if sound = 0:PLAY 'sound/metro1.mp3',30
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><b><font color="maroon">Metro car</font></b></center>'
 	if hour < 7 or hour >=22:

locations/mey_home.qsrc

@@ -1,18 +1,6 @@
 # mey_home
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 $location_type = 'indoors'
 
 !! corporate only at the end of the month on weekends, check

locations/misha.qsrc

@@ -1,18 +1,6 @@
 # misha
 if $ARGS[0] = '1':
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	gs 'boyStat','A54'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/misha.pre0,<<rand(0,1)>>.jpg"></center>'
 	'You enter Uncle Misha''s apartment. He lets you in and you take a seat, as he glances down the hallway once more to see if anyone saw you enter. Content that the hallway is empty, he closes the door behind him. He then immediately reaches for his pants and pulls out his large cock with a lewd grin on his face.'
@@ -73,19 +61,7 @@ if $ARGS[0] = '1_2nd_part':
 end
 !!
 if $ARGS[0] = '2':
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.misha.pre0,0.jpg"></center>'
 	'They both drop their pants to their ankles, revealing their hard cocks.'
 	'Your stepfather instructs you, "Well, <<$pcs_nickname>>, given your history I''m sure you know what to do with these. Get started."'

locations/narkopriton.qsrc

@@ -2,19 +2,7 @@
 
 cls
 gs 'stat'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 '<center><b>Local drug den</b></center>'
 '<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
 'A local drug den, where you know addicts come to buy and use heroin in peace.'

locations/nordtrain.qsrc

@@ -81,19 +81,7 @@ if $ARGS[0] = 'toilet':
 	*clr & cla
 	gs'stat'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
 

locations/outdoors.qsrc

@@ -271,30 +271,7 @@ if $ARGS[0] = 'main':
 !	pl $weather
 !	pl $osadki
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-	else
-		if (DayStage = 1) or (DayStage = 6) :
-			bcolor = rgb(BColorBase-BColorBase/4, BColorBase-BColorBase/4, BColorBase)
-			lcolor = rgb(206, 90, 205)
-		elseif (DayStage = 3) or (DayStage = 4) :
-			bcolor = rgb(BColorBase, BColorBase-BColorBase/4, BColorBase-BColorBase/4)
-			lcolor = rgb(56, 90, 205)
-		else
-			bcolor = rgb(BColorBase, BColorBase, BColorBase)
-			lcolor = rgb(106, 90, 205)
-		end
-		
-		if BColorBase <= 160 :
-			fcolor = rgb(255, 255, 255)
-		else
-			fcolor = rgb(0, 0, 0)
-		end
-	end
+	gs 'themes', 'outdoors'
 
 !!Shoe variables - cleared here and then set if in outdoors location below
 	PShoQuality = 0
@@ -412,20 +389,7 @@ if $ARGS[0] = 'main':
 			end
 		end
 	else
-		if night_mode = 1:
-			fcolor = rgb(255, 255, 255)
-			bcolor = rgb(0, 0, 0)
-			lcolor = rgb(106, 90, 205)
-		elseif night_mode = 2:
-			fcolor = rgb(255, 255, 255)
-			bcolor = rgb(20, 20, 20)
-			lcolor = rgb(106, 90, 205)
-		else
-			fcolor = rgb(0, 0, 0)
-			bcolor = rgb(255, 255, 255)
-			lcolor = rgb(106, 90, 205)
-		end
-		gs 'indoors'
+		gs 'themes', 'indoors'
 	end
 end
 	

locations/pavComplexb2.qsrc

@@ -2,19 +2,7 @@
 
 !SETTINGS:
 CLOSE ALL
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 $metka = ''
 $loc = 'pavComplexb2'
 !elevator does not work

locations/pavComplexb3.qsrc

@@ -2,19 +2,7 @@
 
 !SETTINGS:
 CLOSE ALL
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 $metka = $ARGS[0]
 $loc = $CURLOC
 !elevator does not work

locations/pavSharedApt.qsrc

@@ -1,18 +1,6 @@
 # pavSharedApt
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'update':
 	rentWeekly = 2000

locations/pavtrainhall.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = '':
 	frost = 0
 	poezddalsled = 0
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><h4>Pavlovsk train station interior</h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'

locations/pirsingsalon.qsrc

@@ -4,19 +4,7 @@
 if $ARGS[0] = 'start':
 	$location_type = 'indoors'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b>Tattoo & Piercing Salon</b></center>'
 	'<center><img src="images/locations/city/industrial/salon/pirsingstudia.jpg"></center>'
 	'Small studio with just one artist doing the tattoos and piercings.'

locations/pod_ezd.qsrc

@@ -2,19 +2,7 @@
 
 !SETTINGS:
 CLOSE ALL
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 $metka = $ARGS[0]
 $loc = $CURLOC
 !elevator does not work

locations/poli.qsrc

@@ -13,19 +13,7 @@ if $ARGS[0] = 'start':
 	hosprand = rand(0, 10)
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Clinic</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
 	'A sign inside the clinic lists some of the services the clinic has to offer:'

locations/popu.qsrc

@@ -5,19 +5,7 @@ if $ARGS[0] = 'start':
 	clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
 	'<center><<$namepopu>> sitting in his cell.</center>'
 
@@ -36,19 +24,7 @@ if $ARGS[0] = 'start2':
 	clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
 	'<center><<$namepopu2>> sitting in his cell.</center>'
 

locations/preALT.qsrc

@@ -1,19 +1,7 @@
 # preALT
 
 cls
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 !!School Girl Specific Story elements
 if $ARGS[0] = 'One':

locations/preCUST.qsrc

@@ -1,19 +1,7 @@
 # preCUST
 
 cls
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 !!Body Customization and Initializations
 if $ARGS[0] = 'BeforeCust':

locations/preNT.qsrc

@@ -2,19 +2,7 @@
 
 !!The TG Story Elements
 cls
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] =  '':
 	cla

locations/preSYS.qsrc

@@ -1,19 +1,7 @@
 # preSYS
 !!Background Options
 cls
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 $pcs_firstname = 'Svetlana'
 $pcs_lastname = 'Lebedev'
 $pcs_nickname = 'Sveta'

locations/preTG.qsrc

@@ -2,19 +2,7 @@
 
 !!The TG Story Elements
 cls
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'roomPRE':
 	'<center><b><font color="maroon">Apartment</font></b></center>'

locations/qwBarBilliard.qsrc

@@ -1,19 +1,7 @@
 # qwBarBilliard
 
 $location_type = 'event'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'billiard_engine':
 	cla

locations/qwBarBilliard2.qsrc

@@ -1,19 +1,7 @@
 # qwBarBilliard2
 
 $location_type = 'event'
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = 'VicArt_Ev1_Cash':
 	cls

locations/qwBarEncounters.qsrc

@@ -3,19 +3,7 @@
 gs 'stat'
 $location_type = 'event'
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 
 !Scene ideas:

locations/qwBarPolet.qsrc

@@ -1,18 +1,6 @@
 # qwBarPolet
 
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = '':
 	$metka = ''

locations/rinok.qsrc

@@ -185,19 +185,7 @@ if $ARGS[0] = 'clo':
 	$loc = $CURLOC
 	cls
 	gs'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Clothes.</font></b></center>'
 	'Cheap clothing on the market stall.'
 

locations/salon.qsrc

@@ -10,19 +10,7 @@ if $ARGS[0] = 'start':
 	*clr
 	salonrand = rand(0, 9)
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Beauty Bar</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/salon.jpg"></center>'
 	'Approach the <a href="exec:gt ''salon'', ''1''">beauty technician.</a>'

locations/sauna.qsrc

@@ -1,19 +1,7 @@
 # sauna
 
 CLOSE ALL
-if night_mode = 1:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(0, 0, 0)
-	lcolor = rgb(106, 90, 205)
-elseif night_mode = 2:
-	fcolor = rgb(255, 255, 255)
-	bcolor = rgb(20, 20, 20)
-	lcolor = rgb(106, 90, 205)
-else
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-end
+gs 'themes', 'indoors'
 
 if $ARGS[0] = '':
 	*clr & cla

locations/sbReksHome.qsrc

@@ -20,19 +20,7 @@ if $ARGS[0] = 'party':
 	$location_type = 'event'
 	gs'dinParty'
 
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	$metka = 'party'
 	$loc = 'sbReksHome'
 	cls

locations/sexm.qsrc

@@ -253,19 +253,7 @@ if $ARGS[0] = 'room':
 	clr
 	minut += 20
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	if boycherdaksex = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/cherdak.jpg"></center>'

locations/sexshop.qsrc

@@ -16,19 +16,7 @@ if $ARGS[0] = 'start':
 	minut += 5
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Sex Toys</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
 	'Lubricant - 145 <b>₽</b>'
@@ -625,19 +613,7 @@ if $ARGS[0] = 'podval':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/gloryholebooths1.jpg"></center>'
 	''
@@ -660,19 +636,7 @@ if $ARGS[0] = 'toi':
 	*clr
 	minut += 5
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">WC</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
 	''
@@ -696,19 +660,7 @@ if $ARGS[0] = 'pip':
 	minut += 5
 	gs 'stat'
 	!!gloryholeBooths
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	'<center><b><font color="maroon">Booth movies</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'

locations/shoes.qsrc

@@ -8,13 +8,7 @@ $shoe_list_line = {
 	!! ARGS 1 - shoe type
 	!! ARGS 2 - shoe index
 
-	if night_mode = 1:
-		$bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
-	elseif night_mode = 2:
-		$bgcolor = iif($bgcolor='#0C0B11','#141414','#0C0B11')
-	else
-		$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
-	end
+	gs 'themes', 'clothing', 1
 
 	$RESULT = '<TR bgcolor='+$bgcolor+'>'
 

locations/shop.qsrc

@@ -33,19 +33,7 @@ if $shoplocation = 'main':
 	'<br>Most of the space in the supermarket is taken up by the <a href="exec:$shoplocation = ''grocery'' & gt ''shop'', ''move''">grocery department</a>, but the store has many smaller departments as well. <a href="exec:$shoplocation=''cosmetics'' & gt ''shop'', ''move''">Cosmetics</a>, <a href="exec:$shoplocation = ''hardware'' & gt ''shop'', ''move''">hardware</a>, <a href="exec:$shoplocation = ''clothing'' & gt ''shop'', ''move''">clothing</a> and the department of <a href="exec:$shoplocation = ''tech'' & gt ''shop'', ''move''">household appliances</a>. Not far from the entrance is a <a href="exec:$shoplocation = ''icecream'' & gt ''shop'', ''move''">counter selling ice cream</a>.'
 	clr
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 	!! The store in the town and in the altstart only
 	if $loc = 'pavCommercial' and StoryLine = 1:
 		if week < 6 and hour >= 8 and hour < 16:
@@ -249,19 +237,7 @@ if $shoplocation = 'grocery':
 	*P FUNC ('$single_stock_item', 1, 'Cheap Bottle of wine', 200, 'wine', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
 	*P '</table></center>'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	act 'Leave the grocery':gt 'shop', 'start'
 end
@@ -306,19 +282,7 @@ if $shoplocation= 'cosmetics':
 	*P FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag')
 	*P '</table></center>'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	act 'Leave the cosmetics department':
 		gt 'shop', 'start'
@@ -356,19 +320,7 @@ if $shoplocation = 'hardware':
 	*nl
 
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	act 'Leave the hardware department':gt 'shop', 'start'
 
@@ -428,19 +380,7 @@ if $shoplocation = 'clothing':
 		end
 		'Women''s clothing at unbeatable prices, panties and bras 300<b>₽</b> each'
 		gs 'stat'
-		if night_mode = 1:
-			fcolor = rgb(255, 255, 255)
-			bcolor = rgb(0, 0, 0)
-			lcolor = rgb(106, 90, 205)
-		elseif night_mode = 2:
-			fcolor = rgb(255, 255, 255)
-			bcolor = rgb(20, 20, 20)
-			lcolor = rgb(106, 90, 205)
-		else
-			fcolor = rgb(0, 0, 0)
-			bcolor = rgb(255, 255, 255)
-			lcolor = rgb(106, 90, 205)
-		end
+		gs 'themes', 'indoors'
 
 		act 'Leave the women''s clothing department':gt 'shop', 'start'
 
@@ -605,19 +545,7 @@ if $shoplocation = 'tech':
 	*P FUNC ('$single_stock_item', 1, 'Webcam', 2000, 'webcamera', $CURLOC, '', iif((npc_rel['A11']>=30 and webcamera = 0) or (camwhore = 1 and webcamera = 0), 0, 1), 'You have no use for this')
 	*P '</table></center>'
 	gs 'stat'
-	if night_mode = 1:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(0, 0, 0)
-		lcolor = rgb(106, 90, 205)
-	elseif night_mode = 2:
-		fcolor = rgb(255, 255, 255)
-		bcolor = rgb(20, 20, 20)
-		lcolor = rgb(106, 90, 205)
-	else
-		fcolor = rgb(0, 0, 0)
-		bcolor = rgb(255, 255, 255)
-		lcolor = rgb(106, 90, 205)
-	end
+	gs 'themes', 'indoors'
 
 	act 'Leave the appliance department':gt 'shop', 'start'
 end