1
1

boyStat.qsrc 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  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. else
  88. i = ARGS[1]
  89. if mid($ARGS[1],1,1) < 10: i = $ARGS[1]
  90. $boy[i] = $npclastcalled
  91. $boydesc[i] = $bstemp[1]
  92. dick[i] = bstemp[2]
  93. $dick_girth[i] = $bstemp[3]
  94. silavag[i] = bstemp[4]
  95. end
  96. killvar 'bstemp'
  97. killvar '$bstemp'
  98. killvar 'i'
  99. --- boyStat ---------------------------------