hi
hab es eben hinbekommen
aber trotzdem, ich würde mir writeword,writelong etc. für eine weitere amiblitzversion wünschen
die NFile lib hat solche befehle, stürzt aber leider ab, sobald
das programm kompiliert ist
hab es eben hinbekommen
Code:
Dim GameDaten.l(50)
size.l=51*4 ;einträge mal 4 bytes
;ein paar werte setzen
GameDaten(0)=20
GameDaten(1)=40
GameDaten(2)=12345
jo=OpenFile(1,"testset")
If jo
;FileOutput 1
WriteMem 1,&GameDaten(0),size
CloseFile 1
Else
NPrint "cant create file"
EndIf
;werte wieder loeschen
GameDaten(0)=0
GameDaten(1)=11 ;for test
GameDaten(2)=0
jo=ReadFile(1,"testset")
If jo
;FileInput 1 1
ReadMem 1,&GameDaten(0),size
CloseFile 1
Else
NPrint "file not found"
EndIf
;DefaultOutput
For i=0 To 2
NPrint GameDaten(i)
Next
Endaber trotzdem, ich würde mir writeword,writelong etc. für eine weitere amiblitzversion wünschen
die NFile lib hat solche befehle, stürzt aber leider ab, sobald
das programm kompiliert ist