mod_public_WC_rab_Tolik.qsrc 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158
  1. # mod_public_WC_rab_Tolik
  2. if $ARGS[0] = 'start':
  3. if week <= 5 and Tolik ! 2:
  4. Tolik = 0
  5. if hour = 6 and $metka = 'dvir':
  6. *nl
  7. 'Tolik makes sports in the yard'
  8. Tolik = 1
  9. end
  10. if hour = 7 and $metka = 'dvir':
  11. *nl
  12. 'Tolik with Artem having breakfast at the table'
  13. Tolik = 1
  14. end
  15. if hour = 20 and $metka = 'dvir':
  16. *nl
  17. 'All rednecks have a supper'
  18. Tolik = 1
  19. end
  20. if hour = 21 and $metka = 'vhid':
  21. *nl
  22. 'Tolik sitting on a chair waiting for me, next to him stands Artem.'
  23. Tolik = 1
  24. end
  25. if (hour >= 0 and hour < 6) or hour >= 23:
  26. if $metka = 'spat1':
  27. *nl
  28. 'Tolic sleeps'
  29. Tolik = 3
  30. end
  31. end
  32. end
  33. if week = 6 and Tolik ! 2:
  34. Tolik = 0
  35. if hour = 6 and $metka = 'dvir':
  36. *nl
  37. 'Tolik makes sports in the yard'
  38. Tolik = 1
  39. end
  40. if hour = 7 and $metka = 'dvir':
  41. *nl
  42. 'Tolik with Artem having breakfast at the table'
  43. Tolik = 1
  44. end
  45. if hour = 20 and $metka = 'dvir':
  46. *nl
  47. 'All rednecks have a supper'
  48. Tolik = 1
  49. end
  50. if hour = 21 and $metka = 'vhid':
  51. *nl
  52. 'Tolik sitting on a chair waiting for me, next to him stands Artem.'
  53. Tolik = 1
  54. end
  55. if hour >= 23:
  56. if $metka = 'spat1':
  57. *nl
  58. 'Tolic sleeps'
  59. Tolik = 3
  60. end
  61. end
  62. if hour >= 0 and hour < 6:
  63. if $metka = 'spat1':
  64. *nl
  65. 'Tolic sleeps'
  66. Tolik = 3
  67. end
  68. end
  69. if hour >= 14 and hour <= 15:
  70. if $metka = 'spat1':
  71. *nl
  72. 'All the rednecks turned to me. What do you forget here? (Tolik asks), go away!'
  73. brak += 1
  74. Tolik = 1
  75. end
  76. end
  77. if hour >= 16 and hour <= 19:
  78. if $metka = 'dvir':
  79. *nl
  80. 'All rednecks hard drinking at the table in the yard.'
  81. Tolik = 1
  82. end
  83. end
  84. if hour = 13:
  85. if $metka = 'dvir':
  86. *nl
  87. 'Tolic has a dinner with everybody'
  88. Tolik = 1
  89. end
  90. end
  91. end
  92. if week = 7 and Tolik ! 2:
  93. Tolik = 0
  94. if hour = 6 and $metka = 'dvir':
  95. *nl
  96. 'Tolik makes sports in the yard'
  97. Tolik = 1
  98. end
  99. if hour = 7 and $metka = 'dvir':
  100. *nl
  101. 'Tolik with Artem having breakfast at the table'
  102. Tolik = 1
  103. end
  104. if hour = 20 and $metka = 'dvir':
  105. *nl
  106. 'All rednecks have a supper'
  107. Tolik = 1
  108. end
  109. if hour = 21 and $metka = 'vhid':
  110. *nl
  111. 'Tolik sitting on a chair waiting for me, next to him stands Artem.'
  112. Tolik = 1
  113. end
  114. if (hour >= 0 and hour < 6) or hour >= 23:
  115. if $metka = 'spat1':
  116. *nl
  117. 'Tolic sleeps'
  118. Tolik = 3
  119. end
  120. end
  121. if hour = 13:
  122. if $metka = 'dvir':
  123. *nl
  124. 'Tolik has a dinner with everybody'
  125. Tolik = 1
  126. end
  127. end
  128. if hour >= 8 and hour <= 10:
  129. if $metka = 'vhid':
  130. *nl
  131. 'Tolic is reading'
  132. Tolik = 1
  133. end
  134. end
  135. end
  136. end
  137. --- mod_public_WC_rab_Tolik ---------------------------------