1
0

medical_din.qsrc 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
  1. # medical_din
  2. if $ARGS[0] = 'abortion':
  3. !! Aborts pregnency. Usage: gs 'medical_din','abortion'
  4. vidage += 1
  5. abort += 1
  6. abortionbirthdate = daystart
  7. pregtime = 0
  8. pregtalk = 0
  9. pcs_pregtalk = 0
  10. npc_pregtalk['A16'] = 0
  11. npc_pregtalk['A34'] = 0
  12. preg = 0
  13. thinkpreg = 0
  14. knowpreg = 0
  15. cycle = 4
  16. !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
  17. RecovH = rand(375,575)
  18. pregchem = 0
  19. knowpregloss = 2
  20. abortrand = rand(0, 10)
  21. if age > 18:
  22. if abortrand < 10:sterilewb += 1
  23. if abortrand = 10:sterilewb += 10
  24. else
  25. if abortrand < 7:sterilewb += 2
  26. if abortrand >= 7:sterilewb += 10
  27. end
  28. pcs_hydra += 20
  29. !! I am not sure, why is it here this cycle, but I leave it so (rachels)
  30. nextbaby = arrsize('yearkid')
  31. if broodcurse > 0: over = 13 & gt'gameover'
  32. :poliabortloop
  33. !!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
  34. if yearkid[nextbaby-1] = 0:
  35. KILLVAR 'polkid',nextbaby-1
  36. KILLVAR '$kidname',nextbaby-1
  37. KILLVAR 'kidage',nextbaby-1
  38. KILLVAR 'daykid',nextbaby-1
  39. KILLVAR 'monthkid',nextbaby-1
  40. KILLVAR 'yearkid',nextbaby-1
  41. KILLVAR 'Babyptype',nextbaby-1
  42. KILLVAR '$ChildFath',nextbaby-1
  43. KILLVAR '$ChildThFath',nextbaby-1
  44. KILLVAR 'hairkid',nextbaby-1
  45. KILLVAR 'eyeskid',nextbaby-1
  46. KILLVAR 'cumarrcon',nextbaby-1
  47. KILLVAR '$wombpotfath'
  48. BabyEmbryo -= 1
  49. end
  50. nextbaby -= 1
  51. if nextbaby > 0:
  52. jump 'poliabortloop'
  53. end
  54. killvar 'abortrand'
  55. elseif $ARGS[0] = 'birthControlShot':
  56. !! Gives Sveta the effects of a birth control shot. Usage: gs 'medical_din','birthControlShot'
  57. !! Note: You have to make sure that she is not pregnant beforehead.
  58. !!length of shot
  59. tabletkishot = rand(84,91)
  60. !!How long before you can get next shot
  61. shotdays = 84
  62. !!Flag for protection type - shot
  63. tabletkicheck = 2
  64. !!Sets the actual drug in your system
  65. pillcon = 40000
  66. !!How much of the drug Sveta things is in her system
  67. pillcon2 = 40000
  68. elseif $ARGS[0] = 'healthTreatment':
  69. !! Gives Sveta an health treatment (like the doctors in the clinic do). Usage: gs 'medical_din','healthTreatment'
  70. if pain['head'] > 0:pain['head'] -= rand(7,13)
  71. if pain['hair'] > 0:pain['hair'] -= rand(7,13)
  72. if pain['ears'] > 0:pain['ears'] -= rand(7,13)
  73. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
  74. if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
  75. if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
  76. if pain['nose'] > 0:pain['nose'] -= rand(7,13)
  77. if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
  78. if pain['lips'] > 0:pain['lips'] -= rand(7,13)
  79. if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
  80. if pain['throat'] > 0:pain['throat'] -= rand(7,13)
  81. if pain['neck'] > 0:pain['neck'] -= rand(7,13)
  82. if pain['back'] > 0:pain['back'] -= rand(7,13)
  83. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
  84. if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
  85. if pain['hips'] > 0:pain['hips'] -= rand(7,13)
  86. if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
  87. if pain['legL'] > 0:pain['legL'] -= rand(7,13)
  88. if pain['legR'] > 0:pain['legR'] -= rand(7,13)
  89. if pain['feet'] > 0:pain['feet'] -= rand(7,13)
  90. if pain['toes'] > 0:pain['toes'] -= rand(7,13)
  91. if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
  92. if pain['armL'] > 0:pain['armL'] -= rand(7,13)
  93. if pain['armR'] > 0:pain['armR'] -= rand(7,13)
  94. if pain['hands'] > 0:pain['hands'] -= rand(7,13)
  95. if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
  96. if pain['chest'] > 0:pain['chest'] -= rand(7,13)
  97. if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
  98. if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
  99. if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
  100. if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
  101. if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
  102. if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
  103. if pain['labia'] > 0:pain['labia'] -= rand(7,13)
  104. if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
  105. if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
  106. if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
  107. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  108. if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
  109. elseif $ARGS[0] = 'healSTDs':
  110. !! Heals all STDs. Usage: gs 'medical_din','healSTDs'
  111. venera = 0
  112. GerpesOnce = 0
  113. Gerpes = 0
  114. SifacOnce = 0
  115. Sifilis = 0
  116. TriperOnce = 0
  117. Triper = 0
  118. TriperOral = 0
  119. KandidozOnce = 0
  120. Kandidoz = 0
  121. end
  122. --- medical_din ---------------------------------