[fixed] infinite internet after using anushkas or shulgas computer, blocked action if sveta is at anushkas

locations/Komp.qsrc

@@ -1,6 +1,6 @@
 # Komp
 if $ARGS[0] = 'start':
-	cls
+	*clr & cla
 	elektro += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
@@ -16,14 +16,13 @@ if $ARGS[0] = 'start':
 
 	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':
+	if $loc = 'shulga_room' or $loc = 'anushapt':
+		internet_store = internet
 		internet = 100000
 		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'
-		end
+		if internet > 0: act 'Browse the internet':gt 'Komp', 'brows'
 	end
 
 	act 'Shut your computer down':
@@ -36,13 +35,22 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'brows':
-	cls
+	*clr & cla
 	gs 'stat'
+	
+	act 'Close the browser':
+		if $loc = 'shulga_room' or $loc = 'anushapt':
+			internet = internet_store
+			killvar 'internet_store'
+		end
+		gt 'Komp','start'
+	end
+	
 	if internet <= 0:
 		'<center><b>Browser</b></center>'
 		'<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.'
-		if camwhore = 1 and $loc ! 'shulga_room':
+		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'
 		end
@@ -54,7 +62,7 @@ if $ARGS[0] = 'brows':
 
 		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
 
-		act 'Search for porn (1:00)':gt 'Komp', 'porno'
+		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:
@@ -71,12 +79,10 @@ if $ARGS[0] = 'brows':
 
 		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':act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
+		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
-
-	act '<B>Close the browser</B>':gt 'Komp','start'
 end
 
 if $ARGS[0] = 'sale':
@@ -392,22 +398,18 @@ if $ARGS[0] = 'foto':
 end
 
 if $ARGS[0] = 'rabota':
-	cla
-	*clr
-
+	*clr & cla
 	if internet <= 0:
 		'<center><b>Browser</b></center>'
 		'<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 'Close the browser':gt 'Komp','start'
 	else
-
 		minut += 60
 		internet -= 1
 		komprabota = rand(0, 10)
-		if $LOC = 'shulga_room':komprabota = rand(5, 15)
+		if $loc = 'shulga_room':komprabota = rand(5, 15)
 		gs 'stat'
 
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'