think ive almost got the loader the way I want it now
my code is a bit like spaghetti atm lol
type _loader
ID as integer
time# as float
endtype
C64Fnt=loadFont("C64.ttf")
SetPrintFont(C64Fnt)
Intro()
function intro()
//AppleFnt=LoadFont("AppleII.ttf")
myString$="load BlitzKrieg"
C64BackgroundImg=LoadImage("C64Background.png")
C64BackgroundSpr=CreateSprite(C64BackgroundImg)
KeyboardSnd=LoadSound("Keyboard.wav")
SetSpriteDepth(C64BackgroundImg,12)
//SetPrintSize(24)
SetPrintSpacing(0)
SetPrintSize(15)
SetPrintColor(163,150,255 )
//time#=timer() //i use this method so i can record sleep sleeps but doesnt sync()
//repeat
// sync()
//until Timer()>time#+10
time#=timer()
count=0:oldCount=0
Repeat
Print("")
Print("")
Print("")
Print("")
Print("")
Print("")
Print("")
Print("")
Print("")
Print("")
if count < len(mystring$)
Print(" "+Left(myString$,count )+chr(109))
else
Print(" "+Left(myString$,count ))
endif
if count>=len(mystring$)
Print(""):print(" Press play on tape")
endif
if time#<timer()+1 then inc count
if count>oldCount and count< len(mystring$)
PlaySound(KeyBoardSnd,100,0)
oldCount=Count
endif
Sync()
until timer()>time#+2
SetPrintSize(24)
SetPrintColor(255,255,255 )
tmploader as _loader
loader as _loader[]
for y= 0 to 13
tmploader.ID=createSprite(0)
SetSpriteSize(tmploader.ID,890,49)
SetSpritePosition(tmploader.ID,68,57+(y*49))
SetSpriteColor(tmploader.ID,random(50,255),random(50,255),random(50,255),255)
tmploader.time#=random(1,100)/100
loader.insert(tmpLoader)
next y
time#=timer()
repeat
for num=loader.length to 0 step -1
if loader[num].time#<timer()
SetSpriteColor(loader[num].ID,random(50,255),random(50,255),random(50,255),255)
loader[num].time#=random(1,100)/100
endif
next num
sync()
until timer()>time#+2
//delete the loader sprites
for num = loader.length to 0 step-1
deleteSprite(loader[num].id)
loader.remove(num)
next num
time#=timer()
//Deleted the sprites and sounds cos I no longer need them
SetSpriteVisible(C64BackgroundSpr,0)
DeleteSprite(C64BackgroundSpr)
DeleteImage(C64BackgroundImg)
StopSound(KeyboardSnd)
DeleteSound(KeyboardSnd)
endfunction
