Sorry your browser is not supported!

	for j = 0 to 3
		game_pieces[i].smallSprite = CreateSprite(cloud_g_img)
		i = i + 1
	next j

	for j = 0 to 3
		game_pieces[i].smallSprite = CreateSprite(clover_g_img)
		i = i + 1
	next j

       // Repeat 1000 more times...

["cloud", "clover", "drop"].each do |shape|
    for j in 0..3 do
        game_pieces[i].smallSprite = CreateSprite(instance_variable_get("@#{shape}")
        i = i + 1
    end
end

global images$ as string[3] = ["\media\cloud.png","\media\clover.png","\media\drop.png"]

for i=1 to 1000 // run through game piece sprites
	for j=0 to images$.length  // run through each element in the images$ array
		game_peices[i].smallsprite = createsprite ( loadimage ( images$ [ j ] ) )
	next j
next i

rem
rem AGK Application 2017.01.09
rem MR 22.01.2017

SetWindowSize(1280,720,0)
SetVirtualResolution(100,100)

Type TIDName
	id as integer
	name as string	
EndType

Main()
end

Function Main()

	local list as TIDName[2]
	
	list[1].id = 1
	list[1].name = "cloud"

	list[2].id = 2
	list[2].name = "clover"

	local item as TIDName
			
	Do

		item = IDByName(list,"cloud")
		print(str( item.id ) + " " + item.name )

		item = IDByName(list,"clover")
		print(str( item.id ) + " " + item.name )

		If GetPointerPressed()
			exit
		EndIf
		
		sync()
	Loop
	end

	
EndFunction 

Function IDByName(list ref as TIDName[],name as string)
	
	local item as TIDName

	for i = 1 to list.length
		if list[i].name = name
			item = list[i]
			exit
		endif
	next
	
EndFunction item as TIDName

game_peices[i].smallsprite = createsprite ( loadimage ( images$ [ j ] ) )