Simple Music Player 1.15 SVN

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

// Simple music player for Sauerbraten. Can't get simpler than this.
// If you want to play songs from another folder, change the "fanatic" part.

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