1
0

kid.qsrc 8.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263
  1. # kid
  2. $breastfeed = {
  3. cla
  4. *clr
  5. gs 'stat'
  6. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  7. '<center><img <<$set_imgh>> src="images/pc/body/tits/breast_feed.jpg"></center>'
  8. 'You pick up <<$kidname[ks]>> from <<$kidPosPro[ks]>> crib and cuddle for a moment before exposing your breast.'
  9. if rand(1,10) = 10:
  10. 'You lift <<$kidname[ks]>> to your breast but your <<$sdtext[ks]>> doesn''t latch on.'
  11. mood -= 5
  12. minut += 5
  13. else
  14. minut += 15
  15. 'You lift <<$kidname[ks]>> to your breast and feed your baby <<$polreb[ks]>>. <<$kidPosProPN[ks]>> drinks <<lactatemv>>ml of your milk.'
  16. breastcounter += 1
  17. lactatemv = 0
  18. if pain['nipples'] < 10:
  19. pain['nipples'] += 20
  20. end
  21. end
  22. 'You gently lay <<$kidname[ks]>> back <<$babyloc>>.'
  23. act 'Done':
  24. gt 'kid', 'start'
  25. end
  26. }
  27. $play = {
  28. cla
  29. *clr
  30. gs 'stat'
  31. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  32. '<center><img <<$set_imgh>> src="images/pc/activities/baby_play.jpg"></center>'
  33. 'You get down on the floor with your <<$sdtext[ks]>> and begin to make face and noises to your little <<$polreb[ks]>>.'
  34. '<<$kidname[ks]>> giggles in delight and squirms on the floor in response to you.'
  35. 'After a while you get up and straighten your clothes before going on with your day.'
  36. pcs_mood += 20
  37. minut += 20
  38. act 'Done':
  39. gt 'kid', 'start'
  40. end
  41. }
  42. $totplay = {
  43. cla
  44. *clr
  45. gs 'stat'
  46. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  47. '<center><img <<$set_imgh>> src="images/pc/activities/tot_play.jpg"></center>'
  48. '"Mom! Mom! Mom! Mom!" Yells <<$kidname[ks]>>, "Come play with me!"'
  49. '"Ok <<$kidname[ks]>>!" You reply.'
  50. 'You pull out a bin of blocks and spend a period of time playing and building with your child.'
  51. 'After a short time, <<$kidname[ks]>> pushes over the small tower you have built, snickers and runs off'
  52. 'You get up, straighten up your clothes, laugh, and move on with your day'
  53. pcs_mood += 20
  54. minut += 20
  55. act 'Done':
  56. gt 'kid', 'start'
  57. end
  58. }
  59. $tottv = {
  60. cla
  61. *clr
  62. gs 'stat'
  63. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  64. '<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv.jpg"></center>'
  65. 'You pull <<$kidname[ks]>> up onto the couch with you and cuddle up to watch TV'
  66. 'You watch a cartoon featuring a Rabbit, a Duck, and a Pig that is quite silly'
  67. mood += 10
  68. minut += 60
  69. act 'Done':
  70. gt 'kid', 'start'
  71. end
  72. }
  73. $kidtv = {
  74. cla
  75. *clr
  76. gs 'stat'
  77. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  78. '<center><img <<$set_imgh>> src="images/shared/home/tv/kid_tv2.jpg"></center>'
  79. 'You attempt to curl up on the couch with <<$kidname[ks]>>'
  80. '"Mom! I''m trying to watch TV!" <<$kidname[ks]>> says.'
  81. '"Well I am gonna watch with you." You reply, followed by tickling <<$kidname[ks]>> to open up a spot on the couch for you to sit.'
  82. 'You watch a kids TV show about two American teenagers that barely catches your interest.'
  83. minut += 60
  84. act 'Done':
  85. gt 'kid', 'start'
  86. end
  87. }
  88. $homework = {
  89. cla
  90. *clr
  91. if polkid[k] = 0:
  92. $kidPosPronn[ks] = 'her'
  93. else
  94. $kidPosPronn[ks] = 'him'
  95. end
  96. gs 'stat'
  97. '<center><b><font color="maroon"><<$kidname[ks]>> <<$pcs_lastname>></font></b></center>'
  98. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/homework1.jpg"></center>'
  99. 'You see that <<$kidname[ks]>> is working on a pile of homework. They give kids so much homework now days.'
  100. '"Can mommy help you with some of that?" you ask'
  101. '<<$kidname[ks]>> replies, "Mommy?!... Mom stop treating me like a baby... but yes, I would like some help."'
  102. '<br>'
  103. 'You sit down at the table next to <<$kidname[ks]>> and begin to help <<$kidPosPronn[ks]>> with the homework'
  104. if pcs_grades > 50:
  105. 'The homework is completed quickly thanks to the attention you payed in school. An A should be an easy achievement.'
  106. else
  107. 'You really wish you had payed more attention in school. The homework is not overly complex but is still not the easiest thing for you.'
  108. end
  109. homework[ks] = daystart
  110. minut += rand(30,80)
  111. act 'Done':
  112. gt 'kid', 'start'
  113. end
  114. }
  115. if $ARGS[0] = 'start':
  116. gs 'stat'
  117. if kid > 0:
  118. k = 0
  119. end
  120. if lactate > 0 and lactatemv <= 1:
  121. 'You cannot breast feed right now.'
  122. end
  123. :loop
  124. if k < kid:
  125. gs 'kid','kidlist'
  126. k += 1
  127. jump 'loop'
  128. end
  129. 'Child Selected: <<$kidname[ks]>>'
  130. if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
  131. if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
  132. act 'Leave':
  133. cla
  134. killvar 'ks'
  135. gt $loc, $metka
  136. end
  137. end
  138. if $ARGS[0] = 'kidlist':
  139. if kidage[k] < 1:
  140. if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
  141. kiddaycalc[k] = day - daykid[k]
  142. if kiddaycalc[k] = 1:
  143. $kidagetext[k] = '<<kiddaycalc[k]>> day old'
  144. else
  145. $kidagetext[k] = '<<kiddaycalc[k]>> days old'
  146. end
  147. elseif (month - monthkid[k]) < 1 :
  148. kiddaycalc[k] = (day - daykid[k]) / 7
  149. if kiddaycalc[k] = 1:
  150. $kidagetext[k] = '<<kiddaycalc[k]>> week old'
  151. else
  152. $kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
  153. end
  154. else
  155. kidmonthcalc[k] = (month - monthkid[k])
  156. if kidmonthcalc[k] = 1:
  157. $kidagetext[k] = '<<kidmonthcalc[k]>> month old'
  158. else
  159. $kidagetext[k] = '<<kidmonthcalc[k]>> months old'
  160. end
  161. end
  162. else
  163. if kidage[k] = 1:
  164. $kidagetext[k] = '<<kidage[k]>> year old'
  165. else
  166. $kidagetext[k] = '<<kidage[k]>> years old'
  167. end
  168. end
  169. if $polreb[k] = 'girl':
  170. $sdtext[k] = 'daughter'
  171. elseif $polreb[k] = 'boy':
  172. $sdtext[k] = 'son'
  173. end
  174. if polkid[k] = 0:
  175. $kidPosPro[k] = 'her'
  176. else
  177. $kidPosPro[k] = 'his'
  178. end
  179. if polkid[k] = 0:
  180. $kidPosProC[k] = 'Her'
  181. else
  182. $kidPosProC[k] = 'His'
  183. end
  184. if polkid[k] = 0:
  185. $kidPosProPN[k] = 'She'
  186. else
  187. $kidPosProPN[k] = 'He'
  188. end
  189. if ks = k:
  190. '<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
  191. else:
  192. 'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
  193. end
  194. if kidage[k] < 1:
  195. if hour >= 12 and hour < 18:
  196. $babyloc = 'onto the blanket'
  197. '<<$kidname[k]>></a> is laying on a blanket'
  198. else:
  199. $babyloc = 'into the crib'
  200. '<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
  201. end
  202. elseif kidage[k] >= 1 and kidage[k] < 7:
  203. if hour >= 9 and hour < 21 and rkidloc < 8:
  204. $totloc = 'playing with toys on the floor'
  205. '<<$kidname[k]>> is playing with toys.'
  206. elseif hour < 9 or hour >= 21:
  207. '<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
  208. else
  209. $totloc = 'watching TV'
  210. '<<$kidname[k]>> is watching TV.'
  211. end
  212. elseif kidage[k] >= 7 and kidage[k] < 18:
  213. if hour >= 21 or hour < 8:
  214. '<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
  215. elseif hour >= 8 and hour < 9:
  216. '<<$kidname[k]>> is getting ready for school.'
  217. elseif hour >= 9 and hour < 16:
  218. '<<$kidname[k]>> is at school.'
  219. elseif hour >= 16 and hour < 18 and homework[k] < daystart:
  220. $kidloc = 'working on homework'
  221. '<<$kidname[k]>> is working on homework.'
  222. else
  223. $kidloc = 'watching TV'
  224. '<<$kidname[k]>> is watching TV.'
  225. end
  226. end
  227. if kid > 0 and kidage[ks] < 1:
  228. if lactate > 0 and lactatemv > 1:
  229. act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
  230. end
  231. if $babyloc = 'onto the blanket':
  232. act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
  233. end
  234. end
  235. if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
  236. if $totloc = 'playing with toys on the floor':
  237. act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
  238. elseif $totloc = 'watching tv':
  239. act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
  240. end
  241. end
  242. if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
  243. if $kidloc = 'watching TV':
  244. act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
  245. elseif $kidloc = 'working on homework':
  246. act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
  247. end
  248. end
  249. "<hr>"
  250. end
  251. --- kid ---------------------------------