Moved all the potential homes to access the internet the new way.

locations/HotelRoom.qsrc

@@ -53,6 +53,10 @@ if $ARGS[0] = 'better':
 	$location_type = 'private'
 	gs 'themes', 'indoors'
 	gs 'stat'	
+	if komp = 1:
+		!!TODO: Can Sveta do camshow from the hotelroom?
+		gs 'internet_mobile', 'set_access', 'free', 'nocamshow'
+	end
 	'<center><b><font color = maroon>Your luxury room</font></b></center>'
 	'<center>You have paid to stay for <<hotelRoomDays[$hotel] - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'

locations/bedr2x.qsrc

@@ -29,7 +29,13 @@ if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
 *nl
 'Against the wall is a table with a <a href="exec:gt ''mirror'',''start''">mirror</a> above it.'
 *nl
-if komp = 1:'On the other bedside table is your <a href="exec:gt ''Komp'',''start''">laptop</a>.'
+!! Computer and internet use.
+if komp = 1:
+	!!TODO: Need to build a check for husband being at home or something.			
+	gs 'internet_mobile', 'set_access'
+	'On the other bedside table is your <a href="exec:gt ''Komp'',''start''">laptop</a>.'
+end
+
 *nl
 if husbandrinkday = daystart:
 	if husbanstrapon = 1:'Your husband is still passed out drunk, after you used an anal plug on him.'

locations/city_house_res_misc.qsrc

@@ -143,7 +143,10 @@ if $ARGS[0] = 'livroom':
 
 	'A place where you can watch <a href="exec:gt ''TV'',''start''">TV</a>, or relax on your <a href="exec:gt ''divan'', ''start''">sofa</a>.'
 
+	!! Computer and internet use.
 	if komp = 1:
+		gs 'internet_mobile', 'set_access'
+		!!TODO: Need to build a check for husband being at home or something.			
 		'There''s a <a href="exec:gt ''Komp'', ''start''">computer</a> sitting on your <a href="exec:gt ''stol'', ''start''">desk</a>.'
 	else
 		'A small <a href="exec:gt ''stol'', ''start''">desk</a> is against the wall.'

locations/city_mansion_residence_2.qsrc

@@ -249,6 +249,8 @@ if $ARGS[0] = 'yoffice':
 
 	if ymanrem[12] = 2:
 		'Your work room where you spend most of the time signing important papers and handling your business needs.'
+		!!TODO: Code to check if Sveta is not alone
+		gs 'internet_mobile', 'set_access', 'free'
 		'There''s a <a href="exec:gt ''Komp'', ''start''">computer</a> sitting on your antique <a href="exec:gt ''stol'', ''start''">desk</a>.'
 
 	!! IMPORTANT: if there is anything added later that could mean that others are in the room, gs 'music_actions', 'not_alone' should be added with the correct conditions.

locations/dachain.qsrc

@@ -9,7 +9,6 @@ if $args[0] = 'start':
 	$menu_loc = 'dachain'
 	$menu_arg = 'start'
 	menu_off = 0
-	internet_free = 0
 
 	killvar '$locclass'
 	gs 'themes', 'indoors'
@@ -31,7 +30,10 @@ if $args[0] = 'start':
 	if stol = 1:$stol = 'a new <a href="exec:gt ''stol'', ''start''">table</a>'
 	'In front of the window there is <<$stol>>.'
 	*nl
-	if komp = 1:'Your <a href="exec: internet_free = 2 & gt ''Komp'',''start''">laptop</a> is on the table, but there is no internet coverage here.'
+	if komp = 1:
+		gs 'internet_mobile', 'set_access'
+		'Your <a href="exec: internet_free = 2 & gt ''Komp'',''start''">laptop</a> is on the table, but there is no internet coverage here.'
+	end
 	*nl
 	
 	if hour >= 6 and hour <= 20 and etoexhib = 11:'Kopashatsya working in the garden, hmm... maybe sometime <a href="exec:gt ''etoexhib'', ''pos10''">motivate</a> for them to work quicker and smarter.'

locations/mey_home.qsrc

@@ -231,7 +231,14 @@ if $ARGS[0] = '3':
 	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b> during the week and <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b> during the weekend. It is currently turned '+iif(budilnikOn = 0, '<a href="exec: budilnikOn = 1 & gt $loc, $loc_arg">OFF</a>.', '<a href="exec: budilnikOn = 0 & gt $loc, $loc_arg">ON</a>.')
 	*nl
 	'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door.'
-	if komp = 1:'Your <a href="exec:gt ''Komp'',''start''">laptop</a> is on the desk.'
+
+	!! Computer and internet use.
+	if komp = 1:
+		!! TODO: for now, if Sveta is at the Meynolds' she can't use their internet for porn and camshows. 
+		!! Need an agreement on the final options with everyone
+		gs 'internet_mobile', 'set_access', 'free', 'noporn', 'nocamshow'
+		'Your <a href="exec:gt ''Komp'',''start''">laptop</a> is on the desk.'
+	end
 
 	act 'Return to the hallway':
 		if ($clothingworntype = 'nude' or PCloswimwear = 1):

locations/nichBedroomServant.qsrc

@@ -30,6 +30,8 @@ if $ARGS[0] = '' or $ARGS[0] = 'start' or $ARGS[0] = 'return':
 	'Your bedroom is fairly large, considering you''re only an employee. There is a small <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'
 	'Half a wall is taken up by an expensive-looking <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing). There''s a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> next to it.'
 	if komp = 1:
+		!! TODO: Sveta can't do camshows from this place - unless Gala makes her at some point, but unlikely.
+		gs 'internet_mobile', 'set_access', 'free', 'nocamshow'
 		$komp = ' with your <a href="exec:gt ''Komp'', ''start''">laptop</a>.'
 	else
 		$komp = '.'

locations/pav_shared_apt.qsrc

@@ -735,7 +735,12 @@ if $ARGS[0] = 'pcsRoom':
 	gs 'exercise', 'start'
 	*nl
 
-	if komp = 1:'Your <a href="exec:gorodokKomp = 1 & gt ''Komp'',''start''">laptop</a> is sitting on small table.'
+	if komp = 1:
+		!! Sveta can't do camshows unless she is blowing the guys for rent.
+		gs 'internet_mobile', 'set_access', 'free', 'nocamshow'
+		if servitudeLvl = 2: access['nocamshow'] = 0
+		'Your <a href="exec:gorodokKomp = 1 & gt ''Komp'',''start''">laptop</a> is sitting on small table.'
+	end
 
 	if vcard > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
 	if card > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'

locations/sitr.qsrc

@@ -38,8 +38,11 @@ if TV = 2:$TV = 'a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>'
 if divan = 0:$divan = '<a href="exec:gt ''divan'', ''start''">an old sofa</a>'
 if divan = 1:$divan = '<a href="exec:gt ''divan'', ''start''">a luxurious leather sofa</a>'
 if komp = 0:$komp = ''
-if komp = 1:$komp = ' with a <a href="exec:gt ''Komp'', ''start''">computer</a> on top of it'
-
+if komp = 1:
+	!!TODO: Code to check if Sveta is not alone or something.
+	gs 'internet_mobile', 'set_access'
+	$komp = ' with a <a href="exec:gt ''Komp'', ''start''">computer</a> on top of it'
+end
 
 ! WD: Missing Code to buy / Upgrade table, Uninitialised ~ 'stol'
 if stol = 0:$stol = 'an old wooden <a href="exec:gt ''stol'', ''start''">table</a>'