Simple Music Player 1.11

append = [$arg1 = (concat (getalias $arg1) $arg2)]
rndo = [result (at $arg1 (rnd (listlen $arg1)))]

// Simple music player for Sauerbraten

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