/datum/admins/proc/body_archive_panel()
if (!body_archives || !body_archives.len)
alert("No body archive has been created yet. Either nobody has spawned yet or something has gone wrong.")
return
var/dat = {"
Body Archive Panel
| Key |
Name |
Rank |
Spawn Copy |
Spawn and Transfer |
Mob Type |
"}
for (var/datum/body_archive/archive in body_archives)
dat += {"
| [archive.key] |
[archive.name] |
[archive.rank] |
\[SPAWN\] |
\[SPAWN+TRANSFER\] |
[archive.mob_type] |
"}
dat += {"
"}
usr << browse(dat, "window=bodyarchivepanel;size=860x640")