123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190 |
- :: dina
- <<set $here = 'dina'>>
- <<set $ARGS = $location_var[$here]>>
- <!-- !!This sets the default descriptors and folder names for each default image set-->
- <<setinit $bodimgsets[0] = 'starving'>>
- <<setinit $bodimgsets[1] = 'underweight'>>
- <<setinit $bodimgsets[2] = 'slender'>>
- <<setinit $bodimgsets[3] = 'healthy'>>
- <<setinit $bodimgsets[4] = 'cute'>>
- <<setinit $bodimgsets[5] = 'chubby'>>
- <<setinit $bodimgsets[6] = 'overweight'>>
- <<setinit $bodimgsets[7] = 'fat'>>
- <<setinit $bodimgsets[8] = 'OOPS'>>
- <<setinit $bodimgsets[9] = 'default_low'>>
- <<setinit $bodimgsets[10] = 'starving'>>
- <<setinit $bodimgsets[11] = 'slight'>>
- <<setinit $bodimgsets[12] = 'skinny'>>
- <<setinit $bodimgsets[13] = 'toned'>>
- <<setinit $bodimgsets[14] = 'cute'>>
- <<setinit $bodimgsets[15] = 'curvy'>>
- <<setinit $bodimgsets[16] = 'overweight'>>
- <<setinit $bodimgsets[17] = 'fat'>>
- <<setinit $bodimgsets[18] = 'OOPS'>>
- <<setinit $bodimgsets[19] = 'default_mid'>>
- <<setinit $bodimgsets[20] = 'starving'>>
- <<setinit $bodimgsets[21] = 'wiry'>>
- <<setinit $bodimgsets[22] = 'lean'>>
- <<setinit $bodimgsets[23] = 'ripped'>>
- <<setinit $bodimgsets[24] = 'muscular'>>
- <<setinit $bodimgsets[25] = 'herculean'>>
- <<setinit $bodimgsets[26] = 'stocky'>>
- <<setinit $bodimgsets[27] = 'heavy set'>>
- <<setinit $bodimgsets[28] = 'OOPS'>>
- <<setinit $bodimgsets[29] = 'default_high'>>
- <<setinit $bodimgsets[30] = 'pregnant, but not showing'>>
- <<setinit $bodimgsets[31] = 'glowing'>>
- <<setinit $bodimgsets[32] = 'starting to show'>>
- <<setinit $bodimgsets[33] = 'clearly showing'>>
- <<setinit $bodimgsets[34] = 'fairly pregnant'>>
- <<setinit $bodimgsets[35] = 'quite pregnant'>>
- <<setinit $bodimgsets[36] = 'very pregnant'>>
- <<setinit $bodimgsets[37] = 'extremely pregnant'>>
- <<setinit $bodimgsets[38] = 'ready to pop'>>
- <<setinit $bodimgsets[39] = 'default_preg'>>
- <!-- !!This sets the first 3 sets to not override images 0, 6 and 7-->
- <<setinit $imgset0ovr[0] = 0>>
- <<setinit $imgset0ovr[1] = 0>>
- <<setinit $imgset0ovr[2] = 0>>
- <<setinit $imgset6ovr[0] = 0>>
- <<setinit $imgset6ovr[1] = 0>>
- <<setinit $imgset6ovr[2] = 0>>
- <<setinit $imgset7ovr[0] = 0>>
- <<setinit $imgset7ovr[1] = 0>>
- <<setinit $imgset7ovr[2] = 0>>
- <!-- !!Sets the default image set count if it is 0-->
- <<if getvar("$pc.bodsetcnt") <= 0>>
- <<set $pc.bodsetcnt = 3>>
- <</if>>
- <<setinit $time.weekday_name[1] = 'Monday'>>
- <<setinit $time.weekday_name[2] = 'Tuesday'>>
- <<setinit $time.weekday_name[3] = 'Wednesday'>>
- <<setinit $time.weekday_name[4] = 'Thursday'>>
- <<setinit $time.weekday_name[5] = 'Friday'>>
- <<setinit $time.weekday_name[6] = 'Saturday'>>
- <<setinit $time.weekday_name[7] = 'Sunday'>>
- <!-- !!----------------->
- :: brodila_macro[widget]
- <<widget 'brodila'>>
- <<set $sexpartkno = 0>>
- <<if getvar("$accessible_property['city_apartment']") > 0>>
- <<gt 'korr' 'start'>>
- <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
- <<gt 'korr2x' 'start'>>
- <<else>>
- <<gt 'city_residential' 'start'>>
- <</if>>
- <</widget>>
- :: brodilr_macro[widget]
- <<widget 'brodilr'>>
- <<if mid($start_type,1,2) == 'sg' and getvar("$accessible_property['parents_home']") == 4>>
- <<gt 'pav_residential'>>
- <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
- <<gt 'liames'>>
- <<else>>
- <<gt 'city_residential' 'start'>>
- <</if>>
- <</widget>>
- :: brodilk_macro[widget]
- <<widget 'brodilk'>>
- <<if getvar("$accessible_property['city_apartment']") > 0>>
- <<gt 'kuhr' 'start'>>
- <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
- <<gt 'kuhr2x' 'start'>>
- <<else>>
- <<gt 'city_residential' 'start'>>
- <</if>>
- <</widget>>
- :: brodils_macro[widget]
- <<widget 'brodils'>>
- <<if getvar("$accessible_property['city_apartment']") > 0>>
- <<gt 'sitr' 'start'>>
- <<elseif getvar("$accessible_property['old_town_apartment']") == 1>>
- <<gt 'sitr2x' 'start'>>
- <<elseif mid($start_type,1,2) == 'sg' and getvar("$accessible_property['parents_home']") == 4>>
- <<gt 'sitrPar'>>
- <<else>>
- <<gt 'city_residential' 'start'>>
- <</if>>
- <</widget>>
- :: dogpot_macro[widget]
- <<widget 'dogpot'>>
- <!-- Boy A191 -->
- <</widget>>
- :: rexpot_macro[widget]
- <<widget 'rexpot'>>
- <!-- Boy A166 -->
- <</widget>>
- :: hypnoAddiction_macro[widget]
- <<widget 'hypnoAddiction'>>
- <<if $pc.cumAtLocation(0) == 1 or $pc.cumAtLocation(3) == 1>>
- <<set $missCum to null>>
- <<if getvar("$q.therapist.hypnoAddict") == 1>>
- <<set $pc.mood += 5>>
- <<else>>
- <<set $pc.mood += 10>>
- <</if>>
- <<else>>
- <<set $missCum += 1>>
- <</if>>
- <<if $missCum > $timeTresh>>
- <<if getvar("$q.therapist.hypnoAddict") == 1>>
- <<set $pc.mood -= 5>>
- <<set $pc.horny += 10>>
- <<else>>
- <<set $pc.mood -= 10>>
- <<set $pc.horny += 20>>
- <</if>>
- <</if>>
- <<if getvar("$q.therapist.hypnoWithdrawal") > 0>>
- <<if getvar("$q.therapist.hypnoWithdrawal") == 1>>
- <<if $missCum >= $timeTresh>>
- <<set $sprt_deg -= 2 * $q.therapist.hypnoAddict>>
- <<set $pc.mood -= 10>>
- <<else>>
- <<if rand(0,1) == 0>>
- <<set $sprt_deg -= $q.therapist.hypnoAddict>>
- <</if>>
- <<set $pc.mood -= 5>>
- <</if>>
- <</if>>
- <</if>>
- <</widget>>
- :: prezik_macro[widget]
- <<widget 'prezik'>>
- <<if $inventory.get("condom") > 0>>
- <<if getvar("$badprezik") > 0>>
- <<if rand(1,prezik) <= $badprezik>>
- <<setn $badprezik -= 1>> <<set $noprotect = 1>>
- <</if>>
- <<else>>
- <<set $noprotect = 0>>
- <</if>>
- <<run $inventory.dec('condom',1)>>
- <<elseif $inventory.get("condom") < 0>>
- <<run $inventory.set('condom',0)>>
- <</if>>
- <</widget>>
- :: ferteggfather_macro[widget]
- <<widget 'ferteggfather'>>
- <<if getvar("$fertegg") > 0>>
- <<if getvar("$pc.thinkpreg") == 0 and getvar("$pc.knowpreg") == 0 and getvar("$sparrppt["+$sparrtemp+"]") > 0>>
- <<if getvar("$cumarrkno["+$cumarrtemp+"]") == 1>>
- <<if arrcomp('$cumfthname',$boy) == -1>>
- <<set $i = arrsize('$cumfthname')>>
- <<setinit $cumfthname[$i] = $boy>>
- <<setinit $cumtime[$i] = 1>>
- <<else>>
- <<set $i = arrpos('$cumfthname', $boy)>>
- <<setinit $cumtime[$i] += 1>>
- <</if>>
- <<elseif getvar("$cumarrkno["+$cumarrtemp+"]") == 0>>
- <<setinit $cumtime[0] += 1>>
- <</if>>
- <</if>>
- <</if>>
- <</widget>>
|