cum_call.qsrc 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128
  1. # cum_call
  2. !{$ARGS[0] is for the location and should be set for all but vaginal:
  3. 'labia' - 'pantyfront' - 'anus' - 'butt' - 'pantyrear' - 'clothesgroin' - 'clothes' - 'back' - 'legs'
  4. 'arms' - 'face' - 'mouth' - 'hands' - 'stomach' - 'breasts' - 'hair' - 'internalcondom'
  5. $ARGS[1] is for the name of the sexual partner
  6. ARGS[2] is a for knowing the partner. Defaults to 0. If this is not set to 1 the status window message will mention "some guy" instead of his name.
  7. 0 - unknown sex partner (his name may be known, but she newer saw him before, and likely won't ever again, or she won't remeber it)
  8. 1 - sex partner is known for MC (classmate, neighbor, someone she new beforehand)
  9. 2 - MC is unaware of the act (like unconscious sex)
  10. ARGS[3] is contraception, if left blank it will use the default, if you want to force a particular type:
  11. 1 - he thought you were on the pill but you weren't.
  12. 2 - you are on the Pill
  13. 3 - Condom. Condoms can still fail vy the code.
  14. 4 - the Condom Broke. This is mostly used to check if cum manage resulted in a broken condom.
  15. 5 - the Condom Slipped off. Like 4, this is mostly to check if the contraception of 3 had a failure. But both 4 and 5 can be specified if you want to write an event where it fails no matter what.
  16. 6 - the condom was Sabotaged but the main character shouldn't know that
  17. 7 - the Condom was Sabotaged by the main character.
  18. ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
  19. ARGS[5] is volume, default is 40 (4ml)
  20. For a simple call you only need the first 3, ie:
  21. gs 'cum_call', 'anus', 'Kolka', 1 - for a known partner
  22. gs 'cum_call', 'anus' - for an unknown partner named "unknown", or
  23. gs 'cum_call', 'anus', 'plumber' - for an unknown partner named "plumber"}
  24. $cumboy = $boy
  25. if ARGS[5] ! 0:
  26. sexvolume = ARGS[5]
  27. end
  28. if ARGS[4] ! 0:
  29. sexspecpot = ARGS[4]
  30. else
  31. sexspecpot = 0
  32. end
  33. if ARGS[3] = 1:
  34. sexcontra = 1
  35. elseif ARGS[3] = 2:
  36. sexcontra = 2
  37. elseif ARGS[3] = 3:
  38. sexcontra = 3
  39. elseif ARGS[3] = 4:
  40. sexcontra = 4
  41. elseif ARGS[3] = 5:
  42. sexcontra = 5
  43. elseif ARGS[3] = 6:
  44. sexcontra = 6
  45. elseif ARGS[3] = 7:
  46. sexcontra = 7
  47. end
  48. if ARGS[2] = 2:
  49. sexunaware = 1
  50. elseif ARGS[2] = 1:
  51. sexpartkno = 1
  52. else
  53. sexpartkno = 0
  54. end
  55. !!This check if the name passed is not in the new MGX format
  56. if $ARGS[1] = '' or mid($ARGS[1],2,1) > 10:
  57. if ARGS[2] = 0 or ARGS[2] = 2:
  58. gs 'npcgeneratec', 0, $ARGS[1], rand(18,60)
  59. gs 'boyStat', $npclastgenerated
  60. elseif ARGS[2] = 1:
  61. tempnpcid = arrpos('$npc_usedname', $ARGS[1])
  62. if tempnpcid > 0:
  63. gs 'boystat', tempnpcid
  64. '<br><b><font color="teal">DEVELOPER WARNING: Legacy name cum_call needs upgrade from <<$ARGS[1]>> to A<<tempnpcid>></font></b>'
  65. else
  66. MSG 'There has been an error in the cum_call 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 cum_call. Name <<$ARGS[1]>>'
  67. gs 'boyStat', 'D0'
  68. end
  69. end
  70. else
  71. gs 'boyStat', $ARGS[1]
  72. end
  73. if $ARGS[0] = 'labia':
  74. spafinloc = 1
  75. elseif $ARGS[0] = 'pantyfront':
  76. spafinloc = 2
  77. elseif $ARGS[0] = 'anus':
  78. spafinloc = 3
  79. elseif $ARGS[0] = 'butt':
  80. spafinloc = 4
  81. elseif $ARGS[0] = 'pantyrear':
  82. spafinloc = 5
  83. elseif $ARGS[0] = 'clothesgroin':
  84. spafinloc = 6
  85. elseif $ARGS[0] = 'clothes':
  86. spafinloc = 7
  87. elseif $ARGS[0] = 'back':
  88. spafinloc = 8
  89. elseif $ARGS[0] = 'legs':
  90. spafinloc = 9
  91. elseif $ARGS[0] = 'arms':
  92. spafinloc = 10
  93. elseif $ARGS[0] = 'face':
  94. spafinloc = 11
  95. elseif $ARGS[0] = 'mouth':
  96. spafinloc = 12
  97. elseif $ARGS[0] = 'hands':
  98. spafinloc = 13
  99. elseif $ARGS[0] = 'stomach':
  100. spafinloc = 14
  101. elseif $ARGS[0] = 'breasts':
  102. spafinloc = 15
  103. elseif $ARGS[0] = 'hair':
  104. spafinloc = 16
  105. elseif $ARGS[0] = 'internalcondom':
  106. spafinloc = 17
  107. else
  108. spafinloc = 0
  109. !Vagina and default
  110. end
  111. !{'boy <<$boydesc>> loc <<spafinloc>> contra <<sexcontra>> vol <<sexvolume>> ppt <<sexspecpot>> know <<sexpartkno>> unaware <<sexunaware>> cumboy <<$cumboy>>'}
  112. gs 'Cum_Manage'
  113. $boy = $cumboy
  114. sexcontra = 0
  115. --- cum_call ---------------------------------