[Added] The a computer to the Library in Pav, and the ability to do your homework there. Also fixed such that you can't use Artem's computer for being a cam whore.

locations/Komp.qsrc

@@ -17,7 +17,7 @@ if $ARGS[0] = 'start':
 
 	gs 'unicoursework', 'start', 'komp', 'brows'
 
-	if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'albinahome':
+	if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'albinahome' or $loc = 'pav_library':
 		internet_store = internet
 		internet = 100000
 		act 'Browse the internet':gt 'komp', 'brows'
@@ -40,7 +40,7 @@ if $ARGS[0] = 'brows':
 	menu_off = 0
 	
 	act 'Close the browser':
-		if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'dachain' or $loc = 'albinahome':
+		if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'dachain' or $loc = 'albinahome' or $loc = 'pav_library':
 			internet = internet_store
 			killvar 'internet_store'
 		end
@@ -51,7 +51,7 @@ if $ARGS[0] = 'brows':
 		'<center><b>Browser</b></center>'
 		'<center><img <<$set_imgh>> src="images/pc/items/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' and $loc ! 'anushapt' and $loc ! 'albinahome':
+		if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt' and $loc ! 'artemhome' and $loc ! 'albinahome' and $loc ! 'pav_library':
 			'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
@@ -63,7 +63,7 @@ if $ARGS[0] = 'brows':
 
 		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'komp', 'sale'
 
-		if $loc ! 'anushapt' and $loc ! 'albinahome': act 'Search for porn (1:00)':gt 'komp', 'porno'
+		if $loc ! 'anushapt' and $loc ! 'albinahome' and $loc ! 'pav_library': 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:
@@ -81,7 +81,7 @@ if $ARGS[0] = 'brows':
 		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' and $loc ! 'albinahome':act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
+		if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt' and $loc ! 'artemhome' and $loc ! 'albinahome' and $loc ! 'pav_library':act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
 		if (storyline = 1 and SchoolAtestat = 0) or func('uniutil', 'student', 'enrolled'):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

locations/pav_library.qsrc

@@ -12,6 +12,11 @@ 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.'
+*nl
+'Between the bookshelves are some tables which can be used for studying. Some of them have <a href="exec: gt ''Komp'',''start''">computers</a> for public use.'
+if lernHome > 0:
+'You could do your homework with the help of one of the computers'
+end
 
 act 'Leave': gt 'pav_commcenter'
 
@@ -119,6 +124,27 @@ if hour >= 8 and hour < 18:
 		'You read the book for an hour. Tolstoy is certainly a classic writer, no one denies this, but he used a shit-load of words.'
 		act 'Put the book back': gt 'pav_library'
 	end
+	gs 'willpower', 'misc', 'self', iif(grupTipe = 4 and traits['nerd_status'] = 0, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium'))
+	if traits['nerd_status'] = 2: will_cost = will_cost / 2
+	if lernHome > 0 and (will_cost <= pcs_willpwr or traits['nerd_status'] = 3):
+		act 'Do your homework (1:00'+iif(traits['nerd_status'] = 3, '', ' and <<will_cost>> Willpower')+')':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/library/homework.jpg"></center>'
+			minut += 60
+			pcs_mood += 5 * traits['nerd_status']
+			lern += 1
+			gs 'willpower', 'misc', 'self', iif(grupTipe = 4, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium'))
+			if traits['nerd_status'] = 2: will_cost = will_cost / 2
+			if traits['nerd_status'] < 3: gs 'willpower', 'pay', 'self'
+			gs'stat'
+			gs 'grades', 'homework', 'school', 'yes', 1, 0, 0
+			'You sit down at one of the tables with a a computer and use it to help you do your homework'
+			'After an hour you have '+iif(lernHome = 0, 'completed', 'done a part of')+' your homework.'
+			act 'Get up form the table': gt 'pav_library'
+		end
+	elseif lernHome > 0 and will_cost > pcs_willpwr:
+		act 'Do your homework (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 else
 	'The library is closed.'
 end