1
0

boyStat 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149
  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', 56" 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. $bstemp[1] = $npc_usedname[$npclastcalled]
  27. bstemp[2] = npc_dick[$npclastcalled]
  28. $bstemp[3] = $npc_thdick[$npclastcalled]
  29. bstemp[4] = npc_sexskill[$npclastcalled]
  30. if npc_gender[$npclastcalled] = 0 or npc_gender[$npclastcalled] = 3:
  31. $bstemp[5] = 'he' & $bstemp[6] = 'He'
  32. $bstemp[7] = 'his' & $bstemp[8] = 'His'
  33. $bstemp[9] = 'him' & $bstemp[10] = 'Him'
  34. $bstemp[11] = 'his' & $bstemp[12] = 'His'
  35. $bstemp[13] = 'himself' & $bstemp[14] = 'Himself'
  36. elseif npc_gender[$npclastcalled] = 1 or npc_gender[$npclastcalled] = 2:
  37. $bstemp[5] = 'she' & $bstemp[6] = 'She'
  38. $bstemp[7] = 'her' & $bstemp[8] = 'Her'
  39. $bstemp[9] = 'her' & $bstemp[10] = 'Her'
  40. $bstemp[11] = 'hers' & $bstemp[12] = 'Hers'
  41. $bstemp[13] = 'herself' & $bstemp[14] = 'Herself'
  42. else
  43. $bstemp[5] = 'xe' & $bstemp[6] = 'Xe'
  44. $bstemp[7] = 'xem' & $bstemp[8] = 'Xem'
  45. $bstemp[9] = 'xyr' & $bstemp[10] = 'Xyr'
  46. $bstemp[11] = 'xyrs' & $bstemp[12] = 'Xyrs'
  47. $bstemp[13] = 'xemself' & $bstemp[14] = 'Xemself'
  48. end
  49. elseif mid($npcboytemp,1,1) = 'D':
  50. if mid($npcboytemp, 2) = 1:
  51. $bstemp[1] = 'small sized'
  52. bstemp[2] = 10
  53. $bstemp[3] = 'slim'
  54. elseif mid($npcboytemp, 2) = 2:
  55. $bstemp[1] = 'medium sized'
  56. bstemp[2] = 15
  57. $bstemp[3] = 'well proportioned'
  58. elseif mid($npcboytemp, 2) = 3:
  59. $bstemp[1] = 'large sized'
  60. bstemp[2] = 20
  61. $bstemp[3] = 'thicker than average'
  62. elseif mid($npcboytemp, 2) = 4:
  63. $bstemp[1] = 'huge sized'
  64. bstemp[2] = 25
  65. $bstemp[3] = 'thick'
  66. elseif mid($npcboytemp, 2) = 5:
  67. $bstemp[1] = 'giant sized'
  68. bstemp[2] = 30
  69. $bstemp[3] = 'massive'
  70. elseif mid($npcboytemp, 2) = 6:
  71. $bstemp[1] = 'humongous sized'
  72. bstemp[2] = 35
  73. $bstemp[3] = 'monstrous'
  74. else
  75. $bstemp[1] = 'horse sized'
  76. bstemp[2] = 40
  77. $bstemp[3] = 'monstrous'
  78. end
  79. end
  80. if $ARGS[1] = 'a':
  81. $boy1 = $npclastcalled
  82. $boydesc1 = $bstemp[1]
  83. dick1 = bstemp[2]
  84. $dick_girth1 = $bstemp[3]
  85. silavag1 = bstemp[4]
  86. $xe1 = $bstemp[5] & $xec1 = $bstemp[6]
  87. $xem1 = $bstemp[7] & $xemc1 = $bstemp[8]
  88. $xyr1 = $bstemp[9] & $xyrc1 = $bstemp[10]
  89. $xyrs1 = $bstemp[11] & $xyrsc1 = $bstemp[12]
  90. $xemself1 = $bstemp[13] & $xemselfc1 = $bstemp[14]
  91. elseif $ARGS[1] = 'b':
  92. $boy2 = $npclastcalled
  93. $boydesc2 = $bstemp[1]
  94. dick2 = bstemp[2]
  95. $dick_girth2 = $bstemp[3]
  96. silavag2 = bstemp[4]
  97. $xe2 = $bstemp[5] & $xec2 = $bstemp[6]
  98. $xem2 = $bstemp[7] & $xemc2 = $bstemp[8]
  99. $xyr2 = $bstemp[9] & $xyrc2 = $bstemp[10]
  100. $xyrs2 = $bstemp[11] & $xyrsc2 = $bstemp[12]
  101. $xemself2 = $bstemp[13] & $xemselfc2 = $bstemp[14]
  102. elseif $ARGS[1] = 'c':
  103. $boy3 = $npclastcalled
  104. $boydesc3 = $bstemp[1]
  105. dick3 = bstemp[2]
  106. $dick_girth3 = $bstemp[3]
  107. silavag3 = bstemp[4]
  108. $xe3 = $bstemp[5] & $xec3 = $bstemp[6]
  109. $xem3 = $bstemp[7] & $xemc3 = $bstemp[8]
  110. $xyr3 = $bstemp[9] & $xyrc3 = $bstemp[10]
  111. $xyrs3 = $bstemp[11] & $xyrsc3 = $bstemp[12]
  112. $xemself3 = $bstemp[13] & $xemselfc3 = $bstemp[14]
  113. elseif $ARGS[1] = 'd':
  114. $boy4 = $npclastcalled
  115. $boydesc4 = $bstemp[1]
  116. dick4 = bstemp[2]
  117. $dick_girth4 = $bstemp[3]
  118. silavag4 = bstemp[4]
  119. $xe4 = $bstemp[5] & $xec4 = $bstemp[6]
  120. $xem4 = $bstemp[7] & $xemc4 = $bstemp[8]
  121. $xyr4 = $bstemp[9] & $xyrc4 = $bstemp[10]
  122. $xyrs4 = $bstemp[11] & $xyrsc4 = $bstemp[12]
  123. $xemself4 = $bstemp[13] & $xemselfc4 = $bstemp[14]
  124. else
  125. i = ARGS[1]
  126. if mid($ARGS[1],1,1) < 10: i = $ARGS[1]
  127. $boy[i] = $npclastcalled
  128. $boydesc[i] = $bstemp[1]
  129. dick[i] = bstemp[2]
  130. $dick_girth[i] = $bstemp[3]
  131. silavag[i] = bstemp[4]
  132. $xe[i] = $bstemp[5] & $xec[i] = $bstemp[6]
  133. $xem[i] = $bstemp[7] & $xemc[i] = $bstemp[8]
  134. $xyr[i] = $bstemp[9] & $xyrc[i] = $bstemp[10]
  135. $xyrs[i] = $bstemp[11] & $xyrsc[i] = $bstemp[12]
  136. $xemself[i] = $bstemp[13] & $xemselfc[i] = $bstemp[14]
  137. end
  138. killvar 'bstemp'
  139. killvar '$bstemp'
  140. killvar 'i'
  141. --- boyStat ---------------------------------