dina.qsrc 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207
  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] = 'thin'
  44. $bodimgsets[2] = 'petite'
  45. $bodimgsets[3] = 'slender'
  46. $bodimgsets[4] = 'lacking definition'
  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. !!This sets the first 3 sets to not override images 6 and 7
  73. imgset6ovr[0] = 0
  74. imgset6ovr[1] = 0
  75. imgset6ovr[2] = 0
  76. imgset7ovr[0] = 0
  77. imgset7ovr[1] = 0
  78. imgset7ovr[2] = 0
  79. !!Sets the default image set count if it is 0
  80. if bodsetcnt <= 0: bodsetcnt = 2
  81. $week[1] = 'Monday'
  82. $week[2] = 'Tuesday'
  83. $week[3] = 'Wednesday'
  84. $week[4] = 'Thursday'
  85. $week[5] = 'Friday'
  86. $week[6] = 'Saturday'
  87. $week[7] = 'Sunday'
  88. $dogpot = {
  89. gs 'boyStat', 'A191'
  90. }
  91. $rexpot = {
  92. gs 'boyStat', 'A166'
  93. }
  94. $hypnoDaychange = {
  95. !!if for some reason hypnoTime is too high
  96. if hypnoTime > 15:hypnoTime = 15
  97. timeTresh = 76 - 4*hypnoType
  98. !!Withdrawal effect begings if too strong influence and no visitation
  99. if daystart-hypnoDay > 7:
  100. if hypnoAddict = 1:
  101. hypnoWithdrawal = 1
  102. elseif hypnoAddict = 2:
  103. hypnoWithdrawal = 2
  104. end
  105. end
  106. !!daily weaning of therapist influence
  107. if hypnoStrength > 0: hypnoStrength -= 1
  108. if hypnoTime > 0 and hypnoStrength = 0:
  109. if hypnoAddict = 0:
  110. hypnoStrength = 19
  111. hypnoTime -= 1
  112. elseif hypnoAddict = 1:
  113. if rand(0,1) = 0:
  114. hypnoStrength = 19
  115. hypnoTime -= 1
  116. if hypnoTime < 7:hypnoAddict = 0 & hypnoWithdrawal = 0
  117. end
  118. else
  119. if rand(0,4) = 0:
  120. hypnoStrength = 19
  121. hypnoTime -= 1
  122. if hypnoTime < 10:hypnoAddict = 1 & hypnoBlock = 0 & hypnoWithdrawal = 1
  123. end
  124. end
  125. end
  126. }
  127. $hypnoAddiction = {
  128. if cumloc[0] = 1 or cumloc[3] = 1:
  129. killvar 'missCum'
  130. if hypnoAddict = 1:
  131. pcs_mood += 5
  132. else
  133. pcs_mood += 10
  134. end
  135. else
  136. missCum += 1
  137. end
  138. if missCum > timeTresh:
  139. if hypnoAddict = 1:
  140. pcs_mood -= 5
  141. pcs_horny += 10
  142. else
  143. pcs_mood -= 10
  144. pcs_horny += 20
  145. end
  146. end
  147. if hypnoWithdrawal > 0:
  148. if hypnoWithdrawal = 1:
  149. if missCum >= timeTresh:
  150. sprt_deg -= 2*hypnoAddict
  151. pcs_mood -= 10
  152. else
  153. if rand(0,1) = 0:sprt_deg -= hypnoAddict
  154. pcs_mood -= 5
  155. end
  156. end
  157. end
  158. }
  159. !!---------------
  160. $prezik = {
  161. if prezik > 0:
  162. if badprezik > 0:
  163. if rand(1,prezik) <= badprezik: badprezik -= 1 & noprotect = 1
  164. else
  165. noprotect = 0
  166. end
  167. prezik -= 1
  168. elseif prezik < 0:
  169. prezik = 0
  170. end
  171. }
  172. $ferteggfather = {
  173. if fertegg > 0:
  174. if thinkpreg = 0 and knowpreg = 0 and sparrppt[sparrtemp] > 0:
  175. if cumarrkno[cumarrtemp] = 1:
  176. if arrcomp('$cumfthname',$boy) = -1:
  177. i = arrsize('$cumfthname')
  178. $cumfthname[i] = $boy
  179. cumtime[i] = 1
  180. else
  181. i = arrpos('$cumfthname', $boy)
  182. cumtime[i] += 1
  183. end
  184. elseif cumarrkno[cumarrtemp] = 0:
  185. cumtime[0] += 1
  186. end
  187. end
  188. end
  189. }
  190. --- dina ---------------------------------