body_din.qsrc 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940
  1. # body_din
  2. !! Medical procedures, such as abortions, are located at medical_din
  3. !! Determines whether a NPC sees that another character is pregnant.
  4. !! If ARGS 1-3 are not set the observed character is the player character (Sveta)
  5. !! Usage: visible = FUNC('body_din','pregnancyVisibility')
  6. !! Return values:
  7. !! 0: Has no reason to believe Sveta is pregnant
  8. !! 1: Believes Sveta is pregnant
  9. !! Parameters:
  10. !! ARGS[1]; The current pregnancy state (default: pregchem)
  11. !! $ARGS[2]: The worn clothing type (default $clothingworntype)
  12. !! ARGS[3]: The worn clothing numer (default: clothingwornnumber)
  13. if $ARGS[0] = 'pregnancyVisibility':
  14. RESULT = 0
  15. pregchemTemp = iif(ARGS[1] = 0,pregchem,ARGS[1])
  16. $clothingworntypeTemp = iif(ARGS[2] = '',$clothingworntype,ARGS[2])
  17. clothingwornnumberTemp = iif(ARGS[3] = 0,clothingwornnumber,ARGS[3])
  18. gs 'clothing_attributes',$clothingworntypeTemp,clothingwornnumberTemp
  19. if (CloThinness >= 5 or $clothingworntypeTemp = 'nude') and pregchemTemp > 2000:
  20. RESULT = 1
  21. elseif CloThinness = 4 and pregchemTemp > 3460:
  22. RESULT = 1
  23. elseif CloThinness = 3 and pregchemTemp > 3990:
  24. RESULT = 1
  25. elseif CloThinness = 2 and pregchemTemp > 4200:
  26. RESULT = 1
  27. elseif pregchemTemp > 5200:
  28. RESULT = 1
  29. end
  30. killvar 'pregchemTemp'
  31. killvar '$clothingworntypeTemp'
  32. killvar 'clothingwornnumberTemp'
  33. end
  34. --- body_din ---------------------------------