Sorry your browser is not supported!

DELETE DOWNLOAD
GET DOWNLOAD ERROR
GET DOWNLOAD ERROR MESSAGE
SET MAXIMUM DOWNLOAD THREADS

remstart 
         ***************************************
         * Simple demonstration of downloading *
         * multiple simultaneous files with    *
         * progress tracking.                  *
         *                                     *
         *                -Rudolpho 2012-12-30 *
         ***************************************
remend
` Basic setup
set display mode 640, 480, 32
set window size 640, 480

`make directory "downloads"
set dir "C:\Users\Joel\Documents\Visual Studio 2010\Projects\Plugins\DownloadPlugin v2\Downloader Test Project\dl\tmp"
sync on : sync rate 0

` Let's download three files simultaneously (and please don't overuse this demo with my files as that will exhaust my poor bandwidth, 
` just change the target url's ;-))
dim download(3) as dword
    download(0) =  download file("http://files.squarefantasy.net/tmp/Large_File_1.dat", "Large_File_1.dat", 1)  ` We set the purgeCache flag to true to ensure that 
    download(1) =  download file("http://files.squarefantasy.net/tmp/Large_File_2.dat", "Large_File_2.dat", 1)  ` we get the full file downloaded each time instead 
    download(2) =  download file("http://files.squarefantasy.net/tmp/Large_File_3.dat", "Large_File_3.dat", 1)  ` of pulling it from cache if it's been previously accessed

` Since we didn't set the autostart flag above the downloads should have started automatically by the time we get here.
` Let's show some rudimentary interface detailing the download process of the files
while not (is download finished(download(0)) and is download finished(download(1)) and is download finished(download(2)))
    cls 0
    for dl = 0 to 2
        offset = dl * 160
        text 10, offset, get download status text(download(dl))
        box 18, offset + 18, 222, offset + 42, 0xffffffff, 0xffffffff, 0xffffffff, 0xffffffff
        box 19, offset + 19, 221, offset + 41, 0xff000000, 0xff000000, 0xff000000, 0xff000000
        percentage# = get download percentage(download(dl))
        edgeCol = 0xff000000 || (lerp_byte(0xff, 0, percentage# / 100.0) << 16) || (lerp_byte(0, 0xff, percentage# / 100.0) << 8)
        box 20, offset + 20, 20 + (2 * get download percentage(download(dl))), offset + 40, 0xffff0000, 0xffff0000, edgeCol, edgeCol
        text 20, offset + 60, get download status description(download(dl))
        
        ` Has this download finished? If so it might be because of an error
        if is download finished(dl) and get download error(dl) <> 0
            text 20, offset + 44, "Download failed: " + get download error message(dl)
        endif
    next dl
    sync
endwhile

` We have to delete the download trackers to avoid memory leaks
delete download download(0)
delete download download(1)
delete download download(2)

wait key
end

` Linear interpolation of a single byte (used for a colour channel here)
function lerp_byte(a as byte, b as byte, l as float)
    a = a + ((b - a) * l)
endfunction a

Rem Project: Dark Basic Pro Project
Rem Created: Monday, December 17, 2012

Rem ***** Main Source File *****
remstart 
         ***************************************
         * Simple demonstration of downloading *
         * multiple simultaneous files with    *
         * progress tracking.                  *
         *                                     *
         *                -Rudolpho 2012-12-17 *
         ***************************************
remend
` Basic setup
set display mode 640, 480, 32
set window size 640, 480

SET DIR "C:\Testfolder" ` Folder must exist
sync on : sync rate 0

` Let's download three files simultaneously (and please don't overuse this demo with my files as that will exhaust my poor bandwidth, 
` just change the target url's ;-))
dim download(3) as dword
    download(0) =  download file("http://www.akaneaya.com/tgcforum/DOWNLOADS/TOF.zip", "Large_File_1.dat", 1)  ` We set the purgeCache flag to true to ensure that 
    download(1) =  download file("http://www.akaneaya.com/tgcforum/DOWNLOADS/TOF.zip", "Large_File_2.dat", 1)  ` we get the full file downloaded each time instead 
    download(2) =  download file("http://www.akaneaya.com/tgcforum/DOWNLOADS/TOF.zip", "Large_File_3.dat", 1)  ` of pulling it from cache if it's been previously accessed

` Since we didn't set the autostart flag above the downloads should have started automatically by the time we get here.
` Let's show some rudimentary interface detailing the download process of the files
while not (is download finished(download(0)) and is download finished(download(1)) and is download finished(download(2)))
    cls 0
    for dl = 0 to 2
        offset = dl * 160
        text 10, offset, get download status text(download(dl))
        box 18, offset + 18, 222, offset + 42, 0xffffffff, 0xffffffff, 0xffffffff, 0xffffffff
        box 19, offset + 19, 221, offset + 41, 0xff000000, 0xff000000, 0xff000000, 0xff000000
        percentage# = get download percentage(download(dl))
        edgeCol = 0xff000000 || (lerp_byte(0xff, 0, percentage# / 100.0) << 16) || (lerp_byte(0, 0xff, percentage# / 100.0) << 8)
        box 20, offset + 20, 20 + (2 * get download percentage(download(dl))), offset + 40, 0xffff0000, 0xffff0000, edgeCol, edgeCol
        text 20, offset + 60, get download status description(download(dl))
    next dl
    sync
endwhile
wait key
end

` Linear interpolation of a single byte (used for a colour channel here)
function lerp_byte(a as byte, b as byte, l as float)
    a = a + ((b - a) * l)
endfunction a

cd dir exe()
if path exist("Downloads")=0 then make directory "Downloads"

input "How many files to download?  ",numFiles
global dim Concurrent_Downloads(numFiles)
for i = 1 to numFiles
  Concurrent_Downloads(i) = download file("http://forum.thegamecreators.com/g/banners/46.jpg", dir exe()+"\Downloads\"+str$(i)+".jpg", 1)
next i

st = 0
numTotal = array count(Concurrent_Downloads())
do
  md = 0
  mz = MOUSEMOVEZ()
  if mz > 0 then md = -10
  if mz < 0 then md = 10
  st = clamp(st+md,0,array count(Concurrent_Downloads())-46)
  cls
  numDone = 0
  for i = 1 to array count(Concurrent_Downloads())
    ` Check to see if file is done downloading
    if Concurrent_Downloads(i) <> -1
      ` If it is, set the value to -1 so we dont keep checking later
      if is download finished(Concurrent_Downloads(i)) then Concurrent_Downloads(i) = -1
    endif
    ` If the file is done, count it for later
    if Concurrent_Downloads(i) = -1 then inc numDone
    ` If the file falls within our print range, print the details
    if i >= st and i <= st + 46
      if Concurrent_Downloads(i) = -1
        print str$(i)+" Done"
      else
        print str$(i)+" "+str$(Concurrent_Downloads(i))+" "+get download status text(Concurrent_Downloads(i))+" "+get download status description(Concurrent_Downloads(i))
      endif
    endif
  next i
  print
  print "Total Progress:  "+str$(numDone)+" "+str$(numTotal)
  sync
  if escapekey() then end
loop

end

cd dir exe()
if path exist("Downloads")=0 then make directory "Downloads"

input "How many files to download?  ",numFiles
global dim Concurrent_Downloads(numFiles)
for i = 1 to numFiles
  Concurrent_Downloads(i) = download file("http://www.klankamakazee.com/Temp/"+str$(i)+".jpg", dir exe()+"\Downloads\"+str$(i)+".jpg", 1)
next i

st = 0
numTotal = array count(Concurrent_Downloads())
do
  md = 0
  mz = MOUSEMOVEZ()
  if mz > 0 then md = -10
  if mz < 0 then md = 10
  st = clamp(st+md,0,array count(Concurrent_Downloads())-46)
  cls
  numDone = 0
  for i = 1 to array count(Concurrent_Downloads())
    ` Check to see if file is done downloading
    if Concurrent_Downloads(i) <> -1
      ` If it is, set the value to -1 so we dont keep checking later
      if is download finished(Concurrent_Downloads(i)) then Concurrent_Downloads(i) = -1
    endif
    ` If the file is done, count it for later
    if Concurrent_Downloads(i) = -1 then inc numDone
    ` If the file falls within our print range, print the details
    if i >= st and i <= st + 46
      if Concurrent_Downloads(i) = -1
        print str$(i)+" Done"
      else
        print str$(i)+" "+str$(Concurrent_Downloads(i))+" "+get download status text(Concurrent_Downloads(i))+" "+get download status description(Concurrent_Downloads(i))
      endif
    endif
  next i
  print
  print "Total Progress:  "+str$(numDone)+" "+str$(numTotal)
  sync
  if escapekey() then end
loop

end

#constant kernel32          1

// Load the kernel32 dll that contains the function to read environmeny variables that we'll use for getting the number of processors
load dll "kernel32.dll", kernel32

print "Hi, your system has "; getProcessorCount(); " processor cores installed."
wait key
end

function getProcessorCount()
    buffer = alloc(16)
    copiedChars = call dll(kernel32, "GetEnvironmentVariableA", "NUMBER_OF_PROCESSORS", buffer, 16)
    procCount = val(peek string(buffer, 16))
    free buffer
endfunction procCount

global dim Files$()
LoadData()
` Delete any files from the last run
for i = 0 to array count(Files$())
  if file exist(Files$(i)) then delete file Files$(i)
next i

global LastFileRequested : LastFileRequested = -1
global NumFilesDownloading,TotalFilesDownloaded,LastDldID,DownloadTime
` Create our array that contains currently downloading IDs
global dim DownloadIDS(-1)

sync on
do
  cls
  print "Downloaded:  ",TotalFilesDownloaded,"  Downloading:  ",NumFilesDownloading
  ` See if we need more files
  if NumFilesDownloading = 0 and TIMER()-DownloadTime > 1000
    if LastFileRequested+1 > array count(Files$()) then print "Done" : wait key : end
    for i = 1 to 10
      if LastFileRequested+i <= array count(Files$())
        array insert at bottom DownloadIDS() : idx = array count(DownloadIDS())
        DownloadIDS(idx) = download file("http://www.wallpaperdisk.com/wallpapers/Miscellaneous/"+Files$(LastFileRequested+i),Files$(LastFileRequested+i), 1, 1)
        inc NumFilesDownloading
        ` Set LastDldID to this ID, so we can display them all up to this point
        LastDldID = DownloadIDS(idx)
      endif
    next i
    ` Increase LastFileRequested so we know where to start next time
    inc LastFileRequested, 10
    NextDownloadTime=0
  endif

  ` Check our current downloads
  for i = array count(DownloadIDS()) to 0 step -1
    if is download finished(DownloadIDS(i))
      delete download DownloadIDS(i)
      array delete element DownloadIDS(), i
      ` Tracking Variables
      dec NumFilesDownloading
      inc TotalFilesDownloaded
    endif
  next i

  ` Show all downloads so far
  for i = 0 to LastDldID
    print PadRight(str$(i)," ",3)+": "+PadRight(Files$(i)," ",30)+":  "+GET DOWNLOAD STATUS TEXT(i)
  next i

  ` If we are out of files, wait a second before continuing
  if NumFilesDownloading=0 and DownloadTime=0 then DownloadTime = TIMER()
  nice sleep 1
  sync
loop

function LoadData()
  ` Very inefficient way to load an array, but this is a test program anyway
  array insert at bottom Files$() : Files$() = "3D romance.jpg"
  array insert at bottom Files$() : Files$() = "3d Cartoon.jpg"
  array insert at bottom Files$() : Files$() = "After Sunami.jpg"
  array insert at bottom Files$() : Files$() = "Alone path.jpg"
  array insert at bottom Files$() : Files$() = "Appartment decoration.jpg"
  array insert at bottom Files$() : Files$() = "BLue water 8.jpg"
  array insert at bottom Files$() : Files$() = "BURNING STARS.jpg"
  array insert at bottom Files$() : Files$() = "Baby playing football.jpg"
  array insert at bottom Files$() : Files$() = "Band man.jpg"
  array insert at bottom Files$() : Files$() = "Beautiful fields.jpg"
  array insert at bottom Files$() : Files$() = "Beautiful Scenery.jpg"
  array insert at bottom Files$() : Files$() = "Beautiful scene.jpg"
  array insert at bottom Files$() : Files$() = "Big 3D mouth.jpg"
  array insert at bottom Files$() : Files$() = "Bloody chest.jpg"
  array insert at bottom Files$() : Files$() = "Blue water.jpg"
  array insert at bottom Files$() : Files$() = "Boat in sand.jpg"
  array insert at bottom Files$() : Files$() = "Brain on beach.jpg"
  array insert at bottom Files$() : Files$() = "Buildings near sea 1.jpg"
  array insert at bottom Files$() : Files$() = "Buildings near sea.jpg"
  array insert at bottom Files$() : Files$() = "Buildings.jpg"
  array insert at bottom Files$() : Files$() = "CAR ON BEACH.jpg"
  array insert at bottom Files$() : Files$() = "CAR WASH.jpg"
  array insert at bottom Files$() : Files$() = "Chill on beach.jpg"
  array insert at bottom Files$() : Files$() = "Chinar leafs .jpg"
  array insert at bottom Files$() : Files$() = "Chinese decoration.jpg"
  array insert at bottom Files$() : Files$() = "City path.jpg"
  array insert at bottom Files$() : Files$() = "Coins.jpg"
  array insert at bottom Files$() : Files$() = "Condums in pocket.jpg"
  array insert at bottom Files$() : Files$() = "Cool weather.jpg"
  array insert at bottom Files$() : Files$() = "Corn.jpg"
  array insert at bottom Files$() : Files$() = "Creativity Platinum.jpg"
  array insert at bottom Files$() : Files$() = "Cruise tour.jpg"
  array insert at bottom Files$() : Files$() = "Crystal wallpaper.jpg"
  array insert at bottom Files$() : Files$() = "Death of the tripod.jpg"
  array insert at bottom Files$() : Files$() = "Deep sea.jpg"
  array insert at bottom Files$() : Files$() = "Dirty water 1.jpg"
  array insert at bottom Files$() : Files$() = "Dirty water.jpg"
  array insert at bottom Files$() : Files$() = "Doggy girl.jpg"
  array insert at bottom Files$() : Files$() = "Dress collection.jpg"
  array insert at bottom Files$() : Files$() = "Dry tree.jpg"
  array insert at bottom Files$() : Files$() = "EARTH AND MOON.jpg"
  array insert at bottom Files$() : Files$() = "Everywhere green.jpg"
  array insert at bottom Files$() : Files$() = "Fair skin girl.jpg"
  array insert at bottom Files$() : Files$() = "Field.jpg"
  array insert at bottom Files$() : Files$() = "Fighter girl (1).jpg"
  array insert at bottom Files$() : Files$() = "Fighter girl (2).jpg"
  array insert at bottom Files$() : Files$() = "Flowers 3#.jpg"
  array insert at bottom Files$() : Files$() = "Flowers in grass.jpg"
  array insert at bottom Files$() : Files$() = "Flowers like diamond.jpg"
  array insert at bottom Files$() : Files$() = "Foot in leafes.jpg"
  array insert at bottom Files$() : Files$() = "Foot point.jpg"
  array insert at bottom Files$() : Files$() = "Forest path.jpg"
  array insert at bottom Files$() : Files$() = "Freedom on sand.jpg"
  array insert at bottom Files$() : Files$() = "GALAXY.jpg"
  array insert at bottom Files$() : Files$() = "Ghost.jpg"
  array insert at bottom Files$() : Files$() = "Girl Smoking.jpg"
  array insert at bottom Files$() : Files$() = "Girl Wearingoff.jpg"
  array insert at bottom Files$() : Files$() = "Girl bathing.jpg"
  array insert at bottom Files$() : Files$() = "Girl big mouth.jpg"
  array insert at bottom Files$() : Files$() = "Girl in Black.jpg"
  array insert at bottom Files$() : Files$() = "Girl look.jpg"
  array insert at bottom Files$() : Files$() = "Girl walking.jpg"
  array insert at bottom Files$() : Files$() = "Girls duppata.jpg"
  array insert at bottom Files$() : Files$() = "Gold.jpg"
  array insert at bottom Files$() : Files$() = "Golden gate night.jpg"
  array insert at bottom Files$() : Files$() = "Gorgeous girl.jpg"
  array insert at bottom Files$() : Files$() = "Green And snow mountain.jpg"
  array insert at bottom Files$() : Files$() = "Heart on beach.jpg"
  array insert at bottom Files$() : Files$() = "Heart stone.jpg"
  array insert at bottom Files$() : Files$() = "Hills falling.jpg"
  array insert at bottom Files$() : Files$() = "Hiting fire ball.jpg"
  array insert at bottom Files$() : Files$() = "Hole between tree.jpg"
  array insert at bottom Files$() : Files$() = "Home sitting decoration.jpg"
  array insert at bottom Files$() : Files$() = "Hot look.jpg"
  array insert at bottom Files$() : Files$() = "House in snow 3.jpg"
  array insert at bottom Files$() : Files$() = "Human from eggs.jpg"
  array insert at bottom Files$() : Files$() = "Ice on leaf wall.jpg"
  array insert at bottom Files$() : Files$() = "Ice world.jpg"
  array insert at bottom Files$() : Files$() = "Iron factory.jpg"
  array insert at bottom Files$() : Files$() = "Island new.jpg"
  array insert at bottom Files$() : Files$() = "Island.jpg"
  array insert at bottom Files$() : Files$() = "Kick the tree.jpg"
  array insert at bottom Files$() : Files$() = "Leafes on path.jpg"
  array insert at bottom Files$() : Files$() = "Light house.jpg"
  array insert at bottom Files$() : Files$() = "Lightening bulb.jpg"
  array insert at bottom Files$() : Files$() = "Look sexy.JPG"
  array insert at bottom Files$() : Files$() = "Love in ice.jpg"
  array insert at bottom Files$() : Files$() = "Love in rebort.jpg"
  array insert at bottom Files$() : Files$() = "Mother happiness.jpg"
  array insert at bottom Files$() : Files$() = "Music world 1.jpg"
  array insert at bottom Files$() : Files$() = "Mutant in city.jpg"
  array insert at bottom Files$() : Files$() = "Neck hurt.jpg"
  array insert at bottom Files$() : Files$() = "Ninja.jpg"
  array insert at bottom Files$() : Files$() = "Path wide.jpg"
  array insert at bottom Files$() : Files$() = "Paths on mountain.jpg"
  array insert at bottom Files$() : Files$() = "Pathway.jpg"
  array insert at bottom Files$() : Files$() = "Photographer carelessness.jpg"
  array insert at bottom Files$() : Files$() = "Photoshop Hostess.jpg"
  array insert at bottom Files$() : Files$() = "Racing car 6.jpg"
  array insert at bottom Files$() : Files$() = "Raining Event.jpg"
  array insert at bottom Files$() : Files$() = "Road braken.jpg"
  array insert at bottom Files$() : Files$() = "Rock in water.jpg"
  array insert at bottom Files$() : Files$() = "Rocket attaking ship.jpg"
  array insert at bottom Files$() : Files$() = "SAd girl on edge.jpg"
  array insert at bottom Files$() : Files$() = "SEXY BITCH.jpg"
  array insert at bottom Files$() : Files$() = "SEXY GIRL.jpg"
  array insert at bottom Files$() : Files$() = "SOLID COLORS.JPG"
  array insert at bottom Files$() : Files$() = "Sand on shorts.jpg"
  array insert at bottom Files$() : Files$() = "Sea in 3d.jpg"
  array insert at bottom Files$() : Files$() = "Sea view.jpg"
  array insert at bottom Files$() : Files$() = "Sexy girls.jpg"
  array insert at bottom Files$() : Files$() = "Sexy look.jpg"
  array insert at bottom Files$() : Files$() = "Sexy peoples on beach.JPG"
  array insert at bottom Files$() : Files$() = "Shower on girl.jpg"
  array insert at bottom Files$() : Files$() = "Sleeping man.jpg"
  array insert at bottom Files$() : Files$() = "Small car 1.jpg"
  array insert at bottom Files$() : Files$() = "Small roof.jpg"
  array insert at bottom Files$() : Files$() = "Small shoes.jpg"
  array insert at bottom Files$() : Files$() = "Smiling girl.jpg"
  array insert at bottom Files$() : Files$() = "Snail on leaf.jpg"
  array insert at bottom Files$() : Files$() = "Snail on root.jpg"
  array insert at bottom Files$() : Files$() = "Snail on sunflower.jpg"
  array insert at bottom Files$() : Files$() = "Snow Air.jpg"
  array insert at bottom Files$() : Files$() = "Snow.jpg"
  array insert at bottom Files$() : Files$() = "So Hot girl.jpg"
  array insert at bottom Files$() : Files$() = "Soup in cups.jpg"
  array insert at bottom Files$() : Files$() = "Spritual girl.jpg"
  array insert at bottom Files$() : Files$() = "Stone_Shield_by_hardyguardy.jpg"
  array insert at bottom Files$() : Files$() = "Stones in water.jpg"
  array insert at bottom Files$() : Files$() = "Stones on land.jpg"
  array insert at bottom Files$() : Files$() = "Stones world.jpg"
  array insert at bottom Files$() : Files$() = "Straigt path.jpg"
  array insert at bottom Files$() : Files$() = "Sunflower.jpg"
  array insert at bottom Files$() : Files$() = "Sunset 6.jpg"
  array insert at bottom Files$() : Files$() = "Sunset clouds.jpg"
  array insert at bottom Files$() : Files$() = "Sunset new.jpg"
  array insert at bottom Files$() : Files$() = "Sunset.jpg"
  array insert at bottom Files$() : Files$() = "TRADITIONAL CHINESE GIRL.jpg"
  array insert at bottom Files$() : Files$() = "Test tubes.jpg"
  array insert at bottom Files$() : Files$() = "The Bug blood blue cell.jpg"
  array insert at bottom Files$() : Files$() = "Thin dog with fat girl.jpg"
  array insert at bottom Files$() : Files$() = "Thumbs.db"
  array insert at bottom Files$() : Files$() = "Tower in water.jpg"
  array insert at bottom Files$() : Files$() = "Toys world.jpg"
  array insert at bottom Files$() : Files$() = "Tree in snow.jpg"
  array insert at bottom Files$() : Files$() = "Tree near sunset.jpg"
  array insert at bottom Files$() : Files$() = "Trees in snow.jpg"
  array insert at bottom Files$() : Files$() = "Trees near water.jpg"
  array insert at bottom Files$() : Files$() = "Village path.jpg"
  array insert at bottom Files$() : Files$() = "Vocala.jpg"
  array insert at bottom Files$() : Files$() = "WAter island.jpg"
  array insert at bottom Files$() : Files$() = "Wakeup man.jpg"
  array insert at bottom Files$() : Files$() = "Wallpaper (33).jpg"
  array insert at bottom Files$() : Files$() = "Water Colors dry.jpg"
  array insert at bottom Files$() : Files$() = "Water Fall view.jpg"
  array insert at bottom Files$() : Files$() = "Water Path 7.jpg"
  array insert at bottom Files$() : Files$() = "Water fall 87.jpg"
  array insert at bottom Files$() : Files$() = "Water path.jpg"
  array insert at bottom Files$() : Files$() = "Water scene.jpg"
  array insert at bottom Files$() : Files$() = "White (19).jpg"
  array insert at bottom Files$() : Files$() = "White (20).jpg"
  array insert at bottom Files$() : Files$() = "White (21).jpg"
  array insert at bottom Files$() : Files$() = "White (23).jpg"
  array insert at bottom Files$() : Files$() = "White (24).jpg"
  array insert at bottom Files$() : Files$() = "White (27).jpg"
  array insert at bottom Files$() : Files$() = "White (28).jpg"
  array insert at bottom Files$() : Files$() = "White (31).jpg"
  array insert at bottom Files$() : Files$() = "White (33).jpg"
  array insert at bottom Files$() : Files$() = "White (35).jpg"
  array insert at bottom Files$() : Files$() = "White (37).jpg"
  array insert at bottom Files$() : Files$() = "White (40).jpg"
  array insert at bottom Files$() : Files$() = "White flower.jpg"
  array insert at bottom Files$() : Files$() = "White tree.jpg"
  array insert at bottom Files$() : Files$() = "Widescreen Ice mountains.jpg"
  array insert at bottom Files$() : Files$() = "Widescreen Leaves.jpg"
  array insert at bottom Files$() : Files$() = "Wild animal.jpg"
  array insert at bottom Files$() : Files$() = "Window wall.jpg"
  array insert at bottom Files$() : Files$() = "World wallpaper.jpg"
  array insert at bottom Files$() : Files$() = "Zip bag.jpg"
  array insert at bottom Files$() : Files$() = "adios mundo cruel.jpg"
  array insert at bottom Files$() : Files$() = "all white.jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (1).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (10).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (11).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (12).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (2).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (3).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (4).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (5).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (6).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (7).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (8).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags (9).jpg"
  array insert at bottom Files$() : Files$() = "amazing-bags.jpg"
  array insert at bottom Files$() : Files$() = "apple and orange.jpg"
  array insert at bottom Files$() : Files$() = "apples.jpg"
  array insert at bottom Files$() : Files$() = "art-lady.jpg"
  array insert at bottom Files$() : Files$() = "ash of cigrate.jpg"
  array insert at bottom Files$() : Files$() = "ash tray.jpg"
  array insert at bottom Files$() : Files$() = "babes with old car.jpg"
  array insert at bottom Files$() : Files$() = "banson cigrate.jpg"
  array insert at bottom Files$() : Files$() = "beautiful girl.jpg"
  array insert at bottom Files$() : Files$() = "big leaf.jpg"
  array insert at bottom Files$() : Files$() = "blue eye lady.jpg"
  array insert at bottom Files$() : Files$() = "blue-vector.jpg"
  array insert at bottom Files$() : Files$() = "body.jpg"
  array insert at bottom Files$() : Files$() = "bot in wast sea.jpg"
  array insert at bottom Files$() : Files$() = "building tower.jpg"
  array insert at bottom Files$() : Files$() = "burning cigarettes.jpg"
  array insert at bottom Files$() : Files$() = "camera lights.jpg"
  array insert at bottom Files$() : Files$() = "camera.jpg"
  array insert at bottom Files$() : Files$() = "campau_clementson_balloon_wall3.jpg"
  array insert at bottom Files$() : Files$() = "campau_clementson_tattoo_wallf.jpg"
  array insert at bottom Files$() : Files$() = "car love.jpg"
  array insert at bottom Files$() : Files$() = "car.jpg"
  array insert at bottom Files$() : Files$() = "caset music.jpg"
  array insert at bottom Files$() : Files$() = "cat dog love.jpg"
  array insert at bottom Files$() : Files$() = "chinese style home decoration.jpg"
  array insert at bottom Files$() : Files$() = "chinese war.jpg"
  array insert at bottom Files$() : Files$() = "chinese.jpg"
  array insert at bottom Files$() : Files$() = "chocklate milk.jpg"
  array insert at bottom Files$() : Files$() = "choclate cigareetes.jpg"
  array insert at bottom Files$() : Files$() = "choclate cigrate smoke.jpg"
  array insert at bottom Files$() : Files$() = "christmas bell in snow.jpg"
  array insert at bottom Files$() : Files$() = "cigarettes filters.jpg"
  array insert at bottom Files$() : Files$() = "cigarettes lighter.jpg"
  array insert at bottom Files$() : Files$() = "cigarettes pack.jpg"
  array insert at bottom Files$() : Files$() = "cigarettes smoke.jpg"
  array insert at bottom Files$() : Files$() = "cigrate tobaco.jpg"
  array insert at bottom Files$() : Files$() = "cigrates in ashtray.jpg"
  array insert at bottom Files$() : Files$() = "cigrates.jpg"
  array insert at bottom Files$() : Files$() = "coffee drop.jpg"
  array insert at bottom Files$() : Files$() = "colored apple.jpg"
  array insert at bottom Files$() : Files$() = "colour pencils.jpg"
  array insert at bottom Files$() : Files$() = "cute girl in old home.jpg"
  array insert at bottom Files$() : Files$() = "cutter.jpg"
  array insert at bottom Files$() : Files$() = "eagle painting on hands.jpg"
  array insert at bottom Files$() : Files$() = "eggs in nest.jpg"
  array insert at bottom Files$() : Files$() = "eggs-cutter.jpg"
  array insert at bottom Files$() : Files$() = "elephant on hand.jpg"
  array insert at bottom Files$() : Files$() = "elephants and car.jpg"
  array insert at bottom Files$() : Files$() = "eye.jpg"
  array insert at bottom Files$() : Files$() = "eye2.jpg"
  array insert at bottom Files$() : Files$() = "fashion girl.jpg"
  array insert at bottom Files$() : Files$() = "fat-bear.jpg"
  array insert at bottom Files$() : Files$() = "fire.jpg"
  array insert at bottom Files$() : Files$() = "fishes.jpg"
  array insert at bottom Files$() : Files$() = "flower white.jpg"
  array insert at bottom Files$() : Files$() = "forest-man.jpg"
  array insert at bottom Files$() : Files$() = "gunship car.jpg"
  array insert at bottom Files$() : Files$() = "hoe alone.jpg"
  array insert at bottom Files$() : Files$() = "holloween.jpg"
  array insert at bottom Files$() : Files$() = "hot girl swiming.jpg"
  array insert at bottom Files$() : Files$() = "k1_cloud.jpg"
  array insert at bottom Files$() : Files$() = "killer tedy bear.jpg"
  array insert at bottom Files$() : Files$() = "lady in black.jpg"
  array insert at bottom Files$() : Files$() = "lady smoker.jpg"
  array insert at bottom Files$() : Files$() = "lady with blue eyes.jpg"
  array insert at bottom Files$() : Files$() = "lady with python.jpg"
  array insert at bottom Files$() : Files$() = "lady-vector.jpg"
  array insert at bottom Files$() : Files$() = "lady-with-black-tiger.jpg"
  array insert at bottom Files$() : Files$() = "lets get shopping.jpg"
  array insert at bottom Files$() : Files$() = "life is blue.jpg"
  array insert at bottom Files$() : Files$() = "lighter burning.jpg"
  array insert at bottom Files$() : Files$() = "lighting-city.jpg"
  array insert at bottom Files$() : Files$() = "lovers alone.jpg"
  array insert at bottom Files$() : Files$() = "lung cancer guarannteed.jpg"
  array insert at bottom Files$() : Files$() = "many cigarettes.jpg"
  array insert at bottom Files$() : Files$() = "martial arts.jpg"
  array insert at bottom Files$() : Files$() = "match box.jpg"
  array insert at bottom Files$() : Files$() = "matrix barscodes.jpg"
  array insert at bottom Files$() : Files$() = "miami beach.jpg"
  array insert at bottom Files$() : Files$() = "milky-music.jpg"
  array insert at bottom Files$() : Files$() = "moke dragon.jpg"
  array insert at bottom Files$() : Files$() = "moon.jpg"
  array insert at bottom Files$() : Files$() = "mouse.jpg"
  array insert at bottom Files$() : Files$() = "multi colors.jpg"
  array insert at bottom Files$() : Files$() = "nice-apple.jpg"
  array insert at bottom Files$() : Files$() = "nissan lights.jpg"
  array insert at bottom Files$() : Files$() = "no-breaks.jpg"
  array insert at bottom Files$() : Files$() = "old dragon.jpg"
  array insert at bottom Files$() : Files$() = "old sofa.jpg"
  array insert at bottom Files$() : Files$() = "on beach walk.jpg"
  array insert at bottom Files$() : Files$() = "owl 3d.jpg"
  array insert at bottom Files$() : Files$() = "painting 2.jpg"
  array insert at bottom Files$() : Files$() = "painting of worls.jpg"
  array insert at bottom Files$() : Files$() = "painting.jpg"
  array insert at bottom Files$() : Files$() = "pakistan-wallpaper.jpg"
  array insert at bottom Files$() : Files$() = "paper jet.jpg"
  array insert at bottom Files$() : Files$() = "polar signs.jpg"
  array insert at bottom Files$() : Files$() = "rambow colors bars.jpg"
  array insert at bottom Files$() : Files$() = "rambow colors.jpg"
  array insert at bottom Files$() : Files$() = "rambow lady.jpg"
  array insert at bottom Files$() : Files$() = "red sofa.jpg"
  array insert at bottom Files$() : Files$() = "robotic child.jpg"
  array insert at bottom Files$() : Files$() = "scenery.jpg"
  array insert at bottom Files$() : Files$() = "smoke hands.jpg"
  array insert at bottom Files$() : Files$() = "smoker.jpg"
  array insert at bottom Files$() : Files$() = "smoking cigrate.jpg"
  array insert at bottom Files$() : Files$() = "smoking habbit.jpg"
  array insert at bottom Files$() : Files$() = "smoking.jpg"
  array insert at bottom Files$() : Files$() = "space station.jpg"
  array insert at bottom Files$() : Files$() = "sunrise.jpg"
  array insert at bottom Files$() : Files$() = "teen fun.jpg"
  array insert at bottom Files$() : Files$() = "thinking-girl.jpg"
  array insert at bottom Files$() : Files$() = "tobaco of cigareetes.jpg"
  array insert at bottom Files$() : Files$() = "urban_wallpaper.jpg"
  array insert at bottom Files$() : Files$() = "volcano-950x534.jpg"
  array insert at bottom Files$() : Files$() = "volcano-950x534.png"
  array insert at bottom Files$() : Files$() = "volcano.jpg"
  array insert at bottom Files$() : Files$() = "walking in sea.jpg"
  array insert at bottom Files$() : Files$() = "water drops on screen.jpg"
  array insert at bottom Files$() : Files$() = "white car.jpg"
  array insert at bottom Files$() : Files$() = "white cigarettes.jpg"
  array insert at bottom Files$() : Files$() = "wings.jpg"
  array insert at bottom Files$() : Files$() = "winter season.jpg"
  array insert at bottom Files$() : Files$() = "wolkano.jpg"
  array insert at bottom Files$() : Files$() = "x-mas tree (1).jpg"
  array insert at bottom Files$() : Files$() = "x-mas tree (2).jpg"
  array insert at bottom Files$() : Files$() = "yellow grass.jpg"
endfunction

function PadRight(s$,w$,a)
  while fast len(s$) < a
    s$ = s$+w$
  endwhile
endfunction s$

function PadLeft(s$,w$,a)
  while fast len(s$) < a
    s$ = w$+s$
  endwhile
endfunction s$

  for i = 1 to KKLib_HTTP_LastDLDID
    KKLib_Logs_warn("Download ID:  "+str$(i))
    KKLib_Logs_warn("Status:  "+ GET DOWNLOAD STATUS TEXT(i))
    KKLib_Logs_warn("Status2:  "+ GET DOWNLOAD STATUS DESCRIPTION(i))
    ` Finaly, check for states
    if is download in progress(i)
      KKLib_Logs_warn("Is in progress")
    endif
    if get download error(i) <> 0
      KKLib_Logs_warn("Is in error")
    endif
    if is download finished(i)
      KKLib_Logs_warn("Is finished")
    endif
  next i

12:46:36.000000107227949  Warning:  Download ID:  1
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  2
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  3
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  4
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  5
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  6
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  7
12:46:36.000000107227949  Warning:  Status:  No such download exists
12:46:36.000000107227949  Warning:  Status2:  No such download exists
12:46:36.000000107227949  Warning:  Download ID:  8
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  9
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  10
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  11
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  12
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  13
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  14
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  15
12:46:36.000000107227949  Warning:  Status:  Aborted
12:46:36.000000107227949  Warning:  Status2:  Download aborted
12:46:36.000000107227949  Warning:  Is finished
12:46:36.000000107227949  Warning:  Download ID:  16
12:46:36.000000107227949  Warning:  Status:  Queued
12:46:36.000000107227949  Warning:  Status2:  In download queue
12:46:36.000000107227949  Warning:  Is in progress
12:46:36.000000107227949  Warning:  Download ID:  17
12:46:36.000000107227949  Warning:  Status:  Queued
12:46:36.000000107227949  Warning:  Status2:  In download queue
12:46:36.000000107227949  Warning:  Is in progress
12:46:36.000000107227949  Warning:  Download ID:  18
12:46:36.000000107227949  Warning:  Status:  Queued
12:46:36.000000107227949  Warning:  Status2:  In download queue
12:46:36.000000107227949  Warning:  Is in progress
12:46:36.000000107227950  Warning:  Download ID:  19
12:46:36.000000107227950  Warning:  Status:  Queued
12:46:36.000000107227950  Warning:  Status2:  In download queue
12:46:36.000000107227950  Warning:  Is in progress
12:46:36.000000107227950  Warning:  Download ID:  20
12:46:36.000000107227950  Warning:  Status:  Queued

function KKLib_HTTP_KillDead()
  for i = 1 to KKLib_HTTP_LastDLDID
    if GET DOWNLOAD STATUS TEXT(i) = "Aborted" then delete download i
  next i
endfunction