PRoF - I'll give that a try, thanks!
Rudolpho - I thought I had already added an extra to the end of the path...hmmm...hafta fix that...
*edit*
It worked, now I have a new problem. I'm trying to keep the screen uncluttered with things so I put together a simple IF statement to test a variable, and every time it went through the function, the variable had 1 added to it...but I'm getting an error, saying types "useage$" and "1" are incompatible....
rem declare global variables
Global path$ = "C:\Documents and Settings\Pwnzors\My Documents\My Music\"
global c$
global useage$ = 0
rem main program loop
do
input c$
player()
loop
function player()
rem checking current directory
if path exist(path$)
rem storing old path
oldPath$ = get dir$()
quit as boolean
get$ = path$ + c$
rem setting new directory
set dir path$
rem starting file search
find first
while not quit
rem checking files for match
if get file name$() = c$
rem loading and playing music
if music exist(1)
goto _playing
endif
load music get$,1
play music 1
print "Now playing: " + c$
endif
rem if file does not match, continuing file search
find next
rem if no files are left in current directory
if get file type() = -1 ` No more files exist in the current directory
quit = 1
endif
endwhile
rem check for system commands
_playing:
select c$
case "clear"
cls
endcase
case "exit"
end
endcase
case "stop"
stop music 1
endcase
case "pause"
pause music 1
endcase
case "play"
play music 1
endcase
case "delete"
delete music 1
endcase
endselect
else
print "<" + path$ + "> does not exist."
endif
useage$ = useage$ + 1
if useage$ = 3
cls
if music playing 1
print "Now playing: " + c$
endif
endif
endfunction
Image thanks goes to AndrewT
