dina 4.2 KB

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