Sorry your browser is not supported!

// show all errors
SetErrorMode(2)


// set window properties
SetWindowTitle( "abc_game" )
SetWindowSize( 1280, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1280, 720 ) // doesn't have to match the window
SetOrientationAllowed( 0, 0 , 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( 2 ) // since version 2.0.22 we can use nicer default fonts
SetClearColor (255, 200, 100 )


abc$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"


x_axis as integer[26]
y_axis as integer[26]

x_axis[1]=40
x_axis[2]=190
x_axis[3]=340
x_axis[4]=490
x_axis[5]=640
x_axis[6]=790
x_axis[7]=940
x_axis[8]=1090

x_axis[9]=40
x_axis[10]=190
x_axis[11]=340
x_axis[12]=490
x_axis[13]=640
x_axis[14]=790
x_axis[15]=940
x_axis[16]=1090


x_axis[17]=40
x_axis[18]=190
x_axis[19]=340
x_axis[20]=490
x_axis[21]=640
x_axis[22]=790
x_axis[23]=940
x_axis[24]=1090


x_axis[25]=340
x_axis[26]=790

a# = 35

y_axis[1]=a#
y_axis[2]=a#
y_axis[3]=a#
y_axis[4]=a#
y_axis[5]=a#
y_axis[6]=a#
y_axis[7]=a#
y_axis[8]=a#

b# = 170

y_axis[9]=b#
y_axis[10]=b#
y_axis[11]=b#
y_axis[12]=b#
y_axis[13]=b#
y_axis[14]=b#
y_axis[15]=b#
y_axis[16]=b#


c# = 300

y_axis[17]=c#
y_axis[18]=c#
y_axis[19]=c#
y_axis[20]=c#
y_axis[21]=c#
y_axis[22]=c#
y_axis[23]=c#
y_axis[24]=c#

d# = 450

y_axis[25]=d#
y_axis[26]=d#


For i=1 to 26
    newlet = random(1,26)
   //newlet = random2(1,26)
    CreateText(i,MID(abc$,newlet,1))
    SetTextPosition(i,x_axis[i],y_axis[i])
    SetTextSize(i,35)
    SetTextColor(i,0,0,0,255)  
Next i



do
	sync()
loop

// Project: RandomLetters 
// Created: 2018-06-27

// show all errors
SetErrorMode(2)

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

// set display properties
SetVirtualResolution( 1280, 720 ) // doesn't have to match the window
SetOrientationAllowed( 0, 0 , 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( 2 ) // since version 2.0.22 we can use nicer default fonts
SetClearColor (255, 200, 100 )

// Setting a grid of locations  
global xGrid as integer[8]
xGrid[1]=40
xGrid[2]=190
xGrid[3]=340
xGrid[4]=490
xGrid[5]=640
xGrid[6]=790
xGrid[7]=940
xGrid[8]=1090

global yGrid as integer[4] // sets the y grid values
yGrid[0] = 35
yGrid[1] = 170
yGrid[2] = 300
yGrid[3] = 450

// generate the first one
GenerateRandomAlphabet()

do

	// Check if space is pressed - if so generate a new set
	if GetRawKeyPressed(32) then GenerateRandomAlphabet()

    //Print( ScreenFPS() )
    Sync()
loop

function GenerateRandomAlphabet()
	For i=1 to 26 // one index for each letter of the alphabet

		// Create the text
		if GetTextExists(i) = 0
			CreateText(i,chr(i+64))
		endif

		repeat // repeat until we geta unique unsued position
			// Get the x and y positions
			xpos= xGrid[Random2(1,8)]
			ypos= yGrid[Random2(0,3)]

		// Check if there is already a latter at that position
		until CheckPositionIsUnique(xpos,ypos,i) = 0
		//until 1

		SetTextPosition(i,xpos,ypos)
		SetTextSize(i,35)
		SetTextColor(i,0,0,0,255) 

	Next i
endfunction

// This function
function CheckPositionIsUnique(xpos,ypos,i)
	for c=1 to i
		if GetTextX(c) = xpos and GetTextY(c) = ypos then exitfunction 1	
	next c
endfunction 0

// Project: RandomLetters 
// Created: 2018-06-27
 
// show all errors
SetErrorMode(2)
 
 global AlphabetID as integer = 1
 loadimage(AlphabetID,"alphabet_letters.png")
 
// set window properties
SetWindowTitle( "RandomLetters" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1280, 720 ) // doesn't have to match the window
SetOrientationAllowed( 0, 0 , 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( 2 ) // since version 2.0.22 we can use nicer default fonts
SetClearColor (255, 200, 100 )
 
// Setting a grid of locations  
global xGrid as integer[8]
xGrid[1]=40
xGrid[2]=190
xGrid[3]=340
xGrid[4]=490
xGrid[5]=640
xGrid[6]=790
xGrid[7]=940
xGrid[8]=1090
 
global yGrid as integer[4] // sets the y grid values
yGrid[0] = 35
yGrid[1] = 170
yGrid[2] = 300
yGrid[3] = 450
 
 global imgid as integer[26] 

 
// generate the first one
GenerateRandomAlphabet()

 
do
 
    // Check if space is pressed - if so generate a new set
    if GetRawKeyPressed(32) then GenerateRandomAlphabet()
 
    //Print( ScreenFPS() )
    Sync()
loop
 
function GenerateRandomAlphabet()
    For i=1 to 26 // one index for each letter of the alphabet
            imgid[i]=100+i
        // Create the text
        if GetSpriteExists(imgid[i]) = 0		
			//loadimage(imgid[i],mid("abcdefghijklmnopqrstuvwxyz",i,1)+".png")
			loadsubimage(imgid[i],AlphabetID,mid("abcdefghijklmnopqrstuvwxyz",i,1)+".png")
            //CreateText(i,chr(i+64))
            createsprite(imgid[i],imgid[i])
        endif
 
        repeat // repeat until we geta unique unsued position
            // Get the x and y positions
            xpos= xGrid[Random2(1,8)]
            ypos= yGrid[Random2(0,3)]
 
        // Check if there is already a latter at that position
        until CheckPositionIsUnique(xpos,ypos,i) = 0
        //until 1
 
        
        SetSpritePosition(imgid[i],xpos,ypos)

    Next i
endfunction
 
// This function
function CheckPositionIsUnique(xpos,ypos,i)
    for c=1 to i
       
        if GetSpriteX(c+100) = xpos and GetSpriteY(c+100) = ypos then exitfunction 1 
    next c
endfunction 0