Book borrowed from Artem can be read now.

locations/artemhome.qsrc

@@ -485,7 +485,8 @@ if $ARGS[0] = 'bookshelf':
 			gs 'stat'
 			artfall += 1
 			artem_borrowed_book = 1
-!!need code to add a book for Sveta to read other than the ones she can buy.
+			artembook = 5
+!!need code to add a book for Sveta to read other than the ones she can buy.			
 			gs 'stat'
 			'<center><img src="images/locations/pavlovsk/resident/apartment/artemhome/artemroom/bookshelf.jpg"></center>'
 			'You look through the books till you find one you like and then you turn towards Artem. "Hey do you mind if I borrow this to read?"'
@@ -500,23 +501,26 @@ if $ARGS[0] = 'bookshelf':
 			*clr & cla
 			minut += 2
 			artem_borrowed_book = 0
+			artembook = 0
 			gs 'stat'
 			'<center><img src="images/locations/pavlovsk/resident/apartment/artemhome/artemroom/bookshelf.jpg"></center>'
 			'"I brought your book back." You tell him as you take it out of your purse and put it back in place on the shelf, right where you got it from.'
 			'"Did you like it?"'
 			act 'I did':
+				cla
 				'"Yeah, it was good."'
 				'Artem''s face lights and he joins you at the bookshelf. "Yeah, I really liked that one too."'
 				act 'Look at more books':gt 'artemhome','bookshelf'
 				act 'Find something else to look at':gt 'artemhome','artemroom'
 			end
 			act 'Not really':
+				cla
 				if pcs_int <= 40:
 					'"It was a bit too complicated." You admit, embarrassed.'
 				else
 					'"It was a bit too bland for me. In the end it just bored me. I could guess at the outcome right at the start, and it turned out I was right."'
 				end
-				'Artem looks a bit crushed as you tell him this. He had clearly hoped you''d like the book.'
+				'Artem looks a bit crushed as you tell him this. He had clearly hoped you''d like the book.'				
 				act 'Look at more books':gt 'artemhome','bookshelf'
 				act 'Find something else to look at':gt 'artemhome','artemroom'
 			end

locations/events.qsrc

@@ -23,7 +23,7 @@ if $ARGS[0] = 'read':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
 
-		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'
+		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0 and artem_borrowed_book = 0 and artembook <= 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'
 
 		if f_book > 0:
 			if fantasybook <= 0:fantasybook = 5 & f_book -= 1
@@ -107,6 +107,42 @@ if $ARGS[0] = 'read':
 			end
 		end
 
+
+		if artembook > 0:
+			act 'Read the book your borrowed from Artem. There are <<artembook * 100>> pages left (1:00) ':
+				*clr & cla
+				artembook -= 1
+
+				if artembook = 0:totalbook += 1
+
+				minut += 60
+
+				if pcs_nerd > 0:
+					lastread = totminut
+					lastreadday = daystart
+					pcs_nerd += 1
+					blizoruk += 1
+				end
+
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
+
+				if pcs_nerd > 0:
+					pcs_mood = 100
+
+					if pcs_stren > 1:stren_deg -= 1
+					if pcs_vital > 5:vital_deg -= 1
+					'For an hour you enthusiastically read the book, completely immersed in the authors world.'
+				else
+					pcs_mood += 10
+					'For an hour you read the book.'
+				end
+
+				act 'Close the book':gt $loc, $loc_arg
+			end
+
+		end
+
 		act ' Close the book':gt $loc, $loc_arg
 	end