1
0

cum_call 2.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  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, set as '' (blank) if PC should not know name
  6. ARGS[2] is volume, default is 40 (4ml)
  7. ARGS[3] is contraception, if left blank it will use the default, if you want to force a particular type:
  8. 1 - he thought you were on the pill but you weren't.
  9. 2 - you are on the Pill
  10. 3 - Condom. Condoms can still fail vy the code.
  11. 4 - the Condom Broke. This is mostly used to check if cum manage resulted in a broken condom.
  12. 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.
  13. 6 - the condom was Sabotaged but the main character shouldn't know that
  14. 7 - the Condom was Sabotaged by the main character.[/spoiler]
  15. ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
  16. ARGS[5] is a special unaware, for things like unconscious sex, set to 1 for on
  17. For a simple call you only need the first 2, ie:
  18. gs 'cum_call', 'anus', 'Kolka' - for a known partner
  19. gs 'cum_call', 'anus' - for an unknown partner}
  20. if ARGS[5] = 1:
  21. sexunaware = 1
  22. end
  23. if ARGS[4] ! 0:
  24. sexspecpot = ARGS[4]
  25. end
  26. if ARGS[3] = 1:
  27. sexcontra = 1
  28. elseif ARGS[3] = 2:
  29. sexcontra = 2
  30. elseif ARGS[3] = 3:
  31. sexcontra = 3
  32. elseif ARGS[3] = 4:
  33. sexcontra = 4
  34. elseif ARGS[3] = 5:
  35. sexcontra = 5
  36. elseif ARGS[3] = 6:
  37. sexcontra = 6
  38. elseif ARGS[3] = 7:
  39. sexcontra = 7
  40. end
  41. if ARGS[2] ! 0:
  42. sexvolume = ARGS[2]
  43. end
  44. if $ARGS[1] ! '': sexpartkno = 1 & $cumboy = $boy & $boy = $ARGS[1]
  45. if $ARGS[0] = 'labia':
  46. spafinloc = 1
  47. elseif $ARGS[0] = 'pantyfront':
  48. spafinloc = 2
  49. elseif $ARGS[0] = 'anus':
  50. spafinloc = 3
  51. elseif $ARGS[0] = 'butt':
  52. spafinloc = 4
  53. elseif $ARGS[0] = 'pantyrear':
  54. spafinloc = 5
  55. elseif $ARGS[0] = 'clothesgroin':
  56. spafinloc = 6
  57. elseif $ARGS[0] = 'clothes':
  58. spafinloc = 7
  59. elseif $ARGS[0] = 'back':
  60. spafinloc = 8
  61. elseif $ARGS[0] = 'legs':
  62. spafinloc = 9
  63. elseif $ARGS[0] = 'arms':
  64. spafinloc = 10
  65. elseif $ARGS[0] = 'face':
  66. spafinloc = 11
  67. elseif $ARGS[0] = 'mouth':
  68. spafinloc = 12
  69. elseif $ARGS[0] = 'hands':
  70. spafinloc = 13
  71. elseif $ARGS[0] = 'stomach':
  72. spafinloc = 14
  73. elseif $ARGS[0] = 'breasts':
  74. spafinloc = 15
  75. elseif $ARGS[0] = 'hair':
  76. spafinloc = 16
  77. elseif $ARGS[0] = 'internalcondom':
  78. spafinloc = 17
  79. else
  80. spafinloc = 0
  81. !Vagina and default
  82. end
  83. gs 'Cum_Manage'
  84. $boy = $cumboy
  85. --- cum_call ---------------------------------