Write(savefile/F)
..()
if(istype(usr,/mob/Boats))
var/mob/Boats/A = src
F.name = A.name2
F["last_x"] << x
F["last_y"] << y
F["last_z"] << z
for(var/mob/Boats/B in src.Ships)
F["[B]_x"] << B.x
F["[B]_y"] << B.y
F["[B]_z"] << B.z
world<<"[B.x],[B.y],[B.z] = [B].loc!"
Read(savefile/F)
..()
var/last_x
var/last_y
var/last_z
F["last_x"] >> last_x
F["last_y"] >> last_y
F["last_z"] >> last_z
loc = locate(last_x, last_y, last_z)
for(var/mob/Boats/B in src.Ships)
var/B_x
var/B_y
var/B_z
F["[B]_x"] >> B_x
F["[B]_y"] >> B_y
F["[B]_z"] >> B_z
B.loc = locate(B_x,B_y,B_z)
PortCheck(B)
Thank you for your time!
~Ease~