ok, so I want to know if my code can be done difrently, as you can see in my code im saving all my data, well is there a way to put my data in a type then just save and load the type with real values. or is there a better way to change my code in a dim array then save the array.code bellow, thanks
if keystate(31)=1
if file exist(name$+".dat")=1 then delete file name$+".dat"
open to write 1,name$+".dat"
for x=1 to 5000
if object exist (x)
x#=object position x(x)
y#=object position y(x)
z#=object position z(x)
ax#=object angle x(x)
ay#=object angle y(x)
az#=object angle z(x)
c1#=camera position x(0)
c2#=camera position y(0)
c3#=camera position z(0)
write float 1,x#
write float 1,y#
write float 1,z#
write float 1,ax#
write float 1,ay#
write float 1,az#
write float 1,c1#
write float 1,c2#
write float 1,c3#
write long 1,game1percent
write long 1,coloff1
write long 1,stall
write long 1,searchradio
write long 1,nextinfologs
write long 1,nextinfolog
write long 1,searchradio
write long 1,nextinfologs2
write long 1,entertosearch
write long 1,searchradio
write long 1,searchresponce
write long 1,entertosearch
write long 1,searched
write long 1,haslockerkey
write long 1,searchlocker
write long 1,searchinglocker
write long 1,needkey
write long 1,openlocker
write long 1,lockertext
write long 1,lockersopenednow
write long 1,showlockertext
write long 1,foundKEY1
write long 1,lockeropenidle
write long 1,takebagout
write long 1,takebag
write long 1,openbag
write long 1,searchjunk
write long 1,searchingjunk
write long 1,junktext
write long 1,haslockerkey
write long 1,searchplainingroom
write long 1,searchingplaningroomd
write long 1,warroom
write long 1,hideobject1
write long 1,hideobject2
write long 1,hideobject3
write long 1,hideobject4
write long 1,hideobject5
write long 1,hideobject6
write long 1,hideobject7
write long 1,hideobject8
write long 1,hideobject9
write long 1,hideobject10
write long 1,hideobject11
endif
next x
wait 3000
text 350,350,"saved successsully"
close file 1
endif
if keystate(38)=1
if file exist (name$+".dat")=1
open to read 1,name$+".dat"
for x=1 to 5000
if object exist (x)
read float 1,x#
read float 1,y#
read float 1,z#
read float 1,ax#
read float 1,ay#
read float 1,az#
read float 1,c1#
read float 1,c2#
read float 1,c3#
read long 1,game1percent
read long 1,coloff1
read long 1,stall
read long 1,searchradio
read long 1,nextinfologs
read long 1,nextinfolog
read long 1,searchradio
read long 1,nextinfologs2
read long 1,entertosearch
read long 1,searchradio
read long 1,searchresponce
read long 1,entertosearch
read long 1,searched
read long 1,haslockerkey
read long 1,searchlocker
read long 1,searchinglocker
read long 1,needkey
read long 1,openlocker
read long 1,lockertext
read long 1,lockersopenednow
read long 1,showlockertext
read long 1,foundKEY1
read long 1,lockeropenidle
read long 1,takebagout
read long 1,takebag
read long 1,openbag
read long 1,searchjunk
read long 1,searchingjunk
read long 1,junktext
read long 1,haslockerkey
read long 1,searchplainingroom
read long 1,searchingplaningroomd
read long 1,warroom
read long 1,hideobject1
read long 1,hideobject2
read long 1,hideobject3
read long 1,hideobject4
read long 1,hideobject5
read long 1,hideobject6
read long 1,hideobject7
read long 1,hideobject8
read long 1,hideobject9
read long 1,hideobject10
read long 1,hideobject11
position object x,x#,y#,z#
position camera 0,c1#,c2#,c3#
xrotate object x,ax#
yrotate object x,ay#
zrotate object x,az#
endif
next x
game1percent=game1percent
coloff1=coloff1
stall=stall
searchradio=searchradio
nextinfologs=nextinfologs
nextinfolog=nextinfolog
searchradio=searchradio
nextinfologs2=nextinfologs2
entertosearch=entertosearch
searched=searched
haslockerkey=haslockerkey
searchlocker=searchlocker
searchinglocker=searchinglocker
needkey=needkey
openlocker=openlocker
lockertext=lockertext
lockersopenednow=lockersopenednow
showlockertext=showlockertext
foundKEY1=foundKEY1
lockeropenidle=lockeropenidle
takebagout=takebagout
takebag=takebag
openbag=openbag
searchjunk=searchjunk
searchingjunk=searchingjunk
junktext=junktext
haslockerkey=haslockerkey
searchplainingroom=searchplainingroom
searchingplaningroomd=searchingplaningroomd
warroom=warroom
hideobject1=hideobject1
hideobject2=hideobject2
hideobject3=hideobject3
hideobject4=hideobject4
hideobject5=hideobject5
hideobject6=hideobject6
hideobject7=hideobject7
hideobject8=hideobject8
hideobject9=hideobject9
hideobject10=hideobject10
hideobject11=hideobject11
close file 1
endif
endif
