univer.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364
  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. gs 'themes', 'indoors'
  11. '<center><b><font color="maroon">The University</font></b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/city/island/university/univer.jpg"></center>'
  13. if student = 0 and abiturient = 0:'You can take preparatory classes at the University for 15,000 <b>₽</b>.'
  14. 'Admission examinations for the University are held in <b>August</b>.'
  15. 'The lectures begin at <b>08:00</b>. You won''t be allowed to attend if late.'
  16. 'First semester: September, October, November.'
  17. 'Second semester: February, March, April.'
  18. if student > 0:'You have completed <<kurs>> assignments for <<semestr>>.'
  19. if abiturient = 1:'You''ve enrolled in the preparatory classes.'
  20. act 'Leave':
  21. cla
  22. minut += 5
  23. gt 'island'
  24. end
  25. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and (age >= 17 or fakepassport = 1):
  26. ''
  27. act 'Pay for the preparatory classes (15,000 <b>₽</b>)':
  28. cla
  29. minut += 5
  30. money -= 15000
  31. abiturient = 1
  32. 'You paid 15,000 <b>₽</b> for the preparatory classes. They are held every weekday at <b>21:00</b>.'
  33. act 'Move away':gt 'univer', 'start'
  34. end
  35. elseif abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  36. act 'Attend preparatory class (1:00)':
  37. cla
  38. *clr
  39. minut += 60
  40. abiturient += 1
  41. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  42. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom.jpg"></center>'
  43. '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.'
  44. act 'Leave class':gt 'univer', 'start'
  45. end
  46. end
  47. if month = 8 and student = 0 and diplom = 0 and (age >= 17 or fakepassport = 1):
  48. 'You can try to take an entrance exam.'
  49. act 'Take the entrance exam (1:00)':
  50. cla
  51. *clr
  52. minut += 60
  53. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom.jpg"></center>'
  54. if pcs_intel + abiturient >= 60:
  55. student = 1
  56. kurs = 1
  57. semestr = 1
  58. abiturient = 0
  59. 'You have successfully passed the entrance exam and can attend the University in September.'
  60. else
  61. 'You have failed the entrance exam. You need to study harder...'
  62. end
  63. act 'Leave class':gt 'univer', 'start'
  64. end
  65. end
  66. if week < 6 and student > 0 and month > 8 and month < 12:
  67. !! 1st semester
  68. act 'Visit the Dean':
  69. cla
  70. if semestr = 2 and examen = 0:examen = 2
  71. gt 'univer', 'dekanat'
  72. end
  73. elseif week < 6 and student > 0 and month > 1 and month < 5:
  74. !! 2nd semester
  75. act 'Visit the Dean':
  76. cla
  77. if semestr = 1 and examen = 0:examen = 2
  78. gt 'univer', 'dekanat'
  79. end
  80. elseif week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
  81. !! 1st semester exams
  82. act 'Do the exam':gt 'univer', 'examen'
  83. elseif week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
  84. !! 2nd semester exams
  85. act 'Do the exam':gt 'univer', 'examen'
  86. end
  87. end
  88. if $ARGS[0] = 'dekanat':
  89. $sexloc = 'univer'
  90. cla
  91. clr
  92. *clr
  93. minut += 5
  94. if examen = 1:
  95. examen = 0
  96. if semestr = 2:
  97. semestr = 1
  98. kurs += 1
  99. elseif semestr = 1:
  100. semestr = 2
  101. end
  102. elseif examen = 2:
  103. student = 0
  104. kurs = 0
  105. semestr = 0
  106. abiturient = 0
  107. stipuha = 0
  108. lektor = 0
  109. 'You got expelled from the University.'
  110. end
  111. if kurs = 2:
  112. diplom = 1
  113. student = 0
  114. kurs = 0
  115. semestr = 0
  116. abiturient = 0
  117. stipuha = 0
  118. 'Congratulations, you''ve earned your degree!'
  119. end
  120. gs 'stat'
  121. '<center><b><font color="maroon">Dean</font></b></center>'
  122. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dekanat.jpg"></center>'
  123. 'You have completed <<kurs>> assignments for <<semestr>>.'
  124. 'Before the semester ends you must at least complete <<kurs>> of classes. It is positively looked upon if you manage to complete more.'
  125. if kursovikD > 0:'You''ve passed <<kursovikD>> assignments.'
  126. act 'Leave the Dean''s office':gt 'univer', 'start'
  127. if hour < 8 and student > 0:
  128. act 'Attend the lecture (6:00)':
  129. cla
  130. *clr
  131. minut += 360
  132. hour = 14
  133. minut = 0
  134. lektor += 1
  135. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  136. gs 'stat'
  137. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  138. 'You attend the lecture, taking notes as the professor calmly goes through the course material.'
  139. zanrand = rand(0, 9)
  140. if zanrand = 0:
  141. minut += 60
  142. '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.'
  143. 'As the class finishes, you stay behind.'
  144. !!expanded this scene a lot, check code.
  145. act 'Remain in the classroom':
  146. cla
  147. *clr
  148. gs 'stat'
  149. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  150. '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.'
  151. act 'Leave':gt 'univer', 'dekanat'
  152. act 'Seduce':
  153. cla
  154. *clr
  155. gs 'npcgeneratec', 0, 'professor Krupin', 51
  156. dick = 15
  157. $dick_girth = 'well proportioned'
  158. gs 'boyStat', $npclastgenerated
  159. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay.jpg"></center>'
  160. '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.'
  161. 'For a moment he seems insecure, as he looks around the room, "Well what do you have in mind?"'
  162. '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."'
  163. gs 'arousal', 'foreplay', 5
  164. gs 'stat'
  165. act 'Give him a blow job':
  166. cla
  167. *clr
  168. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay1.jpg"></center>'
  169. '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.'
  170. '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.'
  171. gs 'arousal', 'vaginal_finger', 10
  172. gs 'arousal', 'bj', 10
  173. minut -= 10
  174. gs 'stat'
  175. act 'A for sure':
  176. cla
  177. *clr
  178. gs 'cum_call', 'face', $boy, 1, '', '', 20
  179. gs 'cum_call', 'breasts', $boy, 1, '', '', 20
  180. gs 'arousal', 'end'
  181. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay2.jpg"></center>'
  182. '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.'
  183. '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.'
  184. '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..."'
  185. '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.'
  186. gs 'arousal', 'hj', 5
  187. gs 'arousal', 'bj', 5, 'deepthroat'
  188. gs 'stat'
  189. minut -= 5
  190. act 'Leave':gt 'univer', 'dekanat'
  191. end
  192. end
  193. end
  194. end
  195. !!end of first scene expansion
  196. elseif zanrand = 1:
  197. minut += 60
  198. '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.'
  199. 'As the class finishes, the two of you stay behind.'
  200. act 'Remain in the classroom':
  201. cla
  202. *clr
  203. gs 'stat'
  204. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  205. '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.'
  206. act 'Leave':gt 'univer', 'dekanat'
  207. !!expanding scene two. check code.
  208. act 'Seduce':
  209. cla
  210. *clr
  211. gs 'npcgeneratec', 0, 'professor Krupin', 51
  212. dick = 15
  213. $dick_girth = 'well proportioned'
  214. gs 'boyStat', $npclastgenerated
  215. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay.jpg"></center>'
  216. '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.'
  217. 'For a moment he seems insecure, as he looks around the class, glancing at the other girl, "You should stop that..."'
  218. '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."'
  219. '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.'
  220. gs 'arousal', 'foreplay', 5
  221. gs 'stat'
  222. act 'Give him a blow job':
  223. cla
  224. *clr
  225. gs 'arousal', 'bj', 10
  226. gs 'stat'
  227. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone.jpg"></center>'
  228. '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.'
  229. '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.'
  230. act 'Share':
  231. cla
  232. *clr
  233. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone1.jpg"></center>'
  234. '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.'
  235. gs 'arousal', 'bj', 5, 'group'
  236. gs 'stat'
  237. act 'A for sure':
  238. cla
  239. *clr
  240. gs 'cum_call', 'mouth', $boy, 1, '', '', 20
  241. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone2.jpg"></center>'
  242. '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.'
  243. '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.'
  244. '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..."'
  245. '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.'
  246. gs 'arousal', 'bj', 10, 'group'
  247. gs 'arousal', 'kiss', 10, 'lesbian'
  248. minut -= 10
  249. gs 'arousal', 'end'
  250. gs 'stat'
  251. act 'Leave':gt 'univer', 'dekanat'
  252. end
  253. end
  254. end
  255. end
  256. end
  257. else
  258. act 'Leave':gt 'univer', 'dekanat'
  259. end
  260. end
  261. end
  262. !!end of secent scene expansion.
  263. if kursovik >= 100:
  264. act 'Hand in your assignment':
  265. cla
  266. *clr
  267. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  268. kursovik = 0
  269. kursovikD += 1
  270. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  271. 'You hand in your completed assignment.'
  272. act 'Leave the lecture hall':gt 'univer', 'dekanat'
  273. end
  274. end
  275. end
  276. if $ARGS[0] = 'examen':
  277. cla
  278. clr
  279. *clr
  280. minut += 60
  281. gs 'stat'
  282. '<center><b><font color="maroon">Exam</font></b></center>'
  283. '<center><img <<$set_imgh>> src="images/locations/city/island/university/examen.jpg"></center>'
  284. if lektor > 55 and kursovikD >= kurs:
  285. examen = 1
  286. kursovikD = 0
  287. stipuha = 1
  288. lektor = 0
  289. !!1200
  290. 'You completed all your examinations, passing them with honors, and on top of that you had outstanding attendance.'
  291. elseif ((pcs_intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  292. examen = 1
  293. kursovikD = 0
  294. stipuha = 0
  295. lektor = 0
  296. 'You completed all your assignments and passed the exam.'
  297. elseif (pcs_intel >= 100) and kursovikD >= kurs + 10:
  298. examen = 1
  299. kursovikD = 0
  300. stipuha = 1
  301. lektor = 0
  302. 'Despite missing a lot of classes you still managed to complete all the assignments and somehow still managed to pass with honors.'
  303. elseif (pcs_intel < 70 and lektor <= 40) or kursovikD < kurs:
  304. examen = 2
  305. stipuha = 0
  306. 'You failed to pass the exam.'
  307. else
  308. examen = 2
  309. stipuha = 0
  310. 'You failed to pass the exam.'
  311. end
  312. act 'Leave the exam room':gt 'univer', 'dekanat'
  313. end
  314. --- univer ---------------------------------