npcbreeder 2.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. # npcbreeder
  2. !! This expects you to do a boystat a call for the reciever, and a boystat b call for the giver. example--- gs 'boystat', 'A14', 'a' & gs 'boystat' 'A34', 'b'
  3. if $ARGS[0] = '':
  4. gs 'npcbreeder', 'insert'
  5. gs 'npcbreeder', 'cum'
  6. end
  7. if $ARGS[0] = 'insert':
  8. npcbrokehymen = 0
  9. if npc_hymen[$boy1] < 3:
  10. npcbrokehymen = 1
  11. if $dick_girth2 = 'skinny' or $dick_girth2 = 'slim':
  12. npc_hymen[$boy1] = 3
  13. elseif $dick_girth2 = 'thick' or $dick_girth2 = 'massive':
  14. npc_hymen[$boy1] = 5
  15. elseif $dick_girth2 = 'monstrous':
  16. npc_hymen[$boy1] = 6
  17. else
  18. npc_hymen[$boy1] = 4
  19. end
  20. elseif npc_hymen[boy1] = 3:
  21. if $dick_girth2 = 'thick' or $dick_girth2 = 'massive' or $dick_girth2 = 'monstrous':
  22. npc_hymen[$boy1] = 5
  23. elseif rand(1,3) = 3:
  24. npc_hymen[$boy1] += 1
  25. end
  26. elseif npc_hymen[boy1] < 6:
  27. if dick > npc_vag['A14'] + 5 and rand(1,40) = 1:
  28. npc_hymen[$boy1] += 1
  29. elseif rand(1,500) = 1:
  30. npc_hymen[$boy1] += 1
  31. end
  32. end
  33. end
  34. if $ARGS[0] = 'cum'
  35. !! {Identifying the male potency.}
  36. breedtemp[0] = npc_spermpot[$boy2]
  37. !! {Exiting for impotent or different species.}
  38. if mid($boy1,1,1) = 'd': exit
  39. if breedtemp[0] <= 0: exit
  40. !! {Identifying the female fertility.}
  41. if npc_fert[$boy1] ! 1: exit
  42. breedtemp[1] = npc_cyc[$boy1]
  43. breedtemp[4] = year - ((npc_dob[$boy1] - (npc_dob[$boy1] mod 10000)) / 10000)
  44. !! {Culling the very young}
  45. if breedtemp[4] < 9: exit
  46. !! {Setting Risk of pregnancy. Roughly 1/3 at 300, 1/900 at 1.}
  47. !! {Initial risk is determined by cycle status. 15-16 is "ovulated" and therefore perfect chance.}
  48. if breedtemp[1] > 24 or breedtemp[1] < 7:
  49. breedtemp[2] = 1
  50. elseif breedtemp[1] > 17 or breedtemp[1] < 9:
  51. breedtemp[2] = 5
  52. elseif breedtemp[1] = 9:
  53. breedtemp[2] = 10
  54. elseif breedtemp[1] = 10:
  55. breedtemp[2] = 50
  56. elseif breedtemp[1] = 11 or breedtemp[1] > 16:
  57. breedtemp[2] = 100
  58. elseif breedtemp[1] = 12:
  59. breedtemp[2] = 200
  60. elseif breedtemp[1] = 13:
  61. breedtemp[2] = 250
  62. elseif breedtemp[1] = 14:
  63. breedtemp[2] = 280
  64. else
  65. breedtemp[2] = 300
  66. end
  67. !! {Adjusting risk of pregnancy based on age. 1% change for each year, with a mean of 26.}
  68. breedtemp[4] = 26 - breedtemp[4]
  69. breedtemp[4] = (breedtemp[2] / 100) * breedtemp[4]
  70. !! {Final chance calcuation}
  71. breedtemp[3] = (breedtemp[0] * (breedtemp[2] + breedtemp[4])
  72. !! {Checking if she got knocked up, and setting the stats if she did.}
  73. if rand(0,9000000) < breedtemp[3]
  74. npc_fert[$boy1] = 5
  75. npc_cyc[$boy1] = 1
  76. $npc_kidpater[$boy1] = $ARGS[0]
  77. end
  78. killvar 'breedtemp'
  79. end
  80. --- npcbreeder ---------------------------------