/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 |
Naked Copy |
Clothed Copy |
Transfer |
Mob Type |
"}
for (var/datum/body_archive/archive in body_archives)
var/archivename = archive.name
if (!archivename)
archive.name = "(blank)"
dat += {"
| [archive.key] |
[archivename] |
[archive.rank] |
\[SPAWN\] |
\[SPAWN\] |
\[TRANSFER\] |
[archive.mob_type] |
"}
dat += {"
"}
usr << browse(HTML_SKELETON(dat), "window=bodyarchivepanel;size=860x640")