kid.qsrc 9.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307
  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. pcs_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. pcs_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 lactation['active'] > 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 yearkid[k] = year:
  152. if (month - monthkid[k]) < 1 and (day-daykid[k]) < 7:
  153. kiddaycalc[k] = day - daykid[k]
  154. if kiddaycalc[k] = 1:
  155. $kidagetext[k] = '<<kiddaycalc[k]>> day old'
  156. else
  157. $kidagetext[k] = '<<kiddaycalc[k]>> days old'
  158. end
  159. elseif (month - monthkid[k]) < 1 :
  160. kiddaycalc[k] = (day - daykid[k]) / 7
  161. if kiddaycalc[k] = 1:
  162. $kidagetext[k] = '<<kiddaycalc[k]>> week old'
  163. else
  164. $kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
  165. end
  166. else
  167. kidmonthcalc[k] = (month - monthkid[k])
  168. if kidmonthcalc[k] = 1:
  169. $kidagetext[k] = '<<kidmonthcalc[k]>> month old'
  170. else
  171. $kidagetext[k] = '<<kidmonthcalc[k]>> months old'
  172. end
  173. end
  174. else
  175. if month = 1 and monthkid[k] = 12:
  176. if 31 - daykid[k] + day < 7:
  177. kiddaycalc[k] = 31 - daykid[k] + day
  178. if kiddaycalc[k] = 1:
  179. $kidagetext[k] = '<<kiddaycalc[k]>> day old'
  180. else
  181. $kidagetext[k] = '<<kiddaycalc[k]>> days old'
  182. end
  183. elseif 31 - daykid[k] + day >= 7 :
  184. kiddaycalc[k] = 31 - daykid[k] + day / 7
  185. if kiddaycalc[k] = 1:
  186. $kidagetext[k] = '<<kiddaycalc[k]>> week old'
  187. else
  188. $kidagetext[k] = '<<kiddaycalc[k]>> weeks old'
  189. end
  190. elseif daykid[k] > day:
  191. $kidagetext[k] = '<<kidmonthcalc[k]>> month old'
  192. end
  193. else
  194. if daykid[k] - day <= 0:
  195. kidmonthcalc[k] = (12 - monthkid[k] + month)
  196. else
  197. kidmonthcalc[k] = (11 - monthkid[k] + month)
  198. end
  199. if kidmonthcalc[k] = 1:
  200. $kidagetext[k] = '<<kidmonthcalc[k]>> month old'
  201. else
  202. $kidagetext[k] = '<<kidmonthcalc[k]>> months old'
  203. end
  204. end
  205. end
  206. else
  207. if kidage[k] >= 1:
  208. $kidagetext[k] = '<<kidage[k]>> year old'
  209. else
  210. $kidagetext[k] = '<<kidage[k]>> years old'
  211. end
  212. end
  213. if $polreb[k] = 'girl':
  214. $sdtext[k] = 'daughter'
  215. elseif $polreb[k] = 'boy':
  216. $sdtext[k] = 'son'
  217. end
  218. if polkid[k] = 0:
  219. $kidPosPro[k] = 'her'
  220. else
  221. $kidPosPro[k] = 'his'
  222. end
  223. if polkid[k] = 0:
  224. $kidPosProC[k] = 'Her'
  225. else
  226. $kidPosProC[k] = 'His'
  227. end
  228. if polkid[k] = 0:
  229. $kidPosProPN[k] = 'She'
  230. else
  231. $kidPosProPN[k] = 'He'
  232. end
  233. if ks = k:
  234. '<font color= #06992D>Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.</font>'
  235. else
  236. 'Your <<$sdtext[k]>> <<$kidname[k]>> is <<$kidagetext[k]>>. <<$kidposproC[k]>> date of birth is <<monthkid[k]>>/<<daykid[k]>>/<<yearkid[k]>>.'
  237. end
  238. if kidage[k] < 1:
  239. if hour >= 12 and hour < 18:
  240. $babyloc = 'onto the blanket'
  241. '<<$kidname[k]>></a> is laying on a blanket'
  242. else
  243. $babyloc = 'into the crib'
  244. '<<$kidname[k]>> is asleep, lying in <<$kidPosPro[k]>> crib.'
  245. end
  246. elseif kidage[k] >= 1 and kidage[k] < 7:
  247. if hour >= 9 and hour < 21 and rkidloc < 8:
  248. $totloc = 'playing with toys on the floor'
  249. '<<$kidname[k]>> is playing with toys.'
  250. elseif hour < 9 or hour >= 21:
  251. '<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
  252. else
  253. $totloc = 'watching TV'
  254. '<<$kidname[k]>> is watching TV.'
  255. end
  256. elseif kidage[k] >= 7 and kidage[k] < 18:
  257. if hour >= 21 or hour < 8:
  258. '<<$kidname[k]>> is asleep in <<$kidPosPro[k]>> bed.'
  259. elseif hour >= 8 and hour < 9:
  260. '<<$kidname[k]>> is getting ready for school.'
  261. elseif hour >= 9 and hour < 16:
  262. '<<$kidname[k]>> is at school.'
  263. elseif hour >= 16 and hour < 18 and homework[k] < daystart:
  264. $kidloc = 'working on homework'
  265. '<<$kidname[k]>> is working on homework.'
  266. else
  267. $kidloc = 'watching TV'
  268. '<<$kidname[k]>> is watching TV.'
  269. end
  270. end
  271. if kid > 0 and kidage[ks] < 1:
  272. if lactation['active'] > 0:
  273. act 'Breast Feed <<$kidname[ks]>>':dyneval($breastfeed)
  274. end
  275. if $babyloc = 'onto the blanket':
  276. act 'Play with <<$kidname[ks]>> (0:20)': dyneval($play)
  277. end
  278. end
  279. if kid > 0 and kidage[ks] >=1 and kidage[ks] <7:
  280. if $totloc = 'playing with toys on the floor':
  281. act 'Play with <<$kidname[ks]>>(0:30)':dyneval($totplay)
  282. elseif $totloc = 'watching tv':
  283. act 'Watch TV with <<$kidname[ks]>>(1:00)':dyneval($tottv)
  284. end
  285. end
  286. if kid > 0 and kidage[ks] >=7 and kidage[ks] < 18:
  287. if $kidloc = 'watching TV':
  288. act 'Watch TV with <<$kidname[ks]>> (1:00)':dyneval($kidtv)
  289. elseif $kidloc = 'working on homework':
  290. act 'Help <<$kidname[ks]>> with homework.':dyneval($homework)
  291. end
  292. end
  293. "<hr>"
  294. end
  295. --- kid ---------------------------------