Simple Music Player WIP

// simple music player

playasong = [
    playlist = ""; audiolibrary = [.wma .wav .ogg .mid]
    loopfiles f "packages/fanatic" "" [
        looplist i $audiolibrary [
            if (=s (substr $f (- (strlen $f) 4)) $i) [append playlist (format ["%1"] $f)]
        ]
    ]
    song = (rndo $playlist)
    music (format "fanatic/%1" $song) playasong
    echo (concat "^f7Now playing:^f2" $song)
]