univer 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348
  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 of</font></b></center>'
  20. '<center><img <<$set_imgh>> src="images/locations/city/island/university/univer.jpg"></center>'
  21. if student = 0 and abiturient = 0:'Preparatory courses fee 15,000'
  22. 'Examinations for admission to the University are held in August.'
  23. 'All lectures begin with a 8:00, being late for a lecture is not allowed.'
  24. 'First semester: September, October, November.'
  25. 'Second semester: February, March, April.'
  26. if student > 0:'You have completed <<kurs>> pieces of coursework for semestr no. <<semestr>>.'
  27. if abiturient = 1:'You enrolled.'
  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 training course (15,000 <b>₽</b>)':
  36. cla
  37. minut += 5
  38. money -= 15000
  39. abiturient = 1
  40. 'You paid 15,000 for preparatory courses. Classes start on 21:00, on weekdays'
  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 courses (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 a hour, you stayed focused on learning what is needed so you can attend school.'
  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 exams and can start preparatory classes in September.'
  68. else
  69. 'You failed the entrance exam.'
  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 'Go to 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 'Go to 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 'Go to exams':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 'Go to exams':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 get 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. 'You 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>> pieces of coursework for semestr no. <<semestr>>.'
  132. 'Prior to the end of the semester you must pass <<kurs>> of coursework. If you manage to pass more that is even better.'
  133. if kursovikD > 0:'You passed <<kursovikD>> coursework.'
  134. act 'Leave Dean''s office':gt 'univer', 'start'
  135. if hour < 8 and student > 0:
  136. act 'Attend the lecture':
  137. cls
  138. minut += 360
  139. hour = 14
  140. minut = 0
  141. lektor += 1
  142. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  143. gs 'stat'
  144. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  145. 'You attend the lecture, taking notes as the professor lectures the class about the course.'
  146. zanrand = rand(0, 9)
  147. if zanrand = 0:
  148. minut += 60
  149. 'During the lecture the professor asks you a question and you do not have the answer for it, he asks that you see him after class.'
  150. 'When class is over you stay behind.'
  151. !!expanded this scene a lot, check code.
  152. act 'Remain in the classroom':
  153. cls
  154. gs 'stat'
  155. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  156. 'After the class the professor takes the time to explain things to you, in a effort to help you better understand, so you don''t fall behind in class.'
  157. act 'Leave':gt 'univer', 'dekanat'
  158. act 'Seduce':
  159. cla
  160. *clr
  161. gs 'npcgeneratec', 0, 'professor Krupin', 51
  162. dick = 15
  163. $dick_girth = 'well proportioned'
  164. gs 'boyStat', $npclastgenerated
  165. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay.jpg"></center>'
  166. 'You sit on his desk and make 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, maybe maybe if I help you with something hard, you can help me with my grades." You don''t have a lot of time to be subtle, you need to be passing this course before you leave.'
  167. 'For a moment he seems unsure, he looks around the class. "Well what do you have mind?"'
  168. 'You bite your lower lip seductively and you know you have him. You pull him by his scarf till he is standing, while you climb on his desk and get on all fours. You look up at him from where your head is right in front of his crotch. "Let me show you, professor Krupin."'
  169. act 'Blow job':
  170. cls
  171. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay1.jpg"></center>'
  172. 'You undo his belt and pants, letting them drop down to his knees. You start stroking his dick and it very quickly grows hard in your hand. You lick up and down along the shaft until your take his dick into your mouth. You start bobbing your head up and down on his shaft while you stroke it with your hand as well.'
  173. gs 'arousal', 'bj', 15
  174. '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 his dick, causing you to moan in pleasure.'
  175. gs 'arousal', 'vaginal_finger', 10
  176. minut += 10
  177. gs 'stat'
  178. act 'A for sure':
  179. cls
  180. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/gradepay2.jpg"></center>'
  181. 'He starts to pull off your clothes, you quickly help him get you naked. Either your mouth or hand is constantly stroking his dick, often both. Once you are naked and back in place he goes back to fingering your pussy.'
  182. 'You know he is wanting 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 redoubled your efforts on sucking him off and start to deep throat him, while fondling his balls.'
  183. gs 'arousal', 'bj', 10
  184. 'He starts to groan, getting close to cumming but trying to hold back. Suddenly he says. "I''m about to cum, I want to see it on your face." At those words you pull you mouth off his dick and keep stroking him with your hand. Soon he is spurting loads of sperm all over your face and some of it splattering on your perk little 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. gs 'arousal', 'hj', 5
  186. gs 'cum_call', 'face', $boy, 1, '', '', 20
  187. gs 'cum_call', 'breasts', $boy, 1, '', '', 20
  188. gs 'arousal', 'end'
  189. gs 'stat'
  190. 'He collapses back in his chair and nods his head. "Yes yes, I will make sure you are passing my class, you little minx." With a final smile and wave you gather you stuff and get dressed, on your way out of class.'
  191. act 'Leave':gt 'univer', 'dekanat'
  192. end
  193. end
  194. end
  195. end
  196. !!end of first scene expansion
  197. elseif zanrand = 1:
  198. minut += 60
  199. 'During the lecture the professor asks you a question and you do not have the answer for it, he asks that you see him after class.'
  200. 'When class is over you stay behind.'
  201. act 'Remain in the classroom':
  202. cls
  203. gs 'stat'
  204. '<center><img <<$set_imgh>> src="images/locations/city/island/university/krupin.jpg"></center>'
  205. 'After the class the professor takes the time to explain things to you and another girl from class, in a effort to help you both better understand, so you don''t fall behind in class.'
  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. 'You sit on his desk and make 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, maybe maybe if I help you with something hard, you can help me with my grades." You don''t have a lot of time to be subtle, you need to be passing this course before you leave.'
  217. 'For a moment he seems unsure, he looks around the class and the other girl. "Well what do you have mind?"'
  218. 'You bite your lower lip seductively and you know you have him. You pull him by his scarf out of his chair until he is standing and then you kneels down in front of him. "Let me show you, professor Krupin."'
  219. 'The other girl''s eyes get huge 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. act 'Blow job':
  221. cls
  222. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone.jpg"></center>'
  223. 'You undo his belt and pants, letting them drop down to his knees. You start stroking his dick and it very quickly grows hard in your hand. You lick up and down along the shaft until your take his dick into your mouth. You start bobbing your head up and down on his shaft while you stroke it with your hand as well.'
  224. gs 'arousal', 'bj', 15
  225. gs 'stat'
  226. 'The other girl seeing he is going along with it, apparently figures this beats doing homework and kneels down beside you.'
  227. act 'Sharing':
  228. cls
  229. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone1.jpg"></center>'
  230. 'You notice her kneeling beside you, after you suck his dick for a bit, you pass it over to her and she eagerly locks her lips around it and starts sucking his dick. Perhaps she is trying to convince him to give her a better grade than you, well you can''t have that and you start sucking on his balls while she is sucking his dick.'
  231. gs 'arousal', 'foreplay_give', 5
  232. gs 'stat'
  233. act 'A for sure':
  234. cls
  235. '<center><img <<$set_imgh>> src="images/locations/city/island/university/sex/2forone2.jpg"></center>'
  236. 'The two of you trade his dick back and forth, taking turns sucking it, each trying to out do the other. Under this relentless tag teaming he doesn''t last to long.'
  237. gs 'arousal', 'bj', 10
  238. gs 'stat'
  239. 'He starts to groan, getting close to cumming but trying to hold back. Suddenly he says. "I''m about to cum, I want to cum in your mouth and then the two of you share it." He says when the other girl happens to have him in her mouth, she dutifully sucks his dick until he cums in her mouth. Once she pulls his dick out of her mouth, she offers it to you, you take his dick and suck it clean. Then you turn to her and french kiss her, the two of you mingling his cum on each others tongues and in each other mouths. Once he collapses back into his chair, you stop kissing her and you both swallow down, the sperm you each ended up with. Then you turn to him and grin. "So about my grades."'
  240. gs 'arousal', 'kiss', 5
  241. gs 'cum_call', 'mouth', $boy, 1, '', '', 20
  242. gs 'stat'
  243. 'He watches the two of you and waves his hand absently at the question. "Yes yes, I will make sure you are passing my class, both of you, you little minxs." With a final smile and wave, the two of you straighten your clothes up, on your way out of class.'
  244. act 'Leave':gt 'univer', 'dekanat'
  245. end
  246. end
  247. end
  248. end
  249. end
  250. else
  251. act 'Leave':gt 'univer', 'dekanat'
  252. end
  253. end
  254. end
  255. !!end of secent scene expansion.
  256. if kursovik >= 100:
  257. act 'Hand in your course work':
  258. cla
  259. *clr
  260. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  261. kursovik = 0
  262. kursovikD += 1
  263. '<center><img <<$set_imgh>> src="images/locations/city/island/university/classroom1.jpg"></center>'
  264. 'You hand in a piece of completed course work.'
  265. act 'Leave the lecture hall':gt 'univer', 'dekanat'
  266. end
  267. end
  268. end
  269. if $ARGS[0] = 'examen':
  270. cla
  271. clr
  272. *clr
  273. minut += 60
  274. gs 'stat'
  275. '<center><b><font color="maroon">Exam</font></b></center>'
  276. '<center><img <<$set_imgh>> src="images/locations/city/island/university/examen.jpg"></center>'
  277. if lektor > 55 and kursovikD >= kurs:
  278. examen = 1
  279. kursovikD = 0
  280. stipuha = 1
  281. lektor = 0
  282. !!1200
  283. 'You completed all your coursework, passed with honors, and had good attendance.'
  284. elseif ((pcs_intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  285. examen = 1
  286. kursovikD = 0
  287. stipuha = 0
  288. lektor = 0
  289. 'You completed all your course work and passed your exam.'
  290. elseif (pcs_intel >= 100) and kursovikD >= kurs + 10:
  291. examen = 1
  292. kursovikD = 0
  293. stipuha = 1
  294. lektor = 0
  295. 'Despite missing a lot of classes you still managed to complete all the course work and somehow still managed to pass with honors.'
  296. elseif (pcs_intel < 70 and lektor <= 40) or kursovikD < kurs:
  297. examen = 2
  298. stipuha = 0
  299. 'You failed to pass the exam.'
  300. else
  301. examen = 2
  302. stipuha = 0
  303. 'You failed to pass the exam.'
  304. end
  305. act 'Exit exam room':gt 'univer', 'dekanat'
  306. end
  307. --- univer ---------------------------------