load_packet.ew

global function load_packet_write(integer client,integer id)
  sequence data,temp
  data={}

  data=writeint(data,id)
  data=writebyte(data,0)

  temp=reverse(int_to_bytes(length(data)+5)) &load_packet

  data=rc4_arcfour_encrypt_block(client_list[client][client_rc4_2],data)
  return temp & data
end function


global function create_packet_write(integer client)
  sequence data,temp
  data={}

  data=writeshort(data,client_list[client][client_create_object_type])
  data=writeshort(data,0)

  temp=reverse(int_to_bytes(length(data)+5)) &create_packet

  data=rc4_arcfour_encrypt_block(client_list[client][client_rc4_2],data)

  return temp & data
end function