1
1

univer.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372
  1. # univer
  2. if $ARGS[0] = 'start':
  3. $sexloc = 'univer'
  4. $location_type = 'public_indoors'
  5. cla
  6. clr
  7. *clr
  8. minut += 5
  9. gs 'stat'
  10. if night_mode = 1:
  11. fcolor = rgb(255, 255, 255)
  12. bcolor = rgb(0, 0, 0)
  13. lcolor = rgb(106, 90, 205)
  14. else
  15. fcolor = rgb(0, 0, 0)
  16. bcolor = rgb(255, 255, 255)
  17. lcolor = rgb(106, 90, 205)
  18. end
  19. '<center><b><font color="maroon">The University</font></b></center>'
  20. '<center><img <<$set_imgh>> src="images/locations/city/island/university/univer.jpg"></center>'
  21. if student = 0 and abiturient = 0:'You can take preparatory classes at the University for 15,000 <b>₽</b>.'
  22. 'Admission examinations for the University are held in <b>August</b>.'
  23. 'The lectures begin at <b>08:00</b>. You won''t be allowed to attend if late.'
  24. 'First semester: September, October, November.'
  25. 'Second semester: February, March, April.'
  26. if student > 0:'You have completed <<kurs>> assignments for <<semestr>>.'
  27. if abiturient = 1:'You''ve enrolled in the preparatory classes.'
  28. act 'Leave':
  29. cla
  30. minut += 5
  31. gt 'island'
  32. end
  33. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and (age >= 17 or fakepassport = 1):
  34. ''
  35. act 'Pay for the preparatory classes (15,000 <b>₽</b>)':
  36. cla
  37. minut += 5
  38. money -= 15000
  39. abiturient = 1
  40. 'You paid 15,000 <b>₽</b> for the preparatory classes. They are held every weekday at <b>21:00</b>.'
  41. act 'Move away':gt 'univer', 'start'
  42. end
  43. elseif abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  44. act 'Attend preparatory class (1:00)':
  45. cla
  46. *clr
  47. minut += 60
  48. abiturient += 1
  49. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  50. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom.jpg"></center>'
  51. 'You attend the preparatory class for an hour, you pay close attention to what is being said and make notes for the entrance examination later on.'
  52. act 'Leave class':gt 'univer', 'start'
  53. end
  54. end
  55. if month = 8 and student = 0 and diplom = 0 and (age >= 17 or fakepassport = 1):
  56. 'You can try to take an entrance exam.'
  57. act 'Take the entrance exam (1:00)':
  58. cla
  59. *clr
  60. minut += 60
  61. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom.jpg"></center>'
  62. if pcs_intel + abiturient >= 60:
  63. student = 1
  64. kurs = 1
  65. semestr = 1
  66. abiturient = 0
  67. 'You have successfully passed the entrance exam and can attend the University in September.'
  68. else
  69. 'You have failed the entrance exam. You need to study harder...'
  70. end
  71. act 'Leave class':gt 'univer', 'start'
  72. end
  73. end
  74. if week < 6 and student > 0 and month > 8 and month < 12:
  75. !! 1st semester
  76. act 'Visit the Dean':
  77. cla
  78. if semestr = 2 and examen = 0:examen = 2
  79. gt 'univer', 'dekanat'
  80. end
  81. elseif week < 6 and student > 0 and month > 1 and month < 5:
  82. !! 2nd semester
  83. act 'Visit the Dean':
  84. cla
  85. if semestr = 1 and examen = 0:examen = 2
  86. gt 'univer', 'dekanat'
  87. end
  88. elseif week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
  89. !! 1st semester exams
  90. act 'Do the exam':gt 'univer', 'examen'
  91. elseif week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
  92. !! 2nd semester exams
  93. act 'Do the exam':gt 'univer', 'examen'
  94. end
  95. end
  96. if $ARGS[0] = 'dekanat':
  97. $sexloc = 'univer'
  98. cla
  99. clr
  100. *clr
  101. minut += 5
  102. if examen = 1:
  103. examen = 0
  104. if semestr = 2:
  105. semestr = 1
  106. kurs += 1
  107. elseif semestr = 1:
  108. semestr = 2
  109. end
  110. elseif examen = 2:
  111. student = 0
  112. kurs = 0
  113. semestr = 0
  114. abiturient = 0
  115. stipuha = 0
  116. lektor = 0
  117. 'You got expelled from the University.'
  118. end
  119. if kurs = 2:
  120. diplom = 1
  121. student = 0
  122. kurs = 0
  123. semestr = 0
  124. abiturient = 0
  125. stipuha = 0
  126. 'Congratulations, you''ve earned your degree!'
  127. end
  128. gs 'stat'
  129. '<center><b><font color="maroon">Dean</font></b></center>'
  130. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dekanat.jpg"></center>'
  131. 'You have completed <<kurs>> assignments for <<semestr>>.'
  132. 'Before the semester ends you must at least complete <<kurs>> of classes. It is positively looked upon if you manage to complete more.'
  133. if kursovikD > 0:'You''ve passed <<kursovikD>> assignments.'
  134. act 'Leave the Dean''s office':gt 'univer', 'start'
  135. if hour < 8 and student > 0:
  136. act 'Attend the lecture (6:00)':
  137. cla
  138. *clr
  139. minut += 360
  140. hour = 14
  141. minut = 0
  142. lektor += 1
  143. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  144. gs 'stat'
  145. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  146. 'You attend the lecture, taking notes as the professor calmly goes through the course material.'
  147. zanrand = rand(0, 9)
  148. if zanrand = 0:
  149. minut += 60
  150. 'During the lecture the professor asks you a question that you do not have the answer for, he asks that you stay behind after the class.'
  151. 'As the class finishes, you stay behind.'
  152. !!expanded this scene a lot, check code.
  153. act 'Remain in the classroom':
  154. cla
  155. *clr
  156. gs 'stat'
  157. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  158. 'The professor patiently explains some of the material he went through in the class, in a effort to help you better understand, so you don''t fall too far behind.'
  159. act 'Leave':gt 'univer', 'dekanat'
  160. act 'Seduce':
  161. cla
  162. *clr
  163. gs 'npcgeneratec', 0, 'professor Krupin', 51
  164. dick = 15
  165. $dick_girth = 'well proportioned'
  166. gs 'boyStat', $npclastgenerated
  167. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay.jpg"></center>'
  168. 'Feeling pressured, you move over to his desk and take a seat on it, making sure he has a good view of your legs and short skirt. You grab his scarf and slide it back and forth across his neck as you open your legs, giving him a glimpse up your skirt, "This is all so "hard" to understand, but maybe if I do you a favor, you can repay me by giving me a passing grade." You don''t have a lot of time to be subtle, as you need to make sure you''re going to pass the class before you leave.'
  169. 'For a moment he seems insecure, as he looks around the room, "Well what do you have in mind?"'
  170. 'You bite your lower lip seductively and you know you have him trapped. You pull him by his scarf till he is standing, while you get on all fours. You look up at him, "Let me show you, professor Krupin."'
  171. gs 'arousal', 'foreplay', 5
  172. gs 'stat'
  173. act 'Give him a blow job':
  174. cla
  175. *clr
  176. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay1.jpg"></center>'
  177. 'You undo his belt and pants, letting them drop down to his knees. You start stroking his cock and it doesn''t take long until it''s grown hard in your hand. You lick up and down along the shaft until you wrap your lips around his cock and you start bobbing your head up and down the shaft while stroking it with your hand as well.'
  178. 'He reaches over you and pulls up your skirt, pulling aside your panties. He rubs your pussy till he gets it wet and then he slips is fingers inside of you and starts finger fucking your pussy while you suck on his cock, causing you to moan in pleasure.'
  179. gs 'arousal', 'vaginal_finger', 10
  180. gs 'arousal', 'bj', 10
  181. minut -= 10
  182. gs 'stat'
  183. act 'A for sure':
  184. cla
  185. *clr
  186. gs 'cum_call', 'face', $boy, 1, '', '', 20
  187. gs 'cum_call', 'breasts', $boy, 1, '', '', 20
  188. gs 'arousal', 'end'
  189. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay2.jpg"></center>'
  190. 'He begins pulling off your clothes, and you present no resistance as he gets you completely naked. Either your mouth or hand is constantly pleasuring his cock, often using both ways at once. Once you are completely naked and back in place he goes back to fingering your pussy.'
  191. 'You know he is yearning to fuck you, but you want to save that in case you start doing even worse in class and need to raise your grades again. So you intensify your efforts on sucking him off and start to deep throating him, all while fondling his balls.'
  192. 'He starts groaning, as he''s edging but trying to hold back. Suddenly he says, "I''m about to cum, I want to cum all over your face." At those words you let go of his cock and instead start stroking him with your hand. Soon he is spurting loads of sperm all over your face and some of it splattering on your perky breasts, once the last spurt has splattered on your body, you sit up to give him a perfect view of your naked body, covered in his cum. You grin at him. "So about my grades..."'
  193. 'He collapses back in his chair and nods his head, "Yes yes, don’’t worry you did well this time, you little minx." With a final smile and wink you gather you stuff and get dressed and head out of classroom.'
  194. gs 'arousal', 'hj', 5
  195. gs 'arousal', 'bj', 5, 'deepthroat'
  196. gs 'stat'
  197. minut -= 5
  198. act 'Leave':gt 'univer', 'dekanat'
  199. end
  200. end
  201. end
  202. end
  203. !!end of first scene expansion
  204. elseif zanrand = 1:
  205. minut += 60
  206. 'During the lecture the professor asks you a question that you do not have the answer for, you don''t know the answer but you hear someone smirking behind. Without any hesitation the professor calls the person out and tells the two of you to stay behind after the class.'
  207. 'As the class finishes, the two of you stay behind.'
  208. act 'Remain in the classroom':
  209. cla
  210. *clr
  211. gs 'stat'
  212. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  213. 'The professor patiently explains some of the material they went through in the class, in a effort to help you better understand, so you don''t fall too far behind. While he tells the other girl that it''s not polite to do that in class and she needs to properly behave.'
  214. act 'Leave':gt 'univer', 'dekanat'
  215. !!expanding scene two. check code.
  216. act 'Seduce':
  217. cla
  218. *clr
  219. gs 'npcgeneratec', 0, 'professor Krupin', 51
  220. dick = 15
  221. $dick_girth = 'well proportioned'
  222. gs 'boyStat', $npclastgenerated
  223. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay.jpg"></center>'
  224. 'Feeling pressured, you move over to his desk and take a seat on it, making sure he has a good view of your legs and short skirt. You grab his scarf and slide it back and forth across his neck as you open your legs, giving him a glimpse up your skirt, "This is all so "hard" to understand, but maybe if I do you a favor, you can repay me by giving me a passing grade." You don''t have a lot of time to be subtle, as you need to make sure you''re going to pass the class before you leave.'
  225. 'For a moment he seems insecure, as he looks around the class, glancing at the other girl, "You should stop that..."'
  226. 'You bite your lower lip seductively and you know you have him trapped. You pull him by his scarf till he is standing, while you get on all fours. You look up at him, "Let me show you, professor Krupin."'
  227. 'The other girl''s eyes almost pop out as she realize what you are about to do, she looks at the professor and then the exit and seems unsure what to do.'
  228. gs 'arousal', 'foreplay', 5
  229. gs 'stat'
  230. act 'Give him a blow job':
  231. cla
  232. *clr
  233. gs 'arousal', 'bj', 10
  234. gs 'stat'
  235. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone.jpg"></center>'
  236. 'You undo his belt and pants, letting them drop down to his knees. You start stroking his cock and it doesn''t take long until it''s grown hard in your hand. You lick up and down along the shaft until you wrap your lips around his cock and you start bobbing your head up and down the shaft while stroking it with your hand as well.'
  237. 'The other girl is standing with her mouth open, seeing he is going along with it. Turned on, she kneels down beside you, giving you a little smile and joins in on the action.'
  238. act 'Share':
  239. cla
  240. *clr
  241. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone1.jpg"></center>'
  242. 'With her kneeling besides you, you suck on his cock for a bit, and pass it over to her as she eagerly locks her lips around it and slowly starts bobbing her head up and down. Perhaps she is trying to convince him to give her a free pass, well you can''t have that and you start sucking his balls as she continues sucking his cock.'
  243. gs 'arousal', 'bj', 5, 'group'
  244. gs 'stat'
  245. act 'A for sure':
  246. cla
  247. *clr
  248. gs 'cum_call', 'mouth', $boy, 1, '', '', 20
  249. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone2.jpg"></center>'
  250. 'The two of you trade back and forth, taking turns sucking it, each trying to outdo the other. Under this relentless tag team competition, he''s unable to outlast for long.'
  251. 'He starts groaning, as he''s edging but trying to hold back. Suddenly he says, "I''m about to cum, I''m going to cum in your mouth and then the two of you share it as you please." He says as the other girl happens to have him in her mouth, she dutifully sucks his cock until he cums in her mouth. Once he''s finished, she unlocks her mouth, as you lick his cock clean.'
  252. 'You then turn to her and french kiss her, the two of you cum swap cum in eachother mouths. As he collapses back into his chair, you stop kissing and you both swallow the remains of the sperm you ended up with. You turn to him, grinning, "So about my grades..."'
  253. 'He peacefully observes the two of you and waves his hand absently at the question, "Yes yes, I will make sure you get a passing grade, while you''re let off the hook, missy." The two of you smile at eachother, the two of you straighten your clothes up and give the professor a last little smile, as you leave the classroom.'
  254. gs 'arousal', 'bj', 10, 'group'
  255. gs 'arousal', 'kiss', 10, 'lesbian'
  256. minut -= 10
  257. gs 'arousal', 'end'
  258. gs 'stat'
  259. act 'Leave':gt 'univer', 'dekanat'
  260. end
  261. end
  262. end
  263. end
  264. end
  265. else
  266. act 'Leave':gt 'univer', 'dekanat'
  267. end
  268. end
  269. end
  270. !!end of secent scene expansion.
  271. if kursovik >= 100:
  272. act 'Hand in your assignment':
  273. cla
  274. *clr
  275. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  276. kursovik = 0
  277. kursovikD += 1
  278. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  279. 'You hand in your completed assignment.'
  280. act 'Leave the lecture hall':gt 'univer', 'dekanat'
  281. end
  282. end
  283. end
  284. if $ARGS[0] = 'examen':
  285. cla
  286. clr
  287. *clr
  288. minut += 60
  289. gs 'stat'
  290. '<center><b><font color="maroon">Exam</font></b></center>'
  291. '<center><img <<$set_imgh>> src="images/locations/city/island/university/examen.jpg"></center>'
  292. if lektor > 55 and kursovikD >= kurs:
  293. examen = 1
  294. kursovikD = 0
  295. stipuha = 1
  296. lektor = 0
  297. !!1200
  298. 'You completed all your examinations, passing them with honors, and on top of that you had outstanding attendance.'
  299. elseif ((pcs_intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  300. examen = 1
  301. kursovikD = 0
  302. stipuha = 0
  303. lektor = 0
  304. 'You completed all your assignments and passed the exam.'
  305. elseif (pcs_intel >= 100) and kursovikD >= kurs + 10:
  306. examen = 1
  307. kursovikD = 0
  308. stipuha = 1
  309. lektor = 0
  310. 'Despite missing a lot of classes you still managed to complete all the assignments and somehow still managed to pass with honors.'
  311. elseif (pcs_intel < 70 and lektor <= 40) or kursovikD < kurs:
  312. examen = 2
  313. stipuha = 0
  314. 'You failed to pass the exam.'
  315. else
  316. examen = 2
  317. stipuha = 0
  318. 'You failed to pass the exam.'
  319. end
  320. act 'Leave the exam room':gt 'univer', 'dekanat'
  321. end
  322. --- univer ---------------------------------