Sorry your browser is not supported!

currentnumber as int
mousedown as int

gridsize = 8
gridwidth = image width(bgimage) / gridsize
gridheight = image height(bgimage) / gridsize

DIM grid(gridwidth, gridheight) as int

do

//This checks if the mouse is held down
if (mouseclick() = 1)

	//This sees if we clicked on a button to change the number
	if (mousedown = 0)
	
		//In this block, you want to check if the mousex and mousey positions are inside
		//any of the buttons
		//If they are, set the currentnumber to that one
	
	endif
	
	//This paints onto the map
	
	//First, calculate the grid square the mouse is over by dividing the mousex and mousey positions
	//by the grid square size
	
	//Then, set the value at that position in the grid array to the currentnumber
	
	
	//This sets a flag that tells us this is not the first
	//frame the mouse has been down
	mousedown = 1
else
	//This unsets the mouse down flag if the mouse has been released
	mousedown = 0
endif

sync
loop

//This is a subroutine. If you insert it at the end of
//your code, you can call it anywhere in your program
//like this:
// gosub writedata
writedata:

//This creates a file we can write things into
file$ = "data_output.txt"
if (file exist(file$)) then delete file file$
open to write 1,file$

//This writes the size of the grid to the file (you'll probably need this when you
//try to write code to actually load the data)
write string 1,"DATA " + str$(gridwidth) + ", " + str$(gridheight)

for c = 0 to gridheight
	
	//This begins a new line of data
	currentline$ = "DATA "
	
	//This goes through an entire row of data in the grid and builds it into
	//one long DATA string, separating each of the values with a comma
	for d = 0 to gridwidth
		currentline$ = currentline$ + str$(grid(d, c))
		if (d <> gridwidth) then currentline$ = currentline$ + ", "
	next d
	
	//Finally, this writes the line we've been building to the file
	write string 1,currentline$
	
//This repeats all of the above for the next line
next c

close file 1

//Go back to wherever we were before the subroutine call
return

arrayLength = 99
dim myData$(arrayLength)

i = 0
if file exist("demo.demo") then delete file "demo.demo"
open to write 1, "demo.demo"
    repeat
    write string 1, str$(i)
        inc i
    until i > arrayLength 
close file 1

i = 0
open to read 1, "demo.demo"
    repeat
        read string 1, myData$(i)
        inc i
    until i > arrayLength 
close file 1

do
    for i = 0 to arrayLength
        print myData$(i)
    next i
    
    j = 0
    for i = 0 to arrayLength
        j = j + val(myData$(i))
    next i
    print j
    sync
loop
end

//In file: fakeSettings.cfg
//[User Name]=zeroSlave
//[User Age]=9000
//[display height]=768
//[display width]=1024

open to read 1, "fakeSettings.cfg"
repeat
    read string 1, tempString$
    select tempString$
        case left$(tempString$, 11) = "[User Age]=":
            //Fake code. Not sure on the math. Would need to test it
            uAgeS$ = RIGHT$(tempString, len(tempString$) - 11) `
            uAgeI = val(RIGHT$(tempString, len(tempString$) - 11))
        endcase
        case left$(tempString$, 12) = "[User Name]=":
            //store info
        endcase
	//etc.
    endselect
until file end(1)
close file 1