glife/locations/cum_call

# cum_call

!{$ARGS[0] is for the location and should be set for all but vaginal:
'labia' - 'pantyfront' - 'anus' - 'butt' - 'pantyrear' - 'clothesgroin' - 'clothes' - 'back' - 'legs'
'arms' - 'face' - 'mouth' - 'hands' - 'stomach' - 'breasts' - 'hair' - 'internalcondom'
$ARGS[1] is for the name of the sexual partner, set as '' (blank) if PC should not know name
ARGS[2] is volume, default is 40 (4ml)
ARGS[3] is contraception, if left blank it will use the default, if you want to force a particular type:
	1 - he thought you were on the pill but you weren't.
	2 - you are on the Pill
	3 - Condom. Condoms can still fail vy the code.
	4 - the Condom Broke. This is mostly used to check if cum manage resulted in a broken condom.
	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.
	6 - the condom was Sabotaged but the main character shouldn't know that
	7 - the Condom was Sabotaged by the main character.
ARGS[4] is for changing the potency, -1 for unable to impregnate, default is 10,000
ARGS[5] is a special unaware, for things like unconscious sex, set to 1 for on
For a simple call you only need the first 2, ie:
gs 'cum_call', 'anus', 'Kolka' - for a known partner
gs 'cum_call', 'anus' - for an unknown partner}

if ARGS[5] = 1:
	sexunaware = 1
else:
	sexpartkno = 1
end

if ARGS[4] ! 0:
	sexspecpot = ARGS[4]
end

if ARGS[3] = 1:
	sexcontra = 1
elseif ARGS[3] = 2:
	sexcontra = 2
elseif ARGS[3] = 3:
	sexcontra = 3
elseif ARGS[3] = 4:
	sexcontra = 4
elseif ARGS[3] = 5:
	sexcontra = 5
elseif ARGS[3] = 6:
	sexcontra = 6
elseif ARGS[3] = 7:
	sexcontra = 7
end

if ARGS[2] ! 0:
	sexvolume = ARGS[2]
end

if $ARGS[1] ! '': sexpartkno = 1 & $cumboy = $boy & $boy = $ARGS[1]

if $ARGS[0] = 'labia':
	spafinloc = 1
elseif $ARGS[0] = 'pantyfront':
	spafinloc = 2
elseif $ARGS[0] = 'anus':
	spafinloc = 3
elseif $ARGS[0] = 'butt':
	spafinloc = 4
elseif $ARGS[0] = 'pantyrear':
	spafinloc = 5
elseif $ARGS[0] = 'clothesgroin':
	spafinloc = 6
elseif $ARGS[0] = 'clothes':
	spafinloc = 7
elseif $ARGS[0] = 'back':
	spafinloc = 8
elseif $ARGS[0] = 'legs':
	spafinloc = 9
elseif $ARGS[0] = 'arms':
	spafinloc = 10
elseif $ARGS[0] = 'face':
	spafinloc = 11
elseif $ARGS[0] = 'mouth':
	spafinloc = 12
elseif $ARGS[0] = 'hands':
	spafinloc = 13
elseif $ARGS[0] = 'stomach':
	spafinloc = 14
elseif $ARGS[0] = 'breasts':
	spafinloc = 15
elseif $ARGS[0] = 'hair':
	spafinloc = 16
elseif $ARGS[0] = 'internalcondom':
	spafinloc = 17
else
	spafinloc = 0
	!Vagina and default
end

gs 'Cum_Manage'
$boy = $cumboy

--- cum_call ---------------------------------