newgui "explorer" [
    guistayopen [

        guibutton "reset to zero" [e_folder = ""]
        guitext "Sauerbraten
        looplist i . [
            loopfiles f $i $e_folder [
                if (= (strstr $f "." ) -1 ) [
                    guibutton (format "|-%1" $f ) [e_folder = @f]
                ] [
                    guibutton (format "|*%1" $f ) [e_open]

                ]
            ]
        ]
    ]
]