cyberpresidentvanellope/vgstation13
1
0
Fork 0
mirror of https://github.com/vgstation-coders/vgstation13.git synced 2025-12-10 18:32:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
b601d3978a6e0b8ef33b9f8cf918cb41c0894f5f
vgstation13/code/modules/mob/mob_helpers.dm
kane-f 48088308a9 Adds keys and verb for changing limb target zones (#29447) 
* Adding verb as base for key presses

* Adding basic keys for verb triggers

* And to others for consistency

* Spelling error, didn't call verb

* pls push

* Removing redundant check, adding eye target def

* Adding basis for limb cycling

* And basis for return function

* Full refactor of intent numeric now

* Forgot this

* Sanity checks

* Forgot these

* Into function for consistency

* Rewrite of function

* X and Y getters

* Starting implementation

* Left and right selection

* Up and down selection, zone x and y stored in vars for readability

* Adding key binds

* Arranging lists properly, same length to avoid extra checks

* Inverted by mistake this whole time

* Fixing most compiler errors

* Find(), not indexOf()

* Better use

* The end of compiler errors

* Fixing out of bounds runtimes, apparently indices start at one on BYOND

* Making cycling left and right a little less glitchy

* Hard-coding head find to stop overlaps

* Fixing copy-paste error not making right limbs selectable

* Adding help for new keys

* Fixing erroneous space

* Comments and slight fix

* woops

* Adding macros for hand and feet selection on numpad too, rudimentary

* Fixes, now compiles, (blame /th) and updated info

* Specifying type further to fix linting

Co-authored-by: kanef <kanef9x@protonmail.com>
2021-05-06 15:20:12 -05:00

599 lines
17 KiB
Plaintext
Raw Blame History

/mob/proc/isUnconscious() //Returns 1 if unconscious, dead or faking death
return stat == UNCONSCIOUS || isDead()
/mob/proc/isDead() //Returns 1 if dead or faking death
return stat == DEAD || (status_flags & FAKEDEATH)
/mob/proc/isStunned() //Because we have around four slighly different stunned variables for some reason.
return isUnconscious() || paralysis > 0 || stunned > 0 || knockdown > 0
/mob/proc/incapacitated()
return isStunned() || restrained()
/mob/proc/get_screen_colour()
if(!client)
return 0
if(M_NOIR in mutations)
return NOIRMATRIX
/mob/proc/can_wield()
return 0
/mob/proc/is_fat()
return 0
mob/proc/isincrit()
return 0
mob/proc/get_heart()
return null
/mob/proc/get_lungs()
return null
/mob/proc/get_liver()
return null
/mob/proc/get_kidneys()
return null
/mob/proc/get_appendix()
return null
mob/proc/remove_internal_organ()
return null
/mob/proc/get_broken_organs()
return list()
/mob/proc/get_bleeding_organs()
return list()
//Helper proc for do_after. Checks if the user is holding 'held_item' in his active arm. Return 0 to stop the do_after
/mob/proc/do_after_hand_check(held_item)
return (get_active_hand() == held_item)
/mob/dead/observer/get_screen_colour()
return default_colour_matrix
/mob/living/simple_animal/get_screen_colour()
. = ..()
if(.)
return .
else if(src.colourmatrix.len)
return src.colourmatrix
/mob/living/carbon/human/get_screen_colour()
. = ..()
if(.)
return .
var/obj/item/clothing/glasses/scanner/S = is_wearing_item(/obj/item/clothing/glasses/scanner, slot_glasses)
if(S && S.on && S.color_matrix)
return S.color_matrix
var/datum/organ/internal/eyes/eyes = internal_organs_by_name["eyes"]
if(eyes && eyes.colourmatrix.len && !(eyes.robotic))
return eyes.colourmatrix
else
return default_colour_matrix
/mob/proc/update_colour(var/time = 50, var/list/colour_to_apply)
if(!client)
return
if(!colour_to_apply)
colour_to_apply = get_screen_colour()
if((M_NOIR in mutations) && client)
client.screen += noir_master
// We can't compare client.color directly because Byond will force set client.color to null
// when assigning the default_colour_matrix to it
var/list/colour_initial = (client.color ? client.color : default_colour_matrix)
if(colour_initial ~! colour_to_apply)
client.colour_transition(colour_to_apply,time = time)
/*
/proc/RemoveAllFactionIcons(var/datum/mind/M)
ticker.mode.update_cult_icons_removed(M)
ticker.mode.update_rev_icons_removed(M)
ticker.mode.update_wizard_icons_removed(M)
/proc/ClearRoles(var/datum/mind/M)
ticker.mode.remove_revolutionary(M)
*/
/proc/isAdminGhost(A)
if(isobserver(A))
var/mob/dead/observer/O = A
if(O.check_rights(R_ADMIN|R_FUN))
return 1
return 0
/proc/canGhostRead(var/mob/A, var/obj/target, var/flags=PERMIT_ALL)
if(isAdminGhost(A))
return 1
if(flags & PERMIT_ALL)
return 1
return 0
/proc/canGhostWrite(var/mob/A, var/obj/target, var/desc="fucked with", var/flags=0)
if(flags & PERMIT_ALL)
if(!target.blessed)
return 1
if(isAdminGhost(A))
if(desc!="")
add_ghostlogs(A, target, desc, 1)
return 1
return 0
/proc/isloyal(A) //Checks to see if the person contains a loyalty implant, then checks that the implant is actually inside of them
for(var/obj/item/weapon/implant/loyalty/L in A)
if(L && L.implanted)
return 1
return 0
/proc/check_holy(var/mob/A) //checks to see if the tile the mob stands on is holy
var/turf/T = get_turf(A)
if(!T)
return 0
if(!T.holy)
return 0
return 1 //The tile is holy. Beware!
proc/hasorgans(A)
return ishuman(A)
/proc/check_zone(zone)
if(!zone)
return LIMB_CHEST
switch(zone)
if("eyes")
zone = LIMB_HEAD
if("mouth")
zone = LIMB_HEAD
/* if(LIMB_LEFT_HAND)
zone = LIMB_LEFT_ARM
if(LIMB_RIGHT_HAND)
zone = LIMB_RIGHT_ARM
if(LIMB_LEFT_FOOT)
zone = LIMB_LEFT_LEG
if(LIMB_RIGHT_FOOT)
zone = LIMB_RIGHT_LEG
if(LIMB_GROIN)
zone = LIMB_CHEST
*/
return zone
/proc/ran_zone(zone, probability)
zone = check_zone(zone)
if(!probability)
probability = 90
if(probability == 100)
return zone
if(zone == LIMB_CHEST)
if(prob(probability))
return LIMB_CHEST
var/t = rand(1, 9)
switch(t)
if(1 to 3)
return LIMB_HEAD
if(4 to 6)
return LIMB_LEFT_ARM
if(7 to 9)
return LIMB_RIGHT_ARM
if(prob(probability * 0.75))
return zone
return LIMB_CHEST
// Emulates targetting a specific body part, and miss chances
// May return null if missed
// miss_chance_mod may be negative.
/proc/get_zone_with_miss_chance(zone, var/mob/target, var/miss_chance_mod = 0)
zone = check_zone(zone)
// you can only miss if your target is standing and not restrained
if(!target.locked_to && !target.lying)
var/miss_chance = 10
switch(zone)
if(LIMB_HEAD)
miss_chance = 40
if(LIMB_LEFT_LEG)
miss_chance = 20
if(LIMB_RIGHT_LEG)
miss_chance = 20
if(LIMB_LEFT_ARM)
miss_chance = 20
if(LIMB_RIGHT_ARM)
miss_chance = 20
if(LIMB_LEFT_HAND)
miss_chance = 50
if(LIMB_RIGHT_HAND)
miss_chance = 50
if(LIMB_LEFT_FOOT)
miss_chance = 50
if(LIMB_RIGHT_FOOT)
miss_chance = 50
miss_chance = max(miss_chance + miss_chance_mod, 0)
if(prob(miss_chance))
if(prob(70))
return null
else
var/t = rand(1, 10)
switch(t)
if(1)
return LIMB_HEAD
if(2)
return LIMB_LEFT_ARM
if(3)
return LIMB_RIGHT_ARM
if(4)
return LIMB_CHEST
if(5)
return LIMB_LEFT_FOOT
if(6)
return LIMB_RIGHT_FOOT
if(7)
return LIMB_LEFT_HAND
if(8)
return LIMB_RIGHT_HAND
if(9)
return LIMB_LEFT_LEG
if(10)
return LIMB_RIGHT_LEG
return zone
// adds stars to a text to obfuscate it
// var/n -> text to obfuscate
// var/pr -> percent of the text to obfuscate
// return -> obfuscated text
/proc/stars(n, pr)
if (pr == null)
pr = 25
if (pr <= 0)
return null
else
if (pr >= 100)
return n
var/te = n
var/t = ""
n = length(n)
var/p = null
p = 1
while(p <= n)
if ((copytext(te, p, p + 1) == " " || prob(pr)))
t = text("[][]", t, copytext(te, p, p + 1))
else
t = text("[]*", t)
p++
return t
proc/slur(phrase)
var/leng=length(phrase)
var/counter=length(phrase)
var/newphrase=""
var/newletter=""
while(counter>=1)
newletter=copytext(phrase,(leng-counter)+1,(leng-counter)+2)
if(rand(1,3)==3)
if(lowertext(newletter)=="o")
newletter="u"
if(lowertext(newletter)=="s")
newletter="ch"
if(lowertext(newletter)=="a")
newletter="ah"
if(lowertext(newletter)=="c")
newletter="k"
switch(rand(1,15))
if(1,3,5,8)
newletter="[lowertext(newletter)]"
if(2,4,6,15)
newletter="[uppertext(newletter)]"
if(7)
newletter+="'"
//if(9,10) newletter="<b>[newletter]</b>"
//if(11,12) newletter="<big>[newletter]</big>"
//if(13) newletter="<small>[newletter]</small>"
newphrase+="[newletter]";counter-=1
return newphrase
/proc/stutter(n)
var/te = n
var/t = ""//placed before the message. Not really sure what it's for.
n = length(n)//length of the entire word
var/p = null
p = 1//1 is the start of any word
while(p <= n)//while P, which starts at 1 is less or equal to N which is the length.
var/n_letter = copytext(te, p, p + 1)//copies text from a certain distance. In this case, only one letter at a time.
if (prob(80) && (ckey(n_letter) in list("b","c","d","f","g","h","j","k","l","m","n","p","q","r","s","t","v","w","x","y","z")))
if (prob(10))
n_letter = text("[n_letter]-[n_letter]-[n_letter]-[n_letter]")//replaces the current letter with this instead.
else
if (prob(20))
n_letter = text("[n_letter]-[n_letter]-[n_letter]")
else
if (prob(5))
n_letter = null
else
n_letter = text("[n_letter]-[n_letter]")
t = text("[t][n_letter]")//since the above is ran through for each letter, the text just adds up back to the original word.
p++//for each letter p is increased to find where the next letter will be.
return copytext(t,1,MAX_MESSAGE_LEN)
proc/Gibberish(t, p)//t is the inputted message, and any value higher than 70 for p will cause letters to be replaced instead of added
/* Turn text into complete gibberish! */
var/returntext = ""
for(var/i = 1, i <= length(t), i++)
var/letter = copytext(t, i, i+1)
if(prob(50))
if(p >= 70)
letter = ""
for(var/j = 1, j <= rand(0, 2), j++)
letter += pick("#","@","*","&","%","$","/", "<", ">", ";","*","*","*","*","*","*","*")
returntext += letter
return returntext
/proc/derpspeech(message, stuttering)
message = replacetext(message, " am ", " ")
message = replacetext(message, " is ", " ")
message = replacetext(message, " are ", " ")
message = replacetext(message, "you", "u")
message = replacetext(message, "help", "halp")
message = replacetext(message, "grief", "griff")
message = replacetext(message, "space", "spess")
message = replacetext(message, "carp", "crap")
message = replacetext(message, "reason", "raisin")
if(prob(50))
message = uppertext(message)
message += "[stutter(pick("!", "!!", "!!!"))]"
if(!stuttering && prob(15))
message = stutter(message)
return message
/proc/shake_camera(mob/M, duration=0, strength=1)
spawn(1)
if(!M || !M.client || M.shakecamera)
return
var/client/C = M.client
M.shakecamera = 1
for (var/x = 1 to duration)
if(!C)
M.shakecamera = 0
return //somebody disconnected while being shaken
C.pixel_x = WORLD_ICON_SIZE*rand(-strength, strength)
C.pixel_y = WORLD_ICON_SIZE*rand(-strength, strength)
sleep(1)
M.shakecamera = 0
C.pixel_x = 0
C.pixel_y = 0
/proc/directional_recoil(mob/M, strength=1, angle = 0)
if(!M || !M.client)
return
var/client/C = M.client
var/recoil_x = -sin(angle)*4*strength + rand(-strength, strength)
var/recoil_y = -cos(angle)*4*strength + rand(-strength, strength)
animate(C, pixel_x=recoil_x, pixel_y=recoil_y, time=1, easing=SINE_EASING|EASE_OUT, flags=ANIMATION_PARALLEL|ANIMATION_RELATIVE)
sleep(2)
animate(C, pixel_x=0, pixel_y=0, time=3, easing=SINE_EASING|EASE_IN)
/proc/findname(msg)
if(!istext(msg))
msg = "[msg]"
for(var/mob/M in mob_list)
if(M.real_name == msg)
return M
return 0
/mob/proc/abiotic(var/full_body = 0)
for(var/obj/item/I in held_items)
if(I.abstract)
continue
return 1
if(full_body)
for(var/obj/item/I in get_equipped_items())
if(I.abstract)
continue
return 1
return 0
//converts intent-strings into numbers and back, refactored by kanef down from switch blocks
/proc/intent_numeric(argument)
var/list/intents = list(I_HELP,I_DISARM,I_GRAB,I_HURT) //this was originally outside of the proc, not used anywhere and had no reason to be, previously unused
if(istext(argument))//switches on text or numerical input to do 2 different things
return intents.Find(argument) //Find() returns the index of the argument specified, if any. dunno what it defaults to, probably 0
else
return intents[argument <= 4 && argument >= 1 ? argument : 4] //ternary operator bounds checking yeeeeee, theres something in list helpers for this but whatever
//this is used in 3 different procs, sadly couldnt be function specific, 2d matrix array cus it makes more sense like that sorta, left to right, top to bottom -kanef
var/list/list/zones = list(list(LIMB_HEAD,LIMB_LEFT_ARM,LIMB_LEFT_HAND,LIMB_LEFT_LEG,LIMB_LEFT_FOOT),list(TARGET_EYES,LIMB_HEAD,TARGET_MOUTH,LIMB_CHEST,LIMB_GROIN),list(LIMB_HEAD,LIMB_RIGHT_ARM,LIMB_RIGHT_HAND,LIMB_RIGHT_LEG,LIMB_RIGHT_FOOT))
//gets the "side" of body or x coordinate
/proc/zone_x(argument)
if(istext(argument)) //this MUST be text
var/i = 0 //time to iterate
if (argument == LIMB_HEAD) //head is in all 3 lists, default to middle one
return 2
for(var/list/side in zones) //time to for loop them instead of an awful long switch block
i++ //increment, start at one because BYOND lists hate 0
if(side.Find(argument)) //if it's in a sublist
return i //break out with the list index its in, Find() is not easy with matrices
return 2 //default to middle if nothing
//and now for the limb on a particular side or "y"
/proc/zone_y(argument)
if(istext(argument))
if (argument == LIMB_HEAD) //gotta do it again for overlaps
return zones[2].Find(argument) //same as 'ere
for(var/list/side in zones) //iterate through sub arrays again
if(side.Find(argument)) //if anything that isnt heads are found in these lists
return side.Find(argument) //bring back the y index
return 3 //otherwise get the middle one
//text from an XY coord on the matrix
/proc/zone_text(x,y)
//BOTH must be nums
if(isnum(x) && isnum(y))
return zones[x <= 3 && x >= 1 ? x : 3][y <= 5 && y >= 1 ? y : 5]//bounds checking the 3x5 matrix, bring back the text stored
//change a mob's act-intent. Input the intent as a string such as I_HELP or use "right"/"left
/mob/verb/a_intent_change(input as text)
set name = "a-intent"
set hidden = 1
if(ishuman(src) || isalienadult(src) || isbrain(src))
switch(input)
if(I_HELP,I_DISARM,I_GRAB,I_HURT)
a_intent = input
if("right")
a_intent = intent_numeric((intent_numeric(a_intent)+1) % 4)
if("left")
a_intent = intent_numeric((intent_numeric(a_intent)+3) % 4)
if(hud_used && hud_used.action_intent)
hud_used.action_intent.icon_state = "intent_[a_intent]"
else if(isrobot(src) || ismonkey(src) || islarva(src))
switch(input)
if(I_HELP)
a_intent = I_HELP
if(I_HURT)
a_intent = I_HURT
if("right","left")
a_intent = intent_numeric(intent_numeric(a_intent) - 3)
if(hud_used && hud_used.action_intent)
if(a_intent == I_HURT)
hud_used.action_intent.icon_state = "harm"
else
hud_used.action_intent.icon_state = "help"
//change a mob's zone_sel. Input the target as a string such as LIMB_HEAD -kanef
/mob/verb/a_zone_change(input as text)
//same declaration as intent function, which this is based on
set name = "a-zone"
set hidden = 1
//standard type check
if(zone_sel && zone_sel.selecting)
var/old_selecting = zone_sel.selecting //same as in click function for icon updates
var/xVal = zone_x(zone_sel.selecting) //shorthand because the stuff below looked so ugly
var/yVal = zone_y(zone_sel.selecting) //see above
//still a switch because its not just limb names, also cycling for hotkeys
switch(input)
if (LIMB_RIGHT_FOOT,LIMB_LEFT_FOOT,LIMB_RIGHT_HAND,LIMB_LEFT_HAND,LIMB_RIGHT_ARM,LIMB_LEFT_ARM,LIMB_RIGHT_LEG,LIMB_LEFT_LEG,LIMB_GROIN,LIMB_CHEST,LIMB_HEAD,TARGET_MOUTH,TARGET_EYES)
zone_sel.selecting = input //parse limb names as normal, like in numpad
if ("up") //cycling up
zone_sel.selecting = zone_text(xVal,(yVal+4) % 5) //modulo it backwards on Y on base 5
if ("down") //cycling down
zone_sel.selecting = zone_text(xVal,(yVal+1) % 5) //modulo it forwards on Y on base 5
if ("left") //cycling left
zone_sel.selecting = zone_text((xVal+2) % 3,yVal) //modulo it backwards on X on base 3
if ("right") //cycling right
zone_sel.selecting = zone_text((xVal+1) % 3,yVal) //modulo it forwards on X on base 3
if(old_selecting != zone_sel.selecting)
zone_sel.update_icon() //update icon, like in click function
//For hotkeys
/mob/verb/a_kick()
set name = "a-kick"
set hidden = 1
if(ishuman(src))
var/mob/living/carbon/human/H = src
H.set_attack_type(ATTACK_KICK)
/mob/verb/a_bite()
set name = "a-bite"
set hidden = 1
if(ishuman(src))
var/mob/living/carbon/human/H = src
H.set_attack_type(ATTACK_BITE)
proc/is_blind(A)
if(istype(A, /mob/living/carbon))
var/mob/living/carbon/C = A
if(C.blinded != null)
return 1
return 0
/proc/get_multitool(mob/user as mob)
// Get tool
var/obj/item/device/multitool/P
if(isrobot(user) || ishuman(user))
P = user.get_active_hand()
else if(isAI(user))
var/mob/living/silicon/ai/AI=user
P = AI.aiMulti
else if(isAdminGhost(user))
var/mob/dead/observer/G=user
P = G.ghostMulti
if(!istype(P))
return null
return P
/proc/broadcast_security_hud_message(var/message, var/broadcast_source)
broadcast_hud_message(message, broadcast_source, sec_hud_users, /obj/item/clothing/glasses/hud/security)
/proc/broadcast_medical_hud_message(var/message, var/broadcast_source)
broadcast_hud_message(message, broadcast_source, med_hud_users, /obj/item/clothing/glasses/hud/health)
/proc/broadcast_hud_message(var/message, var/broadcast_source, var/list/targets, var/obj/ic)
var/biconthing = initial(ic.icon)
var/biconthingstate = initial(ic.icon_state)
var/icon/I = new(biconthing, biconthingstate)
var/turf/sourceturf = get_turf(broadcast_source)
for(var/mob/M in targets)
var/turf/targetturf = get_turf(M)
if((targetturf.z == sourceturf.z))
M.show_message("<span class='info'>[bicon(I)] [message]</span>", 1)
/mob/proc/get_survive_objective()
return new /datum/objective/survive
/**
* Honor check
* Returns TRUE if user is BOMBERMAN, HIGHLANDER, NINJA...
* Respects honorable.
*/
/proc/is_honorable(var/mob/living/user, var/honorable = HONORABLE_ALL)
if(istype(user))
if(user.mind)
if(isbomberman(user) && (honorable & HONORABLE_BOMBERMAN))
return TRUE
if(ishighlander(user) && (honorable & HONORABLE_HIGHLANDER))
return TRUE
if(iscarbon(user) && isninja(user) && (honorable & HONORABLE_NINJA))
return TRUE
if((iswizard(user) || isapprentice(user) || ismagician(user)) && (user.flags & HONORABLE_NOGUNALLOWED))
return TRUE
return FALSE
// Called by /mob/living/carbon/human/examine() and /mob/living/carbon/human/Topic()
// Returns whether the mob can see the specified HUD
/mob/proc/hasHUD(var/hud_kind)
return FALSE
// Returns a string that provides identification data for this mob
/mob/proc/identification_string()
return name
/mob/proc/can_be_infected()
return 0
/mob/proc/remove_confused(var/amt)
confused = max(0, confused - amt)
if (confused <= 0)
confused_intensity = 0
Reference in New Issue View Git Blame Copy Permalink