[fixes] several missing gorodokkomp variables and fixed some *clr & cla by Tendaris

locations/Komp.qsrc

@@ -7,7 +7,7 @@ if $ARGS[0] = 'start':
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 	'Your computer boots up, and soon you''re looking at your operating system''s main screen.'
 
-	act 'Play Solitaire (0:20)':gt 'Komp', 'pasians'
+	act 'Play Solitaire (0:20)':gt 'komp', 'pasians'
 
 	if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
 	if GameCD2 > 0:act 'Play Sunset Dead':gt 'KGZstart'
@@ -15,20 +15,20 @@ if $ARGS[0] = 'start':
 
 	!!act 'SunReview of the Dead':gt 'KGZstart'
 
-	if student > 0 and kursovik < 100:'You should probably do some of your <a href="exec:gt ''Komp'',''kursak''">coursework</a>.'
+	if student > 0 and kursovik < 100:'You should probably do some of your <a href="exec:gt ''komp'',''kursak''">coursework</a>.'
 
-	if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or hotelWiFi = 1:
+	if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome':
 		internet_store = internet
 		internet = 100000
-		act 'Browse the internet':gt 'Komp', 'brows'
+		act 'Browse the internet':gt 'komp', 'brows'
 	else
 		'You have <<internet>> hours of prepaid internet access remaining.'
-		if internet > 0: act 'Browse the internet':gt 'Komp', 'brows'
+		if internet > 0: act 'Browse the internet':gt 'komp', 'brows'
 	end
 
 	act 'Shut your computer down':
 		if $loc = 'shulga_room' or $loc = 'anushapt': internet = internetS
-		gt 'Komp', 'fin'
+		gt 'komp', 'fin'
 	end
 end
 
@@ -41,7 +41,7 @@ if $ARGS[0] = 'brows':
 			internet = internet_store
 			killvar 'internet_store'
 		end
-		gt 'Komp','start'
+		gt 'komp','start'
 	end
 	
 	if internet <= 0:
@@ -50,36 +50,36 @@ if $ARGS[0] = 'brows':
 		'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
 		if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt':
 			'Since MyFreeCams will cover the cost, you can still log on to do a cam show.'
-			act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
+			act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 		'You go to your favourite start page, while you try to decide on what you want to see right now.'
 
-		'A blinking banner for a <a href="exec:gt ''Komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
+		'A blinking banner for a <a href="exec:gt ''komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
 
-		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
+		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'komp', 'sale'
 
-		if $loc ! 'anushapt': act 'Search for porn (1:00)':gt 'Komp', 'porno'
-		act 'Browse a dating website (1:00)':gt 'Komp', 'znak'
+		if $loc ! 'anushapt': act 'Search for porn (1:00)':gt 'komp', 'porno'
+		act 'Browse a dating website (1:00)':gt 'komp', 'znak'
 
 		if hour < 20 and hour > 7:
 			if $clothingworntype = 'nude':
 				'You need to be dressed before searching jobs.'
 			else
-				act 'Look for a job online':gt 'Komp', 'rabota'
+				act 'Look for a job online':gt 'komp', 'rabota'
 			end
 		end
 
-		act 'Search for cable TV services (1:00)':gt 'Komp', 'kabtv'
+		act 'Search for cable TV services (1:00)':gt 'komp', 'kabtv'
 		act 'Play an online game':gt 'KGstart'
 		if fuckornot = 3: act 'Visit ''Fuckable or not'' site': $view_location = 'komp' & gt 'komp', 'fuckornot'
 		if hotornot = 3: act 'Visit ''Hot or not'' site': $view_location = 'komp' & gt 'komp', 'hotornot'
-		if bankAccount > 0: act 'Visit your bank, maybe to purchase more online time': gt 'Komp', 'bank'
-		if shantfoto > 0:act 'Find the girl you took photos of in the park on "Assbook"':gt 'Komp', 'foto'
+		if bankAccount > 0: act 'Visit your bank, maybe to purchase more online time': gt 'komp', 'bank'
+		if shantfoto > 0:act 'Find the girl you took photos of in the park on "Assbook"':gt 'komp', 'foto'
 		if gor_dorm = 7:act 'Read letter from Eugene':gt 'etoexhib', 'pos91'
-		if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt':act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
-		if (storyline = 1 and SchoolAtestat = 0) or student > 0:act 'Spend time studying':gt 'Komp', 'study'
+		if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt':act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
+		if (storyline = 1 and SchoolAtestat = 0) or student > 0:act 'Spend time studying':gt 'komp', 'study'
 		if sucpcinfo = 0 and succubxp > 0: act 'Research the strange feelings you''ve been having': gt 'succubus', 'kompresearch'
 	end
 end
@@ -96,7 +96,7 @@ if $ARGS[0] = 'sale':
 	if obkvsdam >= 1 and home_owned[1] = 2: 'You placed an advertisement to rent out your apartment. You should probably check every once in a while to see if anyone responded.'
 
 	if obkvsdam = 0 and home_owned[1] = 2:
-		act 'Rent out your city residential apartment':obkvsdam = 1 & gt 'Komp', 'sale'
+		act 'Rent out your city residential apartment':obkvsdam = 1 & gt 'komp', 'sale'
 	elseif obkvsdam > 0:
 		act 'Check if you got any replies':
 			cla
@@ -116,15 +116,15 @@ if $ARGS[0] = 'sale':
 					if sdaday > monthsEnd[sdamonth]:sdaday = monthsEnd[sdamonth]
 					home_owned[1] = 3
 					karta += predsumm
-					gt 'Komp', 'start'
+					gt 'komp', 'start'
 				end
 			end
 
-			act 'Leave this website':gt 'Komp', 'brows'
+			act 'Leave this website':gt 'komp', 'brows'
 		end
 	end
 
-	act 'Leave this website':gt 'Komp', 'brows'
+	act 'Leave this website':gt 'komp', 'brows'
 end
 
 if $ARGS[0] = 'porno':
@@ -136,12 +136,12 @@ if $ARGS[0] = 'porno':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
 		'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
 
-		act '<B>Close the browser</B>':gt 'Komp','start'
+		act '<B>Close the browser</B>':gt 'komp','start'
 	elseif sisterHere > 0 and sisboytrio = 0 and $loc = 'bedrPar':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 		'You shouldn''t watch porn with your sister in the room, she would notice for sure!'
 
-		act 'Leave this website':gt 'Komp', 'brows'
+		act 'Leave this website':gt 'komp', 'brows'
 	else
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 		'You go to a porn site and browse for a few minutes, trying to find a hot video.'
@@ -158,12 +158,12 @@ if $ARGS[0] = 'porno':
 			gs 'arousal', 'voyeur_sex', 60
 			gs 'stat'
 
-			act 'The video ends...':gt 'Komp', 'porno'
+			act 'The video ends...':gt 'komp', 'porno'
 		end
 
-		if pcs_horny >= 50:act 'Masturbate (0:15)':gt 'Komp', 'masturbate'
+		if pcs_horny >= 50:act 'Masturbate (0:15)':gt 'komp', 'masturbate'
 
-		act 'Leave this website':gt 'Komp', 'brows'
+		act 'Leave this website':gt 'komp', 'brows'
 	end
 end
 
@@ -194,18 +194,16 @@ if $ARGS[0] = 'masturbate':
 		gs 'stat'
 	end
 
-	act 'Stop masturbating':divanmastr = 0 & gt 'Komp', 'porno'
+	act 'Stop masturbating':divanmastr = 0 & gt 'komp', 'porno'
 
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	if pcs_horny >= 50:act 'Masturbate some more (0:15)':gt 'Komp', 'masturbate'
+	if pcs_horny >= 50:act 'Masturbate some more (0:15)':gt 'komp', 'masturbate'
 end
 
 if $ARGS[0] = 'pasians':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 20
 	elektro += 3
 	pcs_mood += rand(10, 20)
@@ -214,14 +212,12 @@ if $ARGS[0] = 'pasians':
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 	'You entertain yourself for about twenty minutes, playing a game of solitaire on the computer.'
 
-	act 'Play for another 20 minutes':gt 'Komp', 'pasians'
-	act 'Return to desktop':gt 'Komp', 'start'
+	act 'Play for another 20 minutes':gt 'komp', 'pasians'
+	act 'Return to desktop':gt 'komp', 'start'
 end
 
 if $ARGS[0] = 'znak':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 60
 	pcs_mood += 5
 	elektro += 3
@@ -239,9 +235,9 @@ if $ARGS[0] = 'znak':
 			'You click through dozens of profiles, before choosing a guy who you think would be a good match for Eugenia. You send him a message, asking if he wants to meet up somewhere.'
 			'Now the waiting game begins! Let''s hope you picked a nice guy for her...'
 
-			act 'Leave this website':gt 'Komp', 'brows'
+			act 'Leave this website':gt 'komp', 'brows'
 		end
-	elseif home_cur ! 1 and home_cur ! 3 and home_cur ! 4 and home_cur ! 5:
+	elseif home_cur ! 1 and home_cur ! 2 and home_cur ! 3 and home_cur ! 4 and home_cur ! 5:
 		pcs_mood += rand(5, 10)
 		'You spend time looking at the various profiles, but it won''t let you register unless you have your own home and it is set as your current home.'
 		'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
@@ -254,7 +250,7 @@ if $ARGS[0] = 'znak':
 				haraklover[lover_number] = 0
 				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
-				act 'Leave this website':gt 'Komp', 'brows'
+				act 'Leave this website':gt 'komp', 'brows'
 			end
 
 			act 'Look for a normal guy':
@@ -264,7 +260,7 @@ if $ARGS[0] = 'znak':
 				haraklover[lover_number] = 1
 				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
-				act 'Leave this website':gt 'Komp', 'brows'
+				act 'Leave this website':gt 'komp', 'brows'
 			end
 
 			act 'Look for a strong man':
@@ -274,17 +270,15 @@ if $ARGS[0] = 'znak':
 				haraklover[lover_number] = 2
 				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
-				act 'Leave this website':gt 'Komp', 'brows'
+				act 'Leave this website':gt 'komp', 'brows'
 			end
 		end
 	end
-	act 'Leave this website':gt 'Komp', 'brows'
+	act 'Leave this website':gt 'komp', 'brows'
 end
 
 if $ARGS[0] = 'kabtv':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 60
 	elektro += 3
 	internet -= 1
@@ -301,7 +295,7 @@ if $ARGS[0] = 'kabtv':
 			kabel = 0
 			karta -= 300
 			msg 'Your subscription has been cancelled and you can no longer watch the extra channels. The cable firm charges a one-time fee of 300 <b>₽</b> for disconnecting you.'
-			gt 'Komp', 'brows'
+			gt 'komp', 'brows'
 		end
 	elseif kabel = 0 and TV = 1:
 		'You currently do not have a cable subscription for your TV.'
@@ -309,7 +303,7 @@ if $ARGS[0] = 'kabtv':
 		act 'Get cable services for your TV':
 			cla
 			msg 'Unfortunately your TV is too old and crap for cable. You''ll have to get a modern TV first.'
-			gt 'Komp', 'brows'
+			gt 'komp', 'brows'
 		end
 	elseif kabel = 0 and TV >= 2:
 		'You currently do not have a cable subscription for your TV.'
@@ -318,18 +312,17 @@ if $ARGS[0] = 'kabtv':
 			cla
 			kabel = 1
 			msg 'Soon after you fill out the form, you get a confirmation message that your sign-up was successful. You should have the extra channels on your TV now.'
-			gt 'Komp', 'brows'
+			gt 'komp', 'brows'
 		end
 	else
 		'You don''t even have a TV!'
-		act 'Leave this website':gt 'Komp', 'brows'
+		act 'Leave this website':gt 'komp', 'brows'
 	end
-	act 'Leave this website':gt 'Komp', 'brows'
+	act 'Leave this website':gt 'komp', 'brows'
 end
 
 if $ARGS[0] = 'foto':
-	cla
-	*clr
+	*clr & cla
 	gs 'stat'
 
 	if internet <= 0:
@@ -337,7 +330,7 @@ if $ARGS[0] = 'foto':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
 		'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
 
-		act '<B>Close the browser</B>':gt 'Komp','start'
+		act '<B>Close the browser</B>':gt 'komp','start'
 
 	else
 
@@ -357,7 +350,7 @@ if $ARGS[0] = 'foto':
 				if fotsearchrand <= 7:
 					'Despite your best efforts, you don''t manage to find the girl this time.'
 
-					act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
+					act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
 				end
 
 				if fotsearchrand > 7:
@@ -368,7 +361,7 @@ if $ARGS[0] = 'foto':
 					if gerofotorand > 30:
 						'Your dreams of making a fortune are quickly shattered when you check out her profile. Cheap clothes, few friends, lives in a poor district of the city... this girl is not worth blackmailing.'
 
-						act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
+						act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
 					end
 
 					if gerofotorand >= 5 and gerofotorand <= 30:
@@ -377,7 +370,7 @@ if $ARGS[0] = 'foto':
 						'"Why not make her spend some of it on me?" you laugh to yourself, and begin to write a private message.'
 						'You send her a copy of the photo with the private message, and tell her to transfer a very modest amount of 5,000 <b>₽</b> to your bank account. If she doesn''t want that photo to be sent to her entire friends list (which you secured before sending the message), the money needs to be on your bank account within 48 hours.'
 
-						act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
+						act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
 					end
 
 					if gerofotorand < 5:
@@ -385,13 +378,13 @@ if $ARGS[0] = 'foto':
 						'You can barely believe it when you read her profile, this girl is a celebrity! It would be a major scandal if this photo got published!'
 						'You send her a copy of the photo with a private message, telling her to transfer 30,000 <b>₽</b> to your bank account. If she doesn''t want that photo to be sent to the press, the money needs to be on your bank account within 48 hours.'
 
-						act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
+						act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
 					end
 				end
 			end
 		end
 
-		act 'Leave this website':gt 'Komp', 'brows'
+		act 'Leave this website':gt 'komp', 'brows'
 	end
 end
 
@@ -402,49 +395,55 @@ if $ARGS[0] = 'rabota':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
 		'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
 
-		act 'Close the browser':gt 'Komp','start'
+		act 'Close the browser':gt 'komp','start'
 	else
 		minut += 60
 		internet -= 1
-		komprabota = rand(0,10)
+		komprabota = rand(0, 10)
 		if $loc = 'shulga_room':komprabota = rand(5, 15)
 		gs 'stat'
 
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 
-		if komprabota = 0:
+		if komprabota = 0 and gorodokkomp = 0:
 			'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Female underwear model, for a photoshoot. Pay: 2000 <b>₽</b> cash."'
 			'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
 
-			act 'Leave this website':gt 'Komp', 'brows'
-			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'	
 			if pcs_apprnc < 120:
 				'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
 			elseif pcs_apprnc >= 120:
 				act 'Accept the job and go there':gt 'qjob', 'var1'
 			end
-		elseif komprabota = 1:
+
+			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
+
+			act 'Leave this website':gt 'komp', 'brows'
+		elseif komprabota = 1 and gorodokkomp = 0:
 			'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Female underwear model, for a photoshoot. Pay: 2000 <b>₽</b> cash."'
 			'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
 
-			act 'Leave this website':gt 'Komp', 'brows'
-			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'
 			if pcs_apprnc < 120:
 				'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
 			elseif pcs_apprnc >= 120:
 				act 'Accept the job and go there':gt 'qjob', 'var2'
 			end
-		elseif komprabota > 1 and komprabota < 5:
+
+			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
+
+			act 'Leave this website':gt 'komp', 'brows'
+		elseif komprabota > 1 and komprabota < 5 and gorodokkomp = 0:
 			'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Good looking female model, posing for artwork. Must be able to stand still in one pose for a long time. Pay: 1000 <b>₽</b> cash."'
 			'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
 
-			act 'Leave this website':gt 'Komp', 'brows'
-			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'
 			if pcs_apprnc < 60:
 				'You consider it for a moment, but decide against it. You''re probably not pretty enough to be a model.'
 			elseif pcs_apprnc >= 60:
 				act 'Accept the job and go there':gt 'qjob', 'var3'
 			end
+
+			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
+
+			act 'Leave this website':gt 'komp', 'brows'
 		elseif komprabota > 4 and komprabota < 8 and camwhore = 0:
 			'You find a job vacancy, on a legit looking website. It reads: "Wanted! Webcam models. Flexible working hours. Click for more info."'
 			act 'Gather more information':
@@ -484,14 +483,14 @@ if $ARGS[0] = 'rabota':
 					'You don''t feel comfortable showing of your body.'
 				end
 
-				act 'Leave this website':gt 'komp','brows'
 				if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp','rabota'
+				act 'Leave this website':gt 'komp','brows'
 			end
 		else
 			'Unfortunately, you do not find any jobs you would consider doing.'
 
-			act 'Leave this website':gt 'komp','brows'
 			if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp','rabota'
+			act 'Leave this website':gt 'komp','brows'
 		end
 	end
 end
@@ -507,7 +506,7 @@ if $ARGS[0] = 'study':
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/study.jpg"></center>'
 	'You spend an hour on the IEM website, reading news articles and educational blogs. You feel a bit smarter afterwards.'
 
-	act 'Leave this website':gt 'komp','brows'
+	act 'Leave this website':gt'komp','brows'
 end
 
 if $ARGS[0] = 'kursak':
@@ -1707,7 +1706,7 @@ if $ARGS[0] = 'waitclients':
 				$orgasm_txt = 'It feels too good to stop! Before you know it, your fingers are repeatedly penetrating your ass and you moan excitedly, barely keeping yourself from screaming. You just had an anal orgasm in front of <<camclients>> users, completely free of charge! Oops...'
 				gs 'stat'
 			end
-			act'Continue':gt 'komp','waitclients'
+			act'Continue':gt'komp','waitclients'
 		end
 	end
 	if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 74:
@@ -1738,7 +1737,7 @@ if $ARGS[0] = 'waitclients':
 			gs 'arousal', 'porn', 2, 'exhibitionism'
 			gs 'stat'
 
-			act'Continue':gt 'komp','waitclients'
+			act'Continue':gt'komp','waitclients'
 		end
 	end
 	if sisterHere > 0 and $loc = 'bedrPar':
@@ -1794,8 +1793,6 @@ if $ARGS[0] = 'bank':
 	act 'Close your browser':gt 'komp', 'start'
 end
 
-
-
 if $ARGS[0] = 'fuckornot':
 	*clr & cla
 	if fuckornot = 2: fuckornot = 3