PlayerSaver

$snapshot{ ## (player) -> PlayerSnapshot
    <Entity>
    DUP ISPLAYER IF
        @PlayerSnapshot NEW
    ELSE
        DROP NULL
    THEN
}

%PlayerSnapshot{ ## (player)
    %%player
    @player GAMEMODE %%gm
    @player NBT %%nbt
    @player SCOREBOARD %%board
    @player <Location> %%loc
    $player{@player}
    $restore{
        @player
         @board SETSCOREBOARD
         @gm SETGAMEMODE
         DUP "SelectedItemSlot" NBTQUERY %slot
         @nbt SETNBT
         @loc TPTO
         @slot "SelectedItemSlot" SETNBTQUERY
         0 SETFALLDISTANCE
         0 SETFIRE
        DROP
    }
}