# library_functions


if $ARGS[0] = 'read_book':
	if blizoruk = 500 or glassqw = 1:
		glassqw = 1
		msg '	The text blurs across the page. It seems you have poor eyesight. Maybe you should visit an ophthalmologist?'
		gt $loc, $loc_arg
	end
	blizoruk += 1
	minut += 60

	if $ARGS[1] ! 'porn':
		if pcs_nerd > 0:
			lastread = totminut
			lastreadday = daystart
			pcs_nerd += 1
		end
		if $ARGS[1] ! '':
			dynamic "
				if pcs_<<$ARGS[1]>> >= 50:
					<<$ARGS[1]>>_exp += rand(0, 1)
				elseif pcs_<<$ARGS[1]>> >= 25:
					<<$ARGS[1]>>_exp += rand(1, 2)
				else
					<<$ARGS[1]>>_exp += rand(1, 3)
				end"
		end
	end

elseif $ARGS[0] = 'read_magazine':
	if blizoruk = 500 or glassqw = 1:
		glassqw = 1
		msg '	The text blurs across the page. It seems you have poor eyesight. Maybe you should visit an ophthalmologist?'
		gt $loc, $loc_arg
	end
	pcs_mood += 5
	minut += 30
end





	!!=================================================!!
	!!                                                 !!
	!!                    READ ACTS                     !!
	!!                                                 !!
	!!=================================================!!


if $ARGS[0] = 'set_library_read_acts':
	act 'Read a book on science (1:00)':
		*clr & cla
		menu_off = 1
		gs 'library_functions', 'read_book'
		gs 'exp_gain', 'intel', rand(3,6) + rand(0, drugVars['mentats_dose'])
		grupvalue[3] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/science1.jpg"></center>'
		'You spend an hour reading, trying to make sense of all the clever propositions written inside and understand the subject it describes.'
		act 'Put the book back': gt $loc, $loc_arg
	end

	act 'Read an adventure novel (1:00)':
		*clr & cla
		menu_off = 1
		gs 'library_functions', 'read_book'
		pcs_mood = 100
		grupvalue[3] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/fiction' + rand(1,2) + '.jpg"></center>'
		'You spend an hour reading an adventure novel, immersing yourself in daring deeds and awesome twists.'
		act 'Put the book back': gt $loc, $loc_arg
	end

	act 'Read a fantasy novel (1:00)':
		*clr & cla
		menu_off = 1
		gs 'library_functions', 'read_book'
		pcs_mood = 100
		grupvalue[3] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/fantasy' + rand(1,9) + '.jpg"></center>'
		'You spend an hour reading a fantasy novel, rescuing damsels from dragons, digging for jewels with dwarves and performing word changing magic alongside elves and druids.'
		act 'Put the book back': gt $loc, $loc_arg
	end

	act 'Read a science fiction novel (1:00)':
		*clr & cla
		menu_off = 1
		gs 'library_functions', 'read_book'
		pcs_mood = 100
		grupvalue[3] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/scifi' + rand(1,6) + '.jpg"></center>'
		'You spend an hour reading a science fiction novel - flying off into space, travelling though time, running from rogue AI and creating monsters with your hunchbacked assistant.'
		act 'Put the book back': gt $loc, $loc_arg
	end

	act 'Read a romance novel (1:00)':
		*clr & cla
		menu_off = 1
		gs 'library_functions', 'read_book'
		pcs_mood = 100
		pcs_horny += 20
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/romance' + rand(1,20) + '.jpg"></center>'
		'You spend a very short hour reading a romance novel - choosing between a vampire or a werewolf, falling in love with an obscenely wealthy Grey... Several of the scenes are very steamy and you find yourself getting quite aroused.'
		act 'Put the book back': gt $loc, $loc_arg
	end

	temp = pcs_intel * 2 + pcs_sprt
	if temp < 100:
		$diff = 'hard'
	elseif temp < 150:
		$diff = 'medium'
	else
		$diff = 'easy'
	end
	gs 'willpower', 'misc', 'self', $diff
	if will_cost <= pcs_willpwr:
		act 'Read from the collected works of Leo Tolstoy (1:00) (<<will_cost>> Willpower)':
			*clr & cla
			menu_off = 1
			gs 'willpower', 'pay', 'self'
			killvar 'will_cost'

			gs 'library_functions', 'read_book'
			gs 'exp_gain', 'sprt', rand(3,6)
			grupvalue[3] += 2
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/pc/items/accessories/books/tolstoy.jpg"></center>'
			'You read the book for an hour. Tolstoy is certainly a classic writer, but he used a <i>lot</i> of words.'
			act 'Put the book back': gt $loc, $loc_arg
		end
	else
		act 'Read from the collected works of Leo Tolstoy (1:00) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'set_home_read_acts':
	act 'Read a book':
		*clr & cla
		gs 'stat'

		if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
			'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
		elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
			'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
		end

		if mc_inventory['fantasy_books'] <= 0 and BookVars['fantasy_pages'] <= 0 and mc_inventory['romance_books'] = 0 and BookVars['romance_pages'] = 0 and artem_borrowed_book = 0 and BookVars['artem_pages'] <= 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 mc_inventory['science_books'] > 0:
			if BookVars['science_pages'] <= 0:
				if $lib_book_loaned = 'a science book' and lib_book_read = 0:
					lib_book_read = 1
				end
				BookVars['science_pages'] = rand(400, 600)
				mc_inventory['science_books'] -= 1
			end

			if mc_inventory['science_books'] > 0: $book_text[] = '<<mc_inventory[''science_books'']>> science book' + iif(mc_inventory['science_books']=1, '', 's')
		end

		if mc_inventory['adventure_books'] > 0:
			if BookVars['adventure_pages'] <= 0:
				if $lib_book_loaned = 'an adventure novel' and lib_book_read = 0:
					lib_book_read = 1
				end
				BookVars['adventure_pages'] = rand(400, 600)
				mc_inventory['adventure_books'] -= 1
			end

			if mc_inventory['adventure_books'] > 0: $book_text[] = '<<mc_inventory[''adventure_books'']>> adventure novel' + iif(mc_inventory['adventure_books']=1, '', 's')
		end

		if mc_inventory['fantasy_books'] > 0:
			if BookVars['fantasy_pages'] <= 0:
				if $lib_book_loaned = 'a fantasy novel' and lib_book_read = 0:
					lib_book_read = 1
				end
				BookVars['fantasy_pages'] = rand(400, 600)
				mc_inventory['fantasy_books'] -= 1
			end

			if mc_inventory['fantasy_books'] > 0: $book_text[] = '<<mc_inventory[''fantasy_books'']>> fantasy novel' + iif(mc_inventory['fantasy_books']=1, '', 's')
		end

		if mc_inventory['scifi_books'] > 0:
			if BookVars['scifi_pages'] <= 0:
				if $lib_book_loaned = 'a science fiction novel' and lib_book_read = 0:
					lib_book_read = 1
				end
				BookVars['scifi_pages'] = rand(400, 600)
				mc_inventory['scifi_books'] -= 1
			end

			if mc_inventory['scifi_books'] > 0: $book_text[] = '<<mc_inventory[''scifi_books'']>> science fiction novel' + iif(mc_inventory['scifi_books']=1, '', 's')
		end

		if mc_inventory['romance_books'] > 0:
			if BookVars['romance_pages'] <= 0:
				if $lib_book_loaned = 'a romance novel' and lib_book_read = 0:
					lib_book_read = 1
				end
				BookVars['romance_pages'] = rand(400, 600)
				mc_inventory['romance_books'] -= 1
			end

			if mc_inventory['romance_books'] > 0: $book_text[] = '<<mc_inventory[''romance_books'']>> romance novel' + iif(mc_inventory['romance_books']=1, '', 's')
		end

		if arrsize('$book_text') > 0:
			'You still have <<func(''shortgs'', ''enumerate_list'', ''$book_text'')>> you haven''t started on.'
		end
		killvar '$book_text'

		if BookVars['science_pages'] > 0:
			act 'Read Science Book. There are <<BookVars[''science_pages'']>> pages left (1:00)':
				*clr & cla
				menu_off = 1
				temp_pages_read = (70 + rand(0, 40) + pcs_traits['nerd_status'] * 10)
				BookVars['science_pages'] -= temp_pages_read
				if BookVars['science_pages'] = 0: totalbook += 1

				gs 'exp_gain', 'intel', rand(3,6) + rand(0, drugVars['mentats_dose'])
				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 10

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					if BookVars['science_pages'] = 0:
						'You read the final chapters of the science book, completely immersed in the conclusions the authors make.'
					else
						'For an hour you enthusiastically read the book, completely immersed in absorbing the knowledge within. By the end you''ve read <<temp_pages_read>> pages.'
					end
				else
					pcs_mood += 10
					pcs_horny += 3
					if BookVars['science_pages'] = 0:
						'You read the final chapters of the adventure novel.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book': gt $loc, $loc_arg
			end
		end

		if BookVars['adventure_pages'] > 0:
			act 'Read Adventure Novel. There are <<BookVars[''adventure_pages'']>> pages left (1:00)':
				*clr & cla
				menu_off = 1
				temp_pages_read = (80 + rand(0, 40) + pcs_traits['nerd_status'] * 5)
				BookVars['adventure_pages'] -= temp_pages_read
				if BookVars['adventure_pages'] = 0: totalbook += 1

				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 10

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					if BookVars['adventure_pages'] = 0:
						'You read the final chapters of the adventure novel, completely immersed in the climactic ending to the authors entralling story.'
					else
						'For an hour you enthusiastically read the novel, completely immersed in the authors world. By the end you''ve read <<temp_pages_read>> pages.'
					end
				else
					pcs_mood += 10
					pcs_horny += 3
					if BookVars['adventure_pages'] = 0:
						'You read the final chapters of the adventure novel.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book': gt $loc, $loc_arg
			end
		end

		if BookVars['fantasy_pages'] > 0:
			act 'Read fantasy book. There are <<BookVars[''fantasy_pages'']>> pages left (1:00)':
				*clr & cla
				menu_off = 1
				temp_pages_read = (80 + rand(0, 40) + pcs_traits['nerd_status'] * 5)
				BookVars['fantasy_pages'] -= temp_pages_read
				if BookVars['fantasy_pages'] <= 0:
					totalbook += 1
					if lib_book_read = 1 and $lib_book_loaned = 'a fantasy novel': lib_book_read = 2
				end

				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100

					if pcs_stren > 1: stren_deg -= 1
					if pcs_vital > 5: vital_deg -= 1

					if BookVars['fantasy_pages'] = 0:
						'You read the final chapters of the fantasy novel, completely immersed in the climactic ending to the authors entralling story.'
					else
						'For an hour you enthusiastically read the novel, completely immersed in the authors world. By the end you''ve read <<temp_pages_read>> pages.'
					end

				else
					pcs_mood += 10
					if BookVars['fantasy_pages'] = 0:
						'You read the final chapters of the fantasy novel.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book':gt $loc, $loc_arg
			end
		end

		if BookVars['scifi_pages'] > 0:
			act 'Read Science Fiction Novel. There are <<BookVars[''scifi_pages'']>> pages left (1:00)':
				*clr & cla
				menu_off = 1
				temp_pages_read = (80 + rand(0, 40) + pcs_traits['nerd_status'] * 5)
				BookVars['scifi_pages'] -= temp_pages_read
				if BookVars['scifi_pages'] = 0: totalbook += 1

				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 10

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					if BookVars['scifi_pages'] = 0:
						'You read the final chapters of the science fiction novel, completely immersed in the climactic ending to the authors entralling story.'
					else
						'For an hour you enthusiastically read the novel, completely immersed in the authors world. By the end you''ve read <<temp_pages_read>> pages.'
					end
				else
					pcs_mood += 10
					pcs_horny += 3
					if BookVars['scifi_pages'] = 0:
						'You read the final chapters of the science fiction novel.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book': gt $loc, $loc_arg
			end
		end

		if BookVars['romance_pages'] > 0:
			act 'Read Romance Novel. There are <<BookVars[''romance_pages'']>> pages left (1:00)':
				*clr & cla
				menu_off = 1
				temp_pages_read = (80 + rand(0, 40) + pcs_traits['nerd_status'] * 5)
				BookVars['romance_pages'] -= temp_pages_read
				if BookVars['romance_pages'] = 0: totalbook += 1

				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 20

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					if BookVars['romance_pages'] = 0:
						'You read the final chapters of the romance novel, completely immersed in the climactic ending to the authors entralling story.'
					else
						'For an hour you enthusiastically read the novel, completely immersed in the authors world. By the end you''ve read <<temp_pages_read>> pages.'
					end
				else
					pcs_mood += 10
					pcs_horny += 10
					if BookVars['romance_pages'] = 0:
						'You read the final chapters of the romance novel.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book': gt $loc, $loc_arg
			end
		end



		if BookVars['artem_pages'] > 0:
			act 'Read the book your borrowed from Artem. There are <<BookVars[''artem_pages'']>> pages left (1:00) ':
				*clr & cla
				menu_off = 1
				temp_pages_read = (80 + rand(0, 40) + pcs_traits['nerd_status'] * 5)
				BookVars['artem_pages'] -= temp_pages_read
				if BookVars['artem_pages'] = 0: totalbook += 1

				gs 'library_functions', 'read_book'
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				if pcs_nerd > 0:
					pcs_mood = 100

					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1

					if BookVars['artem_pages'] = 0:
						'You read the final chapters of the book, completely immersed in the climactic ending to the authors entralling story'
					else
						'For an hour you enthusiastically read the book, completely immersed in the authors world. By the end you''ve read <<temp_pages_read>> pages.'
					end
				else
					pcs_mood += 10
					if BookVars['romance_pages'] = 0:
						'You read the final chapters of the book.'
					else
						'Over the course of an hour you read <<temp_pages_read>> pages.'
					end
				end

				act 'Close the book': gt $loc, $loc_arg
			end

		end

		if tractatus > 0:
			act 'Study Aleksei''s magical discourse on unarmed combat. You feel that there are <<tractatus>> uses left (0:15) ':
				if pcs_mana <= 400:
					msg '    The text makes no sense! You don''t have enough mana to trigger it''s magic, so is better if you rest to recover.'
					gt $loc, $loc_arg
					exit
				end

				*clr & cla
				minut += 15
				tractatus -= 1
				if tractatus = 0: totalbook += 1
				pcs_mood += 10
				pcs_mana -= 400
				gs 'exp_gain', 'def', rand(7,10)
				gs 'exp_gain', 'jab', rand(7,10)
				gs 'exp_gain', 'kick', rand(7,10)
				gs 'exp_gain', 'punch', rand(7,10)
				gs 'stat'

				if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_nude.jpg"></center>'
				elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_underwear.jpg"></center>'
				else
					'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_book_dressed.jpg"></center>'
				end

				'As you read the strange text, the words blur and suddenly you are <i>inspired</i>. Your mind fill with new ideas and revelations, the defects in your combat form polished and the knows at how inflict the maximum level of pain at the minimal cost... sharpened.'

				act 'Close the book': gt $loc, $loc_arg
			end
		end

		act ' Close the book': gt $loc, $loc_arg
	end

	if mc_inventory['mag_cooking'] = 0 and mc_inventory['mag_fashion'] = 0 and mc_inventory['mag_computer'] = 0 and mc_inventory['mag_biography'] = 0 and mc_inventory['mag_knitting'] = 0 and mc_inventory['mag_fitness'] = 0:
		'You have no magazines to read.'
	else
		act 'Read a magazine':
			*clr & cla
			gs 'stat'
			if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
				'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_magazine_nude.jpg"></center>'
			elseif $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype ! 'none':
				'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_magazine_topless.jpg"></center>'
			elseif $clothingworntype = 'nude' and $braworntype ! 'none' and $pantyworntype ! 'none':
				'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_magazine_underwear.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/pc/activities/reading/bed_magazine_dressed.jpg"></center>'
			end

			gs 'library_functions', 'set_magazine_acts'

			act 'Return': gt $loc, $loc_arg
		end
	end
end


if $ARGS[0] = 'set_magazine_acts':
	if mc_inventory['mag_cooking'] > 0:
		act 'Read your cooking magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_cooking'] -= 1
			'You relax for half an hour reading your cooking magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end

	if mc_inventory['mag_fashion'] > 0:
		act 'Read your fashion magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_fashion'] -= 1
			gs 'exp_gain', 'makupskl', 1
			'You relax for half an hour reading your fashion magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end

	if mc_inventory['mag_computer'] > 0:
		act 'Read your computing magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_computer'] -= 1
			gs 'exp_gain', 'compskl', 1
			'You relax for half an hour reading your computing magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end

	if mc_inventory['mag_biography'] > 0:
		act 'Read your biographical magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_biography'] -= 1
			'You relax for half an hour reading your biographical magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end

	if mc_inventory['mag_knitting'] > 0:
		act 'Read your knitting magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_knitting'] -= 1
			if pcs_sewng <= 100: gs 'exp_gain', 'sewng', rand(1,3)
			'You relax for half an hour reading your knitting magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end

	if mc_inventory['mag_fitness'] > 0:
		act 'Read your fitness magazine':
			cla & *nl
			gs 'library_functions', 'read_magazine'
			mc_inventory['mag_fitness'] -= 1
			'You relax for half an hour reading your fitness magazine.'
			act 'Return':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'set_read_porn_act':
	if mc_inventory['mag_porn'] > 0:
		act 'Read the porn magazine':
			if blizoruk = 500 or glassqw = 1:
				glassqw = 1
				msg '	The text blurs across the page, it seems you have poor eyesight. Probably from all the porn. Maybe you should visit an ophthalmologist?'
				gt $loc, $loc_arg
			end

			*clr & cla

			'<center><img <<$set_imgh>> src="images/pc/items/accessories/magazines/porn.jpg"></center>'

			if mc_inventory['mag_porn'] = 1:
				'<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
			else
				mc_inventory['mag_porn'] -= 1
				pcs_horny += 10
				minut += 5

				'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
			end
			gs 'stat'

			act 'Put away': gt $loc, $loc_arg
		end
	end
end





	!!=================================================!!
	!!                                                 !!
	!!                    BUY ACTS                     !!
	!!                                                 !!
	!!=================================================!!


if $ARGS[0] = 'set_book_buy_acts':
	if money >= 350:
		gs 'library_functions', 'set_single_book_buy_act', 'a science book', 'science', 350
		gs 'library_functions', 'set_single_book_buy_act', 'an adventure novel', 'adventure', 350
		gs 'library_functions', 'set_single_book_buy_act', 'a fantasy novel', 'fantasy', 350
		gs 'library_functions', 'set_single_book_buy_act', 'a science fiction novel', 'scifi', 350
		gs 'library_functions', 'set_single_book_buy_act', 'a romance novel', 'romance', 350
	end
end

! $ARGS[1]: Name of the book
! $ARGS[2]: Type of book to add to the mc_inventory
!  ARGS[3]: Cost of the book
if $ARGS[0] = 'set_single_book_buy_act':
	if ARGS[2] <= 0: ARGS[3] = 350
	$result = '
		act ''Buy <<$ARGS[1]>> (<<ARGS[3]>> <b>₽</b>)'':
			*clr & cla
			minut += 15
			money -= <<ARGS[3]>>
			mc_inventory[''<<$ARGS[2]>>_books''] += 1
			gs ''stat''

			''You buy <<$ARGS[1]>> for <<ARGS[3]>> <b>₽</b>.''

			act ''Leave'': gt $loc, $loc_arg
		end
	'
	dynamic $result
end




	!!=================================================!!
	!!                                                 !!
	!!                    LOAN ACTS                    !!
	!!                                                 !!
	!!=================================================!!


if $ARGS[0] = 'set_loan_acts':
	gs 'library_functions', 'return_book_act'
	gs 'library_functions', 'pay_debt_act'
	gs 'library_functions', 'loan_book_act'
end

if $ARGS[0] = 'return_book_act':
	if $lib_book_loaned ! '':
		'You''ve currently borrowed <<$lib_book_loaned>>.'
		if lib_debt <= 0:
			temp_loan_days_left = lib_debt / -50
			'You have <<temp_loan_days_left>> days left before you need to return it.'
		else
			'<font color="red">Your book is overdue!</font>'
		end

		act 'Return your loaned book':
			if lib_book_read = 0:
				if $lib_book_loaned = 'a fantasy novel':
					mc_inventory['fantasy_books'] -= 1
				end
			elseif lib_book_read = 1:
				if $lib_book_loaned = 'a fantasy novel':
					BookVars['fantasy_pages'] = 0
				end
			end
			$lib_book_loaned = ''
			if lib_debt <= 0: lib_debt = 0
			gt $loc, $loc_arg
		end
	end
end


if $ARGS[0] = 'pay_debt_act':
	if lib_debt > 0:
		'You owe an outstanding debt of <<lib_debt>> <b>₽</b> to the library.'
		if money < lib_debt and karta < lib_debt:
			'You don''t have enough money to pay your debt!'
		else
			if money >= lib_debt:
				act 'Pay your debt (cash)':
					money -= lib_debt
					lib_debt = 0
					gt $loc, $loc_arg
				end
			end
			if karta >= lib_debt:
				act 'Pay your debt (card)':
					karta -= lib_debt
					lib_debt = 0
					gt $loc, $loc_arg
				end
			end
		end
	end
end


if $ARGS[0] = 'loan_book_act':
	if $lib_book_loaned = '' and lib_debt = 0:
		!!There''s currently only code for fantasy novels (Is this still true? I''ve left everything but the fantasy novel out until confirmed)
		act 'Borrow a science book':
			*clr & cla
			menu_off = 1
			mc_inventory['science_books'] += 1
			$lib_book_loaned = 'a science book'
			lib_debt = -700
			!!Picture here
			'You find a science book that catches your interest and bring it to the librarian, who notes your name and the title of the book down before handing it to you.'
			'"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
			act 'Continue': gt $loc, $loc_arg
		end

		act 'Borrow an adventure novel':
			*clr & cla
			menu_off = 1
			mc_inventory['adventure_books'] += 1
			$lib_book_loaned = 'an adventure novel'
			lib_debt = -700
			!!Picture here
			'You find an adventure novel that catches your interest and bring it to the librarian, who notes your name and the title of the book down before handing it to you.'
			'"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
			act 'Continue': gt $loc, $loc_arg
		end

		act 'Borrow a fantasy novel':
			*clr & cla
			menu_off = 1
			mc_inventory['fantasy_books'] += 1
			$lib_book_loaned = 'a fantasy novel'
			lib_debt = -700
			!!Picture here
			'You find a fantasy novel that catches your interest and bring it to the librarian, who notes your name and the title of the book down before handing it to you.'
			'"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
			act 'Continue': gt $loc, $loc_arg
		end

		act 'Borrow a science fiction novel':
			*clr & cla
			menu_off = 1
			mc_inventory['scifi_books'] += 1
			$lib_book_loaned = 'a science fiction novel'
			lib_debt = -700
			!!Picture here
			'You find a science fiction novel that catches your interest and bring it to the librarian, who notes your name and the title of the book down before handing it to you.'
			'"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
			act 'Continue': gt $loc, $loc_arg
		end

		act 'Borrow a romance novel':
			*clr & cla
			menu_off = 1
			mc_inventory['romance_books'] += 1
			$lib_book_loaned = 'a romance novel'
			lib_debt = -700
			!!Picture here
			'You find a fantasy novel that catches your interest and bring it to the librarian, who notes your name and the title of the book down before handing it to you.'
			'"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
			act 'Continue': gt $loc, $loc_arg
		end
	end
end


--- library_functions ---------------------------------