uni_library.qsrc 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600
  1. # uni_library
  2. !!This is the file containing the university library
  3. killvar '$downlibrary'
  4. $downlibrary['read'] = {
  5. *clr & cla
  6. menu_off = 1
  7. if blizoruk = 500 or glassqw = 1:
  8. glassqw = 1
  9. msg ' The text blurs across the page. It seems you have poor eyesight. Maybe you should visit an ophthalmologist?'
  10. gt 'uni_library', 'start'
  11. end
  12. if pcs_nerd > 0:
  13. lastread = totminut
  14. lastreadday = daystart
  15. pcs_nerd += 1
  16. end
  17. minut += 60
  18. blizoruk += 1
  19. }
  20. if $ARGS[0] = 'start' or $ARGS[0] = '':
  21. $sexloc = 'uni_library'
  22. $location_type = 'public_indoors'
  23. cla & *clr
  24. minut += 5
  25. $loc = 'uni_library'
  26. $loc_arg = 'start'
  27. $menu_loc = 'uni_library'
  28. $menu_arg = 'start'
  29. menu_off = 0
  30. gs 'katja_meynold_schedule'
  31. !!gs 'albina_uni_schedule'
  32. gs 'stat'
  33. gs 'themes', 'indoors'
  34. '<center><b><font color="maroon">The University Library</font></b></center>'
  35. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/library.jpg"></center>'
  36. 'One of the medium sized buildings is the university''s library. It is three stories tall and filled with books, sections with tables scattered around to study or relax at and computer stations to help students with their studying.'
  37. if locat['katja'] = 29:
  38. 'You see '+iif(katjaQW['know_katja_uni'] = 0 and ($start_type['loc'] ! 'sg' and $start_type['magic'] = 'tg'), 'a cute redheaded girl', '<a href="exec:gt ''katja_uni'', ''library''">Katja</a>')+' sitting at one of the desks with a laptop and a pile of books.'
  39. end
  40. !!if locat['albina'] = 6:
  41. !!'You see '+iif(AlbinaQW['know_albina_uni'] = 0 and ($start_type['loc'] ! 'sg' and $start_type['magic'] = 'tg'), 'an attractive looking brunette', '<a href="exec:gt ''albina_uni'', ''library''">Albina</a>')+' searching the shelves for books.'
  42. !!end
  43. if week <= 4 and hour >= 15 and hour < 17:
  44. if meet_kendra = 1:
  45. 'You see <a href="exec:gt ''uni_library'', ''kendra''">Kendra</a> sitting at one of the tables studying some books.'
  46. else
  47. 'You see a pretty ebony <a href="exec:gt ''uni_library'', ''kendra''">girl</a> sitting at one of the tables studying some books.'
  48. end
  49. end
  50. if $start_type['loc'] = 'sg' and yearstart > 1 and week > 5 and hour >= 12 and hour < 14:
  51. if nataliaQW['library_day_check'] ! daystart:
  52. nataliaQW['library_day_check'] = daystart
  53. if rand(0,3) = 0: nataliaQW['library_day'] = daystart
  54. end
  55. if nataliaQW['library_day'] = daystart:
  56. 'You see your former classmate <a href="exec: gt ''natalia_pavlova'',''library''">Natalia Pavlova</a>.'
  57. end
  58. end
  59. if (week < 6 or hour < 23) and hour > 7:
  60. act 'Read a book':
  61. gt 'uni_library', 'read'
  62. end
  63. act 'Borrow a book':
  64. gt 'uni_library', 'loan'
  65. end
  66. if university['enrolled_in_semester'] > university['semester_passed']:
  67. act 'Study': gt 'uni_library', 'study'
  68. end
  69. act 'Wander around': gt 'uni_library', 'wander'
  70. else
  71. 'The library is closing for the night.'
  72. end
  73. act 'Leave':
  74. minut += 2
  75. gt 'uni_grounds', 'main'
  76. end
  77. end
  78. if $ARGS[0] = 'study':
  79. $sexloc = 'uni_library'
  80. cla & *clr
  81. minut += 5
  82. gs 'stat'
  83. '<center><b><font color="maroon">The University Library</font></b></center>'
  84. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/study' + rand(1,7) + '.jpg"></center>'
  85. 'You spend some time collecting some books on your subjects and grab one of the library''s laptops before finding a quiet place to sit.'
  86. if university['semester_week'] > 0:
  87. i = 0
  88. :study_loop
  89. if $class_list_institution[i] = 'uni_<<$university[''enrolled_in'']>>_semester_<<university[''enrolled_in_semester'']>>':
  90. if dyneval ('RESULT = class[''<<$class_list_institution[i]>>_<<$class_list_name[i]>>_optional_weekly_grade_gain'']') < dyneval ('RESULT = class[''<<$class_list_institution[i]>>_<<$class_list_name[i]>>_optional_weekly_max'']'):
  91. dynamic ' act ''Study for your <<$class_list_name[i]>> class (30 minuts)'': gt ''uni_library'', ''studying'', ''<<$class_list_institution[i]>>'', ''<<$class_list_name[i]>>'' '
  92. else
  93. *nl
  94. 'You don''t need to study any more this week for your <<$class_list_name[i]>> class.'
  95. end
  96. end
  97. i += 1
  98. if ARRSIZE('class_list_institution') >= i: jump 'study_loop'
  99. killvar 'i'
  100. elseif university['exam_week'] > 0:
  101. i = 0
  102. :exam_loop
  103. if $class_list_institution[i] = 'uni_<<$university[''enrolled_in'']>>_semester_<<university[''enrolled_in_semester'']>>' and func('uni_programs', 'exam', 'is_over', $class_list_name[i]) = 0:
  104. dynamic ' act ''Study intensely for your <<$class_list_name[i]>> exam (30 minuts)'': gt ''uni_library'', ''studying_exam'', ''<<$class_list_institution[i]>>'', ''<<$class_list_name[i]>>'' '
  105. end
  106. i += 1
  107. if ARRSIZE('class_list_institution') >= i: jump 'exam_loop'
  108. killvar 'i'
  109. end
  110. act 'Leave':
  111. minut += 5
  112. gt 'uni_grounds', 'main'
  113. end
  114. act 'Return to the entrance':
  115. minut += 2
  116. gt 'uni_library', 'start'
  117. end
  118. act 'Wander around': gt 'uni_library', 'wander'
  119. end
  120. if $ARGS[0] = 'studying':
  121. cla & *clr
  122. '<center><b><font color="maroon">The University Library</font></b></center>'
  123. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/study' + rand(1,7) + '.jpg"></center>'
  124. minut += 30
  125. gs 'grades', 'optional_activity_attribute', '<<$ARGS[1]>>', '<<$ARGS[2]>>', 'yes', min(pcs_intel+10,100)
  126. gs 'stat'
  127. 'You open the books and start studying for your <<$ARGS[2]>> class. The library is mostly quiet, but you hear occasional noises, some of them hard to make out and some of them fairly suspicious. Despite this, it is a good environment to study in and you can see a number of other students studying as well.'
  128. *nl
  129. if dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_grade_gain'']') < dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_max'']'):
  130. 'You study for half an hour and can tell that you will need to study more if you want to completly understand this week''s material.'
  131. else
  132. 'You study for half an hour and believe you now understand everything that is being covered this week.'
  133. end
  134. act 'Leave':
  135. minut += 5
  136. gt 'uni_grounds', 'main'
  137. end
  138. if (week < 6 or hour < 23) and hour > 7:
  139. act 'Return to entrance':
  140. minut += 2
  141. gt 'uni_library', 'start'
  142. end
  143. act 'Keep studying': gt 'uni_library', 'study'
  144. act 'Wander around': gt 'uni_library', 'wander'
  145. else
  146. 'The library is closing for the night.'
  147. end
  148. end
  149. if $ARGS[0] = 'studying_exam':
  150. cla & *clr
  151. '<center><b><font color="maroon">The University Library</font></b></center>'
  152. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/study' + rand(1,7) + '.jpg"></center>'
  153. !!Nerds like studying and so their mood improves a little. Everybody else gets in a worse mood by studying.
  154. gs 'exp_gain', 'intel', max(0,rand(-1,1))
  155. pcs_mood += (pcs_traits['nerd_status']*5 -10)
  156. minut += 30
  157. 'You open the books and start studying for your <<$ARGS[2]>> exam. The library is mostly quiet, but you hear occasional noises, some of them hard to make out and some of them fairly suspicious. Despite this, it''s a good environment to study in and you can see a number of other students studying as well.'
  158. if pcs_sleep < 5:
  159. no_study = 1
  160. 'You''re so tired that you''re constantly falling asleep. You get no studying done in this condition.'
  161. elseif pcs_sleep < 30:
  162. study_mod -= 20
  163. 'You''re very tired and have a hard time keeping your eyes open.'
  164. end
  165. if alko >= 6:
  166. no_study = 1
  167. 'You''re so drunk that your eyes can''t make sense of the letters written in the books. Holding your pen is also a problem.'
  168. elseif alko >= 4:
  169. study_mod -= 40
  170. 'You''re drunk and have trouble concentrating on reading the books. When you look at the notes you''ve made, a lot of them are incomprehensible.'
  171. elseif alko >= 2:
  172. study_mod -= 20
  173. 'You''re feeling a little tipsy, but feel like your studying is going great. However, when you look at your notes afterwards, you notice that a lot of them make no sense.'
  174. end
  175. if mentats_dose >= 1: study_mod += 30
  176. If pcs_mood < 50:
  177. study_mod -= 20
  178. 'You''re in a bad mood and it clearly affects your studying.'
  179. end
  180. if StrongNarkota > 0 or jointhigh > 0:
  181. study_mod -= 40
  182. 'You''re stoned, which makes it hard to concentrate on studying.'
  183. end
  184. if amphHigh > 0: study_mod += 20
  185. if pcs_energy < 5:
  186. study_mod -= 20
  187. 'You''re extremely hungry and it''s hard to think about anything other than food.'
  188. elseif pcs_energy < 10:
  189. study_mod -= 10
  190. 'You''re very hungry and it affects your ability to concentrate.'
  191. elseif pcs_energy < 20:
  192. study_mod -=10
  193. 'You''re hungry and your thoughts often drift to food, affecting your performance negatively.'
  194. end
  195. if pcs_horny > 90:
  196. study_mod -= 10
  197. 'You''re extremely horny and your thoughts often drift to sex, affecting your ability to study.'
  198. end
  199. if pain['total'] > 90:
  200. no_study = 1
  201. 'You''re in so much pain that you can''t study.'
  202. elseif pain['total'] > 75:
  203. study_mod -= 40
  204. 'You''re in so much pain that you have a very hard time concentrating on studying.'
  205. elseif pain['total'] > 60:
  206. study_mod -= 20
  207. 'Your pain is constantly bothering you and makes it hard to study.'
  208. end
  209. *nl
  210. study_mod = max(0,(rand(30 + study_mod,pcs_intel + study_mod) + 10)/33)
  211. if no_study = 1:
  212. 'You try to study for half an hour, but get nothing done.'
  213. else
  214. if study_mod = 0:
  215. 'You study for half an hour, but you don''t think you''re improving.'
  216. elseif study_mod = 1:
  217. 'You study for half an hour and think you''re improving a little.'
  218. elseif study_mod = 2:
  219. 'You study for half an hour and believe that you''re making good progress in getting ready for the exam.'
  220. else
  221. 'You study for half an hour and believe that you''re improving a lot.'
  222. end
  223. gs 'grades', 'grade_award', '<<$ARGS[1]>>', '<<$ARGS[2]>>', study_mod
  224. end
  225. gs 'stat'
  226. killvar 'study_mod'
  227. killvar 'nod_study'
  228. act 'Leave':
  229. minut += 5
  230. gt 'uni_grounds', 'main'
  231. end
  232. if (week < 6 or hour < 23) and hour > 7:
  233. act 'Return to the entrance':
  234. minut += 2
  235. gt 'uni_library', 'start'
  236. end
  237. act 'Keep studying': gt 'uni_library', 'study'
  238. act 'Wander around': gt 'uni_library', 'wander'
  239. else
  240. 'The library is closing for the night.'
  241. end
  242. end
  243. if $ARGS[0] = 'wander':
  244. $sexloc = 'uni_library'
  245. cla & *clr
  246. minut += 15
  247. gs 'stat'
  248. '<center><b><font color="maroon">The University Library</font></b></center>'
  249. temp = rand(1,20)
  250. if temp = 1:
  251. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/accident_panty_flash.jpg"></center>'
  252. 'As you wander around, you spot two girls in one of the rows of books. One of them starts climbing the shelf to get at a book out of reach and her short skirt rides up as she does, showing off her panties to everyone looking. You can''t help but smile as you continue on.'
  253. gs 'arousal', 'erotic_nudity', 3
  254. gs 'stat'
  255. elseif temp = 2:
  256. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/accident_pussy_flash.jpg"></center>'
  257. 'As you wander around, you spot a girl in one of the rows of books. She starts climbing the shelf to get at a book out of reach and her short skirt rides up as she does, showing off her pussy to everyone looking. You can''t help but smile as you continue on.'
  258. gs 'arousal', 'erotic_nudity', 3
  259. gs 'stat'
  260. elseif temp = 3:
  261. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/asian_titflash.jpg"></center>'
  262. 'As you wander around, you stop inside of one of the rows of books before it opens up into another one of the small study areas. Before you are several guys, sitting at a table encouraging an Asian girl to pull up her shirt. She keeps refusing, but you can tell she is getting aroused and excited by the attention they are giving her. Finally, blushing a little, she pulls up her shirt and holds it up, showing off her firm little breasts. The guys all grin and quietly clap before she pulls her shirt down and walks away blushing. You wonder if she regrets doing it before you continue on your way.'
  263. gs 'arousal', 'erotic_nudity', 3
  264. gs 'stat'
  265. elseif temp = 4:
  266. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/black_titflash.jpg"></center>'
  267. 'As you wander around, you stop inside of one of the rows of books before it opens up into another one of the small study areas. Before you are several guys, sitting at a table encouraging a chubby black girl to pull up her shirt. She keeps refusing, but you can tell she is getting aroused and excited by the attention they are giving her. A few seconds later, she finally exposes her large, saggy breasts to them. The guys all grin and quietly clap before she pulls her shirt down and goes back to studying. You wonder if she regrets doing it before you continue on your way.'
  268. gs 'arousal', 'erotic_nudity', 3
  269. gs 'stat'
  270. elseif temp = 5:
  271. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/girl_sleeping.jpg"></center>'
  272. 'As you wander around, you spot a girl with her head down on one of the work stations, apparently having fallen asleep while studying. She snores softly, a few of the other students occasionally glancing over and laughing at her softly. You shake your head and leave the girl to sleep in peace.'
  273. elseif temp = 6:
  274. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/laying_in_row.jpg"></center>'
  275. 'As you wander around, you start down one of the rows, only to find a girl lying in the middle of the aisle on her stomach, reading a book. She briefly glances up at you before going back to her book and ignoring you. Not able to easily get past her and not wanting to be rude by trying to step over her, even if she is being rude in the first place, you decide to just walk over to the next aisle and continue your wandering.'
  276. elseif temp = 7:
  277. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/naked_run.jpg"></center>'
  278. 'As you wander around, you glimpse what appears to be a naked girl dashing between two aisles of books. You glance into the aisle she went down and see her continue running down the aisle. You have no clue where her clothes are or why she''s doing it, but with how fast she''s running, you doubt she is enjoying it. She quickly disappears down another row of shelves.'
  279. gs 'arousal', 'erotic_nudity', 3
  280. gs 'stat'
  281. elseif temp = 8:
  282. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/naked_walk.jpg"></center>'
  283. 'As you turn to head down an aisle, you come nearly face to face with a pretty blond girl standing there naked. She just smiles at you and says hello. You respond in kind and she walks past you like nothing is wrong. You shake your head and continue on your way. A few seconds later, you come across a guy holding a girl''s clothes while glancing down each aisle. You can only assume he is looking for the naked girl you seen and so point in the direction you saw her. He smiles and nods before jogging in that direction.'
  284. gs 'arousal', 'erotic_nudity', 3
  285. gs 'stat'
  286. elseif temp = 9:
  287. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/pussy_flash.jpg"></center>'
  288. 'As you wander around, you go through one of the small study areas. Before you are several guys sitting at a table, encouraging a girl standing just inside of one of the aisles to flash them. She keeps refusing, but you can tell she is getting aroused and excited by the attention they are giving her. Finally, she lifts her skirt and flashes her neatly trimmed pussy at them. One of the guys briefly woops loudly, but is promptly hit by his friends and told to be quiet. Several others look over at the boys, but the girl has already dropped her skirt back in place and walks off with a grin on her face. You wonder if she regrets doing it as you continue on your way.'
  289. gs 'arousal', 'erotic_nudity', 3
  290. gs 'stat'
  291. elseif temp = 10:
  292. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/tit_flash.jpg"></center>'
  293. 'As you wander around, you go through one of the small study areas. Before you are several guys sitting at a table, encouraging a girl standing just inside of one of the aisles to flash them. She keeps refusing, but you can tell she is getting aroused and excited by the attention they are giving her. Finally, she lifts her shirt and flashes her breasts at them. One of the guys briefly woops loudly, but is promptly hit by his friends and told to be quiet. Several others look over at the boys, but the girl has already dropped her shirt back in place and walks off with a grin on her face. You wonder if she regrets doing it as you continue on your way.'
  294. gs 'arousal', 'erotic_nudity', 3
  295. gs 'stat'
  296. elseif temp = 11:
  297. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/events/sex/bj.jpg"></center>'
  298. 'As you walk around, you hear some moaning, and glancing down one of the rows of shelves, you see a boy sitting at one of the work stations. It takes a moment for you to notice the girl under the desk on her knees bobbing her head up and down in his lap. You watch for a few more seconds, feeling aroused at the scene before you decide to move on before you''re spotted.'
  299. gs 'arousal', 'erotic', 3
  300. gs 'stat'
  301. else
  302. '<center><img <<$set_imgh>> src="images/locations/city/island/university/library/library.jpg"></center>'
  303. 'You wander around the library for a while, looking at all the books. You pass by several of your fellow students, some quietly studying, reading or just looking through the bookshelves. You don''t come across anything of interest.'
  304. end
  305. act 'Leave':
  306. minut += 5
  307. gt 'uni_grounds', 'main'
  308. end
  309. if (week < 6 or hour < 23) and hour > 7:
  310. act 'Return to the entrance':
  311. minut += 2
  312. gt 'uni_library', 'start'
  313. end
  314. act 'Wander around':
  315. gt 'uni_library', 'wander'
  316. end
  317. else
  318. 'The library is closing for the night.'
  319. end
  320. end
  321. if $ARGS[0] = 'read':
  322. cla
  323. act 'Read a book on science (1:00)':
  324. dynamic $downlibrary['read']
  325. gs 'exp_gain', 'intel', rand(3,6) + (mentats_dose - rand(0,mentats_dose))
  326. grupvalue[3] += 1
  327. gs 'stat'
  328. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/science1.jpg"></center>'
  329. 'You spend an hour reading, trying to make sense of all the clever propositions written inside and understand the subject it describes.'
  330. act 'Put the book back': gt 'uni_library', 'read'
  331. end
  332. act 'Read an adventure novel (1:00)':
  333. dynamic $downlibrary['read']
  334. pcs_mood = 100
  335. grupvalue[3] += 1
  336. gs 'stat'
  337. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/fiction' + rand(1,2) + '.jpg"></center>'
  338. 'You spend an hour reading an adventure novel, immersing yourself in daring deeds and awesome twists.'
  339. act 'Put the book back': gt 'uni_library', 'read'
  340. end
  341. act 'Read a fantasy novel (1:00)':
  342. dynamic $downlibrary['read']
  343. pcs_mood = 100
  344. grupvalue[3] += 1
  345. gs 'stat'
  346. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/fantasy' + rand(1,9) + '.jpg"></center>'
  347. '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.'
  348. act 'Put the book back': gt 'uni_library', 'read'
  349. end
  350. act 'Read a science fiction novel (1:00)':
  351. dynamic $downlibrary['read']
  352. pcs_mood = 100
  353. grupvalue[3] += 1
  354. gs 'stat'
  355. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/scifi' + rand(1,6) + '.jpg"></center>'
  356. '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.'
  357. act 'Put the book back': gt 'uni_library', 'read'
  358. end
  359. act 'Read a romance novel (1:00)':
  360. dynamic $downlibrary['read']
  361. pcs_mood = 100
  362. pcs_horny += 20
  363. gs 'stat'
  364. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/romance' + rand(1,20) + '.jpg"></center>'
  365. '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.'
  366. act 'Put the book back': gt 'uni_library', 'read'
  367. end
  368. temp = pcs_intel * 2 + pcs_sprt
  369. if temp < 100:
  370. $diff = 'hard'
  371. elseif temp < 150:
  372. $diff = 'medium'
  373. else
  374. $diff = 'easy'
  375. end
  376. gs 'willpower', 'misc', 'self', $diff
  377. if will_cost <= pcs_willpwr:
  378. act 'Read from the collected works of Leo Tolstoy (1:00) (<<will_cost>> Willpower)':
  379. gs 'willpower', 'pay', 'self'
  380. killvar 'will_cost'
  381. dynamic $downlibrary['read']
  382. gs 'exp_gain', 'sprt', rand(3,6)
  383. grupvalue[3] += 2
  384. gs 'stat'
  385. '<center><img <<$set_imgh>> src="images/pc/items/accessories/books/tolstoy.jpg"></center>'
  386. 'You read the book for an hour. Tolstoy is certainly a classic writer, but he used a <i>lot</i> of words.'
  387. act 'Put the book back': gt 'uni_library', 'read'
  388. end
  389. else
  390. 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>'
  391. end
  392. act 'Go back': gt 'uni_library', 'start'
  393. end
  394. if $ARGS[0] = 'loan':
  395. cla
  396. if $lib_book_loaned ! '':
  397. 'You''ve currently borrowed <<$lib_book_loaned>>.'
  398. if lib_debt <= 0:
  399. temp_loan_days_left = lib_debt / -50
  400. 'You have <<temp_loan_days_left>> days left before you need to return it.'
  401. else
  402. '<font color="red">Your book is overdue!</font>'
  403. end
  404. act 'Return your loaned book':
  405. if lib_book_read = 0:
  406. if $lib_book_loaned = 'fantasy': f_book -= 1
  407. elseif lib_book_read = 1:
  408. if $lib_book_loaned = 'fantasy': fantasybook = 0
  409. end
  410. $lib_book_loaned = ''
  411. if lib_debt <= 0: lib_debt = 0
  412. gt 'uni_library', 'start'
  413. end
  414. end
  415. if lib_debt > 0:
  416. 'You owe an outstanding debt of <<lib_debt>> <b>₽</b> to the library.'
  417. if money < lib_debt and karta < lib_debt:
  418. 'You don''t have enough money to pay your debt!'
  419. else
  420. if money >= lib_debt:
  421. act 'Pay your debt (cash)':
  422. money -= lib_debt
  423. lib_debt = 0
  424. gt 'uni_library', 'loan'
  425. end
  426. end
  427. if karta >= lib_debt:
  428. act 'Pay your debt (card)':
  429. karta -= lib_debt
  430. lib_debt = 0
  431. gt 'uni_library', 'loan'
  432. end
  433. end
  434. end
  435. end
  436. if $lib_book_loaned = '' and lib_debt = 0:
  437. !!There''s currently only code for fantasy novels (Is this still true? I''ve left everything but the fantasy novel out until confirmed)
  438. !{act 'Borrow a science book':
  439. *clr & cla
  440. menu_off = 1
  441. s_book += 1
  442. $lib_book_loaned = 'a science book'
  443. lib_debt = -700
  444. !!Picture here
  445. '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.'
  446. '"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
  447. act 'Continue': gt 'uni_library'
  448. end
  449. act 'Borrow an adventure novel':
  450. *clr & cla
  451. menu_off = 1
  452. a_book += 1
  453. $lib_book_loaned = 'an adventure novel'
  454. lib_debt = -700
  455. !!Picture here
  456. '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.'
  457. '"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
  458. act 'Continue': gt 'uni_library'
  459. end}
  460. act 'Borrow a fantasy novel':
  461. *clr & cla
  462. menu_off = 1
  463. f_book += 1
  464. $lib_book_loaned = 'a fantasy novel'
  465. lib_debt = -700
  466. !!Picture here
  467. '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.'
  468. '"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
  469. act 'Continue': gt 'uni_library'
  470. end
  471. !{act 'Borrow a science fiction novel':
  472. *clr & cla
  473. menu_off = 1
  474. sf_book += 1
  475. $lib_book_loaned = 'a science fiction novel'
  476. lib_debt = -700
  477. !!Picture here
  478. '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.'
  479. '"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
  480. act 'Continue': gt 'uni_library'
  481. end
  482. act 'Borrow a romance novel':
  483. *clr & cla
  484. menu_off = 1
  485. r_book += 1
  486. $lib_book_loaned = 'a romance novel'
  487. lib_debt = -700
  488. !!Picture here
  489. '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.'
  490. '"You need to return it within 2 weeks. Every day that you''re late incurs a 50 <b>₽</b> fine."'
  491. act 'Continue': gt 'uni_library'
  492. end}
  493. end
  494. act 'Go back': gt 'uni_library', 'start'
  495. end
  496. if $ARGS[0] = 'kendra':
  497. *clr & cla
  498. menu_off = 1
  499. gs 'npc_relationship', 'modify', 'A82', 'like'
  500. gs 'exp_gain', 'chrsm', rand(1,2)
  501. minut += 5
  502. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom/ebony_girl_talk.jpg"></center>'
  503. 'You walk over to her table.'
  504. if meet_kendra = 1:
  505. if kendraQW['sub'] < 0:
  506. 'You''re about to take a seat when Kendra glares at you. "I don''t think so, Princess. We''re not friends and I want nothing to do with you. Go sit somewhere else."'
  507. 'You glance around and notice a few other students staring at you, so you move away from her and find a seat by yourself.'
  508. elseif kendraQW['sub'] >= 10:
  509. if npc_rel['A82'] >= 60:
  510. minut += 10
  511. 'You sit next to Kendra. You talk to her and she even lets you get a few words in, but she mostly treats you like a pet or someone simple, often making condescending comments towards you.'
  512. elseif npc_rel['A82'] <= 20:
  513. 'You''re about to sit next to Kendra when she glares at you. "We''re not friends. You''re nothing more than my white slave bitch to use and abuse as I see fit. You don''t come over to me in public, <i>ever</i>. Go sit somewhere else."'
  514. 'You glance around and notice a few other students staring at you, so you move away from her and find a seat by yourself.'
  515. else
  516. minut += 10
  517. 'You sit next to Kendra and try to have a conversation with her, but anytime you try and get a word in, she gives you a dirty look until you shut up and let her keep talking.'
  518. end
  519. else
  520. if npc_rel['A82'] >= 60:
  521. minut += 10
  522. 'You sit next to Kendra. You talk to her and she even lets you get a few words in, but she mostly treats you like a pet or someone simple, often making condescending comments towards you.'
  523. elseif npc_rel['A82'] <= 20:
  524. 'You''re about to sit next to Kendra when she looks over at you. "I don''t think so, Princess. We''re not friends. You''re nothing more than my toy to be used when and where I want, and now is not the time, so go sit somewhere else."'
  525. 'You glance around and notice a few other students staring at you, so you move away from her.'
  526. else
  527. minut += 10
  528. 'You sit next to Kendra. You try and have a conversation with her, but mostly she talks and you listen. Any time you try and get a word in edgewise she just gives you a dirty look until you shut up and let her keep talking.'
  529. end
  530. end
  531. act 'Leave Kendra be':
  532. minut += 2
  533. gt 'uni_library', 'start'
  534. end
  535. else
  536. if hotcat >= 5:
  537. meet_kendra = 1
  538. 'There''s something about this ebony girl that intrigues you, so you decide to sit next to her. "Hi, I''m <<$pcs_nickname>>."'
  539. 'She eyes you like a pair of shoes she might buy. "I''m Kendra, but you can call me Mistress," she replies in an exotic accent. "If you like, I can train you to become one of my slaves."'
  540. 'You''re taken aback by her comment. "Slaves?"'
  541. 'She smiles. "Yes, I have many sex slaves here, and I can train you to serve me well. If you''re interested, come to my dorm room. It''s on the eighth floor of the east dorm, room 808."'
  542. 'She then ignores you, leaving you to wonder if you should visit her dorm room and see what she was talking about...'
  543. act 'Leave Kendra be':
  544. minut += 2
  545. gt 'uni_library', 'start'
  546. end
  547. else
  548. 'There''s something about this ebony girl that intrigues you, so you decide to sit next to her. "Hi, I''m <<$pcs_nickname>>."'
  549. '"No. Not interested. Maybe if you do something about all of... ''this'', you can try again." Her hand indicates your entire person with languid disinterest.'
  550. 'You''re taken aback by her comment. "What?"'
  551. 'She rolls her eyes, believing your shocked silence to be stupidity. "Just go away."'
  552. 'She then ignores you, leaving you to wonder if she doesn''t find you attractive enough to get her attention. Maybe if you were better looking she would talk to you?'
  553. act 'Leave her be':
  554. minut += 2
  555. gt 'uni_library', 'start'
  556. end
  557. end
  558. end
  559. end
  560. --- uni_library ---------------------------------