Files
Bubberstation/code/datums/components/tree_climber.dm
Ben10Omintrix cc64ed0ca4 convert the bear to a basic mobster (#77143)
## About The Pull Request
the bear now a basic and he have a new behaviers. the bear now can go to
climbed the trees! he will looked for a tree to climbing and if he
founded a tree he will go climb him. also the bear now love honey he
will look for a bee hives to stole the honey from it so botanists must
be care. the bear will drag the honey behind him so u must chased him to
get the honey back again

## Why It's Good For The Game
the bear is a basic now so he and have more behavier for more depth
mechanis

## Changelog
🆑
refactor: the bear is a basic now. please report any bugs
add: the bear will climb trees and search honey
/🆑
2023-07-28 19:34:39 -06:00

90 lines
2.9 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
/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)