Flyer part 3 contains the glue code to bring everything together

flyer3.bas

StartScreenSaver

'loadimages:
'print "Loading";
restore flyer1dat
flyer(0) = loadFromDat()
'print ".";
restore flyer2dat
flyer(1) = loadFromDat()
'print ".";
restore flyer3dat
flyer(2) = loadFromDat()
'print ".";
restore flyer4dat
flyer(3) = loadFromDat()
'print ".";
restore toast1dat
toast(0) = loadFromDat()
'print ".";
restore toast2dat
toast(1) = loadFromDat()
'print ".";
restore toast3dat
toast(2) = loadFromDat()
'print ".";

if SaverInfo.isPreview then SaverInfo.config.count = 0

dim sprites(0 to SaverInfo.config.count) as sprite ptr
randomize timer
while SaverInfo.IsClosing = FALSE
for n as integer = 0 to SaverInfo.config.count
    if sprites(n) = 0 then
        var rnds = rndrange(0,10)
        if rnds = 1 then
            sprites(n) = newToast
        else
            sprites(n) = newToaster
        end if
    end if
    sprites(n)->drawit
    if sprites(n)->position.y < 5 then sprites(n)->movement.y = 3
    if sprites(n)->position.x < -64 or sprites(n)->position.y > SaverInfo.ScrHeight + 64 then
        delete sprites(n)
        sprites(n) = 0
    end if
next
sleep 100,1
cls
wend

'yay huge executables!
'except when using upx :D
flyer1dat:
#include "flyer1.dat"

flyer2dat:
#include "flyer2.dat"

flyer3dat:
#include "flyer3.dat"

flyer4dat:
#include "flyer4.dat"

toast1dat:
#include "toast1.dat"

toast2dat:
#include "toast2.dat"

toast3dat:
#include "toast3.dat"