kid.qsrc 8.7 KB

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