---- Shared corpsey stuff

CORPSE = CORPSE or {}

-- Manual datatable indexing
CORPSE.dti = {
   BOOL_FOUND = 0,

   ENT_PLAYER = 0,

   INT_CREDITS = 0
};

local dti = CORPSE.dti
--- networked data abstraction
function CORPSE.GetFound(rag, default)
   return rag and rag:GetDTBool(dti.BOOL_FOUND) or default
end

function CORPSE.GetPlayerNick(rag, default)
   if not IsValid(rag) then return default end

   local ply = rag:GetDTEntity(dti.ENT_PLAYER)
   if IsValid(ply) then
      return ply:Nick()
   else
      return rag:GetNWString("nick", default)
   end
end

function CORPSE.GetPlayerID(rag, default)
   if not IsValid(rag) then return default end

   local ply = rag:GetDTEntity(dti.ENT_PLAYER)
   if IsValid(ply) then
      return ply:SteamID()
   else
      return ""
   end
end

function CORPSE.GetCredits(rag, default)
   if not IsValid(rag) then return default end
   return rag:GetDTInt(dti.INT_CREDITS)
end