1
0

boyStat.qsrc 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120
  1. # boyStat
  2. !!For setting the $boy, dick and $dick_girth with a single call for a npc
  3. !!Use with a gosub and match the ARGS[0] with the correct char
  4. !!A generated NPC would be gs 'boyStat', $npclastcalled
  5. !!Other NPCs may be called either by number if they are a static NPC, or by letter and number otherwise.
  6. !!eg. "gs 'boyStat', 'A56'" would call for Roma. Likewise, "gs 'boyStat', 'A56'" also calls for Roma.
  7. !! A second argument calls for multiple partners. They are output as stats1, stats2, stats3, and stats4, for a total of 5 stats.
  8. if ($ARGS[0] = '' and ARGS[0] > 0) or mid($ARGS[0],1,1) < 10:
  9. if ARGS[0] > 0:
  10. npclastcalledn = ARGS[0]
  11. else
  12. npclastcalledn = $ARGS[0]
  13. end
  14. $npcboytemp = 'A' + npclastcalledn
  15. else
  16. $npcboytemp = $ARGS[0]
  17. !! {This error is for where something outside the range of possibility is specified. The calling code is broken. The exact thing specified will be announced.}
  18. if mid($npcboytemp,2,1) > 10:
  19. MSG 'There has been an error in the $boy passing code. Please contact a developer with what you were doing prior to receiving this message so the error may be fixed. Error type: Improper value for boyStat. Calling <<$ARGS[0]>>'
  20. $npcboytemp = 'D0'
  21. end
  22. end
  23. if mid($npcboytemp,1,1) = 'A' or mid($npcboytemp,1,1) = 'B' or mid($npcboytemp,1,1) = 'C':
  24. $npclastcalled = $npcboytemp
  25. npclastcalledn = mid($npcboytemp, 2)
  26. if $npc_usedname[$npclastcalled]=0: $npc_usedname[$npclastcalled] = $npc_firstname[$npclastcalled] & !! this is a workaround which compensate incomplete settings in npc_static files, it can be removed later ...
  27. $bstemp[1] = $npc_usedname[$npclastcalled]
  28. bstemp[2] = npc_dick[$npclastcalled]
  29. $bstemp[3] = $npc_thdick[$npclastcalled]
  30. bstemp[4] = npc_sexskill[$npclastcalled]
  31. gs 'pronouns', npc_gender[$npclastcalled], $ARGS[1]
  32. elseif mid($npcboytemp,1,1) = 'D':
  33. if mid($npcboytemp, 2) = 1:
  34. $bstemp[1] = 'small sized'
  35. bstemp[2] = 10
  36. $bstemp[3] = 'slim'
  37. elseif mid($npcboytemp, 2) = 2:
  38. $bstemp[1] = 'medium sized'
  39. bstemp[2] = 15
  40. $bstemp[3] = 'well proportioned'
  41. elseif mid($npcboytemp, 2) = 3:
  42. $bstemp[1] = 'large sized'
  43. bstemp[2] = 20
  44. $bstemp[3] = 'thicker than average'
  45. elseif mid($npcboytemp, 2) = 4:
  46. $bstemp[1] = 'huge sized'
  47. bstemp[2] = 25
  48. $bstemp[3] = 'thick'
  49. elseif mid($npcboytemp, 2) = 5:
  50. $bstemp[1] = 'giant sized'
  51. bstemp[2] = 30
  52. $bstemp[3] = 'massive'
  53. elseif mid($npcboytemp, 2) = 6:
  54. $bstemp[1] = 'humongous sized'
  55. bstemp[2] = 35
  56. $bstemp[3] = 'monstrous'
  57. else
  58. $bstemp[1] = 'horse sized'
  59. bstemp[2] = 40
  60. $bstemp[3] = 'monstrous'
  61. end
  62. end
  63. if $ARGS[1] = 'a':
  64. $boy1 = $npclastcalled
  65. $boydesc1 = $bstemp[1]
  66. dick1 = bstemp[2]
  67. $dick_girth1 = $bstemp[3]
  68. silavag1 = bstemp[4]
  69. elseif $ARGS[1] = 'b':
  70. $boy2 = $npclastcalled
  71. $boydesc2 = $bstemp[1]
  72. dick2 = bstemp[2]
  73. $dick_girth2 = $bstemp[3]
  74. silavag2 = bstemp[4]
  75. elseif $ARGS[1] = 'c':
  76. $boy3 = $npclastcalled
  77. $boydesc3 = $bstemp[1]
  78. dick3 = bstemp[2]
  79. $dick_girth3 = $bstemp[3]
  80. silavag3 = bstemp[4]
  81. elseif $ARGS[1] = 'd':
  82. $boy4 = $npclastcalled
  83. $boydesc4 = $bstemp[1]
  84. dick4 = bstemp[2]
  85. $dick_girth4 = $bstemp[3]
  86. silavag4 = bstemp[4]
  87. elseif $ARGS[1] = 'e':
  88. $boy5 = $npclastcalled
  89. $boydesc5 = $bstemp[1]
  90. dick5 = bstemp[2]
  91. $dick_girth5 = $bstemp[3]
  92. silavag5 = bstemp[4]
  93. elseif $ARGS[1] = 'f':
  94. $boy6 = $npclastcalled
  95. $boydesc6 = $bstemp[1]
  96. dick6 = bstemp[2]
  97. $dick_girth6 = $bstemp[3]
  98. silavag6 = bstemp[4]
  99. else
  100. boyStat_i = ARGS[1]
  101. if mid($ARGS[1],1,1) < 10: boyStat_i = $ARGS[1]
  102. $boy[boyStat_i] = $npclastcalled
  103. $boydesc[boyStat_i] = $bstemp[1]
  104. dick[boyStat_i] = bstemp[2]
  105. $dick_girth[boyStat_i] = $bstemp[3]
  106. silavag[boyStat_i] = bstemp[4]
  107. end
  108. killvar 'bstemp'
  109. killvar '$bstemp'
  110. killvar 'boyStat_i'
  111. --- boyStat ---------------------------------