dina.tw 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. :: dina
  2. <<set $here = 'dina'>>
  3. <<set $ARGS = $location_var[$here]>>
  4. <!-- !!This sets the default descriptors and folder names for each default image set-->
  5. <<setinit $bodimgsets[0] = 'starving'>>
  6. <<setinit $bodimgsets[1] = 'underweight'>>
  7. <<setinit $bodimgsets[2] = 'slender'>>
  8. <<setinit $bodimgsets[3] = 'healthy'>>
  9. <<setinit $bodimgsets[4] = 'cute'>>
  10. <<setinit $bodimgsets[5] = 'chubby'>>
  11. <<setinit $bodimgsets[6] = 'overweight'>>
  12. <<setinit $bodimgsets[7] = 'fat'>>
  13. <<setinit $bodimgsets[8] = 'OOPS'>>
  14. <<setinit $bodimgsets[9] = 'default_low'>>
  15. <<setinit $bodimgsets[10] = 'starving'>>
  16. <<setinit $bodimgsets[11] = 'slight'>>
  17. <<setinit $bodimgsets[12] = 'skinny'>>
  18. <<setinit $bodimgsets[13] = 'toned'>>
  19. <<setinit $bodimgsets[14] = 'cute'>>
  20. <<setinit $bodimgsets[15] = 'curvy'>>
  21. <<setinit $bodimgsets[16] = 'overweight'>>
  22. <<setinit $bodimgsets[17] = 'fat'>>
  23. <<setinit $bodimgsets[18] = 'OOPS'>>
  24. <<setinit $bodimgsets[19] = 'default_mid'>>
  25. <<setinit $bodimgsets[20] = 'starving'>>
  26. <<setinit $bodimgsets[21] = 'wiry'>>
  27. <<setinit $bodimgsets[22] = 'lean'>>
  28. <<setinit $bodimgsets[23] = 'ripped'>>
  29. <<setinit $bodimgsets[24] = 'muscular'>>
  30. <<setinit $bodimgsets[25] = 'herculean'>>
  31. <<setinit $bodimgsets[26] = 'stocky'>>
  32. <<setinit $bodimgsets[27] = 'heavy set'>>
  33. <<setinit $bodimgsets[28] = 'OOPS'>>
  34. <<setinit $bodimgsets[29] = 'default_high'>>
  35. <<setinit $bodimgsets[30] = 'pregnant, but not showing'>>
  36. <<setinit $bodimgsets[31] = 'glowing'>>
  37. <<setinit $bodimgsets[32] = 'starting to show'>>
  38. <<setinit $bodimgsets[33] = 'clearly showing'>>
  39. <<setinit $bodimgsets[34] = 'fairly pregnant'>>
  40. <<setinit $bodimgsets[35] = 'quite pregnant'>>
  41. <<setinit $bodimgsets[36] = 'very pregnant'>>
  42. <<setinit $bodimgsets[37] = 'extremely pregnant'>>
  43. <<setinit $bodimgsets[38] = 'ready to pop'>>
  44. <<setinit $bodimgsets[39] = 'default_preg'>>
  45. <!-- !!This sets the first 3 sets to not override images 0, 6 and 7-->
  46. <<setinit $imgset0ovr[0] = 0>>
  47. <<setinit $imgset0ovr[1] = 0>>
  48. <<setinit $imgset0ovr[2] = 0>>
  49. <<setinit $imgset6ovr[0] = 0>>
  50. <<setinit $imgset6ovr[1] = 0>>
  51. <<setinit $imgset6ovr[2] = 0>>
  52. <<setinit $imgset7ovr[0] = 0>>
  53. <<setinit $imgset7ovr[1] = 0>>
  54. <<setinit $imgset7ovr[2] = 0>>
  55. <!-- !!Sets the default image set count if it is 0-->
  56. <<if getvar("$pc.bodsetcnt") <= 0>>
  57. <<set $pc.bodsetcnt = 3>>
  58. <</if>>
  59. <<setinit $time.weekday_name[1] = 'Monday'>>
  60. <<setinit $time.weekday_name[2] = 'Tuesday'>>
  61. <<setinit $time.weekday_name[3] = 'Wednesday'>>
  62. <<setinit $time.weekday_name[4] = 'Thursday'>>
  63. <<setinit $time.weekday_name[5] = 'Friday'>>
  64. <<setinit $time.weekday_name[6] = 'Saturday'>>
  65. <<setinit $time.weekday_name[7] = 'Sunday'>>
  66. <!-- !!----------------->
  67. :: brodila_macro[widget]
  68. <<widget 'brodila'>>
  69. <<set $sexpartkno = 0>>
  70. <<if getvar("$accessible_property['city_apartment']") > 0>>
  71. <<gt 'korr' 'start'>>
  72. <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
  73. <<gt 'korr2x' 'start'>>
  74. <<else>>
  75. <<gt 'city_residential' 'start'>>
  76. <</if>>
  77. <</widget>>
  78. :: brodilr_macro[widget]
  79. <<widget 'brodilr'>>
  80. <<if mid($start_type,1,2) == 'sg' and getvar("$accessible_property['parents_home']") == 4>>
  81. <<gt 'pav_residential'>>
  82. <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
  83. <<gt 'liames'>>
  84. <<else>>
  85. <<gt 'city_residential' 'start'>>
  86. <</if>>
  87. <</widget>>
  88. :: brodilk_macro[widget]
  89. <<widget 'brodilk'>>
  90. <<if getvar("$accessible_property['city_apartment']") > 0>>
  91. <<gt 'kuhr' 'start'>>
  92. <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
  93. <<gt 'kuhr2x' 'start'>>
  94. <<else>>
  95. <<gt 'city_residential' 'start'>>
  96. <</if>>
  97. <</widget>>
  98. :: brodils_macro[widget]
  99. <<widget 'brodils'>>
  100. <<if getvar("$accessible_property['city_apartment']") > 0>>
  101. <<gt 'sitr' 'start'>>
  102. <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
  103. <<gt 'sitr2x' 'start'>>
  104. <<elseif mid($start_type,1,2) == 'sg' and getvar("$accessible_property['parents_home']") == 4>>
  105. <<gt 'sitrPar'>>
  106. <<else>>
  107. <<gt 'city_residential' 'start'>>
  108. <</if>>
  109. <</widget>>
  110. :: dogpot_macro[widget]
  111. <<widget 'dogpot'>>
  112. <!-- Boy A191 -->
  113. <</widget>>
  114. :: rexpot_macro[widget]
  115. <<widget 'rexpot'>>
  116. <!-- Boy A166 -->
  117. <</widget>>
  118. :: hypnoAddiction_macro[widget]
  119. <<widget 'hypnoAddiction'>>
  120. <<if $pc.cumAtLocation(0) == 1 or $pc.cumAtLocation(3) == 1>>
  121. <<set $missCum to null>>
  122. <<if getvar("$q.therapist.hypnoAddict") == 1>>
  123. <<set $pc.mood += 5>>
  124. <<else>>
  125. <<set $pc.mood += 10>>
  126. <</if>>
  127. <<else>>
  128. <<set $missCum += 1>>
  129. <</if>>
  130. <<if $missCum > $timeTresh>>
  131. <<if getvar("$q.therapist.hypnoAddict") == 1>>
  132. <<set $pc.mood -= 5>>
  133. <<set $pc.horny += 10>>
  134. <<else>>
  135. <<set $pc.mood -= 10>>
  136. <<set $pc.horny += 20>>
  137. <</if>>
  138. <</if>>
  139. <<if getvar("$q.therapist.hypnoWithdrawal") > 0>>
  140. <<if getvar("$q.therapist.hypnoWithdrawal") == 1>>
  141. <<if $missCum >= $timeTresh>>
  142. <<set $sprt_deg -= 2 * $q.therapist.hypnoAddict>>
  143. <<set $pc.mood -= 10>>
  144. <<else>>
  145. <<if rand(0,1) == 0>>
  146. <<set $sprt_deg -= $q.therapist.hypnoAddict>>
  147. <</if>>
  148. <<set $pc.mood -= 5>>
  149. <</if>>
  150. <</if>>
  151. <</if>>
  152. <</widget>>
  153. :: prezik_macro[widget]
  154. <<widget 'prezik'>>
  155. <<if $inventory.get("condom") > 0>>
  156. <<if getvar("$badprezik") > 0>>
  157. <<if rand(1,prezik) <= $badprezik>>
  158. <<setn $badprezik -= 1>> <<set $noprotect = 1>>
  159. <</if>>
  160. <<else>>
  161. <<set $noprotect = 0>>
  162. <</if>>
  163. <<run $inventory.dec('condom',1)>>
  164. <<elseif $inventory.get("condom") < 0>>
  165. <<run $inventory.set('condom',0)>>
  166. <</if>>
  167. <</widget>>
  168. :: ferteggfather_macro[widget]
  169. <<widget 'ferteggfather'>>
  170. <<if getvar("$fertegg") > 0>>
  171. <<if getvar("$pc.thinkpreg") == 0 and getvar("$pc.knowpreg") == 0 and getvar("$sparrppt["+$sparrtemp+"]") > 0>>
  172. <<if getvar("$cumarrkno["+$cumarrtemp+"]") == 1>>
  173. <<if arrcomp('$cumfthname',$boy) == -1>>
  174. <<set $i = arrsize('$cumfthname')>>
  175. <<setinit $cumfthname[$i] = $boy>>
  176. <<setinit $cumtime[$i] = 1>>
  177. <<else>>
  178. <<set $i = arrpos('$cumfthname', $boy)>>
  179. <<setinit $cumtime[$i] += 1>>
  180. <</if>>
  181. <<elseif getvar("$cumarrkno["+$cumarrtemp+"]") == 0>>
  182. <<setinit $cumtime[0] += 1>>
  183. <</if>>
  184. <</if>>
  185. <</if>>
  186. <</widget>>