1
0

npcgenext.qsrc 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145
  1. # npcgenext
  2. ! {Dick size and thickness generator. Outputs $npctempgn[4] for girth and npctempgn[5] for length. It takes a higher add number for a call that is supposed to be bigger than average.}
  3. if $args[0] = 'dick':
  4. tempfindadd = 0
  5. if args[1] > 0: tempfindadd += args[1]
  6. penis_dist = rand(1,10000)
  7. if penis_dist <= 14:
  8. tempfindadd += rand(5,6)
  9. elseif penis_dist >= 15 and penis_dist <= 249:
  10. tempfindadd += rand(7,8)
  11. elseif penis_dist >= 250 and penis_dist <= 1599:
  12. tempfindadd += rand(9,10)
  13. elseif penis_dist >= 1600 and penis_dist <= 4999:
  14. tempfindadd += rand(11,13)
  15. elseif penis_dist >= 5000 and penis_dist <= 8399:
  16. tempfindadd += rand(13,15)
  17. elseif penis_dist >= 8400 and penis_dist <= 9749:
  18. tempfindadd += rand(16,17)
  19. elseif penis_dist >= 9750 and penis_dist <= 9984:
  20. tempfindadd += rand(18,19)
  21. elseif penis_dist >= 9985 and penis_dist <=9998:
  22. tempfindadd += rand(20,21)
  23. else
  24. tempfindadd += rand(22,30)
  25. end
  26. npctempgn[5] = tempfindadd
  27. ! {It sets the girth based on the dick size}
  28. if tempfindadd < 9:
  29. tempfindgirth = 1
  30. elseif tempfindadd < 12:
  31. tempfindgirth = 2
  32. elseif tempfindadd < 15:
  33. tempfindgirth = 3
  34. elseif tempfindadd < 18:
  35. tempfindgirth = 4
  36. elseif tempfindadd < 21:
  37. tempfindgirth = 5
  38. elseif tempfindadd < 24:
  39. tempfindgirth = 6
  40. else
  41. tempfindgirth = 7
  42. end
  43. ! {Then it gives random variance with girth. 1 or 2 drops a size. 3 or 4 stays the same. 5 or 6 goes up a size. A 1 or a 6 gives a chance to go up or down a size again, for a max of 2 changes from the base girth from size.}
  44. tempfinddick = rand(1,6)
  45. if tempfinddick < 3:
  46. tempfindgirth -= 1
  47. if tempfinddick = 1:
  48. tempfinddick = rand(1,3)
  49. if tempfinddick = 1:
  50. tempfindgirth -= 1
  51. elseif tempfinddick = 3:
  52. tempfindgirth += 1
  53. end
  54. end
  55. elseif tempfinddick > 4:
  56. tempfindgirth += 1
  57. if tempfinddick = 6:
  58. tempfinddick = rand(1,3)
  59. if tempfinddick = 1:
  60. tempfindgirth -= 1
  61. elseif tempfinddick = 3:
  62. tempfindgirth += 1
  63. end
  64. end
  65. end
  66. ! {Then it returns the official girth.}
  67. if tempfindgirth < 2:
  68. $npctempgn[4] = 'skinny'
  69. elseif tempfindgirth = 2:
  70. $npctempgn[4] = 'slim'
  71. elseif tempfindgirth = 3:
  72. $npctempgn[4] = 'well proportioned'
  73. elseif tempfindgirth = 4:
  74. $npctempgn[4] = 'thicker than average'
  75. elseif tempfindgirth = 5:
  76. $npctempgn[4] = 'thick'
  77. elseif tempfindgirth = 6:
  78. $npctempgn[4] = 'massive'
  79. else
  80. $npctempgn[4] = 'monstrous'
  81. end
  82. ! {cleanup}
  83. killvar 'tempfindadd'
  84. killvar 'tempfinddick'
  85. killvar 'tempfindgirth'
  86. end
  87. ! {Personality Generator. Outputs $npctempgn[6]}
  88. if $args[0] = 'pers':
  89. if rand(0,1) = 1:
  90. $npctempgn[6] = 'E'
  91. else
  92. $npctempgn[6] = 'I'
  93. end
  94. if rand(0,1) = 1:
  95. $npctempgn[6] += 'S'
  96. else
  97. $npctempgn[6] += 'N'
  98. end
  99. if rand(0,1) = 1:
  100. $npctempgn[6] += 'T'
  101. else
  102. $npctempgn[6] += 'F'
  103. end
  104. if rand(0,1) = 1:
  105. $npctempgn[6] += 'J'
  106. else
  107. $npctempgn[6] += 'P'
  108. end
  109. end
  110. ! {Venerial Disease Generator. requires an index.}
  111. if $args[0] = 'rstd':
  112. if $ARGS[1] = '': $ARGS[1] = 0
  113. if mid($ARGS[1],1,1) < 10:
  114. $tempvan1 = 'A' + $ARGS[1]
  115. else
  116. $tempvan1 = $ARGS[1]
  117. end
  118. if rand(0,100) = 100:
  119. tempvenerial = rand(1,4)
  120. !! Herpes simplex virus 1 and 2 (HSV-1 and HSV-2) are common and contagious. About 67% of the world population under the age of 50 has HSV-1
  121. if tempvenerial = 1: npc_herpes[$tempvan1] = 1
  122. !! Syphilis is a sexually transmitted infection caused by the bacterium
  123. if tempvenerial = 2: npc_syth[$tempvan1] = 1
  124. !! Gonorrhea, colloquially known as the clap, is a sexually transmitted infection (STI) caused by the bacterium
  125. if tempvenerial = 3: npc_gon[$tempvan1] = 1
  126. !! Candidiasis is a fungal infection due to any type of Candida. When it affects the mouth, in some countries it is commonly called thrush.
  127. if tempvenerial = 4: npc_thrush[$tempvan1] = 1
  128. end
  129. killvar 'tempvenerial'
  130. killvar '$tempvan1'
  131. end
  132. --- npcgenext ---------------------------------