Sorry your browser is not supported!

for i = 1 to answer[1]
		sprite[i] = createsprite(0)
		setspritesize(sprite[i], random(50,100), random(50,100))
		SetSpriteColor(sprite[i], random(10,255), random(10,255), random(10,255), 255)
		setspriteposition(sprite[i], random(24, 1000), random(24, 500))
next i

function generateimage()
	
	if imgsteps = 1
		
	for i = 1 to answer[1]
		sprite[i] = createsprite(0)
		setspritesize(sprite[i], random(50,100), random(50,100))
		SetSpriteColor(sprite[i], random(10,255), random(10,255), random(10,255), 255)
		setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		
		for j = 1 to i
		if getspritecollision(sprite[j], sprite[i]) = 1 then setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		if getspritecollision(sprite[j], sprite[i]) = 1 then setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		next j
		
	next i
	answersteps = 1
	imgsteps = 2
	
	endif
		
endfunction	

// Project: numberID 
// Created: 2018-01-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "numberID" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


global answer as integer[3]

global sprite as integer [9]

global imgsteps as integer

global steps as integer

global answersteps as integer

global randspot as integer [3]

global timeclock as integer

global score as integer

steps = 1
answersteps = 0
highscore = 0
do
    if score > highscore then highscore = score
    
    generatemath()
	generateimage()
    generatebuttons()
    print("Score: " + str(score))
    print("Highscore: " + str(highscore))
    Sync()
loop

function generatemath ()
	
	if steps = 1 
		answer[1] = random(1,9)
		steps = 2
	endif
	
	if steps = 2
		answer[2] = random(1,9)
		steps = 3
	endif
	
	if steps = 3
		if answer[2] = answer[1] 
			steps = 2
		elseif answer[2] <> answer[1]
			steps = 4
		endif
	endif
	
	if steps = 4
		answer[3] = random(1,9)
		steps = 5
	endif
	
	if steps = 5
		if answer[3] = answer[2] 
			 steps = 4
		elseif answer[3] = answer[1] 
			steps = 4
		endif
		
		if answer[3] <> answer[2] and answer[3] <> answer[1]
			imgsteps = 1
			steps = 6
		endif
	endif
	
	if steps = 6
		//print(answer[1])
		//print(answer[2])
		//print(answer[3])
		//print("steps " + str(steps))
		//print("imgsteps " + str(imgsteps))
		//print("answersteps " + str(answersteps))
	endif
endfunction
	
function generateimage()
	
	if imgsteps = 1
		
	for i = 1 to answer[1]
		sprite[i] = createsprite(0)
		setspritesize(sprite[i], random(50,100), random(50,100))
		SetSpriteColor(sprite[i], random(10,255), random(10,255), random(10,255), 255)
		setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		
		for j = 1 to i
		if getspritecollision(sprite[j], sprite[i]) = 1 then setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		if getspritecollision(sprite[j], sprite[i]) = 1 then setspriteposition(sprite[i], random(24, 1000), random(24, 500))
		next j
		
	next i
	answersteps = 1
	imgsteps = 2
	
	endif
		
endfunction	
		
function generatebuttons ()
	
	if answersteps = 1
		randspot[1] = random(1,3)
		answersteps = 2
	endif
	
	if answersteps = 2
		randspot[2] = random(1,3)
		answersteps = 3
	endif
	
	if answersteps = 3
		if randspot[2] = randspot[1] 
			answersteps = 2
		elseif randspot[2] <> randspot[1] then answersteps = 4
	endif
	
	if answersteps = 4
		randspot[3] = random(1,3)
		answersteps = 5
	endif
	
	if answersteps = 5
		if randspot[3] = randspot[1]
			answersteps = 4
		elseif randspot[3] = randspot[2]
			answersteps = 4
		endif
		if randspot[3] <> randspot[1] and randspot[3] <> randspot[2] then answersteps = 6
	endif
	
	if answersteps = 6	
	
		for i = 1 to 3

			CreateText(i, str(answer[i]))
			SetTextSize(i, 200)
			SetTextPosition(i, randspot[i] * 256, 600)
			settextcolor(i, random(30,255), random(30,255), random(30,255), 255)
			
		next i
		
		answersteps = 7
		
	endif
	
	if answersteps = 7
		timeclock = timeclock + 1
		if timeclock = 20 
			for i = 1 to 9
				if GetSpriteExists(sprite[i]) = 1 then DeleteSprite(sprite[i])
			next i
			
			answersteps = 8
		endif
	endif
		
	if answersteps = 8
		if GetPointerPressed() = 1
			if GetTextHitTest(1, GetPointerX(), getpointery()) = 1
				score = score + 1
				answersteps = 9
			endif
		
			if GetTextHitTest(2, getpointerx(), getpointery()) = 1
				score = 0
				answersteps = 9
			endif
		
			if GetTextHitTest(3, getpointerx(), getpointery()) = 1
				score = 0
				answersteps = 9
			endif
		endif
		
		if answersteps = 9
			clear()
		endif
	endif
			
endfunction
		
function clear()
	steps = 1
	answersteps = 0
	imgsteps = 0
	timeclock = 0

	for i = 1 to 9
		if getspriteexists(sprite[i]) = 1 then DeleteSprite(sprite[i])
	next i
	
	for i = 1 to 3
	DeleteText(i)
	next i
endfunction

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "math2" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant FIRST = 0
#constant SECOND = 1
#constant THIRD = 2

Global shape_display_time as Integer
Global score as Integer
Global buttons as Integer[3] // text objects
Global shapes as Integer[]   // sprites objects
Global answers as Integer[3] 
Global correct_answer_index as Integer

NewRound()
do
	Print("score:"+str(score))
    UpdateRound()
    Sync()
loop


Function UpdateRound()
	
	// Hide shapes after time runs out.
	If shape_display_time < GetMilliseconds()
		For i = 0 To shapes.length-1
			SetSpriteVisible(shapes[i], 0)
		Next
	Endif
	
	// Score modification values
	score_correct = 10
	score_incorrect = -5
	
	// Check our buttons have been interacted with
	For i = 0 To buttons.Length-1
		// Reset button color to White
		SetTextColorGreen(buttons[i],255)
		// Is the mouse within the bounds of the text object
		If GetRawMouseX() > GetTextX(buttons[i]) and GetRawMouseX() < GetTextX(buttons[i]) + GetTextTotalWidth(buttons[i])
		If GetRawMouseY() > GetTextY(buttons[i]) and GetRawMouseY() < GetTextY(buttons[i]) + GetTextTotalHeight(buttons[i])
			// Color button Pink if mouse is over it
			SetTextColorGreen(buttons[i],0)
			// Press Left mouse on button
			If GetRawMouseLeftReleased()
				// Update score
				If i = correct_answer_index
					score = score + score_correct
				Else
					score = score + score_incorrect
					If score <0 then score = 0
				EndIf
				// Make a new round
				NewRound()
				// Exit function as we dont want to continue with this update
				ExitFunction
			Endif
		Endif
		Endif
	Next
	
EndFunction

Function NewRound()
	
	// ################################################################################## ANSWERS
	
	// Clear answers from previous round
	answers[FIRST] = 0
	answers[SECOND] = 0
	answers[THIRD] = 0
	
	// Set answer range
	min_answer = 1
	max_answer = 9
	
	// Save 1st answer
	answers[FIRST] = Random(min_answer, max_answer)
	
	// Save 2nd answer
	do
		answers[SECOND] = Random(min_answer, max_answer)
		if answers[SECOND] = answers[FIRST] Then continue
		Exit
	loop
	
	// Save 3rd answer
	do
		answers[THIRD] = Random(min_answer, max_answer)
		if answers[THIRD] = answers[SECOND] Then Continue
		if answers[THIRD] = answers[FIRST] Then Continue
		Exit
	loop
	
	// Choose which answer will be the correct one
	correct_answer_index = Random(FIRST,THIRD)
	
	// ################################################################################## SHAPES
	
	// Set size limits for the shapes (sprites)
	min_width = 50
	max_width = 100
	min_height = 50
	max_height = 100
	
	// Set screen boundry limits for shapes (sprites) so they're not drawn off-screen
	min_x = 0
	max_x = GetDeviceWidth() - max_width
	min_y = 0
	max_y = GetDeviceHeight() - max_height - 200
	
	// Clear shapes (sprites) from previous round
	For i = 0 To shapes.Length
		DeleteSprite(shapes[i])
	Next i
	
	// Set how many shapes (sprites) we need
	shapes.length = answers[correct_answer_index]
	
	// Create shapes (sprites)
	For i = 0 To shapes.length-1
		do
			// Make a new shape at a random location and size
			shapes[i] = Createsprite(0)
			setspritesize(shapes[i], Random(min_width, max_width), Random(min_height, max_height))
			SetSpriteColor(shapes[i], Random(10,255), Random(10,255), Random(10,255), 255)
			setspriteposition(shapes[i], Random(min_x, max_x), Random(min_y, max_y))
			
			// Test this shape does not overlap with others
			overlapped = 0
			For a = 0 To i-1
				If GetSpriteCollision(shapes[i], shapes[a]) Then overlapped = 1
			Next
			
			// Oh On! Shape overlapped so delete this sprite, stay in do\loop and try again
			If overlapped = 1
				DeleteSprite(shapes[i])
				continue
			Endif
			
			// Shape did not overlap so exit the do\loop
			Exit
        loop
	Next i
	
	// Set how long to display the shapes (sprites), 1000 = 1sec
	shape_display_time = GetMilliseconds() + 1000
	
	// ################################################################################## BUTTONS
	
	// Clear buttons from previous round
	For i = 0 To buttons.Length
		DeleteText(buttons[i])
	Next i 
	
	// Set button (text) size, spacing and offsets to position the buttons
	size = 160
	spacing = 100
	offsetx = 220
	offsety = GetDeviceHeight() - size
	
	// Create buttons using TEXT object
	For i = 0 To buttons.Length-1
		buttons[i] = CreateText(Str(answers[i]))
		SetTextSize(buttons[i], size)
		SetTextPosition(buttons[i], offsetx + (i*size) + (i*spacing), offsety)
	Next i 
	
EndFunction