Sorry your browser is not supported!

variables:
REM DO NOT REMOVE THE ABOVE LINE!!!

health = 100
ammo = 30
maxammo = 30
clips = 5
maxclips = 5
maxsprint = 100
showbounds = 0
set_gravity# = -0.1

REM DO NOT REMOVE THE LINE BELOW!!!
goto loadscreen

open to read 1,"test_file.txt" `Opens the file you want to read
string_one$=""
read string 1,string_one$ `Reads the first line from the txt file
string_one#=0 `A float that the string that was read into is going to be read into this float
string_one#=val(string_one$)
`As simple as that. Hopefully you understand.

 If File Exist(Filename$)
   Open To Read 1,Filename$
     Read String 1,T$: health = Val(T$)
     Read String 1,T$: ammo = Val(T$)
     Read String 1,T$: maxammo = Val(T$)
     Read String 1,T$: clips = Val(T$)
     Read String 1,T$: maxclips = Val(T$)
     Read String 1,T$: maxsprint = Val(T$)
     Read String 1,T$: showbounds = Val(T$)
     Read String 1,T$: set_gravity# = Val(T$)
     Read String 1,sens$: sensitivity# = Val(sens$)
   Close File 1
  else
 health = 100
 ammo = 30
 maxammo = 30
 clips = 5
 maxclips = 5
 maxsprint = 100
 showbounds = 0
 set_gravity# = -0.1
 sensitivity# = 3
 Endif
   endif

   yrotate object 2,object angle y(2)+mousemovex()/[b]sensitivity#[/b]
   xrotate object 2,object angle x(2)+mousemovey()/[b]sensitivity#[/b]

FileName as String : FileName="Profile.txt"
Name as String : Name="Game1"
Health as Integer : Health=30
aHealth as String

`You must always delete a file before writing to it.
If File Exist(FileName)=1 then Delete File FileName

`Write Our Data to the text file
Open to Write 1,FileName
Write string 1,Name
Write string 1, Str$(Health)
Close File 1

`Clear our Variables just to show we are actually going to get the data from the text file
Name=""
Health=0

`Read In our Data from the text file
Open to Read 1,FileName
Read String 1,Name
Read String 1,aHealth : Health=Val(aHealth)

Set Cursor 0,0 : Print "Name: ", Name
Set Cursor 0,20 : Print "Health: ", Health

wait Key