1
0

cum_call.qsrc 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149
  1. # cum_call
  2. !{$ARGS[0] is for the location and should be set for all but vaginal:
  3. 'labia' - 'pantyfront' - 'anus' - 'butt' - 'pantyrear' - 'clothes_hidden' - 'clothes' - 'back' - 'legs'
  4. 'arms' - 'face' - 'mouth' - 'hands' - 'stomach' - 'breasts' - 'hair' - 'internalcondom' - 'precum' - 'mouth_swallow'
  5. 'precum' - is for whenever Sveta has unprotected vaginal sex. It will automatically set the volume to 1.
  6. 'mouth_swallow' does the same as mouth but increaments swallow for the cum eater trait
  7. $ARGS[1] is for the name of the sexual partner
  8. 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.
  9. 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)
  10. 1 - sex partner is known for MC (classmate, neighbor, someone she new beforehand)
  11. 2 - MC is unaware of the act (like unconscious sex)
  12. ARGS[3] is contraception, if left blank it will use the default, if you want to force a particular type:
  13. 1 - he thought you were on the pill but you weren''t.
  14. 2 - you are on the Pill
  15. 3 - Condom. Condoms can still fail vy the code.
  16. 4 - the Condom Broke. This is mostly used to check if cum manage resulted in a broken condom.
  17. 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.
  18. 6 - the condom was Sabotaged but the main character shouldn''t know that
  19. 7 - the Condom was Sabotaged by the main character.
  20. ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
  21. NOTE volume is ignored for pregnancy risk if this or npc_spermpot[] for the partner is set
  22. ARGS[5] is volume, default is 40 (4ml)
  23. For a simple call you only need the first 3, ie:
  24. gs 'cum_call', 'anus', 'Kolka', 1 - for a known partner
  25. gs 'cum_call', 'anus' - for an unknown partner named "unknown", or
  26. gs 'cum_call', 'anus', 'plumber' - for an unknown partner named "plumber"}
  27. if $ARGS[0] ! 'precum':
  28. $cumboy = $boy
  29. if ARGS[5] ! 0:
  30. sexvolume = ARGS[5]
  31. end
  32. if ARGS[4] ! 0:
  33. sexspecpot = ARGS[4]
  34. else
  35. sexspecpot = 0
  36. end
  37. if ARGS[3] = 1:
  38. sexcontra = 1
  39. elseif ARGS[3] = 2:
  40. sexcontra = 2
  41. elseif ARGS[3] = 3:
  42. sexcontra = 3
  43. elseif ARGS[3] = 4:
  44. sexcontra = 4
  45. elseif ARGS[3] = 5:
  46. sexcontra = 5
  47. elseif ARGS[3] = 6:
  48. sexcontra = 6
  49. elseif ARGS[3] = 7:
  50. sexcontra = 7
  51. end
  52. if ARGS[2] = 2:
  53. sexunaware = 1
  54. elseif ARGS[2] = 1:
  55. sexpartkno = 1
  56. else
  57. sexpartkno = 0
  58. end
  59. !!This check if the name passed is not in the new MGX format
  60. if $ARGS[1] = '' or mid($ARGS[1],2,1) > 10:
  61. if ARGS[2] = 0 or ARGS[2] = 2:
  62. gs 'npcgeneratec', 0, $ARGS[1], rand(18,60)
  63. gs 'boyStat', $npclastgenerated
  64. elseif ARGS[2] = 1:
  65. tempnpcid = arrpos('$npc_usedname', $ARGS[1])
  66. if tempnpcid > 0:
  67. gs 'boystat', tempnpcid
  68. '<br><b><font color="teal">DEVELOPER WARNING: Legacy name cum_call needs upgrade from <<$ARGS[1]>> to A<<tempnpcid>></font></b>'
  69. else
  70. 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]>>'
  71. gs 'boyStat', 'D0'
  72. end
  73. end
  74. else
  75. gs 'boyStat', $ARGS[1]
  76. end
  77. if $ARGS[0] = 'labia':
  78. spafinloc = 1
  79. elseif $ARGS[0] = 'pantyfront':
  80. spafinloc = 2
  81. elseif $ARGS[0] = 'anus':
  82. spafinloc = 3
  83. elseif $ARGS[0] = 'butt':
  84. spafinloc = 4
  85. elseif $ARGS[0] = 'pantyrear':
  86. spafinloc = 5
  87. elseif $ARGS[0] = 'clothes_hidden':
  88. spafinloc = 6
  89. elseif $ARGS[0] = 'clothes':
  90. spafinloc = 7
  91. elseif $ARGS[0] = 'back':
  92. spafinloc = 8
  93. elseif $ARGS[0] = 'legs':
  94. spafinloc = 9
  95. elseif $ARGS[0] = 'arms':
  96. spafinloc = 10
  97. elseif $ARGS[0] = 'face':
  98. spafinloc = 11
  99. elseif $ARGS[0] = 'mouth':
  100. spafinloc = 12
  101. elseif $ARGS[0] = 'mouth_swallow':
  102. spafinloc = 12
  103. swallow += 1
  104. elseif $ARGS[0] = 'hands':
  105. spafinloc = 13
  106. elseif $ARGS[0] = 'stomach':
  107. spafinloc = 14
  108. elseif $ARGS[0] = 'breasts':
  109. spafinloc = 15
  110. elseif $ARGS[0] = 'hair':
  111. spafinloc = 16
  112. elseif $ARGS[0] = 'internalcondom':
  113. spafinloc = 17
  114. else
  115. spafinloc = 0
  116. !Vagina and default
  117. end
  118. !{'boy <<$boydesc>> loc <<spafinloc>> contra <<sexcontra>> vol <<sexvolume>> ppt <<sexspecpot>> know <<sexpartkno>> unaware <<sexunaware>> cumboy <<$cumboy>>'}
  119. gs 'Cum_Manage'
  120. $boy = $cumboy
  121. sexcontra = 0
  122. else
  123. !This is to check for pregnancy and stds from precum. It is added for readability when it is used in the code.
  124. !It will call cum_call with potency of 1 40th of what it would be for a normal call.
  125. tempSexspecpot = 0
  126. if ARGS[4] > 0:
  127. tempSexspecpot = ARGS[4] / 40
  128. elseif npc_spermpot[$ARGS[1]] > 0:
  129. tempSexspecpot = npc_spermpot[$ARGS[1]] / 40
  130. else
  131. tempSexspecpot = 10000 / 40
  132. end
  133. gs 'cum_call', '', $ARGS[1], ARGS[2], ARGS[3], tempSexspecpot, 1
  134. killvar 'tempSexspecpot'
  135. end
  136. --- cum_call ---------------------------------