1
0

univer 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306
  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. if student > 0:'You learn how to <<semestr>> semester <<kurs>> course'
  18. if abiturient = 1:'You entrant.'
  19. act 'Leave':
  20. cla
  21. minut += 5
  22. gt 'down'
  23. end
  24. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age >= 17:
  25. ''
  26. act 'Pay for training course (15,000 rubles)':
  27. cla
  28. minut += 5
  29. money -= 15000
  30. abiturient = 1
  31. 'You paid 15,000 for preparatory courses. Classes start in 21chas, on weekdays'
  32. act 'Move away':gt 'univer', 'start'
  33. end
  34. elseif abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  35. act 'Attend preparatory courses (1:00)':
  36. cla
  37. *clr
  38. minut += 60
  39. abiturient += 1
  40. intel += 1
  41. '<center><img src="images/etogame/Classroom.jpg"></center>'
  42. 'You were engaged in preparatory courses within an hour.'
  43. act 'Get out of class':gt 'univer', 'start'
  44. end
  45. end
  46. if month = 8 and student = 0 and diplom = 0 and age >= 17:
  47. 'You can try to take an entrance exam.'
  48. act 'Take the entrance exam (1:00)':
  49. cla
  50. *clr
  51. minut += 60
  52. '<center><img src="images/etogame/Classroom.jpg"></center>'
  53. 'You passed the entrance exam to university.'
  54. if intel + abiturient >= 100:
  55. student = 1
  56. kurs = 1
  57. semestr = 1
  58. abiturient = 0
  59. 'You have successfully passed the entrance exams and can start training in September.'
  60. else
  61. 'You failed the entrance exam.'
  62. end
  63. act 'Get out of 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 'Go to the deanery':
  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 'Go to the deanery':
  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 'Go for exams':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 'Go for exams':gt 'univer', 'examen'
  86. end
  87. end
  88. if $ARGS[0] = 'dekanat':
  89. $sexloc = $CURLOC
  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 expelled from 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. 'YOU awarded a diploma.'
  119. end
  120. gs 'stat'
  121. '<center><b><font color="maroon">Dean</font></b></center>'
  122. '<center><img src="images/etogame/dekanat.jpg"></center>'
  123. 'You learn how to <<semestr>> semester <<kurs>> course'
  124. 'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
  125. if kursovikD > 0:'You passed <<kursovikD>> coursework.'
  126. act 'Escape from the dean''s office':gt 'univer', 'start'
  127. if hour < 8 and student > 0:
  128. act 'At the lecture':
  129. cla
  130. *clr
  131. minut += 360
  132. hour = 14
  133. minut = 0
  134. lektor += 1
  135. intel += 1
  136. '<center><img src="images/etogame/Classroom1.jpg"></center>'
  137. 'You were sitting in lectures and recorded for teacher notes.'
  138. zanrand = rand(0, 9)
  139. if zanrand = 0:
  140. minut += 60
  141. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  142. 'Classes are over, but you have to stay.'
  143. act 'Remain in the classroom':
  144. cla
  145. *clr
  146. zanpicrand = rand(1, 3)
  147. $ImageNeededPlacholder
  148. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  149. 'After the class lecturer explains to you for an hour thing.'
  150. act 'Leave':gt 'univer', 'dekanat'
  151. act 'Seduce':
  152. cla
  153. *clr
  154. if zanpicrand = 1:picrand = 44
  155. if zanpicrand = 2:picrand = 45
  156. if zanpicrand = 3:picrand = 46
  157. $ImageNeededPlacholder
  158. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  159. 'You grab his penis, he reflexively pulls away, but then relaxes and allows you to continue.'
  160. act 'Blow job':gt 'sex', 'minet'
  161. end
  162. end
  163. elseif zanrand = 1:
  164. minut += 60
  165. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  166. 'Classes are over, but you have to stay.'
  167. act 'Remain in the classroom':
  168. cla
  169. *clr
  170. zanpicrand = rand(4, 6)
  171. $ImageNeededPlacholder
  172. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  173. 'After exercising for an hour lecturer explains to you another girl the importance of its subject.'
  174. act 'Leave':gt 'univer', 'dekanat'
  175. act 'Seduce':
  176. cla
  177. *clr
  178. if zanpicrand = 4:picrand = 20
  179. if zanpicrand = 5:picrand = 21
  180. if zanpicrand = 6:picrand = 22
  181. $ImageNeededPlacholder
  182. ! WD: IMAGE NEEDED ~ '<center><img src="images/img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  183. '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.'
  184. act 'Blow job':gt 'podrsex', 'var'
  185. end
  186. end
  187. end
  188. act 'Exit from the audience':gt 'univer', 'dekanat'
  189. end
  190. end
  191. if kursovik >= 100:
  192. act 'Pass the course work':
  193. cla
  194. *clr
  195. intel += 1
  196. kursovik = 0
  197. kursovikD += 1
  198. '<center><img src="images/etogame/Classroom1.jpg"></center>'
  199. 'You passed the course work.'
  200. act 'Exit from the audience':gt 'univer', 'dekanat'
  201. end
  202. end
  203. end
  204. if $ARGS[0] = 'examen':
  205. cla
  206. clr
  207. *clr
  208. minut += 60
  209. gs 'stat'
  210. '<center><b><font color="maroon">Exam</font></b></center>'
  211. '<center><img src="images/etogame/examen.jpg"></center>'
  212. if lektor > 55 and kursovikD >= kurs:
  213. examen = 1
  214. kursovikD = 0
  215. stipuha = 1
  216. lektor = 0
  217. !!1200
  218. 'You are well attended classes and you have no outstanding coursework, exam so you put a gun.'
  219. jump 'exitexamem'
  220. end
  221. if ((intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  222. examen = 1
  223. kursovikD = 0
  224. stipuha = 0
  225. lektor = 0
  226. 'You answered all the questions in the ticket and you have no outstanding coursework, so you score? Exam.'
  227. act 'Exit from the audience':gt 'univer', 'dekanat'
  228. exit
  229. end
  230. if (intel >= 100) and kursovikD >= kurs + 10:
  231. examen = 1
  232. kursovikD = 0
  233. stipuha = 1
  234. lektor = 0
  235. 'You showed great zeal and independence in learning, so you put a gun exam.'
  236. jump 'exitexamem'
  237. !!exit
  238. end
  239. if (intel < 70 and lektor <= 40) or kursovikD < kurs:
  240. examen = 2
  241. stipuha = 0
  242. 'You do not pass the exam.'
  243. end
  244. if examen = 0:
  245. examen = 2
  246. stipuha = 0
  247. 'You do not pass the exam.'
  248. end
  249. :exitexamem
  250. act 'Exit from the audience':gt 'univer', 'dekanat'
  251. end
  252. --- univer ---------------------------------