mod_public_WC_rab_Artem.qsrc 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241
  1. # mod_public_WC_rab_Artem
  2. if $ARGS[0] = 'start':
  3. if week <= 5 and Artem ! 2:
  4. Artem = 0
  5. if vtecha = 0:
  6. if hour >= 14 and hour <= 19:
  7. *nl
  8. temp = rand(1,5)
  9. if temp = 1:
  10. 'Artem here.'
  11. Artem = 1
  12. else
  13. temp = rand(25,50)
  14. if pcs_observ >= temp:
  15. 'I see Artem stalks me...'
  16. 'Intresting, how often do he do that?'
  17. observ_exp += rand(1,2)
  18. Artem = 1
  19. elseif Tolik ! 1 and Vania ! 1 and pcs_observ >= temp * 3 / 4:
  20. 'I feels like someone is watching me...'
  21. observ_exp += rand(0,1)
  22. Artem = 1
  23. Ahide = 1
  24. else
  25. Artem = 1
  26. Ahide = 1
  27. end
  28. end
  29. end
  30. end
  31. if $metka = 'spat1':
  32. if (hour >= 0 and hour <= 5) or (hour >= 23):
  33. *nl
  34. 'Artem is sleeping'
  35. Artem = 3
  36. end
  37. end
  38. if $metka = 'dvir':
  39. if hour = 20:
  40. *nl
  41. 'Artem eats'
  42. Artem = 1
  43. elseif hour = 13:
  44. *nl
  45. 'Artem has dinner'
  46. Artem = 1
  47. elseif hour >= 8 and hour <= 9:
  48. *nl
  49. 'The ax bangs near the forester''s house. Artem prepares firewood.'
  50. elseif hour = 10:
  51. *nl
  52. 'Artem sits on a bench and reads.'
  53. Artem = 1
  54. end
  55. end
  56. if $metka = 'lisnyk':
  57. if hour >= 8 and hour <= 9:
  58. *nl
  59. 'Artem cuts logs and stumps on firewood.'
  60. Artem = 1
  61. end
  62. end
  63. if $metka = 'lisnyk_dim':
  64. if hour = 11:
  65. *nl
  66. if task2 = 2:
  67. 'Artem reads'
  68. else
  69. 'Artem washes the dishes'
  70. end
  71. Artem = 1
  72. elseif hour = 12:
  73. *nl
  74. 'Artem do something for dinner'
  75. Artem = 1
  76. end
  77. end
  78. if $metka = 'vhid':
  79. if hour = 21:
  80. *nl
  81. Artem = 1
  82. end
  83. end
  84. end
  85. if week = 6 and Artem ! 2:
  86. Artem = 0
  87. if hour >= 0 and hour <= 5:
  88. if $metka = 'spat1':
  89. *nl
  90. 'Artem is sleeping'
  91. Artem = 3
  92. end
  93. end
  94. if hour = 7:
  95. if $metka = 'dvir':
  96. Artem = 1
  97. end
  98. end
  99. if hour >= 23:
  100. if $metka = 'spat1':
  101. *nl
  102. 'Artem is sleeping'
  103. Artem = 3
  104. end
  105. end
  106. if hour = 11:
  107. if $metka = 'lisnyk_dim':
  108. *nl
  109. if task2 = 2:
  110. 'Artem reads'
  111. else
  112. 'Artem washes the dishes'
  113. end
  114. Artem = 1
  115. end
  116. end
  117. if hour = 12:
  118. if $metka = 'lisnyk_dim':
  119. *nl
  120. 'Artem do something for dinner'
  121. Artem = 1
  122. end
  123. end
  124. if hour = 20:
  125. if $metka = 'dvir':
  126. Artem = 1
  127. end
  128. end
  129. if hour = 21:
  130. if $metka = 'vhid':
  131. Artem = 1
  132. end
  133. end
  134. if hour = 13:
  135. if $metka = 'dvir':
  136. *nl
  137. 'Artem has a dinner'
  138. Artem = 1
  139. end
  140. end
  141. if hour = 6:
  142. if $metka = 'spat1':
  143. *nl
  144. 'Artem is sleeping'
  145. Artem = 3
  146. end
  147. end
  148. if hour >= 8 and hour <= 10:
  149. if $metka = 'dvir':
  150. *nl
  151. 'Artem shoots the targets with a pistol.'
  152. Artem = 1
  153. end
  154. end
  155. if hour = 13:
  156. if $metka = 'dvir':
  157. Artem = 1
  158. end
  159. end
  160. if hour >= 14 and hour <= 15:
  161. if $metka = 'spat1':
  162. Artem = 1
  163. end
  164. end
  165. if hour >= 16 and hour <= 19:
  166. if $metka = 'dvir':
  167. Artem = 1
  168. end
  169. end
  170. end
  171. if week = 7 and Artem ! 2:
  172. Artem = 0
  173. if hour >= 0 and hour <= 5:
  174. if $metka = 'spat1':
  175. *nl
  176. 'Artem is sleeping'
  177. Artem = 3
  178. end
  179. end
  180. if hour = 7:
  181. if $metka = 'dvir':
  182. Artem = 1
  183. end
  184. end
  185. if hour >= 23:
  186. if $metka = 'spat1':
  187. *nl
  188. 'Artem is sleeping'
  189. Artem = 3
  190. end
  191. end
  192. if hour = 11:
  193. if $metka = 'lisnyk_dim':
  194. *nl
  195. if task2 = 2:
  196. 'Artem reads'
  197. else
  198. 'Artem washes the dishes'
  199. end
  200. Artem = 1
  201. end
  202. end
  203. if hour = 12:
  204. if $metka = 'lisnyk_dim':
  205. *nl
  206. 'Artem do something for dinner'
  207. Artem = 1
  208. end
  209. end
  210. if hour = 20:
  211. if $metka = 'dvir':
  212. Artem = 1
  213. end
  214. end
  215. if hour = 21:
  216. if $metka = 'vhid':
  217. Artem = 1
  218. end
  219. end
  220. if hour = 13:
  221. if $metka = 'dvir':
  222. *nl
  223. 'Artem has a dinner'
  224. Artem = 1
  225. end
  226. end
  227. if hour = 6:
  228. if $metka = 'spat1':
  229. *nl
  230. 'Artem is sleeping'
  231. Artem = 3
  232. end
  233. end
  234. end
  235. end
  236. --- mod_public_WC_rab_Artem ---------------------------------