load unlimited images

Repeat
	Local img:TImage = LoadImage("myimage.png")
Forever

SuperStrict 'this makes us need to state the types of variables and reduces bugs

AppTitle$ = "load multi image"
Graphics 600,400

'add here the locations of the images. they must be separated by a " ? "
Global image_open:String = "images/intro.png ? images/ge.PNG images/boss.png ? images/maxball.png"

'the Split method will automatically split up our string for us
Global images:String[] = image_open.Split(" ? ")

'this will hold the image we load
Global display_image:TImage

'we will do our work within the main game loop
main_loop()
End



Function view_image_names()
    Local y:Int = 0
    
    'this will go through every image file path
    For Local image:String = EachIn images
        DrawText image, 0, y
        'TextHeight can give us the height of the next no matter the font
        y = y + TextHeight(image_open)
    Next
End Function

Function choose_picture:Int()
    'this returns the index number of the image path the user has chosen
    'or it returns -1 to show nothing has been selected
    Local choose:Int = -1
    If MouseHit(1) Then
        choose = MouseY()/TextHeight(image_open)
    End If
    Return choose
End Function

Function draw_picture()
    'if a picture has been loaded, draw it
    If display_image
        DrawImage display_image, 200, 50
    End If
End Function

Function main_loop()
    'repeat until escape is pressed or the red X is clicked
    While (Not KeyDown(KEY_ESCAPE)) And (Not AppTerminate())
        Cls
        'draw the list of image paths
        view_image_names()
        'draw the picture if one has been loaded
        draw_picture()
        Flip
        Delay 1
        
        'find out what the user has chosen
        Local choose:Int = choose_picture()
        
        'if choose is -1 then nothing has been chosen
        'if the user clicks below the text it will give a number too big
        'so check also that choose is within the number of images!
        If choose > -1 And choose < images.Length
            'load the image from the path at this position number
            display_image = LoadImage(images[choose])
            'check that the image was loaded. if the image file doesn't exist for example, give an error message
            If Not display_image Then RuntimeError "Could not find " + images[choose] + "."
        End If
    Wend
End Function

SuperStrict


Global image_list:TList = New TList


'you can add any image variable, but for this example we use this one
Local image:TImage

'load an image from wherever
image = LoadImage(...)

'add it to the list!
image_list.AddLast(image)

'load an image from wherever
image = LoadImage(...)

'add it to the list!
image_list.AddLast(image)

'load an image from wherever
image = LoadImage(...)

'add it to the list!
image_list.AddLast(image)


Function display_all_images()
    Local y:Int = 0
    
    For Local image:TImage = EachIn image_list
        DrawImage image, 0, y
        y :+ ImageWidth(image)
    Next
End Function

'you can use this to remove an image
image_list.Remove(image)

'you can use this to find out how many things are in your list
image_list.Count()

'you can use this to reset your list to 0
image_list.Clear()