cum_call 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
  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.
  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. end
  31. if ARGS[3] = 1:
  32. sexcontra = 1
  33. elseif ARGS[3] = 2:
  34. sexcontra = 2
  35. elseif ARGS[3] = 3:
  36. sexcontra = 3
  37. elseif ARGS[3] = 4:
  38. sexcontra = 4
  39. elseif ARGS[3] = 5:
  40. sexcontra = 5
  41. elseif ARGS[3] = 6:
  42. sexcontra = 6
  43. elseif ARGS[3] = 7:
  44. sexcontra = 7
  45. end
  46. if ARGS[2] = 2:
  47. sexunaware = 1
  48. elseif ARGS[2] = 1:
  49. sexpartkno = 1
  50. else
  51. sexpartkno = 0
  52. end
  53. !!This check if the name passed is not in the new MGX format
  54. if $ARGS[1] = '' or mid($ARGS[1],2,1) > 10:
  55. if ARGS[2] = 0 or ARGS[2] = 2:
  56. gs 'npcgeneratec', 0, $ARGS[1], rand(18,60)
  57. gs 'boyStat', $npclastgenerated
  58. elseif ARGS[2] = 1:
  59. tempnpcid = arrpos('$Astat_usedname', $ARGS[1])
  60. if tempnpcid > 0:
  61. gs 'boystat', tempnpcid
  62. '<br><b><font color="teal">DEVELOPER WARNING: Legacy name cum_call needs upgrade from <<$ARGS[1]>> to A<<tempnpcid>></font></b>'
  63. else
  64. 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]>>'
  65. gs 'boyStat', 'D0'
  66. end
  67. end
  68. else
  69. gs 'boyStat', $ARGS[1]
  70. end
  71. if $ARGS[0] = 'labia':
  72. spafinloc = 1
  73. elseif $ARGS[0] = 'pantyfront':
  74. spafinloc = 2
  75. elseif $ARGS[0] = 'anus':
  76. spafinloc = 3
  77. elseif $ARGS[0] = 'butt':
  78. spafinloc = 4
  79. elseif $ARGS[0] = 'pantyrear':
  80. spafinloc = 5
  81. elseif $ARGS[0] = 'clothesgroin':
  82. spafinloc = 6
  83. elseif $ARGS[0] = 'clothes':
  84. spafinloc = 7
  85. elseif $ARGS[0] = 'back':
  86. spafinloc = 8
  87. elseif $ARGS[0] = 'legs':
  88. spafinloc = 9
  89. elseif $ARGS[0] = 'arms':
  90. spafinloc = 10
  91. elseif $ARGS[0] = 'face':
  92. spafinloc = 11
  93. elseif $ARGS[0] = 'mouth':
  94. spafinloc = 12
  95. elseif $ARGS[0] = 'hands':
  96. spafinloc = 13
  97. elseif $ARGS[0] = 'stomach':
  98. spafinloc = 14
  99. elseif $ARGS[0] = 'breasts':
  100. spafinloc = 15
  101. elseif $ARGS[0] = 'hair':
  102. spafinloc = 16
  103. elseif $ARGS[0] = 'internalcondom':
  104. spafinloc = 17
  105. else
  106. spafinloc = 0
  107. !Vagina and default
  108. end
  109. !{'boy <<$boydesc>> loc <<spafinloc>> contra <<sexcontra>> vol <<sexvolume>> ppt <<sexspecpot>> know <<sexpartkno>> unaware <<sexunaware>> cumboy <<$cumboy>>'}
  110. gs 'Cum_Manage'
  111. $boy = $cumboy
  112. sexcontra = 0
  113. --- cum_call ---------------------------------