Files
Bubberstation/code/datums/components/tree_climber.dm
SkyratBot f6577ec049 [MIRROR] Refactors Sloths into Basic Mobs [MDB IGNORE] (#24171)
* Refactors Sloths into Basic Mobs (#78752)

## About The Pull Request

Hey there,

This just refactors sloths to the basic mob framework. Nothing new
should be added beyond them seeming a bit more sluggish and being a bit
smarter about the fights they pick/running away.
## Why It's Good For The Game

Three more subtypes off the list, we are now sub-200 simple animals left
to refactor. If people want to play catch with their sloth it should be
much easier to fit that in now.
## Changelog
🆑
refactor: Sloths are now basic mobs, however their overall sluggish
behavior shouldn't have changed much- let us know if anything is broken.
/🆑

* Refactors Sloths into Basic Mobs

* Modular path

---------

Co-authored-by: san7890 <the@san7890.com>
Co-authored-by: Giz <13398309+vinylspiders@users.noreply.github.com>
2023-10-07 23:23:36 +00:00

92 lines
3.0 KiB
Plaintext

/*
* A component given to mobs that can climb trees
*/
/datum/component/tree_climber
///the distance to climb up and down
var/climbing_distance = 20
///the tree we are on
var/obj/current_tree
/datum/component/tree_climber/Initialize(climbing_distance = 20)
if(!isliving(parent))
return COMPONENT_INCOMPATIBLE
src.climbing_distance = climbing_distance
ADD_TRAIT(parent, TRAIT_SUBTREE_REQUIRED_OPERATIONAL_DATUM, type)
/datum/component/tree_climber/RegisterWithParent()
RegisterSignals(parent, list(COMSIG_HOSTILE_PRE_ATTACKINGTARGET, COMSIG_LIVING_CLIMB_TREE), PROC_REF(climb_tree))
RegisterSignal(parent, COMSIG_ATOM_EXAMINE, PROC_REF(on_examine))
/datum/component/tree_climber/UnregisterFromParent()
UnregisterSignal(parent, list(COMSIG_HOSTILE_PRE_ATTACKINGTARGET, COMSIG_LIVING_CLIMB_TREE, COMSIG_ATOM_EXAMINE))
/datum/component/tree_climber/Destroy()
if(current_tree)
handle_climb_tree(parent, current_tree) //remove mob from tree and handle deletion of signals
return ..()
/datum/component/tree_climber/proc/climb_tree(mob/living/source, atom/target)
SIGNAL_HANDLER
if(!istype(target, /obj/structure/flora/tree))
return
if(!can_climb_tree(target)) //check if another animal is on the tree
to_chat(source, span_warning("[target] is blocked!"))
return COMPONENT_HOSTILE_NO_ATTACK
handle_climb_tree(source, target)
if(current_tree)
source.forceMove(get_turf(current_tree))
return COMPONENT_HOSTILE_NO_ATTACK
var/list/possible_drops = get_adjacent_open_turfs(target)
for(var/turf/droploc as anything in possible_drops)
if(!droploc.is_blocked_turf(exclude_mobs = TRUE))
continue
possible_drops -= droploc
if(possible_drops.len)
source.forceMove(pick(possible_drops))
return COMPONENT_HOSTILE_NO_ATTACK
/datum/component/tree_climber/proc/on_examine(datum/source, mob/user, list/examine_text)
SIGNAL_HANDLER
if(current_tree)
examine_text += "It is clinging to [current_tree]!"
/datum/component/tree_climber/proc/can_climb_tree(obj/structure/flora/tree/target)
if(current_tree)
return TRUE
var/turf/tree_turf = get_turf(target)
if(locate(/mob/living) in tree_turf.contents)
return FALSE
return TRUE
/datum/component/tree_climber/proc/handle_climb_tree(mob/living/climber, obj/structure/target_tree)
var/offset = current_tree ? -(climbing_distance) : climbing_distance
animate(climber, pixel_y = climber.pixel_y + offset, time = 2)
climber.Stun(2 SECONDS, ignore_canstun = TRUE)
if(current_tree)
remove_tree_signals()
current_tree = null
return
current_tree = target_tree
register_tree_signals()
/datum/component/tree_climber/proc/remove_from_tree()
SIGNAL_HANDLER
handle_climb_tree(parent, current_tree)
/datum/component/tree_climber/proc/register_tree_signals()
RegisterSignal(parent, COMSIG_MOVABLE_PRE_MOVE, PROC_REF(remove_from_tree))
RegisterSignal(current_tree, COMSIG_PREQDELETED, PROC_REF(remove_from_tree))
/datum/component/tree_climber/proc/remove_tree_signals()
UnregisterSignal(parent, COMSIG_MOVABLE_PRE_MOVE)
UnregisterSignal(current_tree, COMSIG_PREQDELETED)