cyberpresidentvanellope/S.P.L.U.R.T-Station-13
1
0
Fork 0
mirror of https://github.com/SPLURT-Station/S.P.L.U.R.T-Station-13.git synced 2026-08-24 21:26:38 +01:00
Code Issues Packages Projects Releases Wiki Activity
Files
interactions-issues
S.P.L.U.R.T-Station-13/modular_sand/code/game/objects/items/fleshlight.dm
T
BongaTheProto 2d1d665e41 Revert "Merge remote-tracking branch 'upstream/master'" 
This reverts commit c1c9fef224, reversing
changes made to 6767f48e82.
2023-12-16 10:48:35 -05:00

771 lines
36 KiB
Plaintext
Raw Permalink Blame History

/**
* # Hyperstation 13 fleshlight
*
* Humbley request this doesnt get ported to other code bases, we strive to make things unique on our server and we dont have a lot of coders
* but if you absolutely must. please give us some credit~ <3
* made by quotefox and heavily modified by SandPoot
*/
/obj/item/fleshlight
name = "fleshlight"
desc = "A sex toy disguised as a flashlight, used to stimulate someones penis, complete with colour changing sleeve."
icon = 'modular_sand/icons/obj/fleshlight.dmi'
icon_state = "fleshlight_base"
item_state = "fleshlight"
w_class = WEIGHT_CLASS_SMALL
var/style = CUM_TARGET_VAGINA
var/sleevecolor = "#ffcbd4" //pink
custom_price = 8
var/mutable_appearance/sleeve
var/inuse = 0
/obj/item/fleshlight/examine(mob/user)
. = ..()
. += span_notice("Alt-Click \the [name] to customize it.")
/obj/item/fleshlight/update_appearance(updates)
. = ..()
cut_overlays()
sleeve = mutable_appearance(icon, style) // Inherits icon for if an admin wants to var edit it, thank me later.
sleeve.color = sleevecolor
add_overlay(sleeve)
/obj/item/fleshlight/AltClick(mob/user)
. = ..()
if(!istype(user) || !user.canUseTopic(src, BE_CLOSE, FALSE, NO_TK))
return
customize(user)
return TRUE
/obj/item/fleshlight/proc/customize(mob/living/user)
if(src && !user.incapacitated() && in_range(user,src))
var/new_style = tgui_input_list(usr, "Choose style", "Customize Fleshlight", list(CUM_TARGET_VAGINA, CUM_TARGET_ANUS))
if(new_style)
style = new_style
update_appearance()
if(src && !user.incapacitated() && in_range(user,src))
var/new_color = input(user, "Choose color.", "Customize Fleshlight", sleevecolor) as color|null
if(new_color)
sleevecolor = new_color
update_appearance()
return TRUE
/obj/item/fleshlight/attack(mob/living/carbon/human/M, mob/living/carbon/human/user)
var/possessive_verb = user.p_their()
var/message = ""
var/lust_amt = 0
if(ishuman(M) && (M?.client?.prefs?.toggles & VERB_CONSENT))
switch(user.zone_selected)
if(BODY_ZONE_PRECISE_GROIN)
if(M.has_penis(REQUIRE_EXPOSED) || M.has_strapon(REQUIRE_EXPOSED))
var/genital_name = (user == M) ? user.get_penetrating_genital_name() : M.get_penetrating_genital_name()
message = (user == M) ? "pumps [src] on [possessive_verb] [genital_name]" : "pumps \the [src] on [M]'s [genital_name]"
lust_amt = NORMAL_LUST
if(message)
user.visible_message(span_lewd("[user] [message]."))
M.handle_post_sex(lust_amt, null, user, ORGAN_SLOT_PENIS) //SPLURT edit
playlewdinteractionsound(loc, pick('modular_sand/sound/interactions/bang4.ogg',
'modular_sand/sound/interactions/bang5.ogg',
'modular_sand/sound/interactions/bang6.ogg'), 70, 1, -1)
else if(user.a_intent == INTENT_HARM)
return ..()
/**
* # Hyperstation 13 portal fleshlight
* kinky!
*/
/obj/item/portallight
name = "portal fleshlight"
desc = "A silver love(TM) fleshlight, used for self-stimulation, with bluespace tech that allows lovers to hump at a distance. Also functions as a dildo, if your partner has the right parts."
icon = 'modular_sand/icons/obj/fleshlight.dmi'
icon_state = "unpaired"
item_state = "fleshlight"
w_class = WEIGHT_CLASS_SMALL
var/partnercolor = "#ffcbd4"
var/partnerbase = "normal"
var/partnerorgan = "portal_vag"
custom_price = 20
var/mutable_appearance/sleeve
var/mutable_appearance/organ
var/obj/item/clothing/underwear/briefs/panties/portalpanties/portalunderwear
var/targetting = CUM_TARGET_PENIS
var/useable = FALSE
/obj/item/portallight/attack_self(mob/user)
. = ..()
switch(targetting)
if(CUM_TARGET_PENIS)
targetting = CUM_TARGET_VAGINA
if(CUM_TARGET_VAGINA)
targetting = CUM_TARGET_ANUS
if(CUM_TARGET_ANUS)
targetting = CUM_TARGET_URETHRA
if(CUM_TARGET_URETHRA)
targetting = CUM_TARGET_PENIS
to_chat(user, "<span class='notice'>Now when using on groin, it will now be it will now be targetting \an [targetting].</span>")
/obj/item/portallight/examine(mob/user)
. = ..()
if(!portalunderwear)
. += span_notice("The device is unpaired. To pair, swipe against a pair of portal panties.")
else
. += span_notice("The device is paired, and awaiting input. ")
/obj/item/portallight/update_appearance(updates)
. = ..()
updatesleeve()
/obj/item/portallight/attack(mob/living/carbon/human/M, mob/living/carbon/human/user)
var/user_message = ""
var/target_message = ""
var/user_lust_amt = NONE
var/target_lust_amt = NONE
var/target
var/mob/living/carbon/human/portal_target = ishuman(portalunderwear.loc) && (portalunderwear.current_equipped_slot & (ITEM_SLOT_UNDERWEAR | ITEM_SLOT_MASK)) ? portalunderwear.loc : null
// This list is structured as [M's longname, M's shortname, wearer's longname, wearer's shortname]
var/penis_names = list()
for(var/mob/living/carbon/human/person in list(M, portal_target))
if(person.has_penis())
var/obj/item/organ/genital/penis/person_penis = person.getorganslot(ORGAN_SLOT_PENIS)
LAZYADD(penis_names, "[person_penis.length]-inch [lowertext(person_penis.shape)]")
LAZYADD(penis_names, "penis")
else if(person.has_strapon())
var/obj/item/clothing/underwear/briefs/strapon/person_strapon = person.get_strapon()
LAZYADD(penis_names, "[GLOB.dildo_size_names[person_strapon.dildo_size]] [person_strapon.dildo_shape]")
LAZYADD(penis_names, "strapon")
else
LAZYADD(penis_names, "none")
LAZYADD(penis_names, "none")
if(ishuman(M) && (M?.client?.prefs?.toggles & VERB_CONSENT) && useable) // I promise all those checks are worth it!
switch(user.zone_selected)
if(BODY_ZONE_PRECISE_GROIN)
switch(targetting)
if(CUM_TARGET_PENIS)
if(M.has_penis(REQUIRE_EXPOSED) || M.has_strapon(REQUIRE_EXPOSED))
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "frots with the [penis_names[3]] [name]" : "forces \the [M] to frot with the [penis_names[3]] [name]"
target_message = "frot with you"
target = CUM_TARGET_PENIS
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "fucks \the [src]'s pussy" : "forces \the [M] to fuck \the [src]'s pussy"
target_message = "fuck your pussy with their [penis_names[1]] [penis_names[2]]"
target = CUM_TARGET_PENIS
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "fucks \the [src] anally" : "forces \the [M] to fuck \the [src] anally"
target_message = "fuck you anally with their [penis_names[1]] [penis_names[2]]"
target = CUM_TARGET_PENIS
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "fucks \the [src]'s mouth" : "forces \the [M] to fuck \the [src]'s mouth"
target_message = "fuck your mouth with their [penis_names[1]] [penis_names[2]]"
target = CUM_TARGET_PENIS
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucks \the [src]'s urethra" : "forces \the [M] to fuck \the [src]'s urethra"
target_message = "fuck your urethra with their [penis_names[1]] [penis_names[2]]"
target = CUM_TARGET_PENIS
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
else
to_chat(user, "<span class='warning'>The penis is covered or there is none!</span>")
if(CUM_TARGET_VAGINA)
if(M.has_vagina(REQUIRE_EXPOSED))
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "fucks the [penis_names[3]] [name]" : "fucks \the [M] with the [penis_names[3]] [name]"
target_message = "fuck your [penis_names[4]] with their pussy"
target = CUM_TARGET_VAGINA
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "grinds [M.p_their()] pussy into \the [src]'s pussy" : "rubs \the [src]'s pussy against \the [M]'s pussy"
target_message = "grind their pussy into yours"
target = CUM_TARGET_VAGINA
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "grinds [M.p_their()] pussy into \the [src]'s anus" : "rubs \the [src]'s anus against \the [M]'s pussy"
target_message = "grind their pussy into your anus"
target = CUM_TARGET_VAGINA
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "grinds [M.p_their()] pussy into \the [src]'s mouth" : "rubs \the [src]'s mouth against \the [M]'s pussy"
target_message = "grind their pussy into your mouth"
target = CUM_TARGET_VAGINA
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
/* // i don't know how this would work
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucking urethra" : "force someone to fuck urethra"
target_message = "urethra fucked by pussy"
target = CUM_TARGET_VAGINA
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>The vagina is covered or there is none!</span>")
if(CUM_TARGET_ANUS)
if(M.has_anus(REQUIRE_EXPOSED))
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "uses the [penis_names[3]] [name] to fuck [M.p_them()]self anally" : "fucks \the [M] anally with the [penis_names[3]] [name]"
target_message = "fuck your [penis_names[4]] with an anus"
target = CUM_TARGET_ANUS
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "grinds [M.p_their()] anus into \the [src]'s pussy" : "rubs \the [src]'s pussy against \the [M]'s anus"
target_message = "grind their anus into your pussy"
target = CUM_TARGET_ANUS
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "grinds [M.p_their()] anus into \the [src]'s anus" : "rubs \the [src]'s anus against \the [M]'s anus"
target_message = "grind their anus into yours"
target = CUM_TARGET_ANUS
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "grinds [M.p_their()] anus into \the [src]'s mouth" : "rubs \the [src]'s mouth against \the [M]'s anus"
target_message = "grind their anus into your mouth"
target = CUM_TARGET_ANUS
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
/* // i don't know how this would work
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucking urethra" : "force someone to fuck urethra"
target_message = "urethra fucked by ass"
target = CUM_TARGET_ANUS
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>The anus is covered or there is none!</span>")
if(CUM_TARGET_URETHRA)
if(M.has_penis(REQUIRE_EXPOSED) || M.has_strapon(REQUIRE_EXPOSED))
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "fuck your urethra with dick" : "fuck someone elses urethra with dick"
target_message = "dick is fucked by urethra"
target = CUM_TARGET_URETHRA
user_lust_amt = NORMAL_LUST
target_lust_amt = NORMAL_LUST
/* // I don't know how these would work
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "fuck your urethra with pussy" : "fuck someone elses urethra with pussy"
target_message = "pussy is fucked by urethra"
target = CUM_TARGET_URETHRA
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "fuck your urethra with ass" : "fuck someone elses urethra with ass"
target_message = "ass is fucked by urethra"
target = CUM_TARGET_URETHRA
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "fuck your urethra with mouth" : "fuck someone elses urethra with mouth"
target_message = "mouth is fucked by urethra"
target = CUM_TARGET_URETHRA
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fuck your urethra with partner urethra" : "fuck someone elses urethra with partner urethra"
target_message = "partner urethra is fucked by urethra"
target = CUM_TARGET_URETHRA
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>The urethra is covered or there is none!</span>")
if(BODY_ZONE_PRECISE_MOUTH)
if((M.has_mouth() && !M.is_mouth_covered()))
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "sucks on the [penis_names[3]] [name]" : "forces \the [M] to suck on the [penis_names[3]] [name]"
target_message = "suck on your [penis_names[4]]"
target = CUM_TARGET_MOUTH
user_lust_amt = LOW_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "laps at \the [src]'s pussy" : "rubs \the [src]'s pussy against \the [M]'s mouth"
target_message = "lap at your pussy"
target = CUM_TARGET_MOUTH
user_lust_amt = LOW_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "laps at \the [src]'s anus" : "rubs \the [src]'s anus against \the [M]'s mouth"
target_message = "lap at your anus"
target = CUM_TARGET_MOUTH
user_lust_amt = LOW_LUST
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "kisses \the [src]'s mouth" : "forces \the [src]'s lips and \the [M]'s lips together"
target_message = "kiss your mouth"
target = CUM_TARGET_MOUTH
user_lust_amt = LOW_LUST
target_lust_amt = LOW_LUST
/* // i don't know how this would work
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucking urethra" : "force someone to fuck urethra"
target_message = "urethra fucked by mouth"
target = CUM_TARGET_MOUTH
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>The mouth is covered or there is none!</span>")
if(BODY_ZONE_R_ARM, BODY_ZONE_L_ARM)
if(M.has_hand(REQUIRE_ANY))
var/can_interact = FALSE
if(user.zone_selected == BODY_ZONE_R_ARM)
for(var/obj/item/bodypart/r_arm/R in M.bodyparts)
can_interact = TRUE
else
for(var/obj/item/bodypart/l_arm/L in M.bodyparts)
can_interact = TRUE
if(can_interact)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "jerks off the [penis_names[3]] [name]" : "forces \the [M] to jerk off the [penis_names[3]] [name]"
target_message = "jerk you off"
target = CUM_TARGET_HAND
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "fingers \the [src]'s pussy" : "fingers \the [src]'s pussy with \the [M]'s fingers"
target_message = "finger your pussy"
target = CUM_TARGET_HAND
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "fingers \the [src]'s anus" : "fingers \the [src]'s anus with \the [M]'s fingers"
target_message = "finger your anus"
target = CUM_TARGET_HAND
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "prods at the inside of \the [src]'s mouth" : "prods the inside of \the [src]'s mouth with \the [M]'s fingers"
target_message = "prod at the inside of your mouth with their fingers"
target = CUM_TARGET_HAND
user_lust_amt = NONE
target_lust_amt = LOW_LUST
/* // i don't know how this would work
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucking urethra" : "force someone to fuck urethra"
target_message = "urethra fucked by hand"
target = CUM_TARGET_HAND
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>There is no [user.zone_selected == BODY_ZONE_R_ARM ? "right" : "left"] hands!</span>")
if(BODY_ZONE_R_LEG, BODY_ZONE_L_LEG)
if(M.has_feet(REQUIRE_ANY))
var/can_interact = FALSE
if(user.zone_selected == BODY_ZONE_R_LEG)
for(var/obj/item/bodypart/r_leg/R in M.bodyparts)
can_interact = TRUE
else
for(var/obj/item/bodypart/l_leg/L in M.bodyparts)
can_interact = TRUE
if(can_interact)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
user_message = (user == M) ? "rubs the [penis_names[3]] [name] with [M.p_their()] foot" : "rubs the [penis_names[3]] [name] against \the [M]'s foot"
target_message = "rub your [penis_names[4]] with their foot"
target = CUM_TARGET_FEET
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_VAGINA)
user_message = (user == M) ? "rubs \the [src]'s pussy with [M.p_their()] toes" : "rubs \the [src]'s pussy with \the [M]'s toes"
target_message = "rub your pussy with their toes"
target = CUM_TARGET_FEET
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_ANUS)
user_message = (user == M) ? "rubs \the [src]'s anus with [M.p_their()] toes" : "rubs \the [src]'s anus with \the [M]'s toes"
target_message = "rub your anus with their toes"
target = CUM_TARGET_FEET
user_lust_amt = NONE
target_lust_amt = NORMAL_LUST
if(CUM_TARGET_MOUTH)
user_message = (user == M) ? "sticks [M.p_their()] toes inside of \the [src]'s mouth" : "sticks \the [M]'s toes inside of \the [src]'s mouth"
target_message = "stick their toes inside of your mouth"
target = CUM_TARGET_FEET
user_lust_amt = NONE
target_lust_amt = LOW_LUST
/* // i don't know how this would work
if(CUM_TARGET_URETHRA)
user_message = (user == M) ? "fucking urethra" : "force someone to fuck urethra"
target_message = "urethra fucked by feet"
target = CUM_TARGET_FEET
user_lust_amt = NORMAL_LUST
target_lust_amt = LOW_LUST
*/
else
to_chat(user, "<span class='warning'>There is no [user.zone_selected == BODY_ZONE_R_LEG ? "right" : "left"] feet!</span>")
if(!useable)
to_chat(user, span_notice("It seems the device has failed or your partner is not wearing their device."))
if(user_message)
if(portal_target && (portal_target?.client?.prefs.toggles & VERB_CONSENT || !portal_target.ckey))
user.visible_message("<span class='lewd'>[user] [user_message].</span>")
if(M.can_penetrating_genital_cum() && M.handle_post_sex(user_lust_amt, target, portal_target, target)) //SPLURT edit
switch(target)
if(CUM_TARGET_PENIS)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
to_chat(portal_target, "<span class='userlove'>You feel a [penis_names[2]] push harder against yours and cum!</span>")
if(CUM_TARGET_VAGINA, CUM_TARGET_ANUS, CUM_TARGET_MOUTH)
to_chat(portal_target, "<span class='userlove'>You feel a [penis_names[2]] go deep into your [portalunderwear.targetting] and cum!</span>")
if(CUM_TARGET_URETHRA)
to_chat(portal_target, "<span class='userlove'>[penis_names[2]] cumming in urethra</span>")
if(CUM_TARGET_VAGINA)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS, CUM_TARGET_VAGINA, CUM_TARGET_ANUS, CUM_TARGET_MOUTH)
to_chat(portal_target, "<span class='userlove'>You feel a vagina squirting on your [portalunderwear.targetting]!</span>")
if(CUM_TARGET_ANUS)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
to_chat(portal_target, "<span class='userlove'>You feel an anus constricting around your [penis_names[4]]!</span>")
if(CUM_TARGET_VAGINA, CUM_TARGET_ANUS)
to_chat(portal_target, "<span class='userlove'>You feel an anus constricting around nothing while rubbing against it!</span>")
if(CUM_TARGET_MOUTH)
to_chat(portal_target, "<span class='userlove'>You feel an anus constricting around nothing while licking it!</span>")
if(CUM_TARGET_URETHRA)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS)
to_chat(portal_target, "<span class='userlove'>urethra cumming around [penis_names[4]]</span>")
if(CUM_TARGET_MOUTH)
switch(portalunderwear.targetting)
if(CUM_TARGET_PENIS, CUM_TARGET_VAGINA, CUM_TARGET_ANUS)
to_chat(portal_target, "<span class='userlove'>You feel a tongue lapping more fervently at your [portalunderwear.targetting], until it suddenly tenses up and freezes, then finally relaxes. The person on the other side must have finished.</span>")
if(CUM_TARGET_MOUTH)
to_chat(portal_target, "<span class='userlove'>You feel a pair of lips press even deeper to yours, then finally relaxes. The person on the other side must have finished.</span>")
// /* I don't think cumming while using these is even possible. If anyone feels otherwise, feel free to write some */
// if(CUM_TARGET_HAND)
// if(CUM_TARGET_FEET)
switch(user.zone_selected)
if(BODY_ZONE_PRECISE_GROIN)
playlewdinteractionsound(loc, pick('modular_sand/sound/interactions/bang4.ogg',
'modular_sand/sound/interactions/bang5.ogg',
'modular_sand/sound/interactions/bang6.ogg'), 70, 1, -1)
if(BODY_ZONE_PRECISE_MOUTH, BODY_ZONE_R_ARM, BODY_ZONE_L_ARM, BODY_ZONE_R_LEG, BODY_ZONE_L_LEG)
playlewdinteractionsound(loc, 'modular_sand/sound/interactions/champ_fingering.ogg', 50, 1, -1)
to_chat(portal_target, "<span class='lewd'>Someone uses the linked [name], they [target_message].</span>")
if(portal_target.handle_post_sex(target_lust_amt, portalunderwear.targetting, M, portalunderwear.targetting)) //SPLURT edit
switch(portalunderwear.targetting)
if(CUM_TARGET_VAGINA)
switch(target)
if(CUM_TARGET_PENIS, CUM_TARGET_VAGINA, CUM_TARGET_ANUS, CUM_TARGET_MOUTH)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] squirt on your [target]!</span>")
if(CUM_TARGET_HAND)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] squirt on your fingers!</span>")
if(CUM_TARGET_FEET)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] squirt on your foot!</span>")
if(CUM_TARGET_ANUS)
switch(target)
if(CUM_TARGET_PENIS)
to_chat(M, "<span class='userlove'>You feel the anus tighten around your [target]!</span>")
if(CUM_TARGET_VAGINA, CUM_TARGET_ANUS)
to_chat(M, "<span class='userlove'>You feel the anus tighten around nothing while rubbing it with your [target]!</span>")
if(CUM_TARGET_MOUTH)
to_chat(M, "<span class='userlove'>You feel the anus tighten around nothing while licking at it!</span>")
if(CUM_TARGET_HAND)
to_chat(M, "<span class='userlove'>You feel the anus tighten around your fingers!</span>")
if(CUM_TARGET_FEET)
to_chat(M, "<span class='userlove'>You feel the anus tighten around your toes!</span>")
if(CUM_TARGET_PENIS)
switch(target)
if(CUM_TARGET_PENIS, CUM_TARGET_HAND)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] twitch a few times before cumming on your [target]!</span>")
if(CUM_TARGET_VAGINA, CUM_TARGET_ANUS, CUM_TARGET_MOUTH)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] twitch a few times before cumming in your [target]!</span>")
if(CUM_TARGET_FEET)
to_chat(M, "<span class='userlove'>You feel \the [portalunderwear.targetting] twitch a few times before cumming on your foot!</span>")
if(CUM_TARGET_URETHRA)
to_chat(M, "<span class='userlove'>cum in your urethra</span>")
if(CUM_TARGET_MOUTH)
switch(target)
if(CUM_TARGET_PENIS)
to_chat(M, "<span class='userlove'>You feel \the [src]'s lips quiver while wrapped around your [target]!</span>")
if(CUM_TARGET_VAGINA, CUM_TARGET_ANUS)
to_chat(M, "<span class='userlove'>You feel \the [src]'s tongue quiver while licking your [target]!</span>")
if(CUM_TARGET_MOUTH)
to_chat(M, "<span class='userlove'>You feel \the [src]'s lips quiver while pressed against yours!</span>")
if(CUM_TARGET_HAND)
to_chat(M, "<span class='userlove'>You feel \the [src]'s lips quiver while wrapped around your prodding fingers!</span>")
if(CUM_TARGET_FEET)
to_chat(M, "<span class='userlove'>You feel \the [src]'s lips quiver while wrapped around your toes!</span>")
if(CUM_TARGET_URETHRA)
switch(target)
if(CUM_TARGET_PENIS)
to_chat(M, "<span class='userlove'>urethra fleshlight cumming on dick</span>")
portal_target.do_jitter_animation() //make your partner shake too!
else
user.visible_message(span_warning("\The [src] beeps and does not let [M] through."))
else if(user.a_intent == INTENT_HARM)
return ..()
/obj/item/portallight/proc/updatesleeve()
//get their looks and vagina colour!
cut_overlays()//remove current overlays
var/mob/living/carbon/human/H = null
if(portalunderwear && ishuman(portalunderwear.loc))
H = portalunderwear.loc
else
useable = FALSE
return
var/obj/item/organ/genital/G
if(portalunderwear.targetting == CUM_TARGET_VAGINA)
G = H.getorganslot(ORGAN_SLOT_VAGINA)
if(!G)
useable = FALSE
return
else if(portalunderwear.targetting == CUM_TARGET_PENIS || portalunderwear.targetting == CUM_TARGET_URETHRA)
G = H.getorganslot(ORGAN_SLOT_PENIS)
if(!G)
useable = FALSE
return
if(H) //if the portal panties are on someone.
if(!(portalunderwear.current_equipped_slot & (ITEM_SLOT_UNDERWEAR | ITEM_SLOT_MASK)))
useable = FALSE
return
if(portalunderwear.targetting == CUM_TARGET_VAGINA || portalunderwear.targetting == CUM_TARGET_ANUS || portalunderwear.targetting == CUM_TARGET_MOUTH)
sleeve = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_sleeve_normal")
if(islizard(H)) // lizard nerd
sleeve = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_sleeve_lizard")
if(isslimeperson(H)) // slime nerd
sleeve = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_sleeve_slime")
if(H.dna.species.name == "Avian") // bird nerd (obviously bad hyper code)
sleeve = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_sleeve_avian")
sleeve.color = "#[H.dna.features["mcolor"]]"
add_overlay(sleeve)
else if(portalunderwear.targetting == CUM_TARGET_URETHRA)
sleeve = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_sleeve_normal")
sleeve.color = G.color
add_overlay(sleeve)
switch(portalunderwear.targetting)
if(CUM_TARGET_VAGINA)
organ = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_vag")
organ.color = G.color
if(CUM_TARGET_ANUS)
organ = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_anus")
organ.color = "#[H.dna.features["mcolor"]]"
if(CUM_TARGET_PENIS)
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "penis") // Credit goes to @Moltov#6925 (296074425562955777) from the Hyperstation 13 discord for the sprite work
switch(H.dna.features["cock_shape"])
if("Human")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "penis")
if("Knotted", "Barbed, Knotted")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "knotted")
if("Flared")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "flared")
if("Tapered")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "tapered")
if("Tentacled")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "tentacle")
if("Hemi", "Knotted Hemi")
organ = mutable_appearance('modular_sand/icons/obj/dildo.dmi', "hemi")
organ.color = G.color
organ.color = G.color
if(CUM_TARGET_MOUTH)
add_overlay(mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_mouth"))
organ = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_mouth_lips") // TODO: find someone to replace shitty programmer art with the good shit
organ.color = H.lip_style == "lipstick" ? H.lip_color : "#[H.dna.features["mcolor"]]"
if(CUM_TARGET_URETHRA)
organ = mutable_appearance('modular_sand/icons/obj/fleshlight.dmi', "portal_anus") // i refuse to even attempt spriting this, have a placeholder
organ.color = G.color
name = portalunderwear.targetting == CUM_TARGET_PENIS ? "portal dildo" : "portal fleshlight"
useable = TRUE
add_overlay(organ)
else
useable = FALSE
/obj/item/portallight/Destroy()
if(portalunderwear)
portalunderwear.portallight = null
if(isliving(portalunderwear.loc))
portalunderwear.audible_message("[icon2html(portalunderwear, hearers(portalunderwear))] *beep* *beep* *beep*")
playsound(portalunderwear, 'sound/machines/triple_beep.ogg', ASSEMBLY_BEEP_VOLUME, TRUE)
to_chat(portalunderwear.loc, span_notice("The panties beep as the link to the [src] is lost."))
. = ..()
/**
* # Hyperstation 13 portal underwear
* Wear it, cannot be worn if not pointing to the bits you have.
*/
/obj/item/clothing/underwear/briefs/panties/portalpanties
name = "portal panties"
desc = "A silver love(TM) pair of portal underwear, with bluespace tech allows lovers to hump at a distance. Needs to be paired with a portal fleshlight before use. Can also be used as a mask."
icon = 'modular_sand/icons/obj/fleshlight.dmi'
icon_state = "portalpanties"
item_state = "fleshlight"
w_class = WEIGHT_CLASS_SMALL
var/obj/item/portallight/portallight
var/targetting = CUM_TARGET_VAGINA
equip_delay_self = 2 SECONDS
equip_delay_other = 5 SECONDS
is_edible = 0
/obj/item/clothing/underwear/briefs/panties/portalpanties/attack_self(mob/user)
. = ..()
switch(targetting)
if(CUM_TARGET_VAGINA)
targetting = CUM_TARGET_ANUS
if(CUM_TARGET_ANUS)
targetting = CUM_TARGET_PENIS
if(CUM_TARGET_PENIS)
targetting = CUM_TARGET_URETHRA
if(CUM_TARGET_URETHRA)
targetting = CUM_TARGET_MOUTH
if(CUM_TARGET_MOUTH)
targetting = CUM_TARGET_VAGINA
slot_flags = targetting == CUM_TARGET_MOUTH ? ITEM_SLOT_MASK : ITEM_SLOT_UNDERWEAR
body_parts_covered = targetting == CUM_TARGET_MOUTH ? NONE : GROIN
flags_cover = targetting == CUM_TARGET_MOUTH ? MASKCOVERSMOUTH : NONE
visor_flags_cover = targetting == CUM_TARGET_MOUTH ? MASKCOVERSMOUTH : NONE
name = targetting == CUM_TARGET_MOUTH ? "portal mask" : "portal panties"
to_chat(user, "<span class='notice'>Now when worn the portal will now be facing your [targetting].</span>")
update_portal()
/obj/item/clothing/underwear/briefs/panties/portalpanties/examine(mob/user)
. = ..()
if(!portallight)
. += span_notice("The device is unpaired, to pair, swipe the fleshlight against this pair of portal panties(TM). ")
else
. += span_notice("The device is paired, and awaiting attachment. ")
/obj/item/clothing/underwear/briefs/panties/portalpanties/attackby(obj/item/I, mob/living/user) //pairing
if(istype(I, /obj/item/portallight))
var/obj/item/portallight/P = I
if(!portallight && !P.portalunderwear) //make sure it aint linked to someone else
portallight = P //pair the fleshlight
P.portalunderwear = src //pair the panties on the fleshlight.
P.icon_state = "paired" //we are paired!
playsound(src, 'sound/machines/ping.ogg', 50, FALSE)
to_chat(user, "<span class='notice'>[P] has been linked up successfully.</span>")
update_portal()
RegisterSignal(user, COMSIG_PARENT_QDELETING, .proc/drop_out)
else
to_chat(user, "<span class='notice'>One of these pieces has already been paired.</span>")
else
..() //just allows people to hit it with other objects, if they so wished.
/obj/item/clothing/underwear/briefs/panties/portalpanties/mob_can_equip(M, equipper, slot, disable_warning, bypass_equip_delay_self)
if(!..())
return FALSE
if(ishuman(M))
var/mob/living/carbon/human/human = M
switch(targetting)
if(CUM_TARGET_VAGINA)
if(!human.has_vagina(REQUIRE_EXPOSED))
to_chat(human, span_warning("The vagina is covered or there is none!"))
return FALSE
if(CUM_TARGET_ANUS)
if(!human.has_anus(REQUIRE_EXPOSED))
to_chat(human, span_warning("The anus is covered or there is none!"))
return FALSE
if(CUM_TARGET_PENIS)
if(!human.has_penis(REQUIRE_EXPOSED) && !human.has_strapon(REQUIRE_EXPOSED))
to_chat(human, "<span class='warning'>The penis is covered or there is none!</span>")
return FALSE
if(CUM_TARGET_URETHRA)
if(!human.has_penis(REQUIRE_EXPOSED) && !human.has_strapon(REQUIRE_EXPOSED))
to_chat(human, "<span class='warning'>The urethra is covered or there is none!</span>")
return FALSE
if(CUM_TARGET_MOUTH)
if(!human.has_mouth() || human.is_mouth_covered())
to_chat(human, "<span class='warning'>The mouth is covered or there is none!</span>")
return FALSE
return TRUE
/obj/item/clothing/underwear/briefs/panties/portalpanties/equipped(mob/user, slot)
. = ..()
switch(slot)
if(ITEM_SLOT_UNDERWEAR, ITEM_SLOT_MASK)
if(!portallight)
audible_message("[icon2html(src, hearers(src))] *beep* *beep* *beep*")
playsound(src, 'sound/machines/triple_beep.ogg', ASSEMBLY_BEEP_VOLUME, TRUE)
to_chat(user, span_notice("The panties are not linked to a portal fleshlight."))
else
update_portal()
RegisterSignal(user, COMSIG_PARENT_QDELETING, .proc/drop_out)
else
update_portal()
UnregisterSignal(user, COMSIG_PARENT_QDELETING)
/obj/item/clothing/underwear/briefs/panties/portalpanties/dropped(mob/user)
UnregisterSignal(user, COMSIG_PARENT_QDELETING)
. = ..()
update_portal()
/obj/item/clothing/underwear/briefs/panties/portalpanties/Destroy()
if(portallight)
var/obj/item/portallight/temp = portallight
moveToNullspace() // loc cannot be human so let's destroy ourselves out of anything
portallight.portalunderwear = null
temp.updatesleeve()
. = ..()
/obj/item/clothing/underwear/briefs/panties/portalpanties/proc/drop_out()
var/mob/living/carbon/human/deleted
if(ishuman(loc))
deleted = loc
forceMove(get_turf(loc))
dropped(deleted) // Act like we've been dropped
plane = initial(plane)
layer = initial(layer)
update_portal()
/obj/item/clothing/underwear/briefs/panties/portalpanties/proc/update_portal()
if(portallight)
var/obj/item/portallight/P = portallight
if(targetting == CUM_TARGET_PENIS)
P.icon = 'modular_sand/icons/obj/dildo.dmi'
else
P.icon = 'modular_sand/icons/obj/fleshlight.dmi'
P.updatesleeve()
/obj/item/storage/box/portallight
name = "Portal Fleshlight and Underwear"
icon = 'modular_sand/icons/obj/fleshlight.dmi'
desc = "A small silver box with Silver Love Co embossed."
icon_state = "box"
custom_price = 15
// portal fleshlight box
/obj/item/storage/box/portallight/PopulateContents()
new /obj/item/portallight/(src)
new /obj/item/clothing/underwear/briefs/panties/portalpanties/(src)
new /obj/item/paper/fluff/portallight(src)
/obj/item/paper/fluff/portallight
name = "Portal Fleshlight Instructions"
info = "Thank you for purchasing the Silver Love Portal Fleshlight!<BR>\
To use, simply register your new portal fleshlight with the provided underwear to link them together. The ask your lover to wear the underwear.<BR>\
Have fun lovers,<BR>\
<BR>\
Wilhelmina Steiner."
Reference in New Issue View Git Blame Copy Permalink