|
|
|
@@ -6,7 +6,7 @@
|
|
|
|
|
var/arousal_rate = 1 //The base rate that arousal will increase in this mob.
|
|
|
|
|
var/arousal_loss_rate = 1 //How easily arousal can be relieved for this mob.
|
|
|
|
|
var/canbearoused = FALSE //Mob-level disabler for arousal. Starts off and can be enabled as features are added for different mob types.
|
|
|
|
|
var/mb_cd_length = 50 //5 second cooldown for masturbating because fuck spam
|
|
|
|
|
var/mb_cd_length = 100 //5 second cooldown for masturbating because fuck spam.
|
|
|
|
|
var/mb_cd_timer = 0 //The timer itself
|
|
|
|
|
|
|
|
|
|
/mob/living/carbon/human
|
|
|
|
@@ -150,14 +150,14 @@
|
|
|
|
|
return 0
|
|
|
|
|
var/mob/living/M = usr
|
|
|
|
|
if(M.canbearoused)
|
|
|
|
|
M.mob_masturbate()
|
|
|
|
|
M.mob_climax()
|
|
|
|
|
return 1
|
|
|
|
|
else
|
|
|
|
|
M << "<span class='warning'>Arousal is disabled. Feature is unavailable.</span>"
|
|
|
|
|
to_chat(M, "<span class='warning'>Arousal is disabled. Feature is unavailable.</span>")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/mob/living/proc/mob_masturbate()//This is just so I can test this shit without being forced to add actual content to get rid of arousal. Will be a very basic proc for a while.
|
|
|
|
|
/mob/living/proc/mob_climax()//This is just so I can test this shit without being forced to add actual content to get rid of arousal. Will be a very basic proc for a while.
|
|
|
|
|
set name = "Masturbate"
|
|
|
|
|
set category = "IC"
|
|
|
|
|
if(canbearoused && !restrained() && !stat)
|
|
|
|
@@ -179,45 +179,93 @@
|
|
|
|
|
PoolOrNew(/obj/effect/decal/cleanable/femcum, loc)
|
|
|
|
|
*/
|
|
|
|
|
else
|
|
|
|
|
src << "<span class='notice'>You aren't aroused enough for that.</span>"
|
|
|
|
|
to_chat(src, "<span class='notice'>You aren't aroused enough for that.</span>")
|
|
|
|
|
|
|
|
|
|
/mob/living/carbon/human/mob_masturbate()
|
|
|
|
|
/mob/living/carbon/human/mob_climax(forced_climax=FALSE) //Forced is instead of the other proc, makes you cum if you have the tools for it, ignoring restraints
|
|
|
|
|
if(mb_cd_timer > world.time)
|
|
|
|
|
src << "<span class='warning'>You need to wait [round((mb_cd_timer - world.time)/(20))] seconds before you can do that again!</span>"
|
|
|
|
|
if(!forced_climax) //Don't spam the message to the victim if forced to come too fast
|
|
|
|
|
to_chat(src, "<span class='warning'>You need to wait [round((mb_cd_timer - world.time)/(20))] seconds before you can do that again!</span>")
|
|
|
|
|
return
|
|
|
|
|
mb_cd_timer = (world.time + mb_cd_length)
|
|
|
|
|
var/list/genitals_list = list()
|
|
|
|
|
var/obj/item/organ/genital/SG = null//originally selected_genital
|
|
|
|
|
var/list/containers_list = list()
|
|
|
|
|
var/obj/item/weapon/reagent_containers/SC = null
|
|
|
|
|
var/datum/reagents/fluid_source = null
|
|
|
|
|
var/into_container = 0
|
|
|
|
|
var/arms = get_num_arms()
|
|
|
|
|
var/free_hands = arms
|
|
|
|
|
var/free_hands = get_num_arms() //arms was only used to know if we had ANY at all
|
|
|
|
|
var/total_cum = 0
|
|
|
|
|
var/finished = 0
|
|
|
|
|
var/mb_time = 30
|
|
|
|
|
mb_cd_timer = (world.time + mb_cd_length)
|
|
|
|
|
if(canbearoused && has_dna())
|
|
|
|
|
if(restrained())
|
|
|
|
|
src << "<span class='warning'>You can't do that while restrained!</span>"
|
|
|
|
|
if(stat==2)
|
|
|
|
|
to_chat(src, "<span class='warning'>You can't do that while dead!</span>")
|
|
|
|
|
return
|
|
|
|
|
if(stat)
|
|
|
|
|
src << "<span class='warning'>You must be conscious to do that!</span>"
|
|
|
|
|
if(forced_climax) //Something forced us to cum, this is not a masturbation thing and does not progress to the other checks
|
|
|
|
|
for(var/obj/item/organ/genital/G in internal_organs)
|
|
|
|
|
if(G.can_masturbate_with) //All capable genitals will orgasm with this
|
|
|
|
|
var/unable_to_come = FALSE
|
|
|
|
|
switch(G.type)
|
|
|
|
|
if(/obj/item/organ/genital/penis)
|
|
|
|
|
var/obj/item/organ/genital/penis/P = G
|
|
|
|
|
if(!P.linked_balls)
|
|
|
|
|
unable_to_come = TRUE
|
|
|
|
|
else
|
|
|
|
|
fluid_source = P.linked_balls.reagents
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if(/obj/item/organ/genital/vagina)
|
|
|
|
|
var/obj/item/organ/genital/vagina/V = G
|
|
|
|
|
if(!V.linked_womb)
|
|
|
|
|
unable_to_come = TRUE
|
|
|
|
|
else
|
|
|
|
|
fluid_source = V.linked_womb.reagents
|
|
|
|
|
else //Weird, undefined genitalia behaviour
|
|
|
|
|
unable_to_come = TRUE
|
|
|
|
|
|
|
|
|
|
if(unable_to_come)
|
|
|
|
|
src.visible_message("<span class='danger'>[src] shudders, their [G.name] unable to cum.</span>", \
|
|
|
|
|
"<span class='userdanger'>Your [G.name] cannot cum, giving no relief.</span>", \
|
|
|
|
|
"<span class='userdanger'>Your [G.name] cannot cum, giving no relief.</span>")
|
|
|
|
|
else
|
|
|
|
|
if(fluid_source)
|
|
|
|
|
total_cum = fluid_source.total_volume
|
|
|
|
|
src.visible_message("<span class='danger'>[src] looks like they're about to cum.</span>", \
|
|
|
|
|
"<span class='green'>You feel yourself about to orgasm.</span>", \
|
|
|
|
|
"<span class='green'>You feel yourself about to orgasm.</span>")
|
|
|
|
|
if(do_after(src, mb_time, target = src))
|
|
|
|
|
if(total_cum > 5)
|
|
|
|
|
fluid_source.reaction(src.loc, TOUCH, 1, 0)
|
|
|
|
|
fluid_source.clear_reagents()
|
|
|
|
|
fluid_source = null //cleanup so this can be used for the next genitalia
|
|
|
|
|
|
|
|
|
|
src.visible_message("<span class='danger'>[src] orgasms, cumming[istype(src.loc, /turf/open/floor) ? " onto [src.loc]" : ""]!</span>", \
|
|
|
|
|
"<span class='green'>You're forced to cum[istype(src.loc, /turf/open/floor) ? " onto [src.loc]" : ""] with your [G].</span>", \
|
|
|
|
|
"<span class='green'>Your [G] have been forced to climax.</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
if(finished)
|
|
|
|
|
setArousalLoss(min_arousal)
|
|
|
|
|
return //Do not proceed to masturbating if all genitals have been forced to orgasm.
|
|
|
|
|
if(stat==1) //Sleeping people can be forced chemically or with electrical stimulants, for example.
|
|
|
|
|
to_chat(src, "<span class='warning'>You must be conscious to do that!</span>")
|
|
|
|
|
return
|
|
|
|
|
if(restrained())
|
|
|
|
|
to_chat(src, "<span class='warning'>You can't do that while restrained!</span>")
|
|
|
|
|
return
|
|
|
|
|
if(getArousalLoss() < 33)//flat number instead of percentage
|
|
|
|
|
src << "<span class='warning'>You aren't aroused enough for that!</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You aren't aroused enough for that!</span>")
|
|
|
|
|
return
|
|
|
|
|
if(!is_groin_exposed())
|
|
|
|
|
src << "<span class='warning'>You need to undress, first!</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You need to undress, first!</span>")
|
|
|
|
|
return
|
|
|
|
|
if(!arms)
|
|
|
|
|
src << "<span class='warning'>You need at least one arm.</span>"
|
|
|
|
|
if(!free_hands)
|
|
|
|
|
to_chat(src, "<span class='warning'>You need at least one free arm.</span>")
|
|
|
|
|
return
|
|
|
|
|
for(var/helditem in held_items)//how many hands are free
|
|
|
|
|
if(isobj(helditem))
|
|
|
|
|
free_hands--
|
|
|
|
|
if(free_hands <= 0)
|
|
|
|
|
src << "<span class='warning'>You need at least one free hand.</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You need at least one free hand.</span>")
|
|
|
|
|
return
|
|
|
|
|
for(var/obj/item/organ/genital/G in internal_organs)
|
|
|
|
|
if(G.can_masturbate_with)//filter out what you can't masturbate with
|
|
|
|
@@ -240,12 +288,12 @@
|
|
|
|
|
if(/obj/item/organ/genital/penis)
|
|
|
|
|
var/obj/item/organ/genital/penis/P = SG
|
|
|
|
|
if(!P.linked_balls)
|
|
|
|
|
src << "<span class='warning'>Grow a pair!</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You need a pair of testicles to do this.</span>")
|
|
|
|
|
return
|
|
|
|
|
fluid_source = P.linked_balls.reagents
|
|
|
|
|
total_cum = fluid_source.total_volume
|
|
|
|
|
if(into_container)//into a glass or beaker or whatever
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts [pick("jerking off","stroking")] their [SG] over [SC].</span>", \
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts [pick("jerking off","stroking")] their [SG.name] over [SC].</span>", \
|
|
|
|
|
"<span class='userdanger'>You start jerking off over [SC.name].</span>", \
|
|
|
|
|
"<span class='userdanger'>You start masturbating.</span>")
|
|
|
|
|
if(do_after(src, mb_time, target = src) && in_range(src, SC))
|
|
|
|
@@ -254,16 +302,71 @@
|
|
|
|
|
"<span class='green'>You cum into [SC].</span>", \
|
|
|
|
|
"<span class='green'>You have relieved yourself.</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
|
|
|
|
|
else //Not in a container
|
|
|
|
|
if(src.pulling)
|
|
|
|
|
if(iscarbon(src.pulling))
|
|
|
|
|
var/mob/living/carbon/C = src.pulling
|
|
|
|
|
if(!C.is_groin_exposed())
|
|
|
|
|
to_chat(src, "<span class='warning'>You must undress someone to climax inside them.</span>")
|
|
|
|
|
return
|
|
|
|
|
if(isliving(src.pulling)) //Gotta be alive to fuck it, don't wanna have to code fucking objects that ain't containers...
|
|
|
|
|
var/mob/living/partner = src.pulling
|
|
|
|
|
src.visible_message("[src] is about to climax inside [partner]!", \
|
|
|
|
|
"You're about to climax inside [partner]!", \
|
|
|
|
|
"<span class='danger'>You're preparing to climax inside someone!</span>")
|
|
|
|
|
switch(grab_state)
|
|
|
|
|
if(GRAB_PASSIVE)
|
|
|
|
|
if(do_after(src, mb_time, target = src) && in_range(src, partner))
|
|
|
|
|
var/spillage = 0.5 //Leaks a bit on passive grab
|
|
|
|
|
var/did_spill = FALSE
|
|
|
|
|
fluid_source.trans_to(partner, total_cum*(1-spillage))
|
|
|
|
|
total_cum = total_cum*spillage
|
|
|
|
|
if(total_cum > 5)
|
|
|
|
|
fluid_source.reaction(partner.loc, TOUCH, 1, 0)
|
|
|
|
|
did_spill = TRUE
|
|
|
|
|
fluid_source.clear_reagents()
|
|
|
|
|
|
|
|
|
|
src.visible_message("<span class='danger'>[src] ejaculates inside [partner][did_spill ? ", overflowing and spilling":""]!</span>", \
|
|
|
|
|
"<span class='green'>You ejaculate inside [partner][did_spill ? ", spilling out of them":""].</span>", \
|
|
|
|
|
"<span class='green'>You have climaxed inside someone[did_spill ? ", spilling out of them":""].</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
else //Aggressive or higher
|
|
|
|
|
if(do_after(src, mb_time, target = src) && in_range(src, partner))
|
|
|
|
|
var/spillage = 0.0 //Leakproofing seals
|
|
|
|
|
fluid_source.trans_to(partner, total_cum*(1-spillage))
|
|
|
|
|
total_cum = total_cum*spillage
|
|
|
|
|
if(total_cum > 5)
|
|
|
|
|
fluid_source.reaction(partner.loc, TOUCH, 1, 0)
|
|
|
|
|
fluid_source.clear_reagents()
|
|
|
|
|
|
|
|
|
|
src.visible_message("<span class='danger'>[src] ejaculates inside [partner], spilling nothing!</span>", \
|
|
|
|
|
"<span class='green'>You ejaculate inside [partner], spilling nothing.</span>", \
|
|
|
|
|
"<span class='green'>You have climaxed inside someone, spilling nothing.</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
//Don't care, not coding you fucking a unanchored girder
|
|
|
|
|
else //No pulling, or pulling non-living things
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts [pick("jerking off","stroking")] their [SG].</span>", \
|
|
|
|
|
"<span class='green'>You start masturbating.</span>", \
|
|
|
|
|
"<span class='green'>You start masturbating.</span>")
|
|
|
|
|
if(do_after(src, mb_time, target = src))
|
|
|
|
|
if(total_cum > 5)
|
|
|
|
|
fluid_source.reaction(src.loc, TOUCH, 1, 0)
|
|
|
|
|
fluid_source.clear_reagents()
|
|
|
|
|
|
|
|
|
|
src.visible_message("<span class='danger'>[src] orgasms, cumming[istype(src.loc, /turf/open/floor) ? " onto [src.loc]" : ""]!</span>", \
|
|
|
|
|
"<span class='green'>You cum[istype(src.loc, /turf/open/floor) ? " onto [src.loc]" : ""].</span>", \
|
|
|
|
|
"<span class='green'>You have relieved yourself.</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
|
|
|
|
|
if(/obj/item/organ/genital/vagina)
|
|
|
|
|
var/obj/item/organ/genital/vagina/V = SG
|
|
|
|
|
if(!V.linked_womb)
|
|
|
|
|
src << "<span class='warning'>No womb!</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You need a womb to do this.</span>")
|
|
|
|
|
return
|
|
|
|
|
fluid_source = V.linked_womb.reagents
|
|
|
|
|
total_cum = fluid_source.total_volume
|
|
|
|
|
if(into_container)//into a glass or beaker or whatever
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts fingering their vagina over [SC].</span>", \
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts fingering their [SG.name] over [SC].</span>", \
|
|
|
|
|
"<span class='userdanger'>You start fingering over [SC.name].</span>", \
|
|
|
|
|
"<span class='userdanger'>You start masturbating.</span>")
|
|
|
|
|
if(do_after(src, mb_time, target = src) && in_range(src, SC))
|
|
|
|
@@ -272,7 +375,7 @@
|
|
|
|
|
"<span class='green'>You cum into [SC].</span>", \
|
|
|
|
|
"<span class='green'>You have relieved yourself.</span>")
|
|
|
|
|
finished = 1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
else//not into a container
|
|
|
|
|
src.visible_message("<span class='danger'>[src] starts fingering their vagina.</span>", \
|
|
|
|
|
"<span class='userdanger'>You start fingering your vagina.</span>", \
|
|
|
|
@@ -297,10 +400,5 @@
|
|
|
|
|
setArousalLoss(min_arousal)
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
src << "<span class='warning'>You have no genitals!</span>"
|
|
|
|
|
to_chat(src, "<span class='warning'>You have no genitals!</span>")
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
/mob/living/carbon/proc/force_orgasm(intensity)
|
|
|
|
|
if(canbearoused && has_dna() && (has_penis() || has_vagina()))
|
|
|
|
|
return 1
|
|
|
|
|
return 0
|
|
|
|
|
LetterJay