Sorry your browser is not supported!

// Project: test-array 
// Created: 2019-11-28

SetErrorMode( 2 )
SetWindowTitle( "test-array" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )
SetVirtualResolution( 1024, 768 )
SetVSync( 1 )
UseNewDefaultFonts( 1 )

Global saveDir$ as String = "AGK_LOGFILE"

do
    
	if GetRawKeyPressed(74)		rem  on pressing J
    print ("J is pressed")
    log_add("Hi! Nice day!")
  endif
    
  Sync()
loop



rem  this function is called each time a sprint has been finished
function log_add(new$ as string )
	
	logFile as Integer
	log$ as String[0]
	
	rem if the file doesn't exits, it must be created
	if GetFileExists( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt" ) = 0
		MakeFolder("raw:" + GetDocumentsPath () + "\" + saveDir$)
		logFile = OpenToWrite( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")
		WriteLine(logFile, chr(10) )
		Closefile(logFile)
	endif
	
	rem  load file
	logFile = OpenToRead( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")

	rem add new entry
	log$.insert(new$ )

	rem add old entries
	repeat
		log$.insert(ReadLine( logFile ))
	until FileEOF(logFile) = 1

	Closefile(logFile)
	

	
	logFile = OpenToWrite( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")
	
	a as integer
	for a = 1 to log$.length-1
		WriteLine(logFile, log$[a])
	next
	Closefile(logFile)
	

endfunction

function log_add(new$ as string )
	
	log_array as string[]
	
	//----------------------------------------------------------------------------------------
    if GetFileExists( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt" ) = 0
        MakeFolder("raw:" + GetDocumentsPath () + "\" + saveDir$)
        logFile = OpenToWrite( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")
        Closefile(logFile)
    endif
	
	//----------------------------------------------------------------------------------------	
    logFile = OpenToRead( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")
    log_array.insert(new$ )
    repeat
		line$=ReadLine(logFile)
		if len(line$) <> 0
			log_array.insert(line$)
		endif
    until FileEOF(logFile) = 1
    CloseFile(logFile)
     
	//----------------------------------------------------------------------------------------
    logFile = OpenToWrite( "raw:" + GetDocumentsPath () + "\" + saveDir$ + "\log.txt")
    for i = 0 to log_array.length
		WriteLine(logFile, log_array[i])
    next i
    CloseFile(logFile)
 
endfunction

function logadd(new$ as string )
	
	logfile = opentowrite("raw:" + GetDocumentsPath () + "\AGK_LOGFILE\log.txt",1)
	SetFilePos(logfile,GetFileSize(logfile))   // set the write position to the end of the file
	WriteLine(logFile, new$)
	Closefile(logfile)
	
endfunction