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() As actorinfo
 
Sub Aufruf()
ReDim actors(1000) As actorinfo
ActorsSave "C:\Probe", actors
ActorsLoad "C:\Probe", actors
End Sub
 
Private Sub ActorsSave(ByVal Datei As String, ByRef Feld() As actorinfo)
Dim FF1 As Integer
Dim i As Long
On Error Resume Next
Kill Datei
FF1 = FreeFile
Open Datei For Random As FF1 Len = Len(Feld(0))
For i = 0 To UBound(Feld)
    Put FF1, i + 1, Feld(i)
Next
Close FF1
End Sub
 
Private Sub ActorsLoad(ByVal Datei As String, ByRef Feld() As actorinfo)
Dim FF1 As Integer
Dim i As Long
On Error Resume Next
FF1 = FreeFile
Open Datei For Random As FF1 Len = Len(Feld(0))
ReDim Feld(LOF(FF1) / Len(Feld(0))) As actorinfo
For i = 0 To UBound(Feld)
    Get FF1, i + 1, Feld(i)
Next
Close FF1
End Sub