//wrapper /proc/do_teleport(ateleatom, adestination, aprecision=0, afteleport=1, aeffectin=null, aeffectout=null, asoundin=null, asoundout=null, bypass_area_flag=FALSE) var/datum/teleport/instant/science/D = new if(D.start(arglist(args))) return 1 return 0 /datum/teleport var/atom/movable/teleatom //atom to teleport var/atom/destination //destination to teleport to var/precision = 0 //teleport precision var/datum/effect_system/effectin //effect to show right before teleportation var/datum/effect_system/effectout //effect to show right after teleportation var/soundin //soundfile to play before teleportation var/soundout //soundfile to play after teleportation var/force_teleport = 1 //if false, teleport will use Move() proc (dense objects will prevent teleportation) var/ignore_area_flag = FALSE /datum/teleport/proc/start(ateleatom, adestination, aprecision=0, afteleport=1, aeffectin=null, aeffectout=null, asoundin=null, asoundout=null, bypass_area_flag=FALSE) if(!initTeleport(arglist(args))) return 0 return 1 /datum/teleport/proc/initTeleport(ateleatom, adestination, aprecision, afteleport, aeffectin, aeffectout, asoundin, asoundout, bypass_area_flag=FALSE) if(!setTeleatom(ateleatom)) return 0 if(!setDestination(adestination)) return 0 if(!setPrecision(aprecision)) return 0 setEffects(aeffectin,aeffectout) setForceTeleport(afteleport) setSounds(asoundin,asoundout) ignore_area_flag = bypass_area_flag return 1 //must succeed /datum/teleport/proc/setPrecision(aprecision) if(isnum(aprecision)) precision = aprecision return 1 return 0 //must succeed /datum/teleport/proc/setDestination(atom/adestination) if(istype(adestination)) destination = adestination return 1 return 0 //must succeed in most cases /datum/teleport/proc/setTeleatom(atom/movable/ateleatom) if(istype(ateleatom, /obj/effect) && !istype(ateleatom, /obj/effect/dummy/chameleon)) qdel(ateleatom) return 0 if(istype(ateleatom)) teleatom = ateleatom return 1 return 0 //custom effects must be properly set up first for instant-type teleports //optional /datum/teleport/proc/setEffects(datum/effect_system/aeffectin=null,datum/effect_system/aeffectout=null) effectin = istype(aeffectin) ? aeffectin : null effectout = istype(aeffectout) ? aeffectout : null return 1 //optional /datum/teleport/proc/setForceTeleport(afteleport) force_teleport = afteleport return 1 //optional /datum/teleport/proc/setSounds(asoundin=null,asoundout=null) soundin = isfile(asoundin) ? asoundin : null soundout = isfile(asoundout) ? asoundout : null return 1 //placeholder /datum/teleport/proc/teleportChecks() return 1 /datum/teleport/proc/playSpecials(atom/location,datum/effect_system/effect,sound) if(location) if(effect) src = null effect.attach(location) effect.start() if(sound) src = null playsound(location,sound,60,1) return //do the monkey dance /datum/teleport/proc/doTeleport() var/turf/destturf var/turf/curturf = get_turf(teleatom) var/area/curarea = get_area(curturf) if(precision) var/list/posturfs = list() var/center = get_turf(destination) if(!center) center = destination for(var/turf/T in range(precision,center)) posturfs.Add(T) destturf = safepick(posturfs) else destturf = get_turf(destination) if(!is_teleport_allowed(destturf.z) && !ignore_area_flag) return 0 // Only check the destination zlevel for is_teleport_allowed. Checking origin as well breaks ERT teleporters. var/area/destarea = get_area(destturf) if(!ignore_area_flag) if(curarea.tele_proof) return 0 if(destarea.tele_proof) return 0 if(!destturf || !curturf) return 0 playSpecials(curturf,effectin,soundin) if(force_teleport) teleatom.forceMove(destturf) playSpecials(destturf,effectout,soundout) else if(teleatom.Move(destturf)) playSpecials(destturf,effectout,soundout) if(isliving(teleatom)) var/mob/living/L = teleatom if(L.buckled) L.buckled.unbuckle_mob(L, force = TRUE) if(L.has_buckled_mobs()) L.unbuckle_all_mobs(force = TRUE) destarea.Entered(teleatom) return 1 /datum/teleport/proc/teleport() if(teleportChecks()) return doTeleport() return 0 /datum/teleport/instant/start(ateleatom, adestination, aprecision=0, afteleport=1, aeffectin=null, aeffectout=null, asoundin=null, asoundout=null) if(..()) if(teleport()) return 1 return 0 /datum/teleport/instant/science /datum/teleport/instant/science/setEffects(datum/effect_system/aeffectin,datum/effect_system/aeffectout) if(aeffectin==null || aeffectout==null) var/datum/effect_system/spark_spread/aeffect = new aeffect.set_up(5, 1, teleatom) effectin = effectin || aeffect effectout = effectout || aeffect return 1 else return ..() /datum/teleport/instant/science/setPrecision(aprecision) ..() if(!is_admin_level(destination.z)) if(istype(teleatom, /obj/item/storage/backpack/holding)) precision = rand(1, 100) var/list/bagholding = teleatom.search_contents_for(/obj/item/storage/backpack/holding) if(bagholding.len) precision = max(rand(1, 100)*bagholding.len, 100) if(istype(teleatom, /mob/living)) var/mob/living/MM = teleatom to_chat(MM, "The bluespace interface on your bag of holding interferes with the teleport!") return 1 // Safe location finder /proc/find_safe_turf(zlevel, list/zlevels, extended_safety_checks = FALSE) if(!zlevels) if(zlevel) zlevels = list(zlevel) else zlevels = levels_by_trait(STATION_LEVEL) var/cycles = 1000 for(var/cycle in 1 to cycles) // DRUNK DIALLING WOOOOOOOOO var/x = rand(1, world.maxx) var/y = rand(1, world.maxy) var/z = pick(zlevels) var/random_location = locate(x,y,z) if(!isfloorturf(random_location)) continue var/turf/simulated/floor/F = random_location if(!F.air) continue var/datum/gas_mixture/A = F.air // Can most things breathe? if(A.sleeping_agent) continue if(A.oxygen < 16) continue if(A.toxins) continue if(A.carbon_dioxide >= 10) continue // Aim for goldilocks temperatures and pressure if((A.temperature <= 270) || (A.temperature >= 360)) continue var/pressure = A.return_pressure() if((pressure <= 20) || (pressure >= 550)) continue if(extended_safety_checks) if(islava(F)) //chasms aren't /floor, and so are pre-filtered var/turf/simulated/floor/plating/lava/L = F if(!L.is_safe()) continue // DING! You have passed the gauntlet, and are "probably" safe. return F