0
0

365_univer 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530
  1. # univer
  2. <<<<<<< 365_univer
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 365_univer
  7. $sexloc = $CURLOC
  8. cla
  9. *clr
  10. <<<<<<< 365_univer
  11. set minut += 5
  12. '<center><B><font color = maroon>The University of</font></B></center>'
  13. '<center><img src="images\etogame\univer.jpg"></center>'
  14. clr
  15. gs 'stat'
  16. fcolor = rgb(0,0,0)
  17. bcolor = rgb(255,255,255)
  18. LCOLOR = rgb(106,90,205)
  19. if student = 0 and abiturient = 0: 'Preparatory courses cost 15,000'
  20. 'Examinations for admission to the University are held in August.'
  21. 'All lectures begin with a 8:00, late for a lecture is not allowed.'
  22. if student > 0: 'You learn how to <<semestr>> semester <<kurs>> course'
  23. if abiturient = 1: 'You entrant.'
  24. act 'QUIT':
  25. cla
  26. set minut += 5
  27. gt 'down'
  28. end
  29. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age >= 17:
  30. ''
  31. act 'Pay for training course 15,000 rubles':
  32. cla
  33. set minut += 5
  34. set money -= 15000
  35. set abiturient = 1
  36. 'You paid 15,000 for preparatory courses. Classes start in 21chas, on weekdays'
  37. act 'Move away': gt 'univer','start'
  38. end
  39. end
  40. if abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  41. act 'Attend preparatory courses (1:00)':
  42. cla
  43. *clr
  44. set minut += 60
  45. set abiturient += 1
  46. set intel += 1
  47. '<center><img src="images\etogame\Classroom.jpg"></center>'
  48. 'You were engaged in preparatory courses within an hour.'
  49. act 'Get out of class': gt 'univer','start'
  50. end
  51. end
  52. if month = 8 and student = 0 and diplom = 0 and age >= 17:
  53. 'You can try to take an entrance exam.'
  54. act 'Take the entrance exam (1:00)':
  55. cla
  56. *clr
  57. set minut += 60
  58. '<center><img src="images\etogame\Classroom.jpg"></center>'
  59. 'You passed the entrance exam to university.'
  60. if intel + abiturient >= 100:
  61. set student = 1
  62. set kurs = 1
  63. set semestr = 1
  64. set abiturient = 0
  65. 'You have successfully passed the entrance exams and can start training in September.'
  66. else
  67. 'You failed the entrance exam.'
  68. end
  69. act 'Get out of class': gt 'univer','start'
  70. end
  71. end
  72. if week < 6 and student > 0 and month > 8 and month < 12:
  73. ! 1й семестр
  74. act 'Go to the deanery':
  75. cla
  76. if semestr = 2 and examen = 0: set examen = 2
  77. gt 'univer','dekanat'
  78. end
  79. end
  80. if week < 6 and student > 0 and month > 1 and month < 5:
  81. ! 2й семестр
  82. act 'Go to the deanery':
  83. cla
  84. if semestr = 1 and examen = 0: set examen = 2
  85. gt 'univer','dekanat'
  86. end
  87. end
  88. if week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
  89. ! 1й семестр экзамены
  90. act 'Go for exams': gt 'univer','examen'
  91. end
  92. if week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
  93. ! 2й семестр экзамены
  94. act 'Go for exams': gt 'univer','examen'
  95. end
  96. =======
  97. set minut = minut + 5
  98. '<center><B><font color=maroon>university</font></B></center>'
  99. '<center><img src="pic/univer.jpg" ></center>'
  100. clr
  101. gs'stat'
  102. fcolor=rgb(0,0,0)
  103. bcolor=rgb(255,255,255)
  104. LCOLOR = rgb(106,90,205)
  105. if student = 0 and abiturient = 0:'Preparatory courses cost 15 thousand'
  106. 'Examinations for admission to the university held in August.'
  107. 'All lectures begin with 8 hours, latecomers to the lectures are not allowed.'
  108. if student > 0:'You learn in <<semestr>> semester <<kurs>> exchange_rate'
  109. if abiturient = 1:'you applicant.'
  110. act 'GO_OUT':
  111. cla
  112. set minut = minut + 5
  113. gt'down'
  114. end
  115. if student = 0 and abiturient = 0 and money >= 15000 and month < 9 and diplom = 0 and age>=17:
  116. ''
  117. act 'Pay preparatory courses 15 sput':
  118. cla
  119. set minut = minut + 5
  120. set money = money - 15000
  121. set abiturient = 1
  122. 'you paid 15 thousands of training courses. Classes start in 21h, on weekdays'
  123. act 'move_away':gt'univer','start'
  124. end
  125. end
  126. if abiturient >= 1 and month < 9 and hour < 21 and week < 6:
  127. act 'Engage in preparatory courses':
  128. cla
  129. *clr
  130. set minut = minut + 60
  131. set abiturient = abiturient + 1
  132. set intel = intel + 1
  133. '<center><img src="pic/Classroom.jpg" ></center>'
  134. 'You are engaged in preparatory courses within an hour.'
  135. act 'Get out of class':gt'univer','start'
  136. end
  137. end
  138. if month = 8 and student = 0 and diplom = 0 and age>=17:
  139. 'You can try to pass an entrance exam.'
  140. act 'Entrance exams':
  141. cla
  142. *clr
  143. set minut = minut + 60
  144. '<center><img src="pic/Classroom.jpg" ></center>'
  145. 'You take the entrance exam to the University.'
  146. if intel + abiturient >= 100:
  147. set student = 1
  148. set kurs = 1
  149. set semestr = 1
  150. set abiturient = 0
  151. 'You have successfully passed the entrance exams and can start training in September.'
  152. else
  153. 'You failed the entrance exams.'
  154. end
  155. act 'Get out of class':gt'univer','start'
  156. end
  157. end
  158. if week < 6 and student > 0 and month > 8 and month < 12:
  159. ! 1semester
  160. act 'Go to the dean':
  161. cla
  162. if semestr = 2 and examen = 0:set examen = 2
  163. gt'univer','dekanat'
  164. end
  165. end
  166. if week < 6 and student > 0 and month > 1 and month < 5:
  167. ! 2semester
  168. act 'Go to the dean':
  169. cla
  170. if semestr = 1 and examen = 0:set examen = 2
  171. gt'univer','dekanat'
  172. end
  173. end
  174. if week < 6 and student > 0 and month = 12 and examen = 0 and semestr = 1:
  175. ! 1Semester exams
  176. act 'Go for exams':gt'univer','examen'
  177. end
  178. if week < 6 and student > 0 and month = 5 and examen = 0 and semestr = 2:
  179. ! 2Semester exams
  180. act 'Go for exams':gt'univer','examen'
  181. end
  182. >>>>>>> 365_univer
  183. end
  184. <<<<<<< 365_univer
  185. if $ARGS[0] = 'dekanat':
  186. =======
  187. if $ARGS[0]='dekanat':
  188. >>>>>>> 365_univer
  189. $sexloc = $CURLOC
  190. cla
  191. *clr
  192. if examen = 1:
  193. set examen = 0
  194. <<<<<<< 365_univer
  195. if semestr = 2:
  196. set semestr = 1
  197. set kurs += 1
  198. end
  199. if semestr = 1:
  200. set semestr = 2
  201. end
  202. =======
  203. if semestr = 2:
  204. set semestr = 1
  205. set kurs = kurs + 1
  206. end
  207. if semestr = 1:
  208. set semestr = 2
  209. end
  210. >>>>>>> 365_univer
  211. end
  212. if kurs = 2:
  213. set diplom = 1
  214. set student = 0
  215. set kurs = 0
  216. set semestr = 0
  217. set abiturient = 0
  218. set stipuha = 0
  219. <<<<<<< 365_univer
  220. 'YOU handed a diploma.'
  221. =======
  222. 'YOU awarded a diploma.'
  223. >>>>>>> 365_univer
  224. end
  225. if examen = 2:
  226. set student = 0
  227. set kurs = 0
  228. set semestr = 0
  229. set abiturient = 0
  230. set stipuha = 0
  231. set lektor = 0
  232. 'YOU expelled from university.'
  233. end
  234. <<<<<<< 365_univer
  235. set minut += 5
  236. '<center><B><font color = maroon>Dean</font></B></center>'
  237. '<center><img src="images\etogame\dekanat.jpg"></center>'
  238. clr
  239. gs 'stat'
  240. 'You learn how to <<semestr>> semester <<kurs>> course'
  241. 'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
  242. if kursovikD > 0: 'You passed <<kursovikD>> coursework.'
  243. =======
  244. set minut = minut + 5
  245. '<center><B><font color=maroon>deanery</font></B></center>'
  246. '<center><img src="pic/dekanat.jpg" ></center>'
  247. clr
  248. gs'stat'
  249. 'You learn in <<semestr>> semester <<kurs>> exchange_rate'
  250. 'Prior to the session must pass <<kurs>> coursework. More welcomed and encouraged during the session.'
  251. if kursovikD > 0:'you passed <<kursovikD>> coursework.'
  252. >>>>>>> 365_univer
  253. <<<<<<< 365_univer
  254. act 'Escape from the dean´s office': gt 'univer','start'
  255. if hour < 8 and student > 0:
  256. act 'At the lecture':
  257. cla
  258. *clr
  259. set minut += 360
  260. set hour = 14
  261. set minut = 0
  262. set lektor += 1
  263. set intel += 1
  264. '<center><img src="images\etogame\Classroom1.jpg"></center>'
  265. 'You were sitting in lectures and recorded for teacher notes.'
  266. set zanrand = rand(0,9)
  267. if zanrand = 0:
  268. set minut += 60
  269. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  270. 'Classes are over, but you have to stay.'
  271. act 'Remain in the classroom':
  272. cla
  273. *clr
  274. zanpicrand = rand(1,3)
  275. '<center><img src="images\img\oldtown\zan<<zanpicrand>>.jpg "></center>'
  276. 'After the class lecturer explains to you for an hour thing.'
  277. act 'Leave': gt 'univer','dekanat'
  278. act 'Seduce':
  279. cla
  280. *clr
  281. if zanpicrand = 1: set picrand = 44
  282. if zanpicrand = 2: set picrand = 45
  283. if zanpicrand = 3: set picrand = 46
  284. '<center><img src="images\img\oldtown\zan1<<zanpicrand>>.jpg "></center>'
  285. 'You grab his penis, he reflexively pulls away, but then relaxes and allows you to continue.'
  286. act 'Blow job': gt 'sex','minet'
  287. end
  288. end
  289. end
  290. if zanrand = 1:
  291. set minut += 60
  292. 'During class lecturer starts you ask, but you did not really say you can not, and he says something to you stayed after school.'
  293. 'Classes are over, but you have to stay.'
  294. act 'Remain in the classroom':
  295. cla
  296. *clr
  297. zanpicrand = rand(4,6)
  298. '<center><img src="images\img\oldtown\zan<<zanpicrand>>.jpg "></center>'
  299. 'After exercising for an hour lecturer explains to you another girl the importance of its subject.'
  300. act 'Leave': gt 'univer','dekanat'
  301. act 'Seduce':
  302. cla
  303. *clr
  304. if zanpicrand = 4: set picrand = 20
  305. if zanpicrand = 5: set picrand = 21
  306. if zanpicrand = 6: set picrand = 22
  307. '<center><img src="images\img\oldtown\zan1<<zanpicrand>>.jpg "></center>'
  308. '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.'
  309. act 'Blow job': gt 'podrsex','var'
  310. end
  311. end
  312. end
  313. act 'Exit from the audience': gt 'univer','dekanat'
  314. end
  315. end
  316. if kursovik >= 100:
  317. act 'Pass the course work':
  318. cla
  319. *clr
  320. set intel += 1
  321. set kursovik = 0
  322. set kursovikD += 1
  323. '<center><img src="images\etogame\Classroom1.jpg"></center>'
  324. 'You passed the course work.'
  325. act 'Exit from the audience': gt 'univer','dekanat'
  326. end
  327. end
  328. =======
  329. act 'Escape from the dean`s office':gt'univer','start'
  330. if hour < 8 and student > 0:
  331. act 'at the lecture':
  332. cla
  333. *clr
  334. set minut = minut + 360
  335. set hour = 14
  336. set minut = 0
  337. set lektor = lektor + 1
  338. set intel = intel + 1
  339. '<center><img src="pic/Classroom1.jpg" ></center>'
  340. 'You were sitting in lectures and recorded for teacher synopsis.'
  341. set zanrand=rand(0,9)
  342. if zanrand=0:
  343. set minut+=60
  344. 'During class lecturer starts you ask, but you did not really say can not, and he says that-Would you stayed after school.'
  345. 'classes ended, but you have to stay.'
  346. act'To remain in the classroom':
  347. cla
  348. *clr
  349. zanpicrand=rand(1,3)
  350. '<center><img src="img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  351. 'After the class teacher of an hour explains to you subject.'
  352. act'Get_Away':gt'univer','dekanat'
  353. act'seduce':
  354. cla
  355. *clr
  356. if zanpicrand=1:set picrand=44
  357. if zanpicrand=2:set picrand=45
  358. if zanpicrand=3:set picrand=46
  359. '<center><img src="img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  360. 'You grab his dick, He reflexively pulls back, but then relaxes and allows you to continue.'
  361. act'blow_job':gt'sex','minet'
  362. end
  363. end
  364. end
  365. if zanrand=1:
  366. set minut+=60
  367. 'During class lecturer starts you ask, but you did not really say can not, and he says that-Would you stayed after school.'
  368. 'classes ended, but you have to stay.'
  369. act'To remain in the classroom':
  370. cla
  371. *clr
  372. zanpicrand=rand(4,6)
  373. '<center><img src="img/oldtown/zan<<zanpicrand>>.jpg"></center>'
  374. 'After the class teacher of an hour tells you another girl the importance of its subject.'
  375. act'Get_Away':gt'univer','dekanat'
  376. act'seduce':
  377. cla
  378. *clr
  379. if zanpicrand=4:set picrand=20
  380. if zanpicrand=5:set picrand=21
  381. if zanpicrand=6:set picrand=22
  382. '<center><img src="img/oldtown/zan1<<zanpicrand>>.jpg"></center>'
  383. 'You go down on his knees and grabs his dick, second girl looks at you with round eyes, but then also starts to stick to the teacher to, the first bit resists, but then completely given into your hand.'
  384. act'blow_job':gt'podrsex','var'
  385. end
  386. end
  387. end
  388. act 'Withdraw from the audience':gt'univer','dekanat'
  389. end
  390. end
  391. if kursovik >= 100:
  392. act 'Rent out your course work':
  393. cla
  394. *clr
  395. set intel = intel + 1
  396. set kursovik = 0
  397. set kursovikD = kursovikD + 1
  398. '<center><img src="pic/Classroom1.jpg" ></center>'
  399. 'You passed the course work.'
  400. act 'Withdraw from the audience':gt'univer','dekanat'
  401. end
  402. end
  403. >>>>>>> 365_univer
  404. end
  405. <<<<<<< 365_univer
  406. if $ARGS[0] = 'examen':
  407. =======
  408. if $ARGS[0]='examen':
  409. >>>>>>> 365_univer
  410. cla
  411. *clr
  412. <<<<<<< 365_univer
  413. set minut += 60
  414. '<center><B><font color = maroon>Exam</font></B></center>'
  415. '<center><img src="images\etogame\examen.jpg"></center>'
  416. clr
  417. gs 'stat'
  418. if lektor > 55 and kursovikD >= kurs:
  419. set examen = 1
  420. set kursovikD = 0
  421. set stipuha = 1
  422. set lektor = 0
  423. !1200
  424. 'You are well attended classes and you have no outstanding coursework, exam so you put a gun.'
  425. jump 'exitexamem'
  426. end
  427. if ((intel >= 80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  428. set examen = 1
  429. set kursovikD = 0
  430. set stipuha = 0
  431. 'You answered all the questions in the ticket and you have no outstanding coursework, so you score? Exam.'
  432. set lektor = 0
  433. act 'Exit from the audience': gt 'univer','dekanat'
  434. exit
  435. end
  436. if (intel >= 100) and kursovikD >= kurs + 10:
  437. set examen = 1
  438. set kursovikD = 0
  439. set stipuha = 1
  440. 'You showed great zeal and independence in learning, so you put a gun exam.'
  441. set lektor = 0
  442. jump 'exitexamem'
  443. !exit
  444. end
  445. if (intel < 70 and lektor <= 40) or kursovikD < kurs:
  446. set examen = 2
  447. set stipuha = 0
  448. 'You do not pass the exam.'
  449. end
  450. if examen = 0:
  451. set examen = 2
  452. set stipuha = 0
  453. 'You do not pass the exam.'
  454. end
  455. :exitexamem
  456. act 'Exit from the audience': gt 'univer','dekanat'
  457. =======
  458. set minut = minut + 60
  459. '<center><B><font color=maroon>exam</font></B></center>'
  460. '<center><img src="pic/examen.jpg" ></center>'
  461. clr
  462. gs'stat'
  463. if lektor > 55 and kursovikD >= kurs:
  464. set examen = 1
  465. set kursovikD = 0
  466. set stipuha = 1
  467. set lektor = 0
  468. !1200
  469. 'You are well attended classes and you do not have arrears of coursework, so the exam you put a gun.'
  470. jump 'exitexamem'
  471. end
  472. if ((intel>=80) or (lektor > 40 and lektor <= 55)) and kursovikD >= kurs:
  473. set examen = 1
  474. set kursovikD = 0
  475. set stipuha = 0
  476. 'You have answered all the questions in the ticket and you do not have arrears of coursework, so the exam you score?.'
  477. set lektor = 0
  478. act 'Withdraw from the audience':gt'univer','dekanat'
  479. exit
  480. end
  481. if (intel>=100) and kursovikD >= kurs + 10:
  482. set examen = 1
  483. set kursovikD = 0
  484. set stipuha = 1
  485. 'You have shown great zeal and self- learning, so the exam you put a gun.'
  486. set lektor = 0
  487. jump 'exitexamem'
  488. !exit
  489. end
  490. if (intel<70 and lektor <= 40) or kursovikD < kurs:
  491. set examen = 2
  492. set stipuha = 0
  493. 'You do not pass the exam.'
  494. end
  495. if examen = 0:
  496. set examen = 2
  497. set stipuha = 0
  498. 'You do not pass the exam.'
  499. end
  500. :exitexamem
  501. act 'Withdraw from the audience':gt'univer','dekanat'
  502. >>>>>>> 365_univer
  503. end
  504. --- univer ---------------------------------