Private Type vdir3d
    x1 As Integer
    y1 As Integer
    z1 As Integer
End Type
 
Private Type actorinfo
 
    pos As vdir3d
    pos_view As vdir3d
    focus_mouse As Integer
    skill1 As Integer
    skill2 As Integer
    skill3 As Integer
    skill4 As Integer
    skill5 As Integer
    player_buffs As Integer
    player_weapons As Integer
    player_equip As Integer
    Player_ident As Integer
    player_name As String
    player_gilde As String
    emty1 As Integer
    emty2 As Integer
    emty3 As Integer
    emty4 As Integer
    emty5 As Integer
    emty6 As Integer
    emty7 As Integer
    emty8 As Integer
End Type
 
Private actors(1000) As actorinfo
 
Sub savear()
SaveArray App.Path & "/players.dat", actors()
End Sub
Public Sub SaveArray(ByVal sFile As String, vArray As Variant)
  Dim F As Integer
  Dim nCount As Long
 
 
  If Dir$(sFile) <> "" Then Kill sFile 'del
 
 
  F = FreeFile
  Open sFile For Binary As #F
   Put #F, , vArray
  Close #F
End Sub