kid.qsrc 9.8 KB

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