mirror of
https://github.com/ParadiseSS13/Paradise.git
synced 2026-08-30 15:37:36 +01:00
Merge pull request #1106 from tigercat2000/tram2
Modular Train/Tram System: Take 2, let's not break the working tree
This commit is contained in:
ZomgPonies
@@ -0,0 +1,236 @@
|
||||
/obj/tram/ex_act(severity)
|
||||
switch(severity)
|
||||
if(1.0)
|
||||
qdel(src)
|
||||
return
|
||||
if(2.0)
|
||||
if(prob(50))
|
||||
qdel(src)
|
||||
return
|
||||
if(3.0)
|
||||
if(prob(25))
|
||||
qdel(src)
|
||||
return
|
||||
|
||||
/obj/tram/blob_act()
|
||||
if(prob(50))
|
||||
qdel(src)
|
||||
|
||||
/obj/tram/meteorhit()
|
||||
qdel(src)
|
||||
|
||||
/obj/tram/attack_animal(var/mob/living/simple_animal/M as mob)
|
||||
if(M.melee_damage_upper == 0) return
|
||||
if(prob(M.melee_damage_upper))
|
||||
qdel(src)
|
||||
src.visible_message("\red <B>[M] has [M.attacktext] [src]!</B>")
|
||||
M.attack_log += text("\[[time_stamp()]\] <font color='red'>attacked [src.name]</font>")
|
||||
|
||||
/obj/tram/bullet_act(var/obj/item/projectile/proj)
|
||||
if(prob(proj.damage))
|
||||
qdel(src)
|
||||
..()
|
||||
|
||||
/obj/tram/tram_controller
|
||||
name = ""
|
||||
desc = "tram controller"
|
||||
anchored = 1
|
||||
|
||||
var/list/tram_floors = list()
|
||||
var/list/tram_walls = list()
|
||||
var/list/controllers = list()
|
||||
|
||||
var/list/tram = list()
|
||||
|
||||
var/list/collide_list = list()
|
||||
|
||||
var/list/stored_anchor = list()
|
||||
var/last_played_rail
|
||||
|
||||
var/automode = 0
|
||||
var/list/blacklist = list(/obj/tram/rail,/atom/movable/lighting_overlay)
|
||||
|
||||
/obj/tram/tram_controller/New()
|
||||
spawn(1)
|
||||
init_floors() //Search and link floors
|
||||
init_walls() //Search and link walls
|
||||
spawn(1)
|
||||
init_tram() //Combine walls and floors and anything inside the tram
|
||||
init_controllers() //Find control pads
|
||||
gen_collision() //Generate collision system
|
||||
processing_objects.Add(src) //Add to processing objects manually
|
||||
|
||||
/obj/tram/tram_controller/Destroy()
|
||||
for(var/obj/tram/floor/F in tram_floors)
|
||||
remove_floor(F)
|
||||
for(var/obj/tram/wall/TW in tram_walls)
|
||||
remove_wall(TW)
|
||||
for(var/obj/tram/controlpad/CP in controllers)
|
||||
remove_controller(CP)
|
||||
..()
|
||||
|
||||
/obj/tram/tram_controller/emp_act(severity)
|
||||
if(automode) automode = 0
|
||||
..()
|
||||
|
||||
/obj/tram/tram_controller/process()
|
||||
update_tram() //Update combine to account for new mobs and/or objects
|
||||
if(automode)
|
||||
tram_rail_follow()
|
||||
|
||||
/obj/tram/tram_controller/proc/update_tram()
|
||||
tram.Cut()
|
||||
init_tram()
|
||||
|
||||
/obj/tram/tram_controller/proc/tram_rail_follow()
|
||||
var/stored_rail = null
|
||||
for(var/obj/tram/rail/RT in get_turf(src))
|
||||
if(RT.godir)
|
||||
handle_move(RT.godir)
|
||||
last_played_rail = RT
|
||||
return
|
||||
stored_rail = RT
|
||||
for(var/cdir in cardinal)
|
||||
for(var/obj/tram/rail/R in get_step(src,cdir))
|
||||
if(!istype(R)) continue
|
||||
if(R != last_played_rail)
|
||||
handle_move(get_dir(src,R))
|
||||
last_played_rail = stored_rail
|
||||
|
||||
//INITIALIZATION PROCS
|
||||
|
||||
/obj/tram/tram_controller/proc/init_floors()
|
||||
var/turf/T = get_turf(src)
|
||||
if(!T) return
|
||||
var/obj/tram/floor/TTF = locate(/obj/tram/floor) in T
|
||||
if(istype(TTF)) add_floor(TTF) //Find and link floor on controller turf
|
||||
for(var/cdir in cardinal)
|
||||
var/turf/T2 = get_step(T,cdir)
|
||||
var/obj/tram/floor/TF = locate(/obj/tram/floor) in T2
|
||||
if(istype(TF))
|
||||
if(TF in tram_floors) continue
|
||||
add_floor(TF) //Find and link all cardinally surrounding floors
|
||||
spawn(1)
|
||||
TF.spread_floors() //Do the same thing over again from the floor itself
|
||||
|
||||
/obj/tram/tram_controller/proc/init_walls()
|
||||
var/turf/T = get_turf(src)
|
||||
if(!T) return
|
||||
if(!tram_floors.len) return
|
||||
var/obj/tram/floor/TTW = locate(/obj/tram/wall) in T //Find and link wall on controller turf
|
||||
if(istype(TTW)) add_wall(TTW)
|
||||
for(var/obj/tram/floor/TF in tram_floors)
|
||||
for(var/cdir in cardinal)
|
||||
var/obj/tram/wall/TW = locate(/obj/tram/wall) in get_step(TF,cdir)
|
||||
if(istype(TW))
|
||||
if(TW in tram_walls) continue
|
||||
add_wall(TW) //Find and link all cardinally surrounding walls
|
||||
spawn(1)
|
||||
TW.spread_walls() //Do the same thing over again from the wall itself
|
||||
|
||||
/obj/tram/tram_controller/proc/init_tram()
|
||||
tram = tram_floors + tram_walls //Tram is everything that makes up the tram
|
||||
for(var/obj/tram/OT in tram)
|
||||
var/turf/T = get_turf(OT)
|
||||
for(var/atom/movable/AM in T) //Including anything inside of it
|
||||
if(AM in tram) continue
|
||||
if(!check_validity(AM)) continue
|
||||
tram += AM
|
||||
if(!(src in tram))
|
||||
tram += src
|
||||
|
||||
/obj/tram/tram_controller/proc/check_validity(var/atom/movable/AM)
|
||||
if(!AM) return 0
|
||||
if(is_type_in_list(AM, blacklist)) return 0
|
||||
if(!AM.simulated) return 0
|
||||
if(AM.anchored)
|
||||
if(istype(AM,/obj/tram) || istype(AM,/obj/vehicle))
|
||||
return 1
|
||||
return 0
|
||||
return 1
|
||||
|
||||
/obj/tram/tram_controller/proc/init_controllers()
|
||||
for(var/obj/tram/controlpad/CCP in tram)
|
||||
add_controller(CCP) //Control pad not necessary until now, easiest to search through tram
|
||||
|
||||
//SYNC PROCS
|
||||
//These procs are used for un/linking floors, walls, and control pads to the central tram controller
|
||||
|
||||
/obj/tram/tram_controller/proc/add_floor(var/obj/tram/floor/TF)
|
||||
if(!istype(TF)) return
|
||||
if(TF in tram_floors) return
|
||||
tram_floors += TF
|
||||
TF.controller = src
|
||||
|
||||
/obj/tram/tram_controller/proc/remove_floor(var/obj/tram/floor/TF)
|
||||
if(!istype(TF)) return
|
||||
if(TF in tram_floors)
|
||||
tram_floors -= TF
|
||||
TF.controller = null
|
||||
|
||||
/obj/tram/tram_controller/proc/add_wall(var/obj/tram/wall/TW)
|
||||
if(!istype(TW)) return
|
||||
if(TW in tram_walls) return
|
||||
tram_walls += TW
|
||||
TW.controller = src
|
||||
|
||||
/obj/tram/tram_controller/proc/remove_wall(var/obj/tram/wall/TW)
|
||||
if(!istype(TW)) return
|
||||
if(TW in tram_walls)
|
||||
tram_walls -= TW
|
||||
TW.controller = null
|
||||
|
||||
/obj/tram/tram_controller/proc/add_controller(var/obj/tram/controlpad/CCT)
|
||||
if(!istype(CCT)) return
|
||||
if(CCT in controllers) return
|
||||
controllers += CCT
|
||||
CCT.tram_linked = src
|
||||
|
||||
/obj/tram/tram_controller/proc/remove_controller(var/obj/tram/controlpad/CCT)
|
||||
if(!istype(CCT)) return
|
||||
if(CCT in controllers)
|
||||
controllers -= CCT
|
||||
CCT.tram_linked = null
|
||||
|
||||
//COLLISION & MOVEMENT
|
||||
//Collision detection system to prevent going through walls
|
||||
//Tram does not use built-in byond Move(), it uses it's own logic and then forceMove()s itself.
|
||||
|
||||
/obj/tram/tram_controller/proc/gen_collision()
|
||||
collide_list.Cut()
|
||||
var/list/collisions = list()
|
||||
for(var/obj/tram/wall/W in tram_walls)
|
||||
for(var/cdir in cardinal)
|
||||
var/turf/T = get_step(W, cdir)
|
||||
if(istype(T))
|
||||
if(T.density)
|
||||
collisions += cdir
|
||||
if(!T.density)
|
||||
for(var/atom/movable/A in T)
|
||||
if(A.density)
|
||||
if(tram.Find(A)) continue
|
||||
collisions += cdir
|
||||
for(var/obj/tram/floor/F in tram_floors)
|
||||
for(var/cdir in cardinal)
|
||||
var/turf/T = get_step(F, cdir)
|
||||
if(istype(T))
|
||||
if(T.density)
|
||||
collisions += cdir
|
||||
if(!T.density)
|
||||
for(var/atom/movable/A in T)
|
||||
if(A.density)
|
||||
if(tram.Find(A)) continue
|
||||
collisions += cdir
|
||||
collide_list = collisions
|
||||
|
||||
/obj/tram/tram_controller/proc/handle_move(var/dir)
|
||||
gen_collision() //Look for collisions
|
||||
if(dir in collide_list) //Prevent moving if there are collisions in that direction
|
||||
return 0
|
||||
for(var/atom/movable/A in tram)
|
||||
var/turf/T = get_step(A,dir)
|
||||
A.forceMove(T) //Move everything inside the tram and the tram itself manually
|
||||
if(A.light_range)
|
||||
A.set_light()
|
||||
gen_collision() //Generate collision again
|
||||
return 1
|
||||
@@ -0,0 +1,31 @@
|
||||
/obj/tram/controlpad
|
||||
name = "tram controller interface"
|
||||
desc = "Controls a tram."
|
||||
icon = 'icons/obj/airlock_machines.dmi'
|
||||
icon_state = "airlock_control_standby"
|
||||
var/obj/tram/tram_controller/tram_linked
|
||||
var/list/cdir2readable = list("North","South",null,"East",null,null,null,"West")
|
||||
|
||||
/obj/tram/controlpad/attack_hand(var/mob/user)
|
||||
usr.set_machine(src)
|
||||
if(!tram_linked) return
|
||||
var/dat = "Tram Controller"
|
||||
dat += "<br>Tram engine: <a href=?src=\ref[src];engine_toggle=1>[tram_linked.automode ? "<font color='green'>On</font>" : "<font color='red'>Off</font>"]</a>"
|
||||
dat += "<br><A href='?src=\ref[src];close=1'>Close console</A>"
|
||||
user << browse(dat, "window=trampad")
|
||||
onclose(user,"trampad")
|
||||
|
||||
/obj/tram/controlpad/Topic(href, href_list)
|
||||
if(..())
|
||||
usr << browse(null, "window=publiclibrary")
|
||||
onclose(usr, "publiclibrary")
|
||||
return
|
||||
|
||||
if(href_list["engine_toggle"])
|
||||
tram_linked.automode = !tram_linked.automode
|
||||
else if(href_list["close"])
|
||||
usr.unset_machine()
|
||||
usr << browse(null, "window=trampad")
|
||||
|
||||
src.add_fingerprint(usr)
|
||||
src.updateUsrDialog()
|
||||
@@ -0,0 +1,20 @@
|
||||
/obj/tram/floor
|
||||
name = "tram platform"
|
||||
desc = "A holding space for a tram system."
|
||||
icon = 'icons/turf/floors.dmi'
|
||||
icon_state = "floor"
|
||||
var/obj/tram/tram_controller/controller
|
||||
anchored = 1
|
||||
layer = TURF_LAYER + 0.2
|
||||
|
||||
/obj/tram/floor/proc/spread_floors()
|
||||
var/turf/T = get_turf(src)
|
||||
if(!T) return
|
||||
if(!controller) return
|
||||
for(var/cdir in cardinal)
|
||||
var/turf/T2 = get_step(T,cdir)
|
||||
var/obj/tram/floor/TF = locate(/obj/tram/floor) in T2
|
||||
if(istype(TF))
|
||||
if(TF in controller.tram_floors) continue
|
||||
controller.add_floor(TF)
|
||||
TF.spread_floors()
|
||||
@@ -0,0 +1,7 @@
|
||||
/obj/tram/rail
|
||||
name = "tram rail"
|
||||
desc = "A guiding rail for trams"
|
||||
icon = 'icons/obj/tram/tram_rail.dmi'
|
||||
icon_state = "rail"
|
||||
var/godir = null
|
||||
layer = TURF_LAYER + 0.1
|
||||
@@ -0,0 +1,21 @@
|
||||
/obj/tram/wall
|
||||
name = "reinforced tram wall"
|
||||
desc = "A huge chunk of reinforced metal used to shield a tram system."
|
||||
icon = 'icons/turf/walls.dmi'
|
||||
icon_state = "r_wall"
|
||||
var/obj/tram/tram_controller/controller
|
||||
anchored = 1
|
||||
density = 1
|
||||
opacity = 1
|
||||
|
||||
/obj/tram/wall/proc/spread_walls()
|
||||
var/turf/T = get_turf(src)
|
||||
if(!T) return
|
||||
if(!controller) return
|
||||
for(var/cdir in cardinal)
|
||||
var/turf/T2 = get_step(T,cdir)
|
||||
var/obj/tram/wall/TW = locate(/obj/tram/wall) in T2
|
||||
if(istype(TW))
|
||||
if(TW in controller.tram_walls) continue
|
||||
controller.add_wall(TW)
|
||||
TW.spread_walls()
|
||||
Reference in New Issue
Block a user