uni_programs.qsrc 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929
  1. # uni_programs
  2. !!This is the file containing the variabels and actions for handeling the different program the player can attend at the university.
  3. !!The following vaiables are important.
  4. !! university['student'] is set to 1 if the player is enrolled in a university program.
  5. !! $university['enrolled_in'] is the name of the university program the player is enrolled in, there is the following progams: teaching_studies
  6. !! university['enrolled_in_semester'] is the semester the player enrolled in starting at 1 for the first semester and ending with 8 for the last.
  7. if $ARGS[0] = 'program_name':
  8. if $university['enrolled_in']= 'teaching_studies':
  9. $RESULT = 'teaching studies'
  10. end
  11. end
  12. if $ARGS[0] = 'uni_period_first':
  13. !!This arg have two functions. If called with gs without any optional argument it will make the cations to go to class availeble.
  14. !!Second if called as a function with the additional ARGS[1] of monday, tuesday, wednesday or thursday, it will print on the screen the name of the class and the time period.
  15. if $university['enrolled_in'] = 'teaching_studies':
  16. if university['enrolled_in_semester'] = 1:
  17. if $ARGS[1] = 'monday':
  18. $Result = 'General Education 101 (09:00 to 10:30)'
  19. elseif $ARGS[1] = 'tuesday':
  20. $Result = 'General Education 101 (09:00 to 10:30)'
  21. elseif $ARGS[1] = 'wednesday':
  22. $Result = 'General Education 101 (09:00 to 10:30)'
  23. elseif $ARGS[1] = 'thursday':
  24. $Result = 'Teaching Methods 101 (09:00 to 10:30)'
  25. elseif week = 1:
  26. *nl
  27. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  28. act 'Go to your General Education 101 class':
  29. if hour = 8: minut += 60 - minut
  30. if hour = 7: minut += 120 - minut
  31. uni_period['first'] = daystart
  32. gs 'stat'
  33. gt 'uni_lessons1', 'general_education_101'
  34. end
  35. elseif week = 2:
  36. *nl
  37. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  38. act 'Go to your General Education 101 class':
  39. if hour = 8: minut += 60 - minut
  40. if hour = 7: minut += 120 - minut
  41. uni_period['first'] = daystart
  42. gs 'stat'
  43. gt 'uni_lessons1', 'general_education_101'
  44. end
  45. elseif week = 3:
  46. *nl
  47. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  48. act 'Go to your General Education 101 class':
  49. if hour = 8: minut += 60 - minut
  50. if hour = 7: minut += 120 - minut
  51. uni_period['first'] = daystart
  52. gs 'stat'
  53. gt 'uni_lessons1', 'general_education_101'
  54. end
  55. elseif week = 4:
  56. *nl
  57. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  58. act 'Go to your Teaching Methods 101 class':
  59. if hour = 8: minut += 60 - minut
  60. if hour = 7: minut += 120 - minut
  61. uni_period['first'] = daystart
  62. gs 'stat'
  63. gt 'uni_lessons1', 'teaching_methods_101'
  64. end
  65. end
  66. elseif university['enrolled_in_semester'] = 2:
  67. if $ARGS[1] = 'monday':
  68. $Result = 'General Education 102 (9:00 to 10:30)'
  69. elseif $ARGS[1] = 'tuesday':
  70. $Result = 'General Education 102 (9:00 to 10:30)'
  71. elseif $ARGS[1] = 'wednesday':
  72. $Result = 'General Education 102 (9:00 to 10:30)'
  73. elseif $ARGS[1] = 'thursday':
  74. $Result = 'Teaching Methods 102 (9:00 to 10:30)'
  75. elseif week = 1:
  76. *nl
  77. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  78. act 'Go to your General Education 102 class':
  79. if hour = 8: minut += 60 - minut
  80. if hour = 7: minut += 120 - minut
  81. uni_period['first'] = daystart
  82. gs 'stat'
  83. gt 'uni_lessons2', 'general_education_102'
  84. end
  85. elseif week = 2:
  86. *nl
  87. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  88. act 'Go to your General Education 102 class':
  89. if hour = 8: minut += 60 - minut
  90. if hour = 7: minut += 120 - minut
  91. uni_period['first'] = daystart
  92. gs 'stat'
  93. gt 'uni_lessons2', 'general_education_102'
  94. end
  95. elseif week = 3:
  96. *nl
  97. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  98. act 'Go to your General Education 102 class':
  99. if hour = 8: minut += 60 - minut
  100. if hour = 7: minut += 120 - minut
  101. uni_period['first'] = daystart
  102. gs 'stat'
  103. gt 'uni_lessons2', 'general_education_102'
  104. end
  105. elseif week = 4:
  106. *nl
  107. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  108. act 'Go to your Teaching Methods 102 class':
  109. if hour = 8: minut += 60 - minut
  110. if hour = 7: minut += 120 - minut
  111. uni_period['first'] = daystart
  112. gs 'stat'
  113. gt 'uni_lessons2', 'teaching_methods_102'
  114. end
  115. end
  116. elseif university['enrolled_in_semester'] = 3:
  117. if $ARGS[1] = 'monday':
  118. $Result = 'General Education 201 (9:00 to 10:30)'
  119. elseif $ARGS[1] = 'tuesday':
  120. $Result = 'General Education 201 (9:00 to 10:30)'
  121. elseif $ARGS[1] = 'wednesday':
  122. $Result = 'General Education 201 (9:00 to 10:30)'
  123. elseif $ARGS[1] = 'thursday':
  124. $Result = 'Assessment 201 (9:00 to 10:30)'
  125. elseif week = 1:
  126. *nl
  127. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  128. act 'Go to your General Education 201 class':
  129. if hour = 8: minut += 60 - minut
  130. if hour = 7: minut += 120 - minut
  131. uni_period['first'] = daystart
  132. gs 'stat'
  133. gt 'uni_lessons3', 'general_education_201'
  134. end
  135. elseif week = 2:
  136. *nl
  137. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  138. act 'Go to your General Education 201 class':
  139. if hour = 8: minut += 60 - minut
  140. if hour = 7: minut += 120 - minut
  141. uni_period['first'] = daystart
  142. gs 'stat'
  143. gt 'uni_lessons3', 'general_education_201'
  144. end
  145. elseif week = 3:
  146. *nl
  147. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  148. act 'Go to your General Education 201 class':
  149. if hour = 8: minut += 60 - minut
  150. if hour = 7: minut += 120 - minut
  151. uni_period['first'] = daystart
  152. gs 'stat'
  153. gt 'uni_lessons3', 'general_education_201'
  154. end
  155. elseif week = 4:
  156. *nl
  157. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  158. act 'Go to your Assessment_201 class':
  159. if hour = 8: minut += 60 - minut
  160. if hour = 7: minut += 120 - minut
  161. uni_period['first'] = daystart
  162. gs 'stat'
  163. gt 'uni_lessons3', 'assessment_201'
  164. end
  165. end
  166. elseif university['enrolled_in_semester'] = 4:
  167. if $ARGS[1] = 'monday':
  168. $Result = 'General education 202 (9:00 to 10:30)'
  169. elseif $ARGS[1] = 'tuesday':
  170. $Result = 'General education 202 (9:00 to 10:30)'
  171. elseif $ARGS[1] = 'wednesday':
  172. $Result = 'General education 202 (9:00 to 10:30)'
  173. elseif $ARGS[1] = 'thursday':
  174. $Result = 'Learning theories 202 (9:00 to 10:30)'
  175. elseif week = 1:
  176. *nl
  177. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  178. act 'Go to your General education 202 class':
  179. if hour = 8: minut += 60 - minut
  180. if hour = 7: minut += 120 - minut
  181. uni_period['first'] = daystart
  182. gs 'stat'
  183. gt 'uni_lessons4', 'general_education_202'
  184. end
  185. elseif week = 2:
  186. *nl
  187. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  188. act 'Go to your General education 201 class':
  189. if hour = 8: minut += 60 - minut
  190. if hour = 7: minut += 120 - minut
  191. uni_period['first'] = daystart
  192. gs 'stat'
  193. gt 'uni_lessons4', 'general_education_202'
  194. end
  195. elseif week = 3:
  196. *nl
  197. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  198. act 'Go to your General education 201 class':
  199. if hour = 8: minut += 60 - minut
  200. if hour = 7: minut += 120 - minut
  201. uni_period['first'] = daystart
  202. gs 'stat'
  203. gt 'uni_lessons4', 'general_education_202'
  204. end
  205. elseif week = 4:
  206. *nl
  207. 'Your next class will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  208. act 'Go to your Assessment_201 class':
  209. if hour = 8: minut += 60 - minut
  210. if hour = 7: minut += 120 - minut
  211. uni_period['first'] = daystart
  212. gs 'stat'
  213. gt 'uni_lessons4', 'learning_theories_202'
  214. end
  215. end
  216. end
  217. end
  218. end
  219. if $ARGS[0] = 'uni_period_second':
  220. !!This arg have two functions. If called with gs without any optional argument it will make the options to go to class availeble.
  221. !!Second if called as a function with the additional ARGS[1] of monday, tuesday, wednesday or thursday, it will print on the screen the name of the classe and the time period.
  222. if $university['enrolled_in']= 'teaching_studies':
  223. if university['enrolled_in_semester'] = 1:
  224. if $ARGS[1] = 'monday':
  225. $Result = 'Teaching Methods 101 (11:00 to 12:30)'
  226. elseif $ARGS[1] = 'tuesday':
  227. $Result = 'Learning Theories 101 (11:00 to 12:30)'
  228. elseif $ARGS[1] = 'wednesday':
  229. $Result = 'Teaching Methods 101 (11:00 to 12:30)'
  230. elseif $ARGS[1] = 'thursday':
  231. $Result = 'Learning Theories 101 (11:00 to 12:30)'
  232. elseif week = 1:
  233. *nl
  234. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  235. act 'Go to your Teaching Methods 101 class':
  236. if hour = 10: minut += 60 - minut
  237. uni_period['second'] = daystart
  238. gs 'stat'
  239. gt 'uni_lessons1', 'teaching_methods_101'
  240. end
  241. elseif week = 2:
  242. *nl
  243. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  244. act 'Go to your Learning Theories 101 Class':
  245. if hour = 10: minut += 60 - minut
  246. uni_period['second'] = daystart
  247. gs 'stat'
  248. gt 'uni_lessons1', 'learning_theories_101'
  249. end
  250. elseif week = 3:
  251. *nl
  252. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  253. act 'Go to your Teaching Methods 101 class':
  254. if hour = 10: minut += 60 - minut
  255. uni_period['second'] = daystart
  256. gs 'stat'
  257. gt 'uni_lessons1', 'teaching_methods_101'
  258. end
  259. elseif week = 4:
  260. *nl
  261. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  262. act 'Go to your Learning Theories 101 Class':
  263. if hour = 10: minut += 60 - minut
  264. uni_period['second'] = daystart
  265. gs 'stat'
  266. gt 'uni_lessons1', 'learning_theories_101'
  267. end
  268. end
  269. elseif university['enrolled_in_semester'] = 2:
  270. if $ARGS[1] = 'monday':
  271. $Result = 'Teaching Methods 102 (11:00 to 12:30)'
  272. elseif $ARGS[1] = 'tuesday':
  273. $Result = 'Psychology of a Student 101 (11:00 to 12:30)'
  274. elseif $ARGS[1] = 'wednesday':
  275. $Result = 'Teaching Methods 102 (11:00 to 12:30)'
  276. elseif $ARGS[1] = 'thursday':
  277. $Result = 'Psychology of a Student 101 (11:00 to 12:30)'
  278. elseif week = 1:
  279. *nl
  280. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  281. act 'Go to your Teaching Methods 102 class':
  282. if hour = 10: minut += 60 - minut
  283. uni_period['second'] = daystart
  284. gs 'stat'
  285. gt 'uni_lessons2', 'teaching_methods_102'
  286. end
  287. elseif week = 2:
  288. *nl
  289. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  290. act 'Go to your Phsychology of a Student 101 Class':
  291. if hour = 10: minut += 60 - minut
  292. uni_period['second'] = daystart
  293. gs 'stat'
  294. gt 'uni_lessons2', 'psychology_of_a_student_101'
  295. end
  296. elseif week = 3:
  297. *nl
  298. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  299. act 'Go to your Teaching Methods 102 class':
  300. if hour = 10: minut += 60 - minut
  301. uni_period['second'] = daystart
  302. gs 'stat'
  303. gt 'uni_lessons2', 'teaching_methods_102'
  304. end
  305. elseif week = 4:
  306. *nl
  307. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  308. act 'Go to your Psychology of a Student 101 Class':
  309. if hour = 10: minut += 60 - minut
  310. uni_period['second'] = daystart
  311. gs 'stat'
  312. gt 'uni_lessons2', 'psychology_of_a_student_101'
  313. end
  314. end
  315. elseif university['enrolled_in_semester'] = 3:
  316. if $ARGS[1] = 'monday':
  317. $Result = ' Assessment 201 (11:00 to 12:30)'
  318. elseif $ARGS[1] = 'tuesday':
  319. $Result = 'Learning Theories 201 (11:00 to 12:30)'
  320. elseif $ARGS[1] = 'wednesday':
  321. $Result = ' Assessment 201 (11:00 to 12:30)'
  322. elseif $ARGS[1] = 'thursday':
  323. $Result = 'Learning Theories 201 (11:00 to 12:30)'
  324. elseif week = 1:
  325. *nl
  326. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  327. act 'Go to your Assessment 201 class':
  328. if hour = 10: minut += 60 - minut
  329. uni_period['second'] = daystart
  330. gs 'stat'
  331. gt 'uni_lessons3', 'assessment_201'
  332. end
  333. elseif week = 2:
  334. *nl
  335. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  336. act 'Go to your Learning Theories 201 Class':
  337. if hour = 10: minut += 60 - minut
  338. uni_period['second'] = daystart
  339. gs 'stat'
  340. gt 'uni_lessons3', 'learning_theories_201'
  341. end
  342. elseif week = 3:
  343. *nl
  344. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  345. act 'Go to your Assessment 201 class':
  346. if hour = 10: minut += 60 - minut
  347. uni_period['second'] = daystart
  348. gs 'stat'
  349. gt 'uni_lessons3', 'assessment_201'
  350. end
  351. elseif week = 4:
  352. *nl
  353. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  354. act 'Go to your Learning Theories 201 Class':
  355. if hour = 10: minut += 60 - minut
  356. uni_period['second'] = daystart
  357. gs 'stat'
  358. gt 'uni_lessons3', 'learning_theories_201'
  359. end
  360. end
  361. elseif university['enrolled_in_semester'] = 4:
  362. if $ARGS[1] = 'monday':
  363. $Result = 'Learning Theories 202 (11:00 to 12:30)'
  364. elseif $ARGS[1] = 'tuesday':
  365. $Result = 'Psychology of a Student 201 (11:00 to 12:30)'
  366. elseif $ARGS[1] = 'wednesday':
  367. $Result = 'Learning Theories 202 (11:00 to 12:30)'
  368. elseif $ARGS[1] = 'thursday':
  369. $Result = 'Psychology of a Student 201 (11:00 to 12:30)'
  370. elseif week = 1:
  371. *nl
  372. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  373. act 'Go to your Learning Theories 202 class':
  374. if hour = 10: minut += 60 - minut
  375. uni_period['second'] = daystart
  376. gs 'stat'
  377. gt 'uni_lessons4', 'learning_theories_202'
  378. end
  379. elseif week = 2:
  380. *nl
  381. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  382. act 'Go to your Phsychology of a Student 201 Class':
  383. if hour = 10: minut += 60 - minut
  384. uni_period['second'] = daystart
  385. gs 'stat'
  386. gt 'uni_lessons4', 'psychology_of_a_student_201'
  387. end
  388. elseif week = 3:
  389. *nl
  390. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  391. act 'Go to your Learning Theories 202 class':
  392. if hour = 10: minut += 60 - minut
  393. uni_period['second'] = daystart
  394. gs 'stat'
  395. gt 'uni_lessons4', 'learning_theories_202'
  396. end
  397. elseif week = 4:
  398. *nl
  399. 'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  400. act 'Go to your Psychology of a Student 201 Class':
  401. if hour = 10: minut += 60 - minut
  402. uni_period['second'] = daystart
  403. gs 'stat'
  404. gt 'uni_lessons4', 'psychology_of_a_student_201'
  405. end
  406. end
  407. end
  408. end
  409. end
  410. if $ARGS[0] = 'uni_period_third':
  411. !!This arg have two functions. If called with gs without any optional argument it will make the options to go to class availeble.
  412. !!Second if called as a function with the additional ARGS[1] of monday, tuesday, wednesday or thursday, it will print on the screen the name of the classe and the time period.
  413. if $university['enrolled_in']= 'teaching_studies':
  414. if university['enrolled_in_semester'] = 1:
  415. if $ARGS[1] = 'monday':
  416. if $university['elective_semester_1_1'] ! '':
  417. $Result = '<<$university[''elective_semester_1_1'']>> (13:15 to 14:45)'
  418. end
  419. elseif $ARGS[1] = 'tuesday':
  420. if $university['elective_semester_1_2'] ! '':
  421. $Result = '<<$university[''elective_semester_1_2'']>> (13:15 to 14:45)'
  422. end
  423. elseif $ARGS[1] = 'wednesday':
  424. $Result = 'Learning Theories 101 (13:15 to 14:45)'
  425. elseif $ARGS[1] = 'thursday' :
  426. if $university['elective_semester_1_3'] ! '':
  427. $Result = '<<$university[''elective_semester_1_3'']>> (13:15 to 14:45)'
  428. end
  429. elseif week = 1 and $university['elective_semester_1_1'] ! '':
  430. *nl
  431. 'Your next class will start at 13:15'
  432. act 'Go to your elective <<$university[''elective_semester_1_1'']>>':
  433. if hour = 12: minut += 75 - minut
  434. if hour = 13 and minut < 15: minut += 15 - minut
  435. uni_period['third'] = daystart
  436. gs 'stat'
  437. gt 'uni_lessons_electives1', $university['elective_semester_1_1']
  438. end
  439. elseif week = 2 and $university['elective_semester_1_2'] ! '':
  440. *nl
  441. 'Your next class will start at 13:15'
  442. act 'Go to your elective <<$university[''elective_semester_1_2'']>>':
  443. if hour = 12: minut += 75 - minut
  444. if hour = 13 and minut < 15: minut += 15 - minut
  445. uni_period['third'] = daystart
  446. gs 'stat'
  447. gt 'uni_lessons_electives1', $university['elective_semester_1_2']
  448. end
  449. elseif week = 3:
  450. *nl
  451. 'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  452. act 'Go to your Learning Theories 101 Class':
  453. if hour = 12: minut += 75 - minut
  454. if hour = 13 and minut < 15: minut += 15 - minut
  455. uni_period['third'] = daystart
  456. gs 'stat'
  457. gt 'uni_lessons1', 'learning_theories_101'
  458. end
  459. elseif week = 4 and $university['elective_semester_1_3'] ! '':
  460. *nl
  461. 'Your next class will start at 13:15'
  462. act 'Go to your elective <<$university[''elective_semester_1_3'']>>':
  463. if hour = 12: minut += 75 - minut
  464. if hour = 13 and minut < 15: minut += 15 - minut
  465. uni_period['third'] = daystart
  466. gs 'stat'
  467. gt 'uni_lessons_electives1', $university['elective_semester_1_3']
  468. end
  469. end
  470. elseif university['enrolled_in_semester'] = 2:
  471. if $ARGS[1] = 'monday':
  472. if $university['elective_semester_2_1'] ! '':
  473. $Result = '<<$university[''elective_semester_2_1'']>> (13:15 to 14:45)'
  474. end
  475. elseif $ARGS[1] = 'tuesday':
  476. if $university['elective_semester_2_2'] ! '':
  477. $Result = '<<$university[''elective_semester_2_2'']>> (13:15 to 14:45)'
  478. end
  479. elseif $ARGS[1] = 'wednesday':
  480. $Result = 'Phsychology of a Student 101 (13:15 to 14:45)'
  481. elseif $ARGS[1] = 'thursday' :
  482. if $university['elective_semester_2_3'] ! '':
  483. $Result = '<<$university[''elective_semester_2_3'']>> (13:15 to 14:45)'
  484. end
  485. elseif week = 1 and $university['elective_semester_2_1'] ! '':
  486. *nl
  487. 'Your next class will start at 13:15'
  488. act 'Go to your elective <<$university[''elective_semester_2_1'']>>':
  489. if hour = 12: minut += 75 - minut
  490. if hour = 13 and minut < 15: minut += 15 - minut
  491. uni_period['third'] = daystart
  492. gs 'stat'
  493. gt 'uni_lessons_electives1', $university['elective_semester_2_1']
  494. end
  495. elseif week = 2 and $university['elective_semester_2_2'] ! '':
  496. *nl
  497. 'Your next class will start at 13:15'
  498. act 'Go to your elective <<$university[''elective_semester_2_2'']>>':
  499. if hour = 12: minut += 75 - minut
  500. if hour = 13 and minut < 15: minut += 15 - minut
  501. uni_period['third'] = daystart
  502. gs 'stat'
  503. gt 'uni_lessons_electives1', $university['elective_semester_2_2']
  504. end
  505. elseif week = 3:
  506. *nl
  507. 'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  508. act 'Go to your Phsychology of a Student 101 Class':
  509. if hour = 12: minut += 75 - minut
  510. if hour = 13 and minut < 15: minut += 15 - minut
  511. uni_period['third'] = daystart
  512. gs 'stat'
  513. gt 'uni_lessons2', 'psychology_of_a_student_101'
  514. end
  515. elseif week = 4 and $university['elective_semester_2_3'] ! '':
  516. *nl
  517. 'Your next class will start at 13:15'
  518. act 'Go to your elective <<$university[''elective_semester_2_3'']>>':
  519. if hour = 12: minut += 75 - minut
  520. if hour = 13 and minut < 15: minut += 15 - minut
  521. uni_period['third'] = daystart
  522. gs 'stat'
  523. gt 'uni_lessons_electives1', $university['elective_semester_2_3']
  524. end
  525. end
  526. elseif university['enrolled_in_semester'] = 3:
  527. if $ARGS[1] = 'monday':
  528. if $university['elective1'] ! '':
  529. $Result = '<<$university[''elective1'']>> (13:15 to 14:45)'
  530. end
  531. elseif $ARGS[1] = 'tuesday':
  532. if $university['elective2'] ! '':
  533. $Result = '<<$university[''elective2'']>> (13:15 to 14:45)'
  534. end
  535. elseif $ARGS[1] = 'wednesday':
  536. $Result = 'Learning Theories 201 (13:15 to 14:45)'
  537. elseif $ARGS[1] = 'thursday':
  538. if $university['elective3'] ! '':
  539. $Result = '<<$university[''elective3'']>> (13:15 to 14:45)'
  540. end
  541. elseif week = 1 and $university['elective1'] ! '':
  542. !!*nl
  543. !!'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  544. !!act 'Go to your elective clas 1':
  545. !! if hour = 12: minut += 75 - minut
  546. !! if hour = 13 and minut < 15: minut += 15 - minut
  547. !! uni_period['third'] = daystart
  548. !! gs 'stat'
  549. !!end
  550. elseif week = 2 and $university['elective2'] ! '':
  551. !!*nl
  552. !!'Your next class will start at 13:15'
  553. !!act 'Go to your elective clas 2':
  554. !! if hour = 12: minut += 75 - minut
  555. !! if hour = 13 and minut < 15: minut += 15 - minut
  556. !! uni_period['third'] = daystart
  557. !! gs 'stat'
  558. !!end
  559. elseif week = 3:
  560. *nl
  561. 'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  562. act 'Go to your Learning Theories 201 Class':
  563. if hour = 12: minut += 75 - minut
  564. if hour = 13 and minut < 15: minut += 15 - minut
  565. uni_period['third'] = daystart
  566. gs 'stat'
  567. gt 'uni_lessons3', 'learning_theories_201'
  568. end
  569. elseif week = 4 and $university['elective3'] ! '':
  570. !!*nl
  571. !!'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  572. !!act 'Go to your elective clas 3':
  573. !! if hour = 12: minut += 75 - minut
  574. !! if hour = 13 and minut < 15: minut += 15 - minut
  575. !! uni_period['third'] = daystart
  576. !! gs 'stat'
  577. !!end
  578. end
  579. elseif university['enrolled_in_semester'] = 4:
  580. if $ARGS[1] = 'monday':
  581. if $university['elective1'] ! '':
  582. $Result = '<<$university[''elective1'']>> (13:15 to 14:45)'
  583. end
  584. elseif $ARGS[1] = 'tuesday':
  585. if $university['elective2'] ! '':
  586. $Result = '<<$university[''elective2'']>> (13:15 to 14:45)'
  587. end
  588. elseif $ARGS[1] = 'wednesday':
  589. $Result = 'Phsychology of a Student 201 (13:15 to 14:45)'
  590. elseif $ARGS[1] = 'thursday':
  591. if $university['elective3'] ! '':
  592. $Result = '<<$university[''elective3'']>> (13:15 to 14:45)'
  593. end
  594. elseif week = 1 and $university['elective1'] ! '':
  595. !!*nl
  596. !!'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  597. !!act 'Go to your elective clas 1':
  598. !! if hour = 12: minut += 75 - minut
  599. !! if hour = 13 and minut < 15: minut += 15 - minut
  600. !! uni_period['third'] = daystart
  601. !! gs 'stat'
  602. !!end
  603. elseif week = 2 and $university['elective2'] ! '':
  604. !!*nl
  605. !!'Your next class will start at 13:15'
  606. !!act 'Go to your elective clas 2':
  607. !! if hour = 12: minut += 75 - minut
  608. !! if hour = 13 and minut < 15: minut += 15 - minut
  609. !! uni_period['third'] = daystart
  610. !! gs 'stat'
  611. !!end
  612. elseif week = 3:
  613. *nl
  614. 'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  615. act 'Go to your Phsychology of a Student 201 Class':
  616. if hour = 12: minut += 75 - minut
  617. if hour = 13 and minut < 15: minut += 15 - minut
  618. uni_period['third'] = daystart
  619. gs 'stat'
  620. gt 'uni_lessons4', 'psychology_of_a_student_201'
  621. end
  622. elseif week = 4 and $university['elective3'] ! '':
  623. !!*nl
  624. !!'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  625. !!act 'Go to your elective clas 3':
  626. !! if hour = 12: minut += 75 - minut
  627. !! if hour = 13 and minut < 15: minut += 15 - minut
  628. !! uni_period['third'] = daystart
  629. !! gs 'stat'
  630. !!end
  631. end
  632. end
  633. end
  634. end
  635. if $ARGS[0] = 'exam':
  636. !!This arg have three functions. If called with gs without any optional argument it will make the options to go to exam availeble.
  637. !!The second if called as a function with the additional $ARGS[1] = 'schedule', it will print on the screen the name and date of the exams you have left this semester.
  638. !!The third is if called with $ARGS[1] = 'is_over' and $ARGs[2] the name of the class to no if the time slot for the exam has passed by returning 1. Only use this during in the exam weeks, out side the exam week this is covered of the variabels that tell wether the semeter is passed or not.
  639. if $university['enrolled_in'] = 'teaching_studies':
  640. if university['enrolled_in_semester'] = 1:
  641. if $ARGS[1] = 'schedule':
  642. if university['exam_week'] = 1:
  643. if week < 4 or (week = 4 and hour < 9):
  644. $Result = 'General Education 101 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 101 Exam (09:00 to 12:00) Monday next week. Learning Theories 101 Exam (09:00 to 12:00) Thursday next week.'
  645. else
  646. $Result = 'Teaching Methods 101 Exam (09:00 to 12:00) Tuesday next week. Learning Theories 101 Exam (09:00 to 12:00) Thursday next week.'
  647. end
  648. elseif university['exam_week'] = 2:
  649. if week < 2 or (week = 2 and hour < 9):
  650. $Result = 'Teaching Methods 101 Exam (09:00 to 12:00) Tuesday this week. Learning Theories 101 Exam (09:00 to 12:00) Thursday this week.'
  651. elseif week < 4 or (week = 4 and hour < 9):
  652. $Result = 'Learning Theories 101 Exam (09:00 to 12:00) Thursday this week.'
  653. else
  654. $Result = 'All your exams are over. Now you just have to wait for your grade to be announced.'
  655. end
  656. end
  657. elseif $ARGS[1] = 'is_over':
  658. if $ARGS[2] = 'general education 101':
  659. if university['exam_week'] = 1 and (week < 4 or (week = 4 and hour < 9)):
  660. Result = 0
  661. else
  662. Result = 1
  663. end
  664. elseif $ARGS[2] = 'teaching methods 101':
  665. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 2 or (week = 2 and hour < 9))):
  666. Result = 0
  667. else
  668. Result = 1
  669. end
  670. elseif $ARGS[2] = 'learning theories 101':
  671. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 4 or (week = 4 and hour < 9))):
  672. Result = 0
  673. else
  674. Result = 1
  675. end
  676. end
  677. elseif university['exam_week'] = 1:
  678. if week = 4:
  679. *nl
  680. 'Your General Education 101 exam will start at 09:00 today. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  681. act 'Go to your General Education 101 exam':
  682. if hour = 8: minut += 60 - minut
  683. if hour = 7: minut += 120 - minut
  684. gs 'stat'
  685. gt 'uni_exams1', 'general_education_101'
  686. end
  687. end
  688. elseif university['exam_week'] = 2:
  689. if week = 2:
  690. *nl
  691. 'Your Teaching Methods 101 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  692. act 'Go to your Teaching Methods 101 exam':
  693. if hour = 8: minut += 60 - minut
  694. if hour = 7: minut += 120 - minut
  695. gs 'stat'
  696. gt 'uni_exams1', 'teaching_methods_101'
  697. end
  698. elseif week = 4:
  699. *nl
  700. 'Your Learning Theories 101 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  701. act 'Go to your Learning Theories 101 exam':
  702. if hour = 8: minut += 60 - minut
  703. if hour = 7: minut += 120 - minut
  704. gs 'stat'
  705. gt 'uni_exams1', 'learning_theories_101'
  706. end
  707. end
  708. end
  709. elseif university['enrolled_in_semester'] = 2:
  710. if $ARGS[1] = 'schedule':
  711. if university['exam_week'] = 1:
  712. if week < 4 or (week = 4 and hour < 9):
  713. $Result = 'General Education 102 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 102 Exam (09:00 to 12:00) Monday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  714. else
  715. $Result = 'Teaching Methods 102 Exam (09:00 to 12:00) Tuesday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  716. end
  717. elseif university['exam_week'] = 2:
  718. if week < 2 or (week = 2 and hour < 9):
  719. $Result = 'Teaching Methods 102 Exam (09:00 to 12:00) Tuesday this week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday this week.'
  720. elseif week < 4 or (week = 4 and hour < 9):
  721. $Result = 'Psychology of a Student 101 Exam (09:00 to 12:00) Thursday this week.'
  722. else
  723. $Result = 'All your exams are over. Now you just have to wait for your grade to be announced.'
  724. end
  725. end
  726. elseif $ARGS[1] = 'is_over':
  727. if $ARGS[2] = 'general education 102':
  728. if university['exam_week'] = 1 and (week < 4 or (week = 4 and hour < 9)):
  729. Result = 0
  730. else
  731. Result = 1
  732. end
  733. elseif $ARGS[2] = 'teaching methods 102':
  734. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 2 or (week = 2 and hour < 9))):
  735. Result = 0
  736. else
  737. Result = 1
  738. end
  739. elseif $ARGS[2] = 'Phsychology of a Student 101':
  740. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 4 or (week = 4 and hour < 9))):
  741. Result = 0
  742. else
  743. Result = 1
  744. end
  745. end
  746. elseif university['exam_week'] = 1:
  747. if week = 4:
  748. *nl
  749. 'Your General Education 102 exam will start at 09:00 today. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  750. act 'Go to your General Education 102 exam':
  751. if hour = 8: minut += 60 - minut
  752. if hour = 7: minut += 120 - minut
  753. gs 'stat'
  754. gt 'uni_exams2', 'general_education_102'
  755. end
  756. end
  757. elseif university['exam_week'] = 2:
  758. if week = 2:
  759. *nl
  760. 'Your Teaching Methods 102 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  761. act 'Go to your Teaching Methods exam 102':
  762. if hour = 8: minut += 60 - minut
  763. if hour = 7: minut += 120 - minut
  764. gs 'stat'
  765. gt 'uni_exams2', 'teaching_methods_102'
  766. end
  767. elseif week = 4:
  768. *nl
  769. 'Your Psychology of a Student 101 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  770. act 'Go to your Psychology of a Student 101 exam':
  771. if hour = 8: minut += 60 - minut
  772. if hour = 7: minut += 120 - minut
  773. gs 'stat'
  774. gt 'uni_exams2', 'psychology_of_a_student_101'
  775. end
  776. end
  777. end
  778. elseif university['enrolled_in_semester'] = 3:
  779. if $ARGS[1] = 'schedule':
  780. if university['exam_week'] = 1:
  781. if week < 4 or (week = 4 and hour < 9):
  782. $Result = 'General Education 201 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 102 Exam (09:00 to 12:00) Monday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  783. else
  784. $Result = 'Assessment 201 Exam (09:00 to 12:00) Tuesday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  785. end
  786. elseif university['exam_week'] = 2:
  787. if week < 2 or (week = 2 and hour < 9):
  788. $Result = 'Teaching Methods 102 Exam (09:00 to 12:00) Tuesday this week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday this week.'
  789. elseif week < 4 or (week = 4 and hour < 9):
  790. $Result = 'Learning Theories 201 Exam (09:00 to 12:00) Thursday this week.'
  791. else
  792. $Result = 'All your exams are over. Now you just have to wait for your grade to be announced.'
  793. end
  794. end
  795. elseif $ARGS[1] = 'is_over':
  796. if $ARGS[2] = 'general education 201':
  797. if university['exam_week'] = 1 and (week < 4 or (week = 4 and hour < 9)):
  798. Result = 0
  799. else
  800. Result = 1
  801. end
  802. elseif $ARGS[2] = 'Assessment 201':
  803. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 2 or (week = 2 and hour < 9))):
  804. Result = 0
  805. else
  806. Result = 1
  807. end
  808. elseif $ARGS[2] = 'Learning Theories 201':
  809. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 4 or (week = 4 and hour < 9))):
  810. Result = 0
  811. else
  812. Result = 1
  813. end
  814. end
  815. elseif university['exam_week'] = 1:
  816. if week = 4:
  817. *nl
  818. 'Your General Education 102 exam will start at 09:00 today. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  819. act 'Go to your General Education 102 exam':
  820. if hour = 8: minut += 60 - minut
  821. if hour = 7: minut += 120 - minut
  822. gs 'stat'
  823. gt 'uni_exams3', 'general_education_201'
  824. end
  825. end
  826. elseif university['exam_week'] = 2:
  827. if week = 2:
  828. *nl
  829. 'Your Assessment 201 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  830. act 'Go to your Assessment 201':
  831. if hour = 8: minut += 60 - minut
  832. if hour = 7: minut += 120 - minut
  833. gs 'stat'
  834. gt 'uni_exams3', 'assessment_201'
  835. end
  836. elseif week = 4:
  837. *nl
  838. 'Your Learning Theories 201 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  839. act 'Go to your Learning Theories 201 exam':
  840. if hour = 8: minut += 60 - minut
  841. if hour = 7: minut += 120 - minut
  842. gs 'stat'
  843. gt 'uni_exams3', 'learning_theories_201'
  844. end
  845. end
  846. end
  847. elseif university['enrolled_in_semester'] = 4:
  848. if $ARGS[1] = 'schedule':
  849. if university['exam_week'] = 1:
  850. if week < 4 or (week = 4 and hour < 9):
  851. $Result = 'General Education 202 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 102 Exam (09:00 to 12:00) Monday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  852. else
  853. $Result = 'Learning Theories 202 Exam (09:00 to 12:00) Tuesday next week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday next week.'
  854. end
  855. elseif university['exam_week'] = 2:
  856. if week < 2 or (week = 2 and hour < 9):
  857. $Result = 'Learning Theories 202 Exam (09:00 to 12:00) Tuesday this week. Psychology of a Student 101 Exam (09:00 to 12:00) Thursday this week.'
  858. elseif week < 4 or (week = 4 and hour < 9):
  859. $Result = 'Psychology of a Student 201 Exam (09:00 to 12:00) Thursday this week.'
  860. else
  861. $Result = 'All your exams are over. Now you just have to wait for your grade to be announced.'
  862. end
  863. end
  864. elseif $ARGS[1] = 'is_over':
  865. if $ARGS[2] = 'general education 202':
  866. if university['exam_week'] = 1 and (week < 4 or (week = 4 and hour < 9)):
  867. Result = 0
  868. else
  869. Result = 1
  870. end
  871. elseif $ARGS[2] = 'Learning Theories 202':
  872. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 2 or (week = 2 and hour < 9))):
  873. Result = 0
  874. else
  875. Result = 1
  876. end
  877. elseif $ARGS[2] = 'Phsychology of a Student 201':
  878. if university['exam_week'] = 1 or (university['exam_week'] = 2 and (week < 4 or (week = 4 and hour < 9))):
  879. Result = 0
  880. else
  881. Result = 1
  882. end
  883. end
  884. elseif university['exam_week'] = 1:
  885. if week = 4:
  886. *nl
  887. 'Your General Education 202 exam will start at 09:00 today. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  888. act 'Go to your General Education 202 exam':
  889. if hour = 8: minut += 60 - minut
  890. if hour = 7: minut += 120 - minut
  891. gs 'stat'
  892. gt 'uni_exams4', 'general_education_202'
  893. end
  894. end
  895. elseif university['exam_week'] = 2:
  896. if week = 2:
  897. *nl
  898. 'Your Learning Theories 202 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  899. act 'Go to your Learning Theories 202':
  900. if hour = 8: minut += 60 - minut
  901. if hour = 7: minut += 120 - minut
  902. gs 'stat'
  903. gt 'uni_exams4', 'learning_theories_202'
  904. end
  905. elseif week = 4:
  906. *nl
  907. 'Your Psychology of a Student 201 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
  908. act 'Go to your Psychology of a Student 201 exam':
  909. if hour = 8: minut += 60 - minut
  910. if hour = 7: minut += 120 - minut
  911. gs 'stat'
  912. gt 'uni_exams4', 'psychology_of_a_student_201'
  913. end
  914. end
  915. end
  916. end
  917. end
  918. end
  919. --- uni_programs ---------------------------------