univer 7.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309
  1. # univer
  2. if $ARGS[0] = 'start':
  3. $sexloc = $CURLOC
  4. cla
  5. clr
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. fcolor = rgb(0, 0, 0)
  10. bcolor = rgb(255, 255, 255)
  11. lcolor = rgb(106, 90, 205)
  12. '<center><b><font color="maroon">The University of</font></b></center>'
  13. '<center><img src="images/etogame/univer.jpg"></center>'
  14. if student = 0 and abiturient = 0:'Preparatory courses cost 15,000'
  15. 'Examinations for admission to the University are held in August.'
  16. 'All lectures begin with a 8:00, late for a lecture is not allowed.'
  17. 'First semester: September, October, November.'
  18. 'Second semester: February, March, April.'
  19. if student > 0:'You learn how to <<semestr>> semester <<kurs>> course'
  20. if abiturient = 1:'You entrant.'
  21. act 'Leave':
  22. cla
  23. minut += 5
  24. gt 'down'
  25. end
  26. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age >= 17:
  27. ''
  28. act 'Pay for training course (15,000 <b>₽</b>)':
  29. cla
  30. minut += 5
  31. money -= 15000
  32. abiturient = 1
  33. 'You paid 15,000 for preparatory courses. Classes start in 21chas, on weekdays'
  34. act 'Move away':gt 'univer', 'start'
  35. end
  36. elseif abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  37. act 'Attend preparatory courses (1:00)':
  38. cla
  39. *clr
  40. minut += 60
  41. abiturient += 1
  42. intel += 1
  43. '<center><img src="images/etogame/Classroom.jpg"></center>'
  44. 'You were engaged in preparatory courses within an hour.'
  45. act 'Get out of class':gt 'univer', 'start'
  46. end
  47. end
  48. if month = 8 and student = 0 and diplom = 0 and age >= 17:
  49. 'You can try to take an entrance exam.'
  50. act 'Take the entrance exam (1:00)':
  51. cla
  52. *clr
  53. minut += 60
  54. '<center><img src="images/etogame/Classroom.jpg"></center>'
  55. 'You passed the entrance exam to university.'
  56. if intel + abiturient >= 100:
  57. student = 1
  58. kurs = 1
  59. semestr = 1
  60. abiturient = 0
  61. 'You have successfully passed the entrance exams and can start training in September.'
  62. else
  63. 'You failed the entrance exam.'
  64. end
  65. act 'Get out of class':gt 'univer', 'start'
  66. end
  67. end
  68. if week < 6 and student > 0 and month > 8 and month < 12:
  69. !! 1st semester
  70. act 'Go to the deanery':
  71. cla
  72. if semestr = 2 and examen = 0:examen = 2
  73. gt 'univer', 'dekanat'
  74. end
  75. elseif week < 6 and student > 0 and month > 1 and month < 5:
  76. !! 2nd semester
  77. act 'Go to the deanery':
  78. cla
  79. if semestr = 1 and examen = 0:examen = 2
  80. gt 'univer', 'dekanat'
  81. end
  82. elseif week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
  83. !! 1st semester exams
  84. act 'Go for exams':gt 'univer', 'examen'
  85. elseif week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
  86. !! 2nd semester exams
  87. act 'Go for exams':gt 'univer', 'examen'
  88. end
  89. end
  90. if $ARGS[0] = 'dekanat':
  91. $sexloc = $CURLOC
  92. cla
  93. clr
  94. *clr
  95. minut += 5
  96. if examen = 1:
  97. examen = 0
  98. if semestr = 2:
  99. semestr = 1
  100. kurs += 1
  101. elseif semestr = 1:
  102. semestr = 2
  103. end
  104. elseif examen = 2:
  105. student = 0
  106. kurs = 0
  107. semestr = 0
  108. abiturient = 0
  109. stipuha = 0
  110. lektor = 0
  111. 'YOU expelled from university.'
  112. end
  113. if kurs = 2:
  114. diplom = 1
  115. student = 0
  116. kurs = 0
  117. semestr = 0
  118. abiturient = 0
  119. stipuha = 0
  120. 'YOU awarded a diploma.'
  121. end
  122. gs 'stat'
  123. '<center><b><font color="maroon">Dean</font></b></center>'
  124. '<center><img src="images/etogame/dekanat.jpg"></center>'
  125. 'You learn how to <<semestr>> semester <<kurs>> course'
  126. 'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
  127. if kursovikD > 0:'You passed <<kursovikD>> coursework.'
  128. act 'Escape from the dean''s office':gt 'univer', 'start'
  129. if hour < 8 and student > 0:
  130. act 'At the lecture':
  131. cls
  132. minut += 360
  133. hour = 14
  134. minut = 0
  135. lektor += 1
  136. intel += 1
  137. gs 'stat'
  138. '<center><img src="images/etogame/classroom1.JPG"></center>'
  139. 'You were sitting in lectures and recorded for teacher notes.'
  140. zanrand = rand(0, 9)
  141. if zanrand = 0:
  142. minut += 60
  143. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  144. 'Classes are over, but you have to stay.'
  145. act 'Remain in the classroom':
  146. cls
  147. gs 'stat'
  148. zanpicrand = rand(1, 3)
  149. $ImageNeededPlacholder
  150. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  151. 'After the class lecturer explains to you for an hour thing.'
  152. act 'Leave':gt 'univer', 'dekanat'
  153. act 'Seduce':
  154. cla
  155. *clr
  156. if zanpicrand = 1:picrand = 44
  157. if zanpicrand = 2:picrand = 45
  158. if zanpicrand = 3:picrand = 46
  159. $ImageNeededPlacholder
  160. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  161. 'You grab his penis, he reflexively pulls away, but then relaxes and allows you to continue.'
  162. act 'Blow job':gt 'sex', 'minet'
  163. end
  164. end
  165. elseif zanrand = 1:
  166. minut += 60
  167. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  168. 'Classes are over, but you have to stay.'
  169. act 'Remain in the classroom':
  170. cls
  171. gs 'stat'
  172. zanpicrand = rand(4, 6)
  173. $ImageNeededPlacholder
  174. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  175. 'After exercising for an hour lecturer explains to you another girl the importance of its subject.'
  176. act 'Leave':gt 'univer', 'dekanat'
  177. act 'Seduce':
  178. cla
  179. *clr
  180. if zanpicrand = 4:picrand = 20
  181. if zanpicrand = 5:picrand = 21
  182. if zanpicrand = 6:picrand = 22
  183. $ImageNeededPlacholder
  184. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  185. 'You go down on your knees and grab his penis, the other girl looks at you with round eyes, but then also starts to stick to the teacher to design, he resists a little at first, but then completely given into your hand.'
  186. act 'Blow job':gt 'podrsex', 'suck'
  187. end
  188. end
  189. end
  190. act 'Exit from the audience':gt 'univer', 'dekanat'
  191. end
  192. end
  193. if kursovik >= 100:
  194. act 'Pass the course work':
  195. cla
  196. *clr
  197. intel += 1
  198. kursovik = 0
  199. kursovikD += 1
  200. '<center><img src="images/etogame/classroom1.JPG"></center>'
  201. 'You passed the course work.'
  202. act 'Exit from the audience':gt 'univer', 'dekanat'
  203. end
  204. end
  205. end
  206. if $ARGS[0] = 'examen':
  207. cla
  208. clr
  209. *clr
  210. minut += 60
  211. gs 'stat'
  212. '<center><b><font color="maroon">Exam</font></b></center>'
  213. '<center><img src="images/etogame/examen.jpg"></center>'
  214. if lektor > 55 and kursovikD >= kurs:
  215. examen = 1
  216. kursovikD = 0
  217. stipuha = 1
  218. lektor = 0
  219. !!1200
  220. 'You are well attended classes and you have no outstanding coursework, exam so you put a gun.'
  221. jump 'exitexamem'
  222. end
  223. if ((intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  224. examen = 1
  225. kursovikD = 0
  226. stipuha = 0
  227. lektor = 0
  228. 'You answered all the questions in the ticket and you have no outstanding coursework, so you score? Exam.'
  229. act 'Exit from the audience':gt 'univer', 'dekanat'
  230. exit
  231. end
  232. if (intel >= 100) and kursovikD >= kurs + 10:
  233. examen = 1
  234. kursovikD = 0
  235. stipuha = 1
  236. lektor = 0
  237. 'You showed great zeal and independence in learning, so you put a gun exam.'
  238. jump 'exitexamem'
  239. !!exit
  240. end
  241. if (intel < 70 and lektor <= 40) or kursovikD < kurs:
  242. examen = 2
  243. stipuha = 0
  244. 'You do not pass the exam.'
  245. end
  246. if examen = 0:
  247. examen = 2
  248. stipuha = 0
  249. 'You do not pass the exam.'
  250. end
  251. :exitexamem
  252. act 'Exit from the audience':gt 'univer', 'dekanat'
  253. end
  254. --- univer ---------------------------------