| 1234567891011121314151617181920212223242526272829303132333435 |
- :: body_din
- <<set $here = 'body_din'>>
- <<set $ARGS = $location_var[$here]>>
- <!-- !! Medical procedures, such as abortions, are located at medical_din-->
- <!-- !! Determines whether a NPC sees that another character is pregnant.-->
- <!-- !! If ARGS 1-3 are not set the observed character is the player character (Sveta)-->
- <!-- !! Usage: visible = FUNC('body_din','pregnancyVisibility')-->
- <!-- !! Return values:-->
- <!-- !! 0: Has no reason to believe Sveta is pregnant-->
- <!-- !! 1: Believes Sveta is pregnant-->
- <!-- !! Parameters:-->
- <!-- !! ARGS[1]; The current pregnancy state (default: pregchem)-->
- <!-- !! $ARGS[2]: The worn clothing type (default $wardrobe.clothingworntype)-->
- <!-- !! ARGS[3]: The worn clothing numer (default: clothingwornnumber)-->
- <<if $location_var[$here][0] == 'pregnancyVisibility'>>
- <<set $result = 0>>
- <<set $pc.pregchemTemp = iif(!$ARGS[1],$pc.pregchem,$ARGS[1])>>
- <<set $wardrobe.clothingworntypeTemp = iif(!$ARGS[2],$wardrobe.clothingworntype,$ARGS[2])>>
- <<set $wardrobe.clothingwornnumberTemp = iif(!$ARGS[3],$wardrobe.clothingwornnumber,$ARGS[3])>>
- <<gs 'clothing_attributes' $wardrobe.clothingworntypeTemp $wardrobe.clothingwornnumberTemp>>
- <<if (getvar("$CloThinness") >= 5 or $wardrobe.clothingworntypeTemp == 'nude') and getvar("$pc.pregchemTemp") > 2688>>
- <<set $result = 1>>
- <<elseif getvar("$CloThinness") == 4 and getvar("$pc.pregchemTemp") > 3460>>
- <<set $result = 1>>
- <<elseif getvar("$CloThinness") == 3 and getvar("$pc.pregchemTemp") > 3990>>
- <<set $result = 1>>
- <<elseif getvar("$CloThinness") == 2 and getvar("$pc.pregchemTemp") > 4200>>
- <<set $result = 1>>
- <<elseif getvar("$pc.pregchemTemp") > 5200>>
- <<set $result = 1>>
- <</if>>
- <<set $pc.pregchemTemp to null>>
- <<set $wardrobe.clothingworntypeTemp to null>>
- <<set $wardrobe.clothingwornnumberTemp to null>>
- <</if>>
|
