Sorry your browser is not supported!

User_Controll:
`-----------------------------Enlist new PLAYER---------
  name1 as string
 Round_  as integer
 Score as integer  

setprintsize(20) 
Setvirtualresolution(640,480)
   
If GetEditBoxExists(1)=0
CreateEditBox(1)
SetEditBoxPosition(1,250,120)
SetEditBoxCursorColor(1,0,0,0)
endif
 
do
    
     name1 = GetEditBoxText(1)
    print("")
   print("")
     
    Print ("Welcome, New Player  ")
    print (" please type your name")
    print(" and press the 'return key' ") 
        Sync()
  
  if GetRawKeyPressed(13) //  'Return Key'
exit
 endif
   loop 

 Write_name1_round_Total:   //------------------------( also is a separate goto for saving anytime later )

 file = OpenToWrite ("player1.txt",0) // ------------or put ("player1.txt",1) if you want to append to the end of each line.
sleep(20)
Writestring(file, name1)
sleep(20)
WriteInteger ( file, round_ )
sleep(20)
Writeinteger (file, Total )
sleep(20)
CloseFile ( file )
sleep(20)
SetEditBoxvisible ( 1, 0 )
setVirtualResolution(1024,768)
   
 setprintsize(28)      
  Sync()       
    
return

path as string
file as integer
data as string[]

data.insert("Data")
data.insert("More Data")
data.insert("Even More Data")
data.insert("And Even More Data")

path = "raw:" + GetReadPath() + "media\" + "TestFile.lvl"
file = OpenToWrite(path)

for i = 0 to data.length
	WriteLine(file, data[i])
	
next i

CloseFile(file)


file = OpenToRead("TestFile.lvl")

while not FileEOF(file)
	data.insert(ReadLine(file))
	
endwhile

CloseFile(file)

do
	for i = 0 to data.length
		print(data[i])
		
	next i
	
   Sync()
    
loop

end

function AnyKeyPressed()
	local flag as integer
	
	if GetRawKeyPressed(GetRawLastKey())
		flag = 1
		
	else
		flag = 0
		
	endif
	
endfunction flag


function AnyKeyReleased()
	local flag as integer
	
	if GetRawKeyReleased(GetRawLastKey())
		flag = 1
		
	else
		flag = 0
		
	endif
	
endfunction flag

while AnyKeyPressed() = 0
	sync()
	
endwhile

do
	if AnyKeyReleased() = 1
		exit
		
	endif
	
	sync()
	
loop

Type Vec3
	X As Float
	Y As Float
	Z As Float
EndType

Function NewVec3( X As Float, Y As Float, Z As Float )
	Local Output As Vec3
	
	Output.X = X
	Output.Y = Y
	Output.Z = Z
	
EndFunction Output

Type PlayerInfo
	Position As Vec3
	Rotation As Vec3
	Handle As String
	Lives As Integer
	Health As Float
EndType	

Function NewPlayerInfo( Position As Vec3, Rotation As Vec3, Handle As String, Lives As Integer, Health As Float )
	Local Output As PlayerInfo
	
	Output.Position = Position
	Output.Rotation = Rotation
	Output.Handle = Handle
	Output.Lives = Lives
	Output.Health = Health
	
EndFunction Output

Player As PlayerInfo[]

Player.Insert( NewPlayerInfo( NewVec3( 1.0, 2.0, 3.0 ), NewVec3( 1.5, 2.5, 3.5 ), "Jim", 5, 0.8 ) )
Player.Insert( NewPlayerInfo( NewVec3( 0.4, 0.2, 0.1 ), NewVec3( 1.3, 0.7, 0.4 ), "Bob", 3, 1.0 ) )
Player.Insert( NewPlayerInfo( NewVec3( 0.8, 1.6, 3.2 ), NewVec3( 3.2, 1.5, 0.5 ), "John", 9, 0.4 ) )

Player.Save( "Players.Roster" )

Player.Length = -1

For Index = 0 To Player.Length
	Print( Player[Index].Handle )
Next
Print( "Nothing should've Printed as we have a blank Array" )

Player.Load( "Players.Roster" )

For Index = 0 To Player.Length
	Print( Player[Index].Handle )
Next
Print( "Now we have our loaded information" )

// Ghetto "WaitKey()" Function
Sync()
Sleep( 5000 ) // Wait 5 Seconds

End