--makdm©
function net_packet_func(npc_id)
    local cl_object = level.object_by_id( npc_id )
    local s_obj = alife():object( npc_id )
  
    if cl_object then
  local packet = net_packet()
  packet:w_begin( 0 )
  s_obj:STATE_Write( packet )
  packet:r_seek( 2 )
  local money         = packet:r_s32()
  local specific_character     = packet:r_stringZ()
  local trader_flags       = packet:r_s32()
  local character_profile      = packet:r_stringZ()
  local community_index      = packet:r_s32()
  local rank         = packet:r_s32()
  local reputation       = packet:r_s32()
  local checked_characters      = packet:r_stringZ()
  local cse_alife_trader_abstract__unk2  = packet:r_u8()
  local cse_alife_trader_abstract__unk3  = packet:r_u8()
  local game_vertex_id     = packet:r_u16()
  local distance        = packet:r_float()
  local direct_control      = packet:r_s32()
  local level_vertex_id      = packet:r_s32()
  local object_flags      = packet:r_s32()
  local custom_data       = packet:r_stringZ()
  local story_id        = packet:r_s32()
  local spawn_story_id     = packet:r_s32()
  local visual_name       = packet:r_stringZ()
  local visual_flags      = packet:r_u8()
  local g_team      = packet:r_u8()
  local g_squad       = packet:r_u8()
  local g_group       = packet:r_u8()
  local health       = packet:r_float()
  local dynamic_out_restrictions  = readvu32u16( packet )
  local dynamic_in_restrictions   = readvu32u16( packet )
  local killer_id      = packet:r_u16()
  local game_death_time    = readvu8u8( packet )
  local base_out_restrictors   = packet:r_stringZ()
  local base_in_restrictors   = packet:r_stringZ()
  local smart_terrain_id    = packet:r_u16()
  local smart_terrain_task_active  = packet:r_u8()
  local equipment_preferences   = readvu32u8( packet )
  local main_weapon_preferences   = readvu32u8( packet )
  local skeleton_name     = packet:r_stringZ()
  local skeleton_flags    = packet:r_u8()
  local source_id      = packet:r_u16()
   

  packet:w_begin( 0 )
  packet:w_s32( money )
  packet:w_stringZ( specific_character )
  packet:w_s32( trader_flags )
  packet:w_stringZ( character_profile )
  packet:w_s32( community_index )
  packet:w_s32( rank )
  packet:w_s32( reputation )
  packet:w_stringZ( checked_characters )
  packet:w_u8( cse_alife_trader_abstract__unk2 )
  packet:w_u8( cse_alife_trader_abstract__unk3 )
  packet:w_u16( game_vertex_id )
  packet:w_float( distance )
  packet:w_s32( direct_control )
  packet:w_s32( level_vertex_id )
  packet:w_s32( object_flags )
  packet:w_stringZ( custom_data )
  packet:w_s32( story_id )
  packet:w_s32( spawn_story_id )
  packet:w_stringZ( new_visual )
  packet:w_u8( visual_flags )
  packet:w_u8( g_team )
  packet:w_u8( g_squad )
  packet:w_u8( g_group )
  packet:w_float( health )
  writevu32u16( packet, dynamic_out_restrictions )
  writevu32u16( packet, dynamic_in_restrictions )
  packet:w_u16( killer_id )
  writevu8u8( packet, game_death_time )
  packet:w_stringZ( base_out_restrictors )
  packet:w_stringZ( base_in_restrictors )
  packet:w_u16( smart_terrain_id )
  packet:w_u8( smart_terrain_task_active )
  writevu32u8( packet, equipment_preferences )
  writevu32u8( packet, main_weapon_preferences )
  packet:w_stringZ( skeleton_name )
  packet:w_u8( skeleton_flags )
  packet:w_u16( source_id )    
  packet:r_seek( 2 )
  s_obj:STATE_Read( packet, packet:w_tell() )

  alife ():set_switch_online    ( npc_id, false )
  alife ():set_switch_offline ( npc_id, true  )
  
  local make_offline = function()
   if not s_obj.online then
    return true
   end
  end
   
  local make_online = function()
   alife ():set_switch_online    ( npc_id, true  )
   alife ():set_switch_offline ( npc_id, false  )
  end

  level.add_call( make_offline, make_online )
    end
end
    
function readvu8u8( packet )
  local v = {}
  local len = 8
  for i = 1, len, 1 do
    table.insert( v, packet:r_u8() )
  end
  return v
end

function writevu8u8( packet, v )
  local len = 8
  for i = 1, len, 1 do
    packet:w_u8( v[ i ] )
  end
end

function readvu32u16( packet )
  local v = {}
  local len = packet:r_s32()
  for i = 1, len, 1 do
    table.insert( v, packet:r_u16() )
  end
  return v
end

function writevu32u16( packet, v )
  local len = table.getn( v )
  packet:w_s32( len )
  for i = 1, len, 1 do
    packet:w_u16( v[ i ] )
  end
end

function readvu32u8( packet )
  local v = {}
  local len = packet:r_s32()
  for i = 1, len, 1 do
    table.insert( v, packet:r_u8() )
  end
  return v
end

function writevu32u8( packet, v )
  local len = table.getn( v )
  packet:w_s32( len )
  for i = 1, len, 1 do
    packet:w_u8( v[ i ] )
  end
end