Of course I will share, where are my manners
EDIT: I use this bit for find bmp files and store it an array but it should be able to find anything.
`over-dimension the array, it will be cut down further down
dim tiles_db_names$(9999)
`initiate the variabel current_array_spot and increment it to 1
current_array_spot = 0
`set directory to tiles directory
set dir "Shanki moon\bitmaps\tiles"
`fill the checklist with the files in the directory
rem perform checklist for files
find first
repeat
filename$ = get file name$()
`check that the file is a BMP, it also checks BMP in lower case no matter what
if lower$(right$ (filename$,3)) = "bmp" (change bmp to something like info_map.arr and the corresponding 3 to 12,
now that you want to look at the 12 last letters of the filenames)
`increment the current array spot
inc current_array_spot
`put the actual filename in the string array for filenames
tiles_db_names$(current_array_spot) = "bitmaps\tiles\" + filename$
endif
find next
until get file type() = -1
`return to main directory
cd ".."
cd ".."
cd ".."
The byte chrunchers are coming...
DIVIDING BY ZERO/BECAUSE WE SUCK...
