#define MECHA_INT_FIRE 1 #define MECHA_INT_TEMP_CONTROL 2 #define MECHA_INT_SHORT_CIRCUIT 4 #define MECHA_INT_TANK_BREACH 8 #define MECHA_INT_CONTROL_LOST 16 #define MELEE 1 #define RANGED 2 /obj/mecha name = "Mecha" desc = "Exosuit" icon = 'mecha.dmi' density = 1 //Dense. To raise the heat. opacity = 1 ///opaque. Menacing. anchored = 1 //no pulling around. unacidable = 1 //and no deleting hoomans inside layer = MOB_LAYER //icon draw layer infra_luminosity = 15 //byond implementation is bugged. var/can_move = 1 var/mob/living/carbon/occupant = null var/step_in = 10 //make a step in step_in/10 sec. var/dir_in = 2//What direction will the mech face when entered/powered on? Defaults to South. var/step_energy_drain = 10 var/health = 300 //health is health var/deflect_chance = 10 //chance to deflect the incoming projectiles, hits, or lesser the effect of ex_act. var/obj/item/weapon/cell/cell = new var/state = 0 var/list/log = new var/last_message = 0 var/add_req_access = 1 var/dna //dna-locking the mech var/list/proc_res = list() //stores proc owners, like proc_res["functionname"] = owner reference var/datum/effect/system/spark_spread/spark_system = new var/lights = 0 var/lights_power = 6 //inner atmos machinery. Air tank mostly var/use_internal_tank = 0 //TODO: replace with common airtank /* var/datum/gas_mixture/air_contents = new var/filled = 0.5 var/gas_tank_volume = 500 */ var/obj/machinery/atmospherics/portables_connector/connected_port = null //filling the air tanks var/obj/machinery/portable_atmospherics/canister/internal_tank var/max_temperature = 2500 var/internal_damage_threshold = 50 //health percentage below which internal damage is possible var/internal_damage = 0 //contains bitflags var/list/operation_req_access = list()//required access level for mecha operation var/list/internals_req_access = list(access_engine,access_robotics)//required access level to open cell compartment var/datum/global_iterator/pr_int_temp_processor //normalizes internal air mixture temperature var/datum/global_iterator/pr_inertial_movement //controls intertial movement in spesss // var/datum/global_iterator/pr_location_temp_check //processes location temperature damage var/datum/global_iterator/pr_internal_damage //processes internal damage var/wreckage var/list/equipment = new var/obj/item/mecha_parts/mecha_equipment/selected var/max_equip = 3 /obj/mecha/New() ..() src.icon_state += "-open" /* src.air_contents.volume = gas_tank_volume //liters src.air_contents.temperature = T20C src.air_contents.oxygen = (src.maximum_pressure*filled)*air_contents.volume/(R_IDEAL_GAS_EQUATION*air_contents.temperature) */ internal_tank = new /obj/machinery/portable_atmospherics/canister/air(src) src.spark_system.set_up(2, 0, src) src.spark_system.attach(src) src.cell.charge = 15000 src.cell.maxcharge = 15000 //misc global_iteration datums pr_int_temp_processor = new /datum/global_iterator/mecha_preserve_temp(list(src)) pr_inertial_movement = new /datum/global_iterator/mecha_intertial_movement(null,0) // pr_location_temp_check = new /datum/global_iterator/mecha_location_temp_check(list(src)) pr_internal_damage = new /datum/global_iterator/mecha_internal_damage(list(src),0) src.verbs -= /obj/mecha/verb/disconnect_from_port src.verbs -= /atom/movable/verb/pull src.log_message("[src.name] created.") src.loc.Entered(src) return /obj/mecha/Del() src.go_out() ..() return /client/Click(object,location,control,params) var/mob/M = src.mob if(M && M.in_contents_of(/obj/mecha)) /* if(mech_click == world.time) return mech_click = world.time */ if(!istype(object, /atom)) return if(istype(object, /obj/screen)) var/obj/screen/using = object if(using.screen_loc == ui_acti || using.screen_loc == ui_iarrowleft || using.screen_loc == ui_iarrowright)//ignore all HUD objects save 'intent' and its arrows return ..() else return var/obj/mecha/Mech = M.loc spawn() //this helps prevent clickspam fest. if (Mech) Mech.click_action(object,M) else return ..() /obj/mecha/proc/click_action(atom/target,mob/user) if(!src.occupant || src.occupant != user ) return if(user.stat) return if(state || !get_charge()) return if(src == target) return var/dir_to_target = get_dir(src,target) if(dir_to_target && !(dir_to_target & src.dir))//wrong direction return if(internal_damage&MECHA_INT_CONTROL_LOST) target = safepick(view(3,target)) if(!target) return if(get_dist(src, target)>1) if(selected && selected.is_ranged()) selected.action(target) else if(selected && selected.is_melee()) selected.action(target) else src.melee_action(target) return /obj/mecha/proc/melee_action(atom/target) return /obj/mecha/proc/range_action(atom/target) return /* /obj/mecha/verb/test_int_damage() set name = "Test internal damage" set category = "Exosuit Interface" set src in view(0) if(!src.occupant) return if(usr!=src.occupant) return src.health = initial(src.health)/2.2 src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) return */ /obj/mecha/proc/do_after(delay as num) sleep(delay) if(src) return 1 return 0 ////////////////////////////////// //////// Movement procs //////// ////////////////////////////////// /obj/mecha/relaymove(mob/user,direction) if(user != src.occupant) //While not "realistic", this piece is player friendly. user.loc = get_turf(src) user.loc.Entered(user) user << "You climb out from [src]" return 0 if(!can_move) return 0 if(connected_port) if(world.time - last_message > 20) src.occupant_message("Unable to move while connected to the air system port") last_message = world.time return 0 if(src.pr_inertial_movement.active()) return 0 if(state || !get_charge()) return 0 var/move_result = 0 if(internal_damage&MECHA_INT_CONTROL_LOST) move_result = step_rand(src) else if(src.dir!=direction) src.dir=direction move_result = 1 else move_result = step(src,direction) if(occupant) for(var/obj/effect/speech_bubble/B in range(1, src)) if(B.parent == occupant) B.loc = loc if(move_result) can_move = 0 use_power(step_energy_drain) if(istype(src.loc, /turf/space)) if(!src.check_for_support()) src.pr_inertial_movement.start(list(src,direction)) src.log_message("Movement control lost. Inertial movement started.") if(do_after(step_in)) can_move = 1 return 1 return 0 /* /obj/mecha/proc/inertial_movement(direction) src.inertia_dir = direction spawn while(src && src.inertia_dir) if(!step(src, src.inertia_dir)||check_for_support()) src.inertia_dir = null sleep(7) return */ /* if(check_for_support()) src.inertia_dir = null if(src.inertia_dir) if(step(src, src.inertia_dir)) spawn(5) .() else src.inertia_dir = null return */ /obj/mecha/proc/check_for_support() if(locate(/obj/structure/grille, orange(1, src)) || locate(/obj/structure/lattice, orange(1, src)) || locate(/turf/simulated, orange(1, src)) || locate(/turf/unsimulated, orange(1, src))) return 1 else return 0 /obj/mecha/Bump(var/atom/obstacle) // src.inertia_dir = null if(istype(obstacle, /obj)) var/obj/O = obstacle if(istype(O, /obj/effect/portal)) //derpfix src.anchored = 0 O.HasEntered(src) spawn(0)//countering portal teleport spawn(0), hurr src.anchored = 1 else if(!O.anchored) step(obstacle,src.dir) else //I have no idea why I disabled this obstacle.Bumped(src) else if(istype(obstacle, /mob)) step(obstacle,src.dir) else obstacle.Bumped(src) return //////////////////////////////////////// //////// Health related procs //////// //////////////////////////////////////// /obj/mecha/proc/take_damage(amount, type="brute") switch(type) if("brute") src.health -= amount if("fire") amount *= 1.2 src.health -= amount src.update_health() src.log_append_to_last("Took [amount] points of damage. Damage type: \"[type]\".",1) return /obj/mecha/proc/check_for_internal_damage(var/list/possible_int_damage,var/ignore_threshold=null) if(!islist(possible_int_damage) || isemptylist(possible_int_damage)) return if(prob(20)) if(ignore_threshold || src.health*100/initial(src.health) 0) src.spark_system.start() else src.destroy() return /obj/mecha/attack_hand(mob/user as mob) src.log_message("Attack by hand/paw. Attacker - [user].",1) if(ishuman(user)) if(istype(user:gloves, /obj/item/clothing/gloves/space_ninja)&&user:gloves:candrain&&!user:gloves:draining) call(/obj/item/clothing/gloves/space_ninja/proc/drain)("MECHA",src,user:wear_suit) return if (user.mutations & HULK && !prob(src.deflect_chance)) src.take_damage(15) src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) user.visible_message("[user] hits [src.name], doing some damage.", "You hit [src.name] with all your might. The metal creaks and bends.") else user.visible_message("[user] hits [src.name]. Nothing happens","You hit [src.name] with no visible effect.") src.log_append_to_last("Armor saved.") return /obj/mecha/attack_paw(mob/user as mob) return src.attack_hand(user) /obj/mecha/attack_alien(mob/user as mob) src.log_message("Attack by alien. Attacker - [user].",1) if(!prob(src.deflect_chance)) src.take_damage(15) src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) playsound(src.loc, 'slash.ogg', 50, 1, -1) user << "\red You slash at the armored suit!" for (var/mob/V in viewers(src)) if(V.client && !(V.blinded)) V.show_message("\red The [user] slashes at [src.name]'s armor!", 1) else src.log_append_to_last("Armor saved.") playsound(src.loc, 'slash.ogg', 50, 1, -1) user << "\green Your claws had no effect!" src.occupant_message("\blue The [user]'s claws are stopped by the armor.") for (var/mob/V in viewers(src)) if(V.client && !(V.blinded)) V.show_message("\blue The [user] rebounds off the [src.name] armor!", 1) return /obj/mecha/hitby(atom/movable/A as mob|obj) //wrapper src.log_message("Hit by [A].",1) call((proc_res["dynhitby"]||src), "dynhitby")(A) return /obj/mecha/proc/dynhitby(atom/movable/A) if(istype(A, /obj/item/mecha_tracking)) A.loc = src src.visible_message("The [A] fastens firmly to [src].") return if(prob(src.deflect_chance) || istype(A, /mob)) src.occupant_message("\blue The [A] bounces off the armor.") src.visible_message("The [A] bounces off the [src.name] armor") src.log_append_to_last("Armor saved.") if(istype(A, /mob/living)) var/mob/living/M = A M.take_organ_damage(10) else if(istype(A, /obj)) var/obj/O = A if(O.throwforce) src.take_damage(O.throwforce) src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) return /obj/mecha/bullet_act(var/obj/item/projectile/Proj) //wrapper src.log_message("Hit by projectile. Type: [Proj.name]([Proj.flag]).",1) call((proc_res["dynbulletdamage"]||src), "dynbulletdamage")(Proj) //calls equipment ..() return /obj/mecha/proc/dynbulletdamage(var/obj/item/projectile/Proj) if(prob(src.deflect_chance)) src.occupant_message("\blue The armor deflects incoming projectile.") src.visible_message("The [src.name] armor deflects the projectile") src.log_append_to_last("Armor saved.") return var/ignore_threshold if(Proj.flag == "taser") use_power(500) return if(istype(Proj, /obj/item/projectile/beam/pulse)) ignore_threshold = 1 src.take_damage(Proj.damage) src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST),ignore_threshold) return /obj/mecha/proc/destroy() spawn() go_out() var/turf/T = get_turf(src) tag = "\ref[src]" //better safe then sorry loc.Exited(src) loc = null if(T) if(prob(40)) explosion(T, 0, 0, 1, 3) if(wreckage) var/obj/effect/decal/mecha_wreckage/WR = new wreckage(T) for(var/obj/item/mecha_parts/mecha_equipment/E in equipment) if(prob(30)) WR.crowbar_salvage += E E.loc = WR E.equip_ready = 1 E.reliability = rand(30,100) else E.loc = T E.destroy() if(cell) WR.crowbar_salvage += cell cell.loc = WR cell.charge = rand(0, cell.charge) if(internal_tank) WR.crowbar_salvage += internal_tank internal_tank.loc = WR del(src) return /obj/mecha/ex_act(severity) src.log_message("Affected by explosion of severity: [severity].",1) if(prob(src.deflect_chance)) severity++ src.log_append_to_last("Armor saved, changing severity to [severity].") switch(severity) if(1.0) src.destroy() if(2.0) if (prob(30)) src.destroy() else src.take_damage(initial(src.health)/2) src.check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST),1) if(3.0) if (prob(5)) src.destroy() else src.take_damage(initial(src.health)/5) src.check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST),1) return //TODO /obj/mecha/blob_act() return /obj/mecha/meteorhit() return ex_act(rand(1,3))//should do for now /obj/mecha/emp_act(severity) if(get_charge()) use_power(min(cell.charge, cell.maxcharge/severity)) src.log_message("EMP detected") take_damage(100 / severity) src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_CONTROL_LOST),1) return /obj/mecha/temperature_expose(datum/gas_mixture/air, exposed_temperature, exposed_volume) if(exposed_temperature>src.max_temperature) src.log_message("Exposed to dangerous temperature.",1) src.take_damage(5,"fire") src.check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL)) return ///////////////////////////////////// //////// Atmospheric stuff //////// ///////////////////////////////////// /* //standard for /obj class /obj/mecha/handle_internal_lifeform(lifeform, volume) ..() world << "Handling [lifeform] breathing. Requested [volume]" */ /obj/mecha/remove_air(amount) if(use_internal_tank && internal_tank) return internal_tank.air_contents.remove(amount) else var/turf/T = get_turf(src) if(T) return T.remove_air(amount) return /obj/mecha/return_air() if(internal_tank) return internal_tank.return_air() return /obj/mecha/proc/return_pressure() if(internal_tank) return internal_tank.return_pressure() return 0 /obj/mecha/proc/return_temperature() if(internal_tank) return internal_tank.return_temperature() return 0 /* /obj/mecha/proc/preserve_temp() // set background = 1 spawn while(src) if(cell && cell.charge>0) if(src.occupant) if(src.occupant.bodytemperature > 320 || src.occupant.bodytemperature < 300) src.occupant.bodytemperature += src.occupant.adjust_body_temperature(src.occupant.bodytemperature, 310.15, 10) cell.charge-- sleep(10) */ /obj/mecha/proc/connect(obj/machinery/atmospherics/portables_connector/new_port) //Make sure not already connected to something else if(connected_port || !new_port || new_port.connected_device) return 0 //Make sure are close enough for a valid connection if(new_port.loc != src.loc) return 0 //Perform the connection connected_port = new_port connected_port.connected_device = src //Actually enforce the air sharing var/datum/pipe_network/network = connected_port.return_network(src) if(network && !(return_air() in network.gases)) network.gases += return_air() log_message("Connected to gas port.") return 1 /obj/mecha/proc/disconnect() if(!connected_port) return 0 var/datum/pipe_network/network = connected_port.return_network(src) if(network) network.gases -= src.return_air() connected_port.connected_device = null connected_port = null src.log_message("Disconnected from gas port.") return 1 ///////////////////////// //////// Verbs //////// ///////////////////////// /obj/mecha/verb/connect_to_port() set name = "Connect to port" set category = "Exosuit Interface" set src in view(0) if(!src.occupant) return if(usr!=src.occupant) return var/obj/machinery/atmospherics/portables_connector/possible_port = locate(/obj/machinery/atmospherics/portables_connector/) in loc if(possible_port) if(connect(possible_port)) src.occupant_message("\blue [name] connects to the port.") src.verbs += /obj/mecha/verb/disconnect_from_port src.verbs -= /obj/mecha/verb/connect_to_port return else src.occupant_message("\red [name] failed to connect to the port.") return else src.occupant_message("Nothing happens") /obj/mecha/verb/disconnect_from_port() set name = "Disconnect from port" set category = "Exosuit Interface" set src in view(0) if(!src.occupant) return if(usr!=src.occupant) return if(disconnect()) src.occupant_message("\blue [name] disconnects from the port.") src.verbs -= /obj/mecha/verb/disconnect_from_port src.verbs += /obj/mecha/verb/connect_to_port else src.occupant_message("\red [name] is not connected to the port at the moment.") /obj/mecha/verb/toggle_lights() set name = "Toggle Lights" set category = "Exosuit Interface" set src in view(0) if(usr!=src.occupant) return lights = !lights if(lights) src.sd_SetLuminosity(src.luminosity + src.lights_power) else src.sd_SetLuminosity(src.luminosity - src.lights_power) src.log_message("Toggled lights.") return /obj/mecha/verb/toggle_internal_tank() set name = "Toggle internal airtank usage." set category = "Exosuit Interface" set src in view(0) if(usr!=src.occupant) return use_internal_tank = !use_internal_tank src.log_message("Now taking air from [use_internal_tank?"internal airtank":"environment"].") return /obj/mecha/verb/move_inside() set category = "Object" set name = "Enter Exosuit" set src in oview(1) if (usr.stat || !ishuman(usr)) return src.log_message("[usr] tries to move in.") if (src.occupant) usr << "\blue The [src.name] is already occupied!" src.log_append_to_last("Permission denied.") return /* if (usr.abiotic()) usr << "\blue Subject cannot have abiotic items on." return */ var/passed if(src.dna) if(usr.dna.unique_enzymes==src.dna) passed = 1 else if(src.operation_allowed(usr)) passed = 1 if(!passed) usr << "\red Access denied" src.log_append_to_last("Permission denied.") return for(var/mob/living/carbon/metroid/M in range(1,usr)) if(M.Victim == usr) usr << "You're too busy getting your life sucked out of you." return usr << "You start climbing into [src.name]" if(do_after(20)) if(!src.occupant) moved_inside(usr) else if(src.occupant!=usr) usr << "[src.occupant] was faster. Try better next time, loser." return /obj/mecha/proc/moved_inside(var/mob/living/carbon/human/H as mob) if(H && H.client && H in range(1)) H.client.eye = src H.client.perspective = EYE_PERSPECTIVE H.pulling = null src.occupant = H H.loc = src src.add_fingerprint(H) src.Entered(H) src.Move(src.loc) src.log_append_to_last("[H] moved in as pilot.") src.icon_state = initial(icon_state) dir = dir_in playsound(src, 'windowdoor.ogg', 50, 1) if(!internal_damage) src.occupant << sound('nominal.ogg',volume=50) return 1 else return 0 /obj/mecha/proc/mmi_move_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) if(!mmi_as_oc.brainmob || !mmi_as_oc.brainmob.client) user << "Consciousness matrix not detected." return 0 else if(mmi_as_oc.brainmob.stat) user << "Beta-rhythm below acceptable level." return 0 else if(occupant) user << "Occupant detected." return 0 else if(dna && dna!=mmi_as_oc.brainmob.dna.unique_enzymes) user << "Stop it!" return 0 //Added a message here since people assume their first click failed or something./N user << "Installing MMI, please stand by." if(do_after(20)) if(!occupant) return mmi_moved_inside(mmi_as_oc,user) else user << "Occupant detected." return 0 /obj/mecha/proc/mmi_moved_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) if(mmi_as_oc && user in range(1)) if(!mmi_as_oc.brainmob || !mmi_as_oc.brainmob.client) user << "Consciousness matrix not detected." return 0 else if(mmi_as_oc.brainmob.stat) user << "Beta-rhythm below acceptable level." return 0 user.drop_from_slot(mmi_as_oc) var/mob/brainmob = mmi_as_oc.brainmob brainmob.client.eye = src brainmob.client.perspective = EYE_PERSPECTIVE occupant = brainmob brainmob.loc = src //should allow relaymove brainmob.canmove = 1 mmi_as_oc.loc = src mmi_as_oc.mecha = src src.verbs -= /obj/mecha/verb/eject src.Entered(mmi_as_oc) src.Move(src.loc) src.icon_state = initial(icon_state) dir = dir_in src.log_message("[mmi_as_oc] moved in as pilot.") if(!internal_damage) src.occupant << sound('nominal.ogg',volume=50) return 1 else return 0 /obj/mecha/verb/view_stats() set name = "View Stats" set category = "Exosuit Interface" set src in view(0) if(usr!=src.occupant) return //pr_update_stats.start() src.occupant << browse(src.get_stats_html(), "window=exosuit") return /* /obj/mecha/verb/force_eject() set category = "Object" set name = "Force Eject" set src in view(5) src.go_out() return */ /obj/mecha/verb/eject() set name = "Eject" set category = "Exosuit Interface" set src in view(0) if(usr!=src.occupant) return src.go_out() add_fingerprint(usr) return /obj/mecha/proc/go_out() if(!src.occupant) return var/atom/movable/mob_container if(ishuman(occupant)) mob_container = src.occupant else if(istype(occupant, /mob/living/carbon/brain)) var/mob/living/carbon/brain/brain = occupant mob_container = brain.container else return if(mob_container.Move(src.loc))//ejecting mob container src.log_message("[mob_container] moved out.") src.Exited(mob_container) if(src.occupant.client) src.occupant.client.eye = src.occupant.client.mob src.occupant.client.perspective = MOB_PERSPECTIVE src.occupant << browse(null, "window=exosuit") if(istype(mob_container, /obj/item/device/mmi)) var/obj/item/device/mmi/mmi = mob_container if(mmi.brainmob) occupant.loc = mmi mmi.mecha = null src.occupant.canmove = 0 src.verbs += /obj/mecha/verb/eject src.occupant = null src.icon_state = initial(icon_state)+"-open" src.dir = dir_in return /obj/mecha/examine() set src in view() ..() var/integrity = health/initial(health)*100 switch(integrity) if(85 to 100) usr << "It's fully intact." if(65 to 85) usr << "It's slightly damaged." if(45 to 65) usr << "It's badly damaged." if(25 to 45) usr << "It's heavily damaged." else usr << "It's falling apart." if(equipment && equipment.len) usr << "It's equipped with:" for(var/obj/item/mecha_parts/mecha_equipment/ME in equipment) usr << "\icon[ME] [ME]" return ////// Misc /obj/mecha/proc/occupant_message(message as text) if(message) if(src.occupant && src.occupant.client) src.occupant << "[message]" return /obj/mecha/proc/log_message(message as text,red=null) log.len++ log[log.len] = list("time"=world.timeofday,"message"="[red?"":null][message][red?"":null]") return log.len /obj/mecha/proc/log_append_to_last(message as text,red=null) var/list/last_entry = src.log[src.log.len] last_entry["message"] += "
[red?"":null][message][red?"":null]" return /obj/mecha/proc/get_log_html() var/output = "[src.name] Log" for(var/list/entry in log) output += {"
[time2text(entry["time"],"DDD MMM DD hh:mm:ss")] 2555
[entry["message"]]
"} output += "" return output /obj/mecha/proc/operation_allowed(mob/living/carbon/human/H) for(var/ID in list(H.equipped(), H.wear_id, H.belt)) if(src.check_access(ID,src.operation_req_access)) return 1 return 0 /obj/mecha/proc/internals_access_allowed(mob/living/carbon/human/H) for(var/atom/ID in list(H.equipped(), H.wear_id, H.belt)) if(src.check_access(ID,src.internals_req_access)) return 1 return 0 /obj/mecha/check_access(obj/item/weapon/card/id/I, list/access_list) if(!istype(access_list)) return 1 if(!access_list.len) //no requirements return 1 if(istype(I, /obj/item/device/pda)) var/obj/item/device/pda/pda = I I = pda.id if(!istype(I) || !I.access) //not ID or no access return 0 if(access_list==src.operation_req_access) for(var/req in access_list) if(!(req in I.access)) //doesn't have this access return 0 else if(access_list==src.internals_req_access) for(var/req in access_list) if(req in I.access) return 1 return 1 /obj/mecha/proc/dynattackby(obj/item/weapon/W as obj, mob/user as mob) src.log_message("Attacked by [W]. Attacker - [user]") if(prob(src.deflect_chance)) user << "\red The [W] bounces off [src.name] armor." src.log_append_to_last("Armor saved.") /* for (var/mob/V in viewers(src)) if(V.client && !(V.blinded)) V.show_message("The [W] bounces off [src.name] armor.", 1) */ else src.occupant_message("[user] hits [src] with [W].") user.visible_message("[user] hits [src] with [W].", "You hit [src] with [W].") src.take_damage(W.force,W.damtype) src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) return /obj/mecha/attackby(obj/item/weapon/W as obj, mob/user as mob) if(istype(W, /obj/item/device/mmi)) if(mmi_move_inside(W,user)) user << "[src]-MMI interface initialized successfuly" else user << "[src]-MMI interface initialization failed." return if(istype(W, /obj/item/mecha_parts/mecha_equipment)) var/obj/item/mecha_parts/mecha_equipment/E = W spawn() if(E.can_attach(src)) user.drop_item() E.attach(src) user.visible_message("[user] attaches [W] to [src]", "You attach [W] to [src]") else user << "You were unable to attach [W] to [src]" return if(istype(W, /obj/item/weapon/card/id)||istype(W, /obj/item/device/pda)) if(src.occupant) user << "Unable to initiate maintenance protocol." return if(add_req_access) var/obj/item/weapon/card/id/id_card if(istype(W, /obj/item/weapon/card/id)) id_card = W else var/obj/item/device/pda/pda = W id_card = pda.id output_access_dialog(id_card, user) return if(src.internals_access_allowed(usr)) if(state==0) state = 1 user << "The securing bolts are now exposed." else if(state==1) state = 0 user << "The securing bolts are now hidden." else user << "\red Access denied." return else if(istype(W, /obj/item/weapon/wrench)) if(state==1) state = 2 user << "You undo the securing bolts." else if(state==2) state = 1 user << "You tighten the securing bolts." return else if(istype(W, /obj/item/weapon/crowbar)) if(state==2) state = 3 user << "You open the hatch to the power unit" else if(state==3) state=2 user << "You close the hatch to the power unit" return else if(istype(W, /obj/item/weapon/screwdriver)) if(state==3 && src.cell) src.cell.loc = src.loc src.cell = null state = 4 user << "You unscrew and pry out the powercell." src.log_message("Powercell removed") else if(state==4 && src.cell) state=3 user << "You screw the cell in place" return else if(istype(W, /obj/item/weapon/cell)) if(state==4) if(!src.cell) user << "You install the powercell" user.drop_item() W.loc = src src.cell = W src.log_message("Powercell installed") else user << "There's already a powercell installed." return else if(istype(W, /obj/item/weapon/weldingtool) && W:welding && user.a_intent != "hurt") if (W:remove_fuel(0,user)) if (src.internal_damage & MECHA_INT_TANK_BREACH) src.internal_damage &= ~MECHA_INT_TANK_BREACH user << "\blue You repair the damaged gas tank." else return if(src.health[user] hits [src] with [W].") user.visible_message("[user] hits [src] with [W].", "You hit [src] with [W].") src.take_damage(W.force,W.damtype) src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) */ return /obj/mecha/proc/get_stats_html() var/output = {" [src.name] data
[src.get_stats_part()]
[src.get_equipment_list()]
[src.get_commands()] "} return output /obj/mecha/proc/get_stats_part() var/integrity = health/initial(health)*100 var/cell_charge = get_charge() var/output = {"[internal_damage&MECHA_INT_FIRE?"INTERNAL FIRE
":null] [internal_damage&MECHA_INT_TEMP_CONTROL?"LIFE SUPPORT SYSTEM MALFUNCTION
":null] [internal_damage&MECHA_INT_TANK_BREACH?"GAS TANK BREACH
":null] [internal_damage&MECHA_INT_CONTROL_LOST?"COORDINATION SYSTEM CALIBRATION FAILURE - Recalibrate
":null] [integrity<30?"DAMAGE LEVEL CRITICAL
":null] Integrity: [integrity]%
Powercell charge: [isnull(cell_charge)?"No powercell installed":"[cell.percent()]%"]
Air source: [use_internal_tank?"Internal Airtank":"Environment"]
Airtank pressure: [src.return_pressure()]kPa
Internal temperature: [src.return_temperature()]°K|[src.return_temperature() - T0C]°C
Lights: [lights?"on":"off"]
[src.dna?"DNA-locked:
[src.dna] \[Reset\]
":null] "} return output /obj/mecha/proc/get_commands() var/output = {"
Lights & Airtank
Toggle Lights
Toggle Internal Airtank Usage
[(/obj/mecha/verb/disconnect_from_port in src.verbs)?"Disconnect from port
":null] [(/obj/mecha/verb/connect_to_port in src.verbs)?"Connect to port
":null]
Permissions & Logging
Unlock ID upload panel
DNA-lock
View internal log
Change exosuit name
[get_equipment_menu()]
[(/obj/mecha/verb/eject in src.verbs)?"Eject
":null] "} return output /obj/mecha/proc/get_equipment_menu() //outputs mecha html equipment menu var/output if(equipment.len) output += {"
Equipment
"} for(var/obj/item/mecha_parts/mecha_equipment/W in equipment) output += "[W.name] Detach
" output += "Available equipment slots: [max_equip-equipment.len]" output += "
" return output /obj/mecha/proc/get_equipment_list() //outputs mecha equipment list in html if(!equipment.len) return var/output = "Equipment:
" for(var/obj/item/mecha_parts/mecha_equipment/MT in equipment) output += "
[MT.get_equip_info()]
" output += "
" return output /obj/mecha/Topic(href, href_list) ..() if(href_list["update_content"]) send_byjax(src.occupant,"exosuit.browser","content",src.get_stats_part()) return if(usr==occupant && occupant.stat>0) return if (href_list["close"]) return if (href_list["toggle_lights"]) src.toggle_lights() return if (href_list["toggle_airtank"]) src.toggle_internal_tank() return if (href_list["port_disconnect"]) src.disconnect_from_port() return if (href_list["port_connect"]) src.connect_to_port() return if (href_list["eject"]) src.eject() return if (href_list["view_log"]) src.occupant << browse(src.get_log_html(), "window=exosuit_log") onclose(occupant, "exosuit_log") return if (href_list["change_name"]) var/newname = strip_html_simple(input(occupant,"Choose new exosuit name","Rename exosuit",initial(name)) as text) if(newname && trim(newname)) name = newname else alert(occupant, "nope.avi") return if (href_list["repair_int_control_lost"]) src.occupant_message("Recalibrating coordination system.") src.log_message("Recalibration of coordination system started.") var/T = src.loc if(do_after(100)) if(T == src.loc) src.internal_damage &= ~MECHA_INT_CONTROL_LOST src.occupant_message("Recalibration successful.") src.log_message("Recalibration of coordination system finished with 0 errors.") else src.occupant_message("Recalibration failed.") src.log_message("Recalibration of coordination system failed with 1 error.",1) if(href_list["select_equip"]) var/obj/item/mecha_parts/mecha_equipment/equip = locate(href_list["select_equip"]) if(equip) src.selected = equip src.occupant_message("You switch to [equip]") src.visible_message("[src] raises [equip]") send_byjax(src.occupant,"exosuit.browser","eq_list",src.get_equipment_list()) if (href_list["unlock_id_upload"]) add_req_access = 1 if (href_list["add_req_access"]) if(!add_req_access) return var/access = text2num(href_list["add_req_access"]) operation_req_access += access output_access_dialog(locate(href_list["id_card"]),locate(href_list["user"])) if (href_list["del_req_access"]) operation_req_access -= text2num(href_list["del_req_access"]) output_access_dialog(locate(href_list["id_card"]),locate(href_list["user"])) if (href_list["finish_req_access"]) add_req_access = 0 var/mob/user = locate(href_list["user"]) user << browse(null,"window=exosuit_add_access") if(href_list["dna_lock"]) if(src.occupant) src.dna = src.occupant.dna.unique_enzymes src.occupant_message("You feel a prick as the needle takes your DNA sample.") if(href_list["reset_dna"]) src.dna = null /* if (href_list["ai_take_control"]) var/var/mob/living/silicon/ai/AI = locate(href_list["ai_take_control"]) var/duration = text2num(href_list["duration"]) var/mob/living/silicon/ai/O = new /mob/living/silicon/ai(src) var/cur_occupant = src.occupant O.invisibility = 0 O.canmove = 1 O.name = AI.name O.real_name = AI.real_name O.anchored = 1 O.aiRestorePowerRoutine = 0 O.control_disabled = 1 // Can't control things remotely if you're stuck in a card! O.laws = AI.laws O.stat = AI.stat O.oxyloss = AI.oxyloss O.fireloss = AI.fireloss O.bruteloss = AI.bruteloss O.toxloss = AI.toxloss O.updatehealth() src.occupant = O if(AI.mind) AI.mind.transfer_to(O) AI.name = "Inactive AI" AI.real_name = "Inactive AI" AI.icon_state = "ai-empty" spawn(duration) AI.name = O.name AI.real_name = O.real_name if(O.mind) O.mind.transfer_to(AI) AI.control_disabled = 0 AI.laws = O.laws AI.oxyloss = O.oxyloss AI.fireloss = O.fireloss AI.bruteloss = O.bruteloss AI.toxloss = O.toxloss AI.updatehealth() del(O) if (!AI.stat) AI.icon_state = "ai" else AI.icon_state = "ai-crash" src.occupant = cur_occupant */ return /obj/mecha/proc/drop_item()//Derpfix, but may be useful in future for engineering exosuits. return /* /obj/mecha/attack_ai(var/mob/living/silicon/ai/user as mob) if(!istype(user, /mob/living/silicon/ai)) return var/output = {"Assume direct control over [src]? Yes
"} user << browse(output, "window=mecha_attack_ai") return */ /* //it seems this is not needed anymore... /obj/mecha/hear_talk(mob/M as mob, text) src.log_message("Heard talk from [M]") if(occupant && M) if(!occupant.say_understands(M)) text = stars(text) var/rendered = "[M.name] [M.say_quote(text)]" occupant.show_message(rendered, 2) return */ /obj/mecha/proc/get_charge()//returns null if no powercell, else returns cell.charge if(!src.cell) return return max(0, src.cell.charge) /obj/mecha/proc/use_power(amount) return call((proc_res["dynusepower"]||src), "dynusepower")(amount) /obj/mecha/proc/dynusepower(amount) if(get_charge()>=amount) cell.use(amount) return 1 return 0 /obj/mecha/proc/give_power(amount) if(!isnull(get_charge())) cell.give(amount) return 1 return 0 /obj/mecha/proc/output_access_dialog(obj/item/weapon/card/id/id_card, mob/user) if(!id_card || !user) return var/output = "Following keycodes are present in this system:
" for(var/a in operation_req_access) output += "[get_access_desc(a)] - Delete
" output += "
Following keycodes were detected on portable device:
" for(var/a in id_card.access) if(a in operation_req_access) continue var/a_name = get_access_desc(a) if(!a_name) continue //there's some strange access without a name output += "[a_name] - Add
" output += "
Finish (Warning! The ID upload panel will be locked. It can be unlocked only through Exosuit Interface.)" output += "" user << browse(output, "window=exosuit_add_access") onclose(user, "exosuit_add_access") return ////////////////////////////////////////// //////// Mecha global iterators //////// ////////////////////////////////////////// /datum/global_iterator/mecha_preserve_temp //normalizing air contents temperature to 20 degrees celsium delay = 20 process(var/obj/mecha/mecha) var/datum/gas_mixture/int_tank_air = mecha.return_air() if(int_tank_air && int_tank_air.volume > 0) var/delta = int_tank_air.temperature - T20C int_tank_air.temperature -= max(-10, min(10, round(delta/4,0.1))) return /datum/global_iterator/mecha_intertial_movement //inertial movement in space delay = 7 process(var/obj/mecha/mecha as obj,direction) if(direction) if(!step(mecha, direction)||mecha.check_for_support()) src.stop() else src.stop() return /datum/global_iterator/mecha_internal_damage // processing internal damage process(var/obj/mecha/mecha) if(!mecha.internal_damage) return src.stop() var/datum/gas_mixture/int_tank_air = mecha.return_air() if(mecha.internal_damage & MECHA_INT_FIRE) if(mecha.return_pressure()>mecha.internal_tank.maximum_pressure && !(mecha.internal_damage&MECHA_INT_TANK_BREACH)) mecha.internal_damage |= MECHA_INT_TANK_BREACH if(!(mecha.internal_damage & MECHA_INT_TEMP_CONTROL) && prob(5)) mecha.internal_damage &= ~MECHA_INT_FIRE mecha.occupant_message("Internal fire extinquished.") if(int_tank_air && int_tank_air.volume>0) //heat the air_contents int_tank_air.temperature = min(6000+T0C, int_tank_air.temperature+rand(10,15)) if(int_tank_air.temperature>mecha.max_temperature/2)//we assume that the tank contents include mecha pilot compartment. mecha.take_damage(1,"fire") if(mecha.internal_damage & MECHA_INT_TEMP_CONTROL) //stop the mecha_preserve_temp loop datum mecha.pr_int_temp_processor.stop() if(mecha.internal_damage & MECHA_INT_TANK_BREACH) //remove some air from internal tank if(int_tank_air) var/datum/gas_mixture/leaked_gas = int_tank_air.remove_ratio(0.10) if(mecha.loc && hascall(mecha.loc,"assume_air")) mecha.loc.assume_air(leaked_gas) else del(leaked_gas) return