1
0

npcgenext.qsrc 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133
  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. i = 6
  5. tempfindadd = 0
  6. if args[1] > 0: tempfindadd += args[1]
  7. :dickaddloop
  8. ! {6 random 1-6. This gives a figure between 6 and 36.}
  9. tempfinddick = rand(1,6)
  10. tempfindadd += tempfinddick
  11. i -= 1
  12. if i > 0:
  13. jump 'dickaddloop'
  14. end
  15. ! {It then outputs the data. Dick minimum is 6, so if it is less than that, it spits out 6.}
  16. if tempfindadd < 6:
  17. npctempgn[5] = 6
  18. else
  19. npctempgn[5] = tempfindadd
  20. end
  21. ! {It sets the girth based on the dick size}
  22. if tempfindadd < 9:
  23. tempfindgirth = 1
  24. elseif tempfindadd < 12:
  25. tempfindgirth = 2
  26. elseif tempfindadd < 15:
  27. tempfindgirth = 3
  28. elseif tempfindadd < 18:
  29. tempfindgirth = 4
  30. elseif tempfindadd < 21:
  31. tempfindgirth = 5
  32. elseif tempfindadd < 24:
  33. tempfindgirth = 6
  34. else
  35. tempfindgirth = 7
  36. end
  37. ! {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.}
  38. tempfinddick = rand(1,6)
  39. if tempfinddick < 3:
  40. tempfindgirth -= 1
  41. if tempfinddick = 1:
  42. tempfinddick = rand(1,3)
  43. if tempfinddick = 1:
  44. tempfindgirth -= 1
  45. elseif tempfinddick = 3:
  46. tempfindgirth += 1
  47. end
  48. end
  49. elseif tempfinddick > 4:
  50. tempfindgirth += 1
  51. if tempfinddick = 6:
  52. tempfinddick = rand(1,3)
  53. if tempfinddick = 1:
  54. tempfindgirth -= 1
  55. elseif tempfinddick = 3:
  56. tempfindgirth += 1
  57. end
  58. end
  59. end
  60. ! {Then it returns the official girth.}
  61. if tempfindgirth < 2:
  62. $npctempgn[4] = 'skinny'
  63. elseif tempfindgirth = 2:
  64. $npctempgn[4] = 'slim'
  65. elseif tempfindgirth = 3:
  66. $npctempgn[4] = 'well proportioned'
  67. elseif tempfindgirth = 4:
  68. $npctempgn[4] = 'thicker than average'
  69. elseif tempfindgirth = 5:
  70. $npctempgn[4] = 'thick'
  71. elseif tempfindgirth = 6:
  72. $npctempgn[4] = 'massive'
  73. else
  74. $npctempgn[4] = 'monstrous'
  75. end
  76. ! {cleanup}
  77. killvar 'tempfindadd'
  78. killvar 'tempfinddick'
  79. killvar 'tempfindgirth'
  80. end
  81. ! {Personality Generator. Outputs $npctempgn[6]}
  82. if $args[0] = 'pers':
  83. if rand(0,1) = 1:
  84. $npctempgn[6] = 'E'
  85. else
  86. $npctempgn[6] = 'I'
  87. end
  88. if rand(0,1) = 1:
  89. $npctempgn[6] += 'S'
  90. else
  91. $npctempgn[6] += 'N'
  92. end
  93. if rand(0,1) = 1:
  94. $npctempgn[6] += 'T'
  95. else
  96. $npctempgn[6] += 'F'
  97. end
  98. if rand(0,1) = 1:
  99. $npctempgn[6] += 'J'
  100. else
  101. $npctempgn[6] += 'P'
  102. end
  103. end
  104. ! {Venerial Disease Generator. requires an index.}
  105. if $args[0] = 'rstd':
  106. if $ARGS[1] = '': $ARGS[1] = 0
  107. if mid($ARGS[1],1,1) < 10:
  108. $tempvan1 = 'A' + $ARGS[1]
  109. else
  110. $tempvan1 = $ARGS[1]
  111. end
  112. if rand(0,100) = 100:
  113. tempvenerial = rand(1,7)
  114. if tempvenerial = 1: npc_herpes[$tempvan1] = 1
  115. if tempvenerial = 2: npc_syth[$tempvan1] = 1
  116. if tempvenerial = 3: npc_gon[$tempvan1] = 1
  117. if tempvenerial = 4: npc_chlam[$tempvan1] = 1
  118. if tempvenerial = 6: npc_genwart[$tempvan1] = 1
  119. if tempvenerial = 7: npc_thrush[$tempvan1] = 1
  120. end
  121. killvar 'tempvenerial'
  122. killvar '$tempvan1'
  123. end
  124. --- npcgenext ---------------------------------