dina.qsrc 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218
  1. # dina
  2. $brodila = {
  3. sexpartkno = 0
  4. if home_owned[1] > 0:
  5. gt'korr','start'
  6. elseif home_owned[4] = 1:
  7. gt'korr2x','start'
  8. else
  9. gt'street', 'start'
  10. end
  11. }
  12. $brodilr = {
  13. if StoryLine = 1 and home_owned[2] = 1:
  14. gt 'pavResidential'
  15. elseif home_owned[4] = 1:
  16. gt'liames'
  17. else
  18. gt'street','start'
  19. end
  20. }
  21. $brodilk = {
  22. if home_owned[1] > 0:
  23. gt'kuhr','start'
  24. elseif home_owned[4] = 1:
  25. gt'kuhr2x','start'
  26. else
  27. gt'street', 'start'
  28. end
  29. }
  30. $brodils = {
  31. if home_owned[1] > 0:
  32. gt'sitr','start'
  33. elseif home_owned[4] = 1:
  34. gt'sitr2x','start'
  35. elseif StoryLine = 1 and home_owned[2] = 1:
  36. gt 'sitrPar'
  37. else
  38. gt'street', 'start'
  39. end
  40. }
  41. !!This sets the default descriptors and folder names for each default image set
  42. $bodimgsets[0] = 'starving'
  43. $bodimgsets[1] = 'underweight'
  44. $bodimgsets[2] = 'slender'
  45. $bodimgsets[3] = 'healthy'
  46. $bodimgsets[4] = 'cute'
  47. $bodimgsets[5] = 'chubby'
  48. $bodimgsets[6] = 'overweight'
  49. $bodimgsets[7] = 'fat'
  50. $bodimgsets[8] = 'OOPS'
  51. $bodimgsets[9] = 'default_low'
  52. $bodimgsets[10] = 'starving'
  53. $bodimgsets[11] = 'slight'
  54. $bodimgsets[12] = 'skinny'
  55. $bodimgsets[13] = 'toned'
  56. $bodimgsets[14] = 'cute'
  57. $bodimgsets[15] = 'curvy'
  58. $bodimgsets[16] = 'overweight'
  59. $bodimgsets[17] = 'fat'
  60. $bodimgsets[18] = 'OOPS'
  61. $bodimgsets[19] = 'default_mid'
  62. $bodimgsets[20] = 'starving'
  63. $bodimgsets[21] = 'wiry'
  64. $bodimgsets[22] = 'lean'
  65. $bodimgsets[23] = 'ripped'
  66. $bodimgsets[24] = 'muscular'
  67. $bodimgsets[25] = 'herculean'
  68. $bodimgsets[26] = 'stocky'
  69. $bodimgsets[27] = 'heavy set'
  70. $bodimgsets[28] = 'OOPS'
  71. $bodimgsets[29] = 'default_high'
  72. $bodimgsets[30] = 'pregnant, but not showing'
  73. $bodimgsets[31] = 'glowing'
  74. $bodimgsets[32] = 'starting to show'
  75. $bodimgsets[33] = 'clearly showing'
  76. $bodimgsets[34] = 'fairly pregnant'
  77. $bodimgsets[35] = 'quite pregnant'
  78. $bodimgsets[36] = 'very pregnant'
  79. $bodimgsets[37] = 'extremely pregnant'
  80. $bodimgsets[38] = 'ready to pop'
  81. $bodimgsets[39] = 'default_preg'
  82. !!This sets the first 3 sets to not override images 6 and 7
  83. imgset6ovr[0] = 0
  84. imgset6ovr[1] = 0
  85. imgset6ovr[2] = 0
  86. imgset7ovr[0] = 0
  87. imgset7ovr[1] = 0
  88. imgset7ovr[2] = 0
  89. !!Sets the default image set count if it is 0
  90. if bodsetcnt <= 0: bodsetcnt = 3
  91. $week[1] = 'Monday'
  92. $week[2] = 'Tuesday'
  93. $week[3] = 'Wednesday'
  94. $week[4] = 'Thursday'
  95. $week[5] = 'Friday'
  96. $week[6] = 'Saturday'
  97. $week[7] = 'Sunday'
  98. $dogpot = {
  99. gs 'boyStat', 'A191'
  100. }
  101. $rexpot = {
  102. gs 'boyStat', 'A166'
  103. }
  104. $hypnoDaychange = {
  105. !!if for some reason hypnoTime is too high
  106. if hypnoTime > 15:hypnoTime = 15
  107. timeTresh = 76 - 4*hypnoType
  108. !!Withdrawal effect begings if too strong influence and no visitation
  109. if daystart-hypnoDay > 7:
  110. if hypnoAddict = 1:
  111. hypnoWithdrawal = 1
  112. elseif hypnoAddict = 2:
  113. hypnoWithdrawal = 2
  114. end
  115. end
  116. !!daily weaning of therapist influence
  117. if hypnoStrength > 0: hypnoStrength -= 1
  118. if hypnoTime > 0 and hypnoStrength = 0:
  119. if hypnoAddict = 0:
  120. hypnoStrength = 19
  121. hypnoTime -= 1
  122. elseif hypnoAddict = 1:
  123. if rand(0,1) = 0:
  124. hypnoStrength = 19
  125. hypnoTime -= 1
  126. if hypnoTime < 7:hypnoAddict = 0 & hypnoWithdrawal = 0
  127. end
  128. else
  129. if rand(0,4) = 0:
  130. hypnoStrength = 19
  131. hypnoTime -= 1
  132. if hypnoTime < 10:hypnoAddict = 1 & hypnoBlock = 0 & hypnoWithdrawal = 1
  133. end
  134. end
  135. end
  136. }
  137. $hypnoAddiction = {
  138. if cumloc[0] = 1 or cumloc[3] = 1:
  139. killvar 'missCum'
  140. if hypnoAddict = 1:
  141. pcs_mood += 5
  142. else
  143. pcs_mood += 10
  144. end
  145. else
  146. missCum += 1
  147. end
  148. if missCum > timeTresh:
  149. if hypnoAddict = 1:
  150. pcs_mood -= 5
  151. pcs_horny += 10
  152. else
  153. pcs_mood -= 10
  154. pcs_horny += 20
  155. end
  156. end
  157. if hypnoWithdrawal > 0:
  158. if hypnoWithdrawal = 1:
  159. if missCum >= timeTresh:
  160. sprt_deg -= 2*hypnoAddict
  161. pcs_mood -= 10
  162. else
  163. if rand(0,1) = 0:sprt_deg -= hypnoAddict
  164. pcs_mood -= 5
  165. end
  166. end
  167. end
  168. }
  169. !!---------------
  170. $prezik = {
  171. if prezik > 0:
  172. if badprezik > 0:
  173. if rand(1,prezik) <= badprezik: badprezik -= 1 & noprotect = 1
  174. else
  175. noprotect = 0
  176. end
  177. prezik -= 1
  178. elseif prezik < 0:
  179. prezik = 0
  180. end
  181. }
  182. $ferteggfather = {
  183. if fertegg > 0:
  184. if thinkpreg = 0 and knowpreg = 0 and sparrppt[sparrtemp] > 0:
  185. if cumarrkno[cumarrtemp] = 1:
  186. if arrcomp('$cumfthname',$boy) = -1:
  187. i = arrsize('$cumfthname')
  188. $cumfthname[i] = $boy
  189. cumtime[i] = 1
  190. else
  191. i = arrpos('$cumfthname', $boy)
  192. cumtime[i] += 1
  193. end
  194. elseif cumarrkno[cumarrtemp] = 0:
  195. cumtime[0] += 1
  196. end
  197. end
  198. end
  199. }
  200. --- dina ---------------------------------