/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/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/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.
// If excessive_misses is toggled on, then if it misses it will always miss instead of hitting a limb, and can also miss targets lying down
/proc/get_zone_with_miss_chance(zone, var/mob/target, var/miss_chance_mod = 0, var/excessive_misses)
zone = check_zone(zone)
// you can only miss if your target is standing and not restrained, excessive misses can still miss!
if((!target.locked_to && !target.lying) || excessive_misses)
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) || excessive_misses)
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="[newletter]"
//if(11,12) newletter="[newletter]"
//if(13) newletter="[newletter]"
else
//do nothing
newphrase+="[newletter]";counter-=1
return newphrase
/proc/stutter(n)
var/te = n
var/t = "" //Holds the result as it's being built
n = length_char(n) //length of the entire word
var/p = 1 //1 is the start of any word
while(p <= n)
var/n_letter = copytext_char(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 = "[n_letter]-[n_letter]-[n_letter]-[n_letter]" //replaces the current letter with this instead.
else
if (prob(20))
n_letter = "[n_letter]-[n_letter]-[n_letter]"
else
if (prob(5))
n_letter = null
else
n_letter = "[n_letter]-[n_letter]"
t = "[t][n_letter]" //since the above is ran through for each letter, the text just adds up back to the original word.
p++
return copytext_char(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)
//specific words we want replaced every time, mainly references to the actual brain damage lines, so they stay consistent with brain damage regular speech
message = replacetext(message, "stop", "sotp")
message = replacetext(message, "retarded", "rarted")
message = replacetext(message, "george", "[pick("joerge", "george", "gorge", "gdoruge")]")
message = replacetext(message, "melon", "[pick("mellens", "melons", "mwrlins")]")
message = replacetext(message, "oxygen", "oxigen")
message = replacetext(message, "evolve", "evoluate")
message = replacetext(message, "unrealistic", "unralistic")
message = replacetext(message, "round", "rouns")
message = replacetext(message, "roles", "rolls")
message = replacetext(message, "worst", "wurst")
message = replacetext(message, "worse", "wurse")
message = replacetext(message, "vegan", "vegana")
message = replacetext(message, "boob", "bobs")
message = replacetext(message, "grief", "griff")
message = replacetext(message, "space", "spess")
message = replacetext(message, "carp", "crap")
message = replacetext(message, "reason", "raisin")
message = replacetext(message, "engineer", "engiener")
message = replacetext(message, "pinpointer", "pin pointner")
message = replacetext(message, "singularity", "scrungulartiy")
message = replacetext(message, "based", "BASTE")
message = replacetext(message, "hos", "hitler")
message = replacetext(message, "like", "liek")
message = replacetext(message, "damage", "damag")
message = replacetext(message, "millenial", "milenian")
message = replacetext(message, "telekinesis", "telikesis")
message = replacetext(message, "hulk", "halk")
message = replacetext(message, "epilepsy", "eppilapse")
message = replacetext(message, "shotgun", "shotgum it duntt mis")
message = replacetext(message, "suspicious", "sus")
message = replacetext(message, "among us", "amogus")
//assorted replacements to make text feel "dumb"
message = replacetext(message, "he", "eh") //he, she, the -> eh, seh, teh, etc
message = replacetext(message, "ies", "is")
message = replacetext(message, "you", "u")
message = replacetext(message, "iou", "ou") //delicous
message = replacetext(message, "xc", "x") //exited
message = replacetext(message, "air", "er") //cher, her
message = replacetext(message, "uni", "uin")
message = replacetext(message, "dg", "g") //knowlege,
message = replacetext(message, "tch", "ch") //bich
message = replacetext(message, "are", "ar")
message = replacetext(message, "pl", "pul")
message = replacetext(message, "oul", "ul")
message = replacetext(message, "ght", "gt")
message = replacetext(message, "gna", "ga")
if(prob(50)) //stuff we only want replaced this way SOME of the time, the alternative goes under ELSE
message = replacetext(message, "eau", "eu") //beutiful
message = replacetext(message, "ie", "ei")
message = replacetext(message, "tab", "tib") //tible, comfortible
message = replacetext(message, "'re", "re")
message = replacetext(message, "help", "halp")
message = replacetext(message, "wood", "woody")
message = replacetext(message, "ain", "ian")
message = replacetext(message, "your", "youre")
if(prob(25)) //13%
message = replacetext(message, " am ", " ")
message = replacetext(message, " is ", " ")
message = replacetext(message, " are ", " ")
else //these prob checks are per sentence, so saying friend 100 times in one sentence will have all 100 look the same instead of mix and match
message = replacetext(message, "eau", "u")
message = replacetext(message, "friend", "fren")
message = replacetext(message, "tab", "teb") //teble, comforteble
message = replacetext(message, "you're", "your")
message = replacetext(message, "help", "helb")
message = replacetext(message, "y ", "i ")
message = replacetext(message, "y,", "i")
message = replacetext(message, "captain", "COMDOM")
if(prob(70))
var/regex/duplicate = new("(\\w)(?=\\1)", "g")
message = replacetext(message, duplicate, "") //duplicate letters into one letter, for all words
if(prob(20)) //occasionally replaces one word with umm.
var/list/words = splittext(message, " ")
words[rand(0, words.len)] = pick("um,", "umm,", "uh,", "uhh,")
message = jointext(words, " ")
if(prob(35))
message = uppertext(message)
if(prob(50))
message += "[stutter(pick("!", "!!", "!!!"))]"
if(!stuttering && prob(10))
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("[bicon(I)] [message]", 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 VERY_HONORABLE
if(ishighlander(user) && (honorable & HONORABLE_HIGHLANDER))
return VERY_HONORABLE
if(iscarbon(user) && isninja(user) && (honorable & HONORABLE_NINJA))
return MERELY_HONORABLE
if((iswizard(user) || isapprentice(user) || ismagician(user)) && (user.flags & HONORABLE_NOGUNALLOWED))
return MERELY_HONORABLE
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)
switch(hud_kind)
if(HUD_MEDICAL)
for(var/datum/visioneffect/medical/H in huds)
return TRUE
return FALSE
if(HUD_SECURITY)
for(var/datum/visioneffect/security/H in huds)
return TRUE
return FALSE
if(HUD_ARRESTACCESS)
for(var/datum/visioneffect/security/arrest/H in huds)
return TRUE
return FALSE
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