npcgenext.qsrc 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128
  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. end
  77. ! {Personality Generator. Outputs $npctempgn[6]}
  78. if $args[0] = 'pers':
  79. if rand(0,1) = 1:
  80. $npctempgn[6] = 'E'
  81. else
  82. $npctempgn[6] = 'I'
  83. end
  84. if rand(0,1) = 1:
  85. $npctempgn[6] += 'S'
  86. else
  87. $npctempgn[6] += 'N'
  88. end
  89. if rand(0,1) = 1:
  90. $npctempgn[6] += 'T'
  91. else
  92. $npctempgn[6] += 'F'
  93. end
  94. if rand(0,1) = 1:
  95. $npctempgn[6] += 'J'
  96. else
  97. $npctempgn[6] += 'P'
  98. end
  99. end
  100. ! {Venerial Disease Generator. requires an index.}
  101. if $args[0] = 'rstd':
  102. if $ARGS[1] = '': $ARGS[1] = 0
  103. if mid($ARGS[1],1,1) < 10:
  104. $tempvan1 = 'A' + $ARGS[1]
  105. else
  106. $tempvan1 = $ARGS[1]
  107. end
  108. if rand(0,100) = 100:
  109. tempvenerial = rand(1,7)
  110. if tempvenerial = 1: npc_herpes[$tempvan1] = 1
  111. if tempvenerial = 2: npc_syth[$tempvan1] = 1
  112. if tempvenerial = 3: npc_gon[$tempvan1] = 1
  113. if tempvenerial = 4: npc_chlam[$tempvan1] = 1
  114. if tempvenerial = 6: npc_genwart[$tempvan1] = 1
  115. if tempvenerial = 7: npc_thrush[$tempvan1] = 1
  116. end
  117. killvar 'tempvenerial'
  118. killvar '$tempvan1'
  119. end
  120. --- npcgenext ---------------------------------